[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
04/05: gnu: ugrep: Use G-Expressions.
From: |
guix-commits |
Subject: |
04/05: gnu: ugrep: Use G-Expressions. |
Date: |
Sat, 6 Aug 2022 03:55:36 -0400 (EDT) |
lilyp pushed a commit to branch master
in repository guix.
commit 6665600e2354a76da1913d9847d47299e4a8f8dd
Author: kiasoc5 <kiasoc5@disroot.org>
AuthorDate: Sat Aug 6 01:37:52 2022 -0400
gnu: ugrep: Use G-Expressions.
* 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>
---
gnu/packages/search.scm | 34 +++++++++++++++++-----------------
1 file changed, 17 insertions(+), 17 deletions(-)
diff --git a/gnu/packages/search.scm b/gnu/packages/search.scm
index 4a867ec1be..025e862fa4 100644
--- a/gnu/packages/search.scm
+++ b/gnu/packages/search.scm
@@ -32,6 +32,7 @@
#:use-module (guix packages)
#:use-module (guix download)
#:use-module (guix git-download)
+ #:use-module (guix gexp)
#:use-module (guix utils)
#:use-module (guix build-system gnu)
#:use-module (guix build-system perl)
@@ -682,13 +683,11 @@ bibliographic data and simple document and bibtex
retrieval.")
(base32 "03b3lahc3zzsznaqnrk47f1cnd5jwakvwrkz0r4m2crk09cpfv57"))
(file-name (git-file-name name version))
(modules '((guix build utils)))
- (snippet
- '(begin
- (delete-file-recursively "bin") ; pre-built executables
- (for-each delete-file (find-files "tests" "^archive\\..*"))
- (for-each delete-file (find-files "tests" "^.*\\.pdf$"))
- (for-each delete-file (find-files "tests" "^.*\\.class$"))
- #t))))
+ (snippet #~(begin
+ (delete-file-recursively "bin") ; pre-built
executables
+ (for-each delete-file (find-files "tests"
"^archive\\..*"))
+ (for-each delete-file (find-files "tests"
"^.*\\.pdf$"))
+ (for-each delete-file (find-files "tests"
"^.*\\.class$"))))))
(build-system gnu-build-system)
(inputs
(list bzip2
@@ -699,16 +698,17 @@ bibliographic data and simple document and bibtex
retrieval.")
zlib
`(,zstd "lib")))
(arguments
- `(#:tests? #f ; no way to rebuild the binary input files
- #:test-target "test"
- #:phases
- (modify-phases %standard-phases
- (add-before 'check 'check-setup
- (lambda _
- ;; Unpatch shebangs in tests.
- (substitute* '("tests/Hello.bat"
- "tests/Hello.sh")
- (("#!/gnu/store/.*/bin/sh") "#!/bin/sh")))))))
+ (list
+ #:tests? #f ; no way to rebuild the binary input files
+ #:test-target "test"
+ #:phases
+ #~(modify-phases %standard-phases
+ (add-before 'check 'check-setup
+ (lambda _
+ ;; Unpatch shebangs in tests.
+ (substitute* '("tests/Hello.bat"
+ "tests/Hello.sh")
+ (("#!/gnu/store/.*/bin/sh") "#!/bin/sh")))))))
(home-page "https://github.com/Genivia/ugrep/")
(synopsis "Faster grep with an interactive query UI")
(description "Ugrep is a ultra fast searcher of file systems, text