[bug#54392] [PATCH] gnu: cl-3bmd: Update to 4e08d82.

[jgart]

* gnu/packages/lisp-xyz.scm (cl-3bmd): Update to 4e08d82.
[inputs]: Add python, python-pygments, sbcl-fiasco, and use newer inputs
guix style.
[arguments]: Patch python executable and fill in asd-files and
test-asd-file keywords.
---
 gnu/packages/lisp-xyz.scm | 37 ++++++++++++++++++++++++++++---------
 1 file changed, 28 insertions(+), 9 deletions(-)

diff --git a/gnu/packages/lisp-xyz.scm b/gnu/packages/lisp-xyz.scm
index d72d84d225..f52c37543d 100644
--- a/gnu/packages/lisp-xyz.scm
+++ b/gnu/packages/lisp-xyz.scm
@@ -1819,8 +1819,8 @@ (define-public ecl-colorize
   (sbcl-package->ecl-package sbcl-colorize))
 
 (define-public sbcl-3bmd
-  (let ((commit "6fc5759448f6f6df6f6df556e020a289a2643288")
-        (revision "2"))
+  (let ((commit "4e08d82d7c8fb1b8fc708c87f4d9d13a1ab490cb")
+        (revision "3"))
     (package
       (name "sbcl-3bmd")
       (version (git-version "0.0.0" revision commit))
@@ -1831,7 +1831,7 @@ (define-public sbcl-3bmd
                (url "https://github.com/3b/3bmd";)
                (commit commit)))
          (sha256
-          (base32 "1avmbp8xdjlbqpqk7p3vmj7abiw5p3vb5mrxp4wlvgql4sf6z3p4"))
+          (base32 "1j885ykg2yds0l7dmw21lrhs7pd66lf541pf9lb677nkhc2f62jz"))
          (file-name (git-file-name "3bmd" version))))
       (build-system asdf-build-system/sbcl)
       (arguments
@@ -1842,12 +1842,31 @@ (define-public sbcl-3bmd
            "3bmd-ext-tables"
            "3bmd-ext-wiki-links"
            "3bmd-youtube"
-           "3bmd-ext-code-blocks")))
-      (inputs
-       `(("alexandria" ,sbcl-alexandria)
-         ("colorize" ,sbcl-colorize)
-         ("esrap" ,sbcl-esrap)
-         ("split-sequence" ,sbcl-split-sequence)))
+           "3bmd-ext-code-blocks")
+         #:asd-files
+         '("3bmd.asd"
+           "3bmd-youtube.asd"
+           "3bmd-ext-math.asd"
+           "3bmd-ext-tables.asd"
+           "3bmd-youtube-tests.asd"
+           "3bmd-ext-wiki-links.asd"
+           "3bmd-ext-code-blocks.asd"
+           "3bmd-ext-definition-lists.asd")
+        #:test-asd-file "3bmd-youtube-tests.asd"
+        #:phases
+        (modify-phases %standard-phases
+          (add-after 'unpack 'patch-python3-executable
+            (lambda _
+              (substitute* "code-blocks.lisp"
+                (("python3") (which "python3"))))))))
+     (inputs
+       (list python
+             python-pygments
+             sbcl-alexandria
+             sbcl-colorize
+             sbcl-split-sequence
+             sbcl-esrap
+             sbcl-fiasco))
       (home-page "https://github.com/3b/3bmd";)
       (synopsis "Markdown processor in Command Lisp using esrap parser")
       (description
-- 
2.35.1