From 62d42bdd75cafbbf80c722d792a325eb51ba20af Mon Sep 17 00:00:00 2001
From: Tobias Geerinckx-Rice <me@tobias.gr>
Date: Sun, 15 Oct 2023 02:00:00 +0200
Subject: gnu: font-terminus: Install the README.

* gnu/packages/fonts.scm (font-terminus): Add a new
'install-documentation phase.
---
 gnu/packages/fonts.scm | 15 ++++++++++++++-
 1 file changed, 14 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/fonts.scm b/gnu/packages/fonts.scm
index a529f325a2..4254408e0f 100644
--- a/gnu/packages/fonts.scm
+++ b/gnu/packages/fonts.scm
@@ -580,6 +580,10 @@ The unified Libertinus family consists of:
     (outputs (list "out" "pcf-8bit" "otb"))
     (arguments
      `(#:tests? #f                      ; no test target in tarball
+       #:modules
+       ((guix build gnu-build-system)
+        (guix build utils)
+        (ice-9 match))
        #:phases
        (modify-phases %standard-phases
          (add-after 'build 'build-more-bits
@@ -601,7 +605,16 @@ The unified Libertinus family consists of:
            (lambda* (#:key make-flags outputs #:allow-other-keys)
              (let ((otb (assoc-ref outputs "otb")))
                (apply invoke "make" "install-otb" (string-append "prefix=" otb)
-                      make-flags)))))))
+                      make-flags))))
+         (add-after 'install 'install-documentation
+           ;; There's no way to decypher the cryptic file names without this.
+           (lambda* (#:key outputs #:allow-other-keys)
+             (for-each (match-lambda
+                         ((name . directory)
+                          (install-file "README"
+                                        (string-append directory "/share/doc/"
+                                                       ,name "-" ,version))))
+                       outputs))))))
     (native-inputs
      (list bdftopcf font-util mkfontdir pkg-config python))
     (home-page "https://terminus-font.sourceforge.net/")
-- 
cgit v1.2.3