STklos

1 files changed, 33 insertions, 0 deletions

diff --git a/mcgoron/guix/scheme-packages.scm b/mcgoron/guix/scheme-packages.scm
index f8dfed5..f386059 100644
--- a/mcgoron/guix/scheme-packages.scm
+++ b/mcgoron/guix/scheme-packages.scm
@@ -450,3 +450,36 @@
                     ,(append-to "LOKO_LIBRARY_PATH" "GUIX_LOKO_PATH" "R6RS_LIBRARY_PATH" "R7RS_LIBRARY_PATH")
                     impl))))
 
+;;;;;;;;;;;;;;;;;;;
+;;;; STKlos
+;;;;;;;;;;;;;;;;;;;
+
+(define-public stklos-lib-dir "share/stklos")
+
+(define-public stklos-build-system
+  (default-copying-build-system 'stklos
+                                "Copy Scheme libraries into STKlos directory"
+                                stklos-lib-dir))
+
+(define-public stklos-with-path
+  (package/path
+   stklos
+   "stklos"
+   "STKlos with Guix paths"
+   "Wrapper for STKlos that adds Guix-managed paths to search path"
+   "/bin/stklos"
+   "/bin/stklos"
+   "GUIX_STKLOS_PATH"
+   (list r7rs-search-path-specification)
+   stklos-lib-dir
+   `(lambda (sh impl)
+      (format #t
+       "#!~a
+
+        ~a
+
+        exec -a $0 \"~a\" \"$@\""
+       sh 
+       ,(append-to "STKLOS_LOAD_PATH" "GUIX_STKLOS_PATH" "R7RS_LIBRARY_PATH")
+       impl))))
+