29/75: gnu: font-dseg: Simplify "install" phase.

[guix-commits]

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

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

    gnu: font-dseg: Simplify "install" phase.
    
    * gnu/packages/fonts.scm (font-dseg)[source]: Use url-fetch.
    [arguments]<#:phases>: Remove "with-directory-excursion" from "install" 
phase.
---
 gnu/packages/fonts.scm | 12 ++++--------
 1 file changed, 4 insertions(+), 8 deletions(-)

diff --git a/gnu/packages/fonts.scm b/gnu/packages/fonts.scm
index 8e545e534b..4b3fb7628e 100644
--- a/gnu/packages/fonts.scm
+++ b/gnu/packages/fonts.scm
@@ -2473,7 +2473,7 @@ have been designed to be very distinguishable from each 
other.")
     (version "0.46")
     (source
       (origin
-        (method url-fetch/zipbomb)
+        (method url-fetch)
         (uri
           (string-append "https://github.com/keshikan/DSEG/";
                          "releases/download/v" version
@@ -2491,13 +2491,9 @@ have been designed to be very distinguishable from each 
other.")
              (let* ((out (assoc-ref outputs "out"))
                     (font-dir (string-append out "/share/fonts"))
                     (truetype-dir (string-append font-dir "/truetype")))
-               (with-directory-excursion
-                 (string-append "fonts-DSEG_v"
-                                (apply string-append (string-split ,version
-                                                                   #\.)))
-                 (for-each (lambda (f) (install-file f truetype-dir))
-                           (find-files "." "\\.ttf$"))
-               #t)))))))
+               (for-each (lambda (f) (install-file f truetype-dir))
+                         (find-files "." "\\.ttf$"))
+               #t))))))
     (home-page "https://www.keshikan.net/fonts-e.html";)
     (synopsis "DSEG: 7-segment and 14-segment fonts")
     (description