Subject: Add cl-markkup-reader
From: Charles <[email-masked]>
To: "[email-masked]" <[email-masked]>
Date: Sat, 26 Jun 2021 15:36:28 +0000
List-Id: <debbugs-submit.debbugs.gnu.org>

Patch is attatched. Like last time, I'm still new to this and appreciate any feedback.

From 0b18edbfc77292bb7dd55b70e0abcd9279a45c54 Mon Sep 17 00:00:00 2001
From: Charles <[email-masked]>
Date: Sat, 26 Jun 2021 09:31:11 -0500
Subject: [PATCH] gnu: Add cl-markup-reader.

* gnu/packages/fonts.scm (sbcl-markup-reader): Add new variable.
* gnu/packages/fonts.scm (ecl-markup-reader): Add new variable.
* gnu/packages/fonts.scm (cl-markup-reader): Add new variable.
---
 gnu/packages/lisp-xyz.scm | 37 +++++++++++++++++++++++++++++++++++++
 1 file changed, 37 insertions(+)

diff --git a/gnu/packages/lisp-xyz.scm b/gnu/packages/lisp-xyz.scm
index 1bd35d5812..f8aae805ed 100644
--- a/gnu/packages/lisp-xyz.scm
+++ b/gnu/packages/lisp-xyz.scm
@@ -3591,6 +3591,43 @@ Lisp, featuring:
 (define-public ecl-cl-markup
   (sbcl-package->ecl-package sbcl-cl-markup))
 
+(define-public sbcl-markup-reader
+  (package
+    (name "sbcl-markup-reader")
+    (version "0.0.1")
+    (source
+     (origin
+       (method git-fetch)
+       (uri (git-reference
+             (url "https://github.com/moderninterpreters/markup")
+             (commit "d2d4d7b073554f47c24223a9304452966608702e")))
+       (file-name (git-file-name "markup-reader" version))
+       (sha256
+        (base32 "0i3v938j8zpzkd6p9j8gadp5zndjcdxhswj1qgsp592v6497rpzj"))))
+    (build-system asdf-build-system/sbcl)
+    (arguments
+     '(#:asd-files '("markup.asd")
+       #:asd-systems '("markup")))
+    (inputs
+     `(("sbcl-cl-str" ,sbcl-cl-str)
+       ("sbcl-alexandria" ,sbcl-alexandria)
+       ("sbcl-named-readtables" ,sbcl-named-readtables)
+       ("sbcl-trivial-gray-streams" ,sbcl-trivial-gray-streams)))
+    (home-page "https://github.com/moderninterpreters/markup")
+    (synopsis "Markup provides a reader-macro to read HTML tags inside of
+Common Lisp code")
+    (description "Markup allows the use of HTML syntax with in Common Lisp code.
+This has the advantage of being able to copy HTML snippets and have the
+instantly be functional, less double quotes than a s-expression approach, and
+designers will be able to understand the embeded HTML.")
+    (license license:asl2.0)))
+
+(define-public ecl-markup-reader
+  (sbcl-package->ecl-package sbcl-markup-reader))
+
+(define-public cl-markup-reader
+  (sbcl-package->cl-source-package sbcl-markup-reader))
+
 (define-public sbcl-cl-mustache
   (package
     (name "sbcl-cl-mustache")
-- 
2.32.0