[bug#58994] [PATCH] gnu: Add cl-triads.

[jgart via Guix-patches via <guix-patches@gnu.org>]

* gnu/packages/lisp-xyz.scm (cl-triads, ecl-triads, sbcl-triads):
New variables.
---
 gnu/packages/lisp-xyz.scm | 36 ++++++++++++++++++++++++++++++++++++
 1 file changed, 36 insertions(+)

diff --git a/gnu/packages/lisp-xyz.scm b/gnu/packages/lisp-xyz.scm
index 2184295137..e3118710a8 100644
--- a/gnu/packages/lisp-xyz.scm
+++ b/gnu/packages/lisp-xyz.scm
@@ -24414,6 +24414,42 @@ (define-public cl-draw-cons-tree
 (define-public ecl-draw-cons-tree
   (sbcl-package->ecl-package sbcl-draw-cons-tree))
 
+(define-public sbcl-triads
+  (let ((commit "840b025bf3d65cc5eaead4542a02a3ca6d77c2b6")
+        (revision "0"))
+    (package
+     (name "sbcl-triads")
+     (version (git-version "0" revision commit))
+     (source
+      (origin
+       (method git-fetch)
+       (uri (git-reference
+             (url "https://github.com/charJe/triads")
+             (commit commit)))
+       (file-name (git-file-name name version))
+       (sha256
+        (base32 "146mwshynhdw82m2nxrcjvf1nk0z3fn6ywcd2vqxkly5qricc53w"))))
+     (build-system asdf-build-system/sbcl)
+     (arguments
+      '(#:asd-systems '("charje.triads")))
+     (inputs
+      (list sbcl-cl-str
+            sbcl-serapeum
+            sbcl-trivia))
+     (home-page "https://github.com/charJe/triads")
+     (synopsis "Music composition tool to convert roman numerals into triads")
+     (description "Triads is a simple command line tool that reads roman
+numeral notation from standard input (or a file) and an musical key and outputs
+the roman numeral in addition to the notes of the triad associated with that
+roman numeral given in the key.")
+     (license license:gpl3+))))
+
+(define-public cl-triads
+  (sbcl-package->cl-source-package sbcl-triads))
+
+(define-public ecl-triads
+  (sbcl-package->ecl-package sbcl-triads))
+
 (define-public sbcl-cl-morse
   (package
     (name "sbcl-cl-morse")
-- 
2.38.1