From 13e9e6d215c6aca7c517bc5069fc7fa03caba7c7 Mon Sep 17 00:00:00 2001 From: Simon South Date: Fri, 3 Feb 2023 07:43:12 -0500 Subject: 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 ae03fd6b30..30d852e06b 100644 --- a/gnu/packages/fonts.scm +++ b/gnu/packages/fonts.scm @@ -2657,7 +2657,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 @@ -2675,13 +2675,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 -- cgit 1.4.1