nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

gnu: font-hack: Remove empty doc directory. 

* gnu/packages/fonts.scm (font-hack)[arguments]: Remove superfluous code
in #:builder.

Signed-off-by: 宋文武 <iyzsong@gmail.com>
This commit is contained in:
8p8c 2016-10-06 00:15:53 +03:00 committed by 宋文武
parent 3126fd8820
commit b94ee996ce
No known key found for this signature in database
GPG Key ID: 26525665AE727D37
1 changed files with 2 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
gnu/packages/fonts.scm
View File

@ -837,22 +837,15 @@ glyph designs, not just an added slant.")
"unzip") "unzip")
"/bin")) "/bin"))
(font-dir (string-append %output (font-dir (string-append %output
"/share/fonts/truetype")) "/share/fonts/truetype")))
(doc-dir (string-append %output "/share/doc/"
,name "-" ,version)))
(setenv "PATH" PATH) (setenv "PATH" PATH)
(system* "unzip" (assoc-ref %build-inputs "source")) (system* "unzip" (assoc-ref %build-inputs "source"))
(mkdir-p font-dir) (mkdir-p font-dir)
(mkdir-p doc-dir)
(for-each (lambda (ttf) (for-each (lambda (ttf)
(copy-file ttf (copy-file ttf
(string-append font-dir "/" ttf))) (string-append font-dir "/" ttf)))
(find-files "." "\\.ttf$")) (find-files "." "\\.ttf$"))))))
(for-each (lambda (doc)
(copy-file doc
(string-append doc-dir "/" doc)))
(find-files "." "\\.txt$"))))))
(native-inputs (native-inputs
`(("source" ,source) `(("source" ,source)
("unzip" ,unzip))) ("unzip" ,unzip)))