gnu: uwufetch: Add and use missing inputs.
* gnu/packages/admin.scm (uwufetch) [inputs]: Add missing inputs. [phases]: Use the fully-qualified paths of the input gawk and grep. Signed-off-by: Ludovic Courtès <ludo@gnu.org>
This commit is contained in:
		
							parent
							
								
									6bbef3d9a2
								
							
						
					
					
						commit
						7b11cfd19e
					
				
					 1 changed files with 7 additions and 0 deletions
				
			
		| 
						 | 
					@ -4025,6 +4025,11 @@ you are running, what theme or icon set you are using, etc.")
 | 
				
			||||||
          (delete 'configure)
 | 
					          (delete 'configure)
 | 
				
			||||||
          (add-before 'build 'patch-source-paths
 | 
					          (add-before 'build 'patch-source-paths
 | 
				
			||||||
            (lambda _
 | 
					            (lambda _
 | 
				
			||||||
 | 
					              (substitute* "fetch.c"
 | 
				
			||||||
 | 
					                (("grep")
 | 
				
			||||||
 | 
					                 #$(file-append grep "/bin/grep"))
 | 
				
			||||||
 | 
					                (("awk")
 | 
				
			||||||
 | 
					                 #$(file-append gawk "/bin/awk")))
 | 
				
			||||||
              (substitute* "uwufetch.c"
 | 
					              (substitute* "uwufetch.c"
 | 
				
			||||||
                (("(/usr(/local)?)(.*;)" all _ _ rest)
 | 
					                (("(/usr(/local)?)(.*;)" all _ _ rest)
 | 
				
			||||||
                 (string-append #$output rest)))))
 | 
					                 (string-append #$output rest)))))
 | 
				
			||||||
| 
						 | 
					@ -4033,6 +4038,8 @@ you are running, what theme or icon set you are using, etc.")
 | 
				
			||||||
            (lambda _
 | 
					            (lambda _
 | 
				
			||||||
              (mkdir-p (string-append #$output "/include")))))))
 | 
					              (mkdir-p (string-append #$output "/include")))))))
 | 
				
			||||||
    (inputs (list lshw
 | 
					    (inputs (list lshw
 | 
				
			||||||
 | 
					                  gawk
 | 
				
			||||||
 | 
					                  grep
 | 
				
			||||||
                  ;; viu XXX not yet packaged in Guix
 | 
					                  ;; viu XXX not yet packaged in Guix
 | 
				
			||||||
                  xwininfo))
 | 
					                  xwininfo))
 | 
				
			||||||
    (home-page "https://github.com/TheDarkBug/uwufetch")
 | 
					    (home-page "https://github.com/TheDarkBug/uwufetch")
 | 
				
			||||||
| 
						 | 
					
 | 
				
			||||||
		Reference in a new issue