gnu: fonts: Use install-file where appropriate.
* gnu/packages/fonts.scm (font-wqy-microhei, font-google-roboto)[arguments]: Substitute the simpler INSTALL-FILE for every COPY-FILE invoked with redundant arguments.
This commit is contained in:
parent
33a8687a2a
commit
4dcb3db0ee
|
@ -525,13 +525,11 @@ ko (Korean) locales for @code{fontconfig}.")
|
|||
(let ((PATH (string-append (assoc-ref %build-inputs "tar") "/bin:"
|
||||
(assoc-ref %build-inputs "gzip") "/bin"))
|
||||
(font-dir (string-append (assoc-ref %outputs "out")
|
||||
"/share/fonts/wenquanyi/")))
|
||||
(setenv "PATH" PATH)
|
||||
"/share/fonts/wenquanyi")))
|
||||
(mkdir-p font-dir)
|
||||
(setenv "PATH" PATH)
|
||||
(system* "tar" "xvf" (assoc-ref %build-inputs "source"))
|
||||
(chdir "wqy-microhei")
|
||||
(copy-file "wqy-microhei.ttc"
|
||||
(string-append font-dir "wqy-microhei.ttc"))))))
|
||||
(install-file "wqy-microhei/wqy-microhei.ttc" font-dir)))))
|
||||
(native-inputs
|
||||
`(("gzip" ,gzip)
|
||||
("tar" ,tar)))
|
||||
|
@ -760,8 +758,7 @@ display all Unicode symbols.")
|
|||
(mkdir-p font-dir)
|
||||
(chdir "roboto-hinted")
|
||||
(for-each (lambda (ttf)
|
||||
(copy-file ttf
|
||||
(string-append font-dir "/" ttf)))
|
||||
(install-file ttf font-dir))
|
||||
(find-files "." "\\.ttf$"))))))
|
||||
(home-page "https://github.com/google/roboto")
|
||||
(synopsis "The Roboto family of fonts")
|
||||
|
|
Loading…
Reference in New Issue