fonts.scm -> packaging "un-fonts", download isses

[Nils Gillmann <niasterisk@grrlz.net>]

I try to package/import some leftovers from gentoo I have,
currently the fontset "un-fonts".
I get some errors while trying to download it. Currently it's
based on another font package where I try to adopt my existing
ebuild into. Here is the package definition and the output:

(define-public font-un-fonts
  (package
    (name "font-un-fonts")
    (version "1.0.2")
    (source (origin
              (method url-fetch)
              (uri (string-append
                    "https://kldp.net/frs/download.php/4695/"
                    "un-fonts-core-" version "-080608" ".tar.gz"))
              (file-name (string-append name "-" version ".tar.gz"))
              (sha256
               (base32
                "13liaz2pmww3aqabm55la5npd08m1skh334ky7qfidxaz5s742iv"))))
    (build-system trivial-build-system)
    (arguments
     `(#:modules ((guix build utils))
       #:builder
       (begin
         (use-modules (guix build utils))

         (let ((tar      (string-append (assoc-ref %build-inputs "tar")
                                        "/bin/tar"))
               (PATH     (string-append (assoc-ref %build-inputs "gzip")
                                        "/bin"))
               (font-dir (string-append %output "/share/fonts/truetype"))
               (doc-dir  (string-append %output "/share/doc/" ,name)))
           (setenv "PATH" PATH)
           (system* tar "xvf" (assoc-ref %build-inputs "source"))
           (mkdir-p font-dir)
           (mkdir-p doc-dir)
           (chdir (string-append "un-fonts-ttf-" ,version))
           (for-each (lambda (ttf)
                       (copy-file ttf
                                  (string-append font-dir "/"
                                                 (basename ttf))))
                     (find-files "." "\\.ttf$"))
           (for-each (lambda (doc)
                       (copy-file doc
                                  (string-append doc-dir "/"
                                                 (basename doc))))
                     '("COPYING" "README"))))))
    (native-inputs
     `(("source" ,source)
       ("tar" ,tar)
       ("gzip" ,gzip)))
    (home-page "https://kldp.net/projects/unfonts/")
    (synopsis
     "Un-fonts is a collection of Korean fonts")
    (description
     "Un-fonts is a family of mainly Korean fonts.
It contains the following fonts and styles:

UnBatang, UnBatangBold: serif
UnDotum, UnDotumBold: sans-serif
UnGraphic, UnGraphicBold: sans-serif style
UnDinaru, UnDinaruBold, UnDinaruLight
UnPilgi, UnPilgiBold: script
UnGungseo: cursive, brush-stroke
")
    (license license:gpl2)))


the error output (to cut down the line length here) is located
here: https://ptpb.pw/EFI5

-- 
ng
irc://loupsycedyglgamf.onion:67/~NiAsterisk
http://loupsycedyglgamf.onion/NiAsterisk/
EDN: https://wiki.c3d2.de/Echt_Dezentrales_Netz/en