[bug#49234] Add cl-markkup-reader

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

[-- Attachment #1.1: Type: text/plain, Size: 86 bytes --]

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

[-- Attachment #1.2: Type: text/html, Size: 97 bytes --]

[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: 0001-gnu-Add-cl-markup-reader.patch --]
[-- Type: text/x-patch; name=0001-gnu-Add-cl-markup-reader.patch, Size: 2364 bytes --]

From 0b18edbfc77292bb7dd55b70e0abcd9279a45c54 Mon Sep 17 00:00:00 2001
From: Charles <charles.b.jackson@protonmail.com>
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