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:
parent
3126fd8820
commit
b94ee996ce
1 changed files with 2 additions and 9 deletions
|
@ -837,22 +837,15 @@ (define-public font-hack
|
|||
"unzip")
|
||||
"/bin"))
|
||||
(font-dir (string-append %output
|
||||
"/share/fonts/truetype"))
|
||||
(doc-dir (string-append %output "/share/doc/"
|
||||
,name "-" ,version)))
|
||||
"/share/fonts/truetype")))
|
||||
(setenv "PATH" PATH)
|
||||
(system* "unzip" (assoc-ref %build-inputs "source"))
|
||||
|
||||
(mkdir-p font-dir)
|
||||
(mkdir-p doc-dir)
|
||||
(for-each (lambda (ttf)
|
||||
(copy-file ttf
|
||||
(string-append font-dir "/" ttf)))
|
||||
(find-files "." "\\.ttf$"))
|
||||
(for-each (lambda (doc)
|
||||
(copy-file doc
|
||||
(string-append doc-dir "/" doc)))
|
||||
(find-files "." "\\.txt$"))))))
|
||||
(find-files "." "\\.ttf$"))))))
|
||||
(native-inputs
|
||||
`(("source" ,source)
|
||||
("unzip" ,unzip)))
|
||||
|
|
Loading…
Reference in a new issue