Re: [PATCH] Add un-fonts (new patch, closes old thread)

[Nils Gillmann]

Nils Gillmann <address@hidden> writes:

Appendum: Should fix the errors lint found.

I know too little texinfo markup, why is that wrong? the period,
okay I can see that now.

~/projects/guix_project/guix $ ./pre-inst-env guix build font-un
substitute: updating list of substitutes from 'http://hydra.gnu.org'... 100.0%
substitute: updating list of substitutes from 'http://hydra.gnu.org'... 100.0%
@ build-started 
/gnu/store/0saxj6sm3vg8926g7gw65shj1mzn175n-font-un-1.0.2-080608.tar.gz.drv - 
x86_64-linux 
/var/log/guix/drvs/0s//axj6sm3vg8926g7gw65shj1mzn175n-font-un-1.0.2-080608.tar.gz.drv.bz2

Starting download of 
/gnu/store/8c9cqgm2d2yn03vqbkbgl0dz3g3v6ydd-font-un-1.0.2-080608.tar.gz
>From http://krosos.sdf.org/static/unix/un-fonts-core-1.0.2-080608.tar.gz...
 un-fonts-core-1.0.2-080608.tar.gz  19.2MiB 876KiB/s 00:22 
[####################] 100.0%
@ build-succeeded 
/gnu/store/0saxj6sm3vg8926g7gw65shj1mzn175n-font-un-1.0.2-080608.tar.gz.drv -
@ build-started 
/gnu/store/323nmaif76r4dx3zvbgmr3ibjrjw1gn5-font-un-1.0.2-080608.drv - 
x86_64-linux 
/var/log/guix/drvs/32//3nmaif76r4dx3zvbgmr3ibjrjw1gn5-font-un-1.0.2-080608.drv.bz2
un-fonts/UnBatang.ttf
un-fonts/UnBatangBold.ttf
un-fonts/UnDotum.ttf
un-fonts/UnDotumBold.ttf
un-fonts/UnGungseo.ttf
un-fonts/UnGraphic.ttf
un-fonts/UnGraphicBold.ttf
un-fonts/UnDinaru.ttf
un-fonts/UnDinaruBold.ttf
un-fonts/UnDinaruLight.ttf
un-fonts/UnPilgi.ttf
un-fonts/UnPilgiBold.ttf
un-fonts/COPYING
un-fonts/README
@ build-succeeded 
/gnu/store/323nmaif76r4dx3zvbgmr3ibjrjw1gn5-font-un-1.0.2-080608.drv -
/gnu/store/6ai74r7dn5sfz743vi2wcw41va4014hq-font-un-1.0.2-080608
~/projects/guix_project/guix $ ./pre-inst-env guix -s font-un
guix: unrecognized option '-s'
Try `guix --help' for more information.
~/projects/guix_project/guix $ ./pre-inst-env guix search font-un
guix: search: command not found
Try `guix --help' for more information.
~/projects/guix_project/guix $ ./pre-inst-env guix --search font-un
guix: unrecognized option '--search'
Try `guix --help' for more information.
~/projects/guix_project/guix $ ./pre-inst-env guix show font-un
guix: show: command not found
Try `guix --help' for more information.
~/projects/guix_project/guix $ ./pre-inst-env guix lint font-un
gnu/packages/fonts.scm:691:5: font-un-1.0.2-080608: Texinfo markup in 
description is invalid
gnu/packages/fonts.scm:689:5: font-un-1.0.2-080608: no period allowed at the 
end of the synopsis



> added correction and renamed package according to what I
> described and submitted in the messages in this thread.
>
> From a473a240fbea1ef6bd4bd2aeab1f5244c64ae385 Mon Sep 17 00:00:00 2001
> From: Nils Gillmann <address@hidden>
> Date: Sun, 6 Mar 2016 17:26:21 +0100
> Subject: [PATCH] gnu: Add font-un.
>
> * gnu/packages/fonts.scm (font-un): New variable.
> ---
>  gnu/packages/fonts.scm | 72 
> ++++++++++++++++++++++++++++++++++++++++++++++++++
>  1 file changed, 72 insertions(+)
>
> diff --git a/gnu/packages/fonts.scm b/gnu/packages/fonts.scm
> index 69e195d..c09d558 100644
> --- a/gnu/packages/fonts.scm
> +++ b/gnu/packages/fonts.scm
> @@ -628,3 +628,75 @@ Unicode's Basic Multilingual Plane.  The package also 
> includes
>  utilities to ease adding new glyphs to the font.")
>      (home-page "http://unifoundry.com/unifont.html";)
>      (license license:gpl2+)))
> +
> +(define-public font-un
> +  (package
> +    (name "font-un")
> +    (version "1.0.2-080608")
> +    ;; The upstream server at kldp.net is serving us broken MIME.
> +    ;; See <http://bugs.gnu.org/22908>.
> +    (source (origin
> +              (method url-fetch)
> +              (uri (string-append
> +                    "http://krosos.sdf.org/static/unix/";
> +                    "un-fonts-core-" version "-080608" ".tar.gz"))
> +              (uri (list
> +                    (string-append
> +                     "http://krosos.sdf.org/static/unix/";
> +                     "un-fonts-core-" version ".tar.gz")
> +                    ;; XXX: The upstream server at kldp.net
> +                    (string-append
> +                     
> "https://kldp.net/projects/unfonts/download/4695?filename=";
> +                     "un-fonts-core-" version ".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"))
> +           (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
> +     "Collection of Korean fonts.")
> +    (description
> +     "Un-fonts is a family of mainly Korean fonts.
> +It contains the following fonts and styles:
> address@hidden
> address@hidden UnBatang, UnBatangBold: serif;
> address@hidden UnDotum, UnDotumBold: sans-serif;
> address@hidden UnGraphic, UnGraphicBold: sans-serif style;
> address@hidden UnDinaru, UnDinaruBold, UnDinaruLight;
> address@hidden UnPilgi, UnPilgiBold: script;
> address@hidden UnGungseo: cursive, brush-stroke.
> +")
> +    ;; GPL + embed exception for documents / images
> +    (license license:gpl2+)))
> -- 
> 2.6.3
>
>
> this succeds, although I should possibly rename the font
> directory. I will do this when I update the package to be
> font-un:core and font-un:extra.

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