14/18: gnu: sbcl-cluffer: Remove bash reference from the closure.

[guix-commits]

ambrevar pushed a commit to branch master
in repository guix.

commit ced05db048ca60afe227acdcad9c794f231bf16d
Author: Pierre Neidhardt <mail@ambrevar.xyz>
AuthorDate: Thu Jul 7 13:56:16 2022 +0200

    gnu: sbcl-cluffer: Remove bash reference from the closure.
    
    * gnu/packages/lisp-xyz.scm (sbcl-cluffer)[arguments]: Unpatch shell 
shebangs.
    
    It's only needed to generate the documentation (which we should do at
    build-time by the way).
    
    This takes the closure size of cl-cluffer from 40 MiB down to 0 MiB.
---
 gnu/packages/lisp-xyz.scm | 15 +++++++++++++++
 1 file changed, 15 insertions(+)

diff --git a/gnu/packages/lisp-xyz.scm b/gnu/packages/lisp-xyz.scm
index 7c795ea4b9..1a8491a00f 100644
--- a/gnu/packages/lisp-xyz.scm
+++ b/gnu/packages/lisp-xyz.scm
@@ -11328,6 +11328,21 @@ sequences of objects.")
       (build-system asdf-build-system/sbcl)
       (inputs
        (list sbcl-acclimation sbcl-clump))
+      (arguments
+       `(#:phases
+         (modify-phases %standard-phases
+           (add-after 'install 'unpatch-shebangs
+             (lambda* (#:key outputs #:allow-other-keys)
+               ;; The documentation Makefile rely on shell scripts.
+               ;; TODO: Build it!
+               ;; In the mean time, remove the shabang as it adds bash to the
+               ;; closure.
+               (let* ((out (assoc-ref outputs "out"))
+                      (build-aux (string-append
+                                  out "/share/")))
+                 (substitute* (find-files build-aux)
+                   (("^#!.*/bin/sh") "#!/bin/sh")
+                   (("^#!.*/bin/bash") "#!/bin/bash"))))))))
       (home-page "https://github.com/robert-strandh/cluffer";)
       (synopsis "Common Lisp library providing a protocol for text-editor 
buffers")
       (description "Cluffer is a library for representing the buffer of a text