diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2021-02-16 18:39:13 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-02-16 18:39:13 -0700 |
commit | b981a5e783d491de1aad59abb5db8469b73c1080 (patch) | |
tree | ca792a586eb97e89e77c304cd7c9a92df6be7920 /src/data/asdf.lisp | |
parent | ce5ab88ba012ae95c3916246d07e5de495a9edc0 (diff) | |
download | consfigurator-b981a5e783d491de1aad59abb5db8469b73c1080.tar.gz |
move code into an src/ subdir
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/data/asdf.lisp')
-rw-r--r-- | src/data/asdf.lisp | 25 |
1 files changed, 25 insertions, 0 deletions
diff --git a/src/data/asdf.lisp b/src/data/asdf.lisp new file mode 100644 index 0000000..bca2346 --- /dev/null +++ b/src/data/asdf.lisp @@ -0,0 +1,25 @@ +(in-package :consfigurator.data.asdf) + +(defmethod register-data-source ((type (eql :asdf)) &key) + (add-data-source #'asdf-data-source-check #'get-path-to-concatenated-system)) + +(defun asdf-data-source-check (iden1 system) + (and (string= iden1 "lisp-system") + (asdf:find-system system nil))) + +(Defun get-path-to-concatenated-system (iden1 system) + "Try to concatenate all the source code for SYSTEM, store it somewhere and +return the filename." + (let ((cache-dir (uiop:ensure-pathname-directory + (strcat (or (uiop:getenv "XDG_CACHE_HOME") + (strcat (uiop:getenv "HOME") "/.cache")) + "/consfigurator/systems"))) + (op 'asdf:monolithic-concatenate-source-op) + (co (asdf:find-component system nil))) + (ensure-directories-exist cache-dir) + (asdf:initialize-output-translations `(:output-translations + (t ,cache-dir) + :disable-cache + :ignore-inherited-configuration)) + (asdf:operate op co) + (list :file (asdf:output-file op co)))) |