(define-module (gn packages lisp)
  #:use-module (gnu packages)
  #:use-module ((guix licenses) #:prefix license:)
  #:use-module (guix packages)
  #:use-module (gnu packages lisp-xyz)
  #:use-module (gnu packages lisp-check)
  #:use-module (guix download)
  #:use-module (guix git-download)
  #:use-module (guix utils)
  #:use-module (guix build-system asdf)
  #:use-module (srfi srfi-1)
  #:use-module (srfi srfi-19))

(define-public sbcl-rollbar
  (let ((commit "fbaf644e3a0b077f6853d25874de6a5827b4094c")
        (revision "0"))
    (package
      (name "sbcl-rollbar")
      (version "0.0.2")
      (source
        (origin
          (method git-fetch)
          (uri (git-reference
                (url "https://github.com/adventuring/rollbar.lisp")
                (commit commit)))
          (sha256
           (base32 "01lax9qkb4xcd56ck88ickgpisw30zwg0s3y7rm6cnxv4qgamhzg"))
          (file-name (git-file-name name version))))
      (build-system asdf-build-system/source) ; FIXME?
      (inputs
        (list sbcl-alexandria
              sbcl-drakma
              sbcl-jonathan
              sbcl-trivial-backtrace))
      (home-page "https://github.com/adventuring/rollbar.lisp")
      (synopsis "Rollbar.com interface for Common Lisp")
      (description
  "Rollbar.com is a service for collecting automated telemetry (ie, bug
  reports, mostly) through their web service.")
      (license license:bsd-3))))

(define-public sbcl-defstar
  (let ((commit "132829dac9f84fa7202a0c5793aa6accb8d2662a")
        (revision "0"))
    (package
      (name "sbcl-defstar")
      (version "0.4.2")
      (source
        (origin
          (method git-fetch)
          (uri (git-reference
                (url "https://github.com/lisp-maintainers/defstar")
                (commit commit)))
          (sha256
           (base32 "0n6m3aqvdfnsrhlhqjcy72d1i55lbkjg13ij5c7vw003p1n78wxi"))
          (file-name (git-file-name name commit))))
      (build-system asdf-build-system/sbcl)
      (arguments
       `(#:asd-files '("defstar.asd")))
      (home-page "https://github.com/lisp-maintainers/defstar")
      (synopsis "Type declarations for defun et all")
      (description
"@code{defstar} is a collection of Common Lisp macros that can be used in
place of @code{defun}, @code{defmethod}, @code{defgeneric}, @code{defvar},
@code{defparameter}, @code{flet}, @code{labels}, @code{let}* and
@code{lambda}. Each macro has the same name as the form it replaces,
with a star added at the end.")
      (license license:gpl3))))

(define-public cl-defstar
  (sbcl-package->cl-source-package sbcl-defstar))

(define-public ecl-defstar
  (sbcl-package->ecl-package sbcl-defstar))

(define-public sbcl-2am
  (let ((commit "1d2fd21bbd8f26ec91b962705cab098dd7b5f11c")
        (revision "0"))
    (package
      (name "sbcl-2am")
      (version "0.4.2")
      (source
        (origin
          (method git-fetch)
          (uri (git-reference
                (url "https://gitlab.common-lisp.net/dkochmanski/2am")
                (commit commit)))
          (sha256
           (base32 "0zgx4ymyzvfg44z36yr4l87cd9mprajd7sycr2zc67ab6330rynf"))
          (file-name (git-file-name name commit))))
      (build-system asdf-build-system/sbcl)
      (arguments
       `(#:asd-files '("2am.asd")))
      (home-page "https://gitlab.common-lisp.net/dkochmanski/2am")
      (synopsis "Small testing framework based on 1am")
      (description
"Small testing framework for Common Lisp.  The entire API consists of:
@code{test}, @code{is}, @code{signals}, @code{finishes}, @code{run},
suite and @code{setf} suite.")
      (license license:expat))))

(define-public cl-2am
  (sbcl-package->cl-source-package sbcl-2am))

(define-public ecl-2am
  (sbcl-package->ecl-package sbcl-2am))

(define-public sbcl-fwoar-lisputils
  (let ((commit "7093110d43e91bc1685ad430da99785d9ec61dae")
        (revision "0"))
    (package
      (name "sbcl-fwoar-lisputils")
      (version "0.4.2")
      (source
        (origin
          (method git-fetch)
          (uri (git-reference
                (url "https://github.com/fiddlerwoaroof/fwoar.lisputils")
                (commit commit)))
          (sha256
           (base32 "0wfy4k2xpnadzy6yfn5iavc8hv1m688942sc1yp8xkdm7pk0mvvi"))
          (file-name (git-file-name name commit))))
      (build-system asdf-build-system/source) ; FIXME
      (home-page "https://github.com/fiddlerwoaroof/fwoar.lisputils")
      (synopsis "Hodgepodge of useful Lisp snippets")
      (description "A hodgepodge of useful Lisp snippets.")
      (license license:expat))))

(define-public sbcl-lorem-ipsum
  (let ((commit "04a1839a03b53c954e799b9cf570ac915b032ce8")
        (revision "0"))
    (package
      (name "sbcl-lorem-ipsum")
      (version "0.4.2")
      (source
        (origin
          (method git-fetch)
          (uri (git-reference
                (url "https://github.com/phoe/lorem-ipsum")
                (commit commit)))
          (sha256
           (base32 "1530qq0bk3xr25m77q96pbi1idnxdkax8cwmvq4ch03rfjy34j7n"))
          (file-name (git-file-name name commit))))
      (build-system asdf-build-system/sbcl)
      (home-page "https://github.com/phoe/lorem-ipsum")
      (synopsis "Lorem ipsum generator in portable Common Lisp")
      (description 
"Lorem ipsum dolor sit amet, consectetur adipiscing elit erat, id eget
tellus et turpis, incididunt. Purus mollis penatibus, odio facilisis
sit. Quisque sagittis quisque. Incididunt commodo mi non. Lectus facilisi
suscipit duis ultricies sem quis. Lorem massa volutpat quis suspendisse
turpis, netus hac elementum. At do. Ac integer metus potenti scelerisque
fringilla labore. Tellus penatibus arcu ligula nisi.")
      (license license:expat))))

(define-public cl-lorem-ipsum
  (sbcl-package->cl-source-package sbcl-lorem-ipsum))

(define-public ecl-lorem-ipsum
  (sbcl-package->ecl-package sbcl-lorem-ipsum))

(define-public sbcl-fare-memoization
  (let ((commit "8b43ac6bcc0057d1a92052e39b6d34c05c2eb7e4")
        (revision "0"))
    (package
      (name "sbcl-fare-memoization")
      (version "0.4.2")
      (source
        (origin
          (method git-fetch)
          (uri (git-reference
                (url "https://gitlab.common-lisp.net/frideau/fare-memoization")
                (commit commit)))
          (sha256
           (base32 "1blmrb4c9gsxj87scz74z1s8w9d1w2r48fyxj0y1sw3vr6bsbb8f"))
          (file-name (git-file-name name commit))))
      (build-system asdf-build-system/sbcl)
      (arguments
       `(#:asd-files '("fare-memoization.asd")))
      (native-inputs
        (list sbcl-hu.dwim.stefil))
      (inputs
        (list sbcl-named-readtables))
      (home-page "https://gitlab.common-lisp.net/frideau/fare-memoization")
      (synopsis "Memoization library for common-lisp")
      (description
"The @code{fare-memoization} library builds on an age-old idea:
dynamically memoizing Lisp functions.  A memoized function remembers
results from previous computations, and returns cached results when called
with the same arguments again, rather than re-doing the computation.")
      (license license:expat))))

(define-public cl-fare-memoization
  (sbcl-package->cl-source-package sbcl-fare-memoization))

(define-public ecl-fare-memoization
  (sbcl-package->ecl-package sbcl-fare-memoization))

(define-public sbcl-meta
  (let ((commit "74faea662139fbbfb9c99341aaed989f5b0e9da3")
        (revision "0"))
    (package
      (name "sbcl-meta")
      (version "0.4.2")
      (source
        (origin
          (method git-fetch)
          (uri (git-reference
                (url "https://gitlab.common-lisp.net/frideau/meta")
                (commit commit)))
          (sha256
           (base32 "08s53zj3mcx82kszp1bg2vsb4kydvkc70kj4hpq9h1l5a1wh44cy"))
          (file-name (git-file-name name commit))))
      (build-system asdf-build-system/sbcl)
      (arguments
       `(#:asd-files '("meta.asd")))
      (inputs
        (list sbcl-named-readtables))
      (home-page "https://gitlab.common-lisp.net/frideau/meta")
      (synopsis "Recursive-descent parser DSL for common-lisp")
      (description 
"Recursive-descent parser DSL that is a simpler alternative to parser
generators.")
      (license license:bsd-3))))

(define-public cl-meta
  (sbcl-package->cl-source-package sbcl-meta))

(define-public ecl-meta
  (sbcl-package->ecl-package sbcl-meta))

(define-public sbcl-scribble
  (let ((commit "4e5369bec6d5e4eed4f99c3dc009fce3e3427cd3")
        (revision "0"))
    (package
      (name "sbcl-scribble")
      (version "0.4.2")
      (source
        (origin
          (method git-fetch)
          (uri (git-reference
                (url "https://gitlab.common-lisp.net/frideau/scribble")
                (commit commit)))
          (sha256
           (base32 "056qi6vw9bk19s42mapyg55mimhhvhlwgny080v9mhv4fhnqi196"))
          (file-name (git-file-name name commit))))
      (build-system asdf-build-system/sbcl)
      (arguments
       `(#:asd-files '("scribble.asd")))
      (native-inputs
        (list sbcl-babel))
      (inputs
        (list sbcl-fare-utils
              ;; sbcl-fare-matcher
              sbcl-fare-memoization
              sbcl-fare-quasiquote
              sbcl-meta
              sbcl-named-readtables))
      (home-page "https://gitlab.common-lisp.net/frideau/scribble")
      (synopsis "SCRibe-like reader extension for Common Lisp")
      (description "SCRibe-like reader extension for Common Lisp.")
      (license license:llgpl))))

(define-public cl-scribble
  (sbcl-package->cl-source-package sbcl-scribble))

(define-public ecl-scribble
  (sbcl-package->ecl-package sbcl-scribble))

(define-public sbcl-qc
  (let ((commit "89a2f2e09f67d5bc5b7be6726a75f82c8d3a82b9")
        (revision "2"))
    (package
      (name "sbcl-qc")
      (version (git-version "20220301" revision commit))
      (source
        (origin
          (method git-fetch)
          (uri (git-reference
                (url "https://git.genenetwork.org/jgart/cl-qc")
                (commit commit)))
          (sha256
           (base32 "0dlaxdzrpagn18jxy3kzzf1bwn55prdjpzw256hnjbvmnx5w5fd7"))
          (file-name (git-file-name name commit))))
      (build-system asdf-build-system/sbcl)
      (arguments
       `(#:asd-files '("qc.asd")))
      (native-inputs
        (list sbcl-1am))
      (inputs
        (list sbcl-alexandria
              sbcl-split-sequence))
      (home-page "https://gitlab.common-lisp.net/frideau/qc")
      (synopsis "Quality control of delimited data")
      (description
"@code{cl-qc} is a Common Lisp library for linting about the following
in delimited text files:
@itemize
@item Whitespace
@item Floating-point number well-formedness
@item GeneChip Platform ID checks for Affymetrix, Illumina, and others
@end itemize\n")
      (license license:llgpl))))

(define-public cl-qc
  (sbcl-package->cl-source-package sbcl-qc))

(define-public ecl-qc
  (sbcl-package->ecl-package sbcl-qc))