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 @@ glyph designs, not just an added slant.") | |||
|                                                              "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))) | ||||
|  |  | |||
		Reference in a new issue