Initial commit

3 files changed, 98 insertions, 0 deletions

diff --git a/.guix-channel b/.guix-channel
new file mode 100644
index 0000000..d0cb4f5
--- /dev/null
+++ b/.guix-channel
@@ -0,0 +1,2 @@
+(channel
+ (version 0))
diff --git a/README.org b/README.org
new file mode 100644
index 0000000..e69de29
--- /dev/null
+++ b/README.org
diff --git a/thomaslabs/packages/lisp-xyz.scm b/thomaslabs/packages/lisp-xyz.scm
new file mode 100644
index 0000000..6e95cb8
--- /dev/null
+++ b/thomaslabs/packages/lisp-xyz.scm
@@ -0,0 +1,96 @@
+(define-module (thomaslabs packages lisp-xyz)
+  #:use-module (guix packages)
+  #:use-module (guix download)
+  #:use-module (guix git-download)
+  #:use-module ((guix licenses) #:prefix license:)
+
+  #:use-module (guix build-system asdf)
+
+  #:use-module (gnu packages lisp-xyz)
+  #:use-module (gnu packages web))
+
+(define-public sbcl-eco
+  (package
+    (name "sbcl-eco")
+    (version "1.0")
+    (source (origin
+              (method git-fetch)
+              (uri (git-reference
+                    (url "https://github.com/eudoxia0/eco.git")
+                    (commit "0052f5e5d456f389fbfc4d1a92846217cf533285")))
+              (file-name (git-file-name name version))
+              (sha256
+               (base32 "13fsv9v7fhf05p7j1hrfy2sg813wmgsp9aw4ng4cpzdss24zvf7q"))))
+    (build-system asdf-build-system/sbcl)
+    (inputs (list sbcl-esrap
+                  sbcl-alexandria
+                  sbcl-split-sequence
+                  sbcl-cl-who))
+    (synopsis "")
+    (description "")
+    (home-page "")
+    (license license:cc0)))
+
+(define-public sbcl-fastcgi
+  (package
+    (name "sbcl-fastcgi")
+    (version "1.0")
+    (source (origin
+              (method url-fetch)
+              (uri "file:///home/thomas/code/lisp/fastcgi")
+              (sha256
+               (base32 "0ngh8b51ngh3bqacl40j6wwiinhwxswsy02d9k7qlzv9sbjxay4s"))))
+    (build-system asdf-build-system/sbcl)
+    (arguments
+     `(#:phases
+       (modify-phases %standard-phases
+         (add-after 'unpack 'fix-paths
+           (lambda* (#:key inputs #:allow-other-keys)
+             (substitute* "src/fcgx.lisp"
+               (("libfcgi.so" all)
+                (string-append (assoc-ref inputs "fcgi") "/lib/" all)))
+             #t)))))
+    (inputs (list fcgi
+                  sbcl-cffi
+                  sbcl-alexandria
+                  sbcl-quri))
+    (synopsis "")
+    (description "")
+    (home-page "")
+    (license license:cc0)))
+
+(define-public autotag
+  (package
+    (name "autotag")
+    (version "0.0.1")
+    (source (origin
+              (uri (git-reference
+                    (url "git://thomaslabs.org/autotag")
+                    (commit "1077ec862c5e5dd893c9aed71adbe368c931b643")))
+              (sha256
+               (base32 "1pdq94dvzwccvfkqj33n8j310i2rhw19kvsmhzkxcsjh38dyx85f"))
+              (method git-fetch)))
+    (inputs (list cl-str
+                  sbcl-plump
+                  sbcl-babel
+                  sbcl-drakma
+                  sbcl-trivial-shell
+                  sbcl-split-sequence
+                  sbcl-alexandria
+                  sbcl-just-getopt-parser
+                  sbcl-osicat
+                  sbcl-slynk
+                  sbcl-cl-interpol))
+    (arguments '(#:phases
+                 (modify-phases %standard-phases
+                   (add-after 'create-asdf-configuration 'build-program
+                     (lambda* (#:key outputs #:allow-other-keys)
+                       (build-program
+                        (string-append (assoc-ref outputs "out") "/bin/autotag")
+                        outputs
+                        #:entry-program '((autotag:main) 0)))))))
+    (build-system asdf-build-system/sbcl)
+    (synopsis "")
+    (description "")
+    (home-page "")
+    (license license:gpl3)))