diff --git a/gnu/packages/fonts.scm b/gnu/packages/fonts.scm index 88315008bd..f77f9da163 100644 --- a/gnu/packages/fonts.scm +++ b/gnu/packages/fonts.scm @@ -19,7 +19,7 @@ ;;; Copyright © 2017 Alex Griffin ;;; Copyright © 2017 Clément Lassieur ;;; Copyright © 2017 Brendan Tildesley -;;; Copyright © 2017, 2018 Arun Isaac +;;; Copyright © 2017, 2018, 2019 Arun Isaac ;;; Copyright © 2017 Mohammed Sadiq ;;; Copyright © 2018 Charlie Ritter ;;; Copyright © 2018 Gabriel Hondet @@ -1163,39 +1163,13 @@ itself.")))) (version "1.7") (source (origin - (method url-fetch) + (method url-fetch/zipbomb) (uri (string-append "http://www.impallari.com/media/releases/dosis-" "v" version ".zip")) (sha256 (base32 "1qhci68f68mf87jd69vjf9qjq3wydgw1q7ivn3amjb65ls1s0c4s")))) - (build-system trivial-build-system) - (arguments - `(#:modules ((guix build utils)) - #:builder (begin - (use-modules (guix build utils) - (srfi srfi-26)) - - (let ((PATH (string-append (assoc-ref %build-inputs - "unzip") - "/bin")) - (ttf-dir (string-append %output - "/share/fonts/truetype")) - (otf-dir (string-append %output - "/share/fonts/opentype"))) - (setenv "PATH" PATH) - (invoke "unzip" (assoc-ref %build-inputs "source")) - - (mkdir-p ttf-dir) - (mkdir-p otf-dir) - (for-each (lambda (ttf) - (install-file ttf ttf-dir)) - (find-files "." "\\.ttf$")) - (for-each (lambda (otf) - (install-file otf otf-dir)) - (find-files "." "\\.otf$")) - #t)))) - (native-inputs `(("unzip" ,unzip))) + (build-system font-build-system) (home-page "http://www.impallari.com/dosis") (synopsis "Very simple, rounded, sans serif family") (description