From bdba4222d722be93376aea6de2e78abdb28dfcfc Mon Sep 17 00:00:00 2001
From: Thomas Albers <thomas@thomaslabs.org>
Date: Tue, 23 May 2023 21:58:32 +0200
Subject: Initial commit

---
 .guix-channel                    |  2 +
 README.org                       |  0
 thomaslabs/packages/lisp-xyz.scm | 96 ++++++++++++++++++++++++++++++++++++++++
 3 files changed, 98 insertions(+)
 create mode 100644 .guix-channel
 create mode 100644 README.org
 create mode 100644 thomaslabs/packages/lisp-xyz.scm

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
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)))
-- 
cgit v1.2.3