(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)))