24/75: gnu: font-comic-neue: Install license file.

[guix-commits]

apteryx pushed a commit to branch core-updates
in repository guix.

commit 11d1bc35695ecbbb69b3019c481fd7c6134b8121
Author: Simon South <simon@simonsouth.net>
AuthorDate: Fri Feb 3 07:43:07 2023 -0500

    gnu: font-comic-neue: Install license file.
    
    * gnu/packages/fonts.scm (font-comic-neue)[arguments]<#:phases>: Add
    "enter-license-directory" phase.
---
 gnu/packages/fonts.scm | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/gnu/packages/fonts.scm b/gnu/packages/fonts.scm
index 62cd9de607..172b32428e 100644
--- a/gnu/packages/fonts.scm
+++ b/gnu/packages/fonts.scm
@@ -1702,8 +1702,7 @@ later hand-tweaked with the gbdfed(1) editor:
          ;; several hidden files to be installed.
          (add-before 'install 'delete-macosx-files
            (lambda _
-             (delete-file-recursively "__MACOSX")
-             #t))
+             (delete-file-recursively "__MACOSX")))
          (add-after 'install 'install-conf
            (lambda* (#:key outputs #:allow-other-keys)
              (let ((conf-dir (string-append (assoc-ref outputs "out")
@@ -1722,8 +1721,10 @@ later hand-tweaked with the gbdfed(1) editor:
       <family>Comic Neue</family>
     </prefer>
   </alias>
-</fontconfig>\n"))))
-             #t)))))
+</fontconfig>\n"))))))
+         (add-before 'install-license-files 'enter-license-directory
+           (lambda _
+             (chdir (string-append "comic-neue-" ,version)))))))
     (home-page "https://www.comicneue.com/";)
     (synopsis "Font that fixes the shortcomings of Comic Sans")
     (description