This is an automated email from the git hooks/post-receive script.

lfam pushed a commit to branch master
in repository guix.

The following commit(s) were added to refs/heads/master by this push:
     new 789d73234d gnu: sent: Install some more useful documentation.
789d73234d is described below

commit 789d73234d5b6bbd83bb054146d5bbd1d374d51a
Author: Leo Famulari <[email protected]>
AuthorDate: Thu Jan 12 19:14:38 2023 -0500

    gnu: sent: Install some more useful documentation.
    
    * gnu/packages/suckless.scm (sent)[arguments]: Install the README.md in a 
new
    'install-doc' phase.
---
 gnu/packages/suckless.scm | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

diff --git a/gnu/packages/suckless.scm b/gnu/packages/suckless.scm
index bb55afa412..8844482cc9 100644
--- a/gnu/packages/suckless.scm
+++ b/gnu/packages/suckless.scm
@@ -4,7 +4,7 @@
 ;;; Copyright © 2016 Al McElrath <[email protected]>
 ;;; Copyright © 2016, 2017 Nikita <[email protected]>
 ;;; Copyright © 2015 Dmitry Bogatov <[email protected]>
-;;; Copyright © 2015 Leo Famulari <[email protected]>
+;;; Copyright © 2015, 2023 Leo Famulari <[email protected]>
 ;;; Copyright © 2016 Eric Bavier <[email protected]>
 ;;; Copyright © 2017 Alex Griffin <[email protected]>
 ;;; Copyright © 2018–2021 Tobias Geerinckx-Rice <[email protected]>
@@ -547,7 +547,13 @@ point surf to another URI by setting its XProperties.")
                   (add-before 'build 'patch-farbfeld
                     (lambda* (#:key inputs #:allow-other-keys)
                       (substitute* "config.def.h"
-                        (("2ff") (search-input-file inputs "/bin/2ff"))))))
+                        (("2ff") (search-input-file inputs "/bin/2ff")))))
+                  (add-after 'install 'install-doc
+                    (lambda* (#:key outputs #:allow-other-keys)
+                      (let* ((out (assoc-ref outputs "out"))
+                             (doc (string-append out "/share/doc/" ,name "-"
+                                                 ,(package-version 
this-package))))
+                        (install-file "README.md" doc)))))
        #:tests? #f                                ;no test suite
        #:make-flags
        (let ((pkg-config (lambda (flag)

Reply via email to