me/guix
Archived
1
0
Fork 0
Code Activity

gnu: ugrep: Use G-Expressions.

Browse source 
* gnu/packages/search.scm (ugrep)[source]: Convert snippet to G-Expression.
[arguments]: Convert to list of G-Expressions.

Signed-off-by: Liliana Marie Prikler <liliana.prikler@gmail.com>
This commit is contained in:
kiasoc5 2022-08-06 01:37:52 -04:00 • committed by Liliana Marie Prikler
parent 47989e0a5f
commit 6665600e23
No known key found for this signature in database
GPG key ID: 442A84B8C70E2F87
1 changed files with 17 additions and 17 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

34
gnu/packages/search.scm
View file

@ -32,6 +32,7 @@
#:use-module (guix packages) #:use-module (guix packages)
#:use-module (guix download) #:use-module (guix download)
#:use-module (guix git-download) #:use-module (guix git-download)
#:use-module (guix gexp)
#:use-module (guix utils) #:use-module (guix utils)
#:use-module (guix build-system gnu) #:use-module (guix build-system gnu)
#:use-module (guix build-system perl) #:use-module (guix build-system perl)
@ -682,13 +683,11 @@ bibliographic data and simple document and bibtex retrieval.")
(base32 "03b3lahc3zzsznaqnrk47f1cnd5jwakvwrkz0r4m2crk09cpfv57")) (base32 "03b3lahc3zzsznaqnrk47f1cnd5jwakvwrkz0r4m2crk09cpfv57"))
(file-name (git-file-name name version)) (file-name (git-file-name name version))
(modules '((guix build utils))) (modules '((guix build utils)))
(snippet (snippet #~(begin
'(begin (delete-file-recursively "bin") ; pre-built executables
(delete-file-recursively "bin") ; pre-built executables (for-each delete-file (find-files "tests" "^archive\\..*"))
(for-each delete-file (find-files "tests" "^archive\\..*")) (for-each delete-file (find-files "tests" "^.*\\.pdf$"))
(for-each delete-file (find-files "tests" "^.*\\.pdf$")) (for-each delete-file (find-files "tests" "^.*\\.class$"))))))
(for-each delete-file (find-files "tests" "^.*\\.class$"))
#t))))
(build-system gnu-build-system) (build-system gnu-build-system)
(inputs (inputs
(list bzip2 (list bzip2
@ -699,16 +698,17 @@ bibliographic data and simple document and bibtex retrieval.")
zlib zlib
`(,zstd "lib"))) `(,zstd "lib")))
(arguments (arguments
`(#:tests? #f ; no way to rebuild the binary input files (list
#:test-target "test" #:tests? #f ; no way to rebuild the binary input files
#:phases #:test-target "test"
(modify-phases %standard-phases #:phases
(add-before 'check 'check-setup #~(modify-phases %standard-phases
(lambda _ (add-before 'check 'check-setup
;; Unpatch shebangs in tests. (lambda _
(substitute* '("tests/Hello.bat" ;; Unpatch shebangs in tests.
"tests/Hello.sh") (substitute* '("tests/Hello.bat"
(("#!/gnu/store/.*/bin/sh") "#!/bin/sh"))))))) "tests/Hello.sh")
(("#!/gnu/store/.*/bin/sh") "#!/bin/sh")))))))
(home-page "https://github.com/Genivia/ugrep/") (home-page "https://github.com/Genivia/ugrep/")
(synopsis "Faster grep with an interactive query UI") (synopsis "Faster grep with an interactive query UI")
(description "Ugrep is a ultra fast searcher of file systems, text (description "Ugrep is a ultra fast searcher of file systems, text