me/guix
Archived
1
0
Fork 0
Code Activity

gnu: recoll: Enable GUI and add inputs for common filters.

Browse source 
* gnu/packages/search.scm (recoll)[arguments]: Enable GUI; add build phase
'wrap-filters.
[inputs]: Replace python-pdftotext with poppler; add qtbase-5, unzip, gawk,
grep, groff, gzip, libiconv, perl, perl-image-exiftool, sed, and tar.
This commit is contained in:
Ricardo Wurmus 2021-10-29 11:40:04 +00:00
parent ad39268cdf
commit 21fcb08d09
No known key found for this signature in database
GPG key ID: 197A5888235FACAC
1 changed files with 61 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

67
gnu/packages/search.scm
View file

@ -43,15 +43,19 @@
#:use-module (gnu packages databases) #:use-module (gnu packages databases)
#:use-module (gnu packages ebook) #:use-module (gnu packages ebook)
#:use-module (gnu packages freedesktop) #:use-module (gnu packages freedesktop)
#:use-module (gnu packages gawk)
#:use-module (gnu packages groff)
#:use-module (gnu packages less) #:use-module (gnu packages less)
#:use-module (gnu packages linux) #:use-module (gnu packages linux)
#:use-module (gnu packages pcre) #:use-module (gnu packages pcre)
#:use-module (gnu packages perl) #:use-module (gnu packages perl)
#:use-module (gnu packages pdf) #:use-module (gnu packages pdf)
#:use-module (gnu packages photo)
#:use-module (gnu packages python) #:use-module (gnu packages python)
#:use-module (gnu packages python-crypto) #:use-module (gnu packages python-crypto)
#:use-module (gnu packages python-web) #:use-module (gnu packages python-web)
#:use-module (gnu packages python-xyz) #:use-module (gnu packages python-xyz)
#:use-module (gnu packages qt)
#:use-module (gnu packages sphinx) #:use-module (gnu packages sphinx)
#:use-module (gnu packages time) #:use-module (gnu packages time)
#:use-module (gnu packages web) #:use-module (gnu packages web)
@ -303,17 +307,55 @@ for parsing HTML files.")
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
`(#:configure-flags `(#:configure-flags
(list "--disable-qtgui" (list "--disable-webkit"
"--disable-webkit"
"--disable-python-module" "--disable-python-module"
"--without-systemd") "--without-systemd"
(string-append "QMAKEPATH=" (assoc-ref %build-inputs "qtbase")
"/bin/qmake"))
#:phases #:phases
(modify-phases %standard-phases (modify-phases %standard-phases
(add-after 'unpack 'patch-default-data-dir (add-after 'unpack 'patch-default-data-dir
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key outputs #:allow-other-keys)
(substitute* "python/recoll/recoll/rclconfig.py" (substitute* "python/recoll/recoll/rclconfig.py"
(("/opt/local") (("/opt/local")
(assoc-ref outputs "out")))))))) (assoc-ref outputs "out")))))
(add-after 'install 'wrap-filters
(lambda* (#:key inputs outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(mapping
'(("rclps"
"poppler")
("rclpdf.py"
"poppler")
("rclpurple"
"gawk")
("rcllyx"
"libiconv")
("rcltex"
"libiconv")
("rclkwd"
"unzip" "gzip" "tar" "libxslt")
("rclman"
"groff")
("rclgaim"
"gawk" "libiconv")
("rclaptosidman"
"sed")
("rclscribus"
"grep" "gawk" "sed"))))
(for-each
(lambda (program packages)
(wrap-program (string-append out "/share/recoll/filters/" program)
`("PATH" ":" prefix
,(map (lambda (i)
(string-append (assoc-ref inputs i) "/bin"))
packages))))
(map car mapping)
(map cdr mapping))
(wrap-program (string-append out "/share/recoll/filters/rclimg")
`("PERL5LIB" ":" prefix
(,(getenv "PERL5LIB"))))))))))
(inputs (inputs
`(("aspell" ,aspell) `(("aspell" ,aspell)
("chmlib" ,chmlib) ("chmlib" ,chmlib)
@ -321,9 +363,22 @@ for parsing HTML files.")
("libxslt" ,libxslt) ("libxslt" ,libxslt)
("libxml2" ,libxml2) ("libxml2" ,libxml2)
("python" ,python) ("python" ,python)
("python-pdftotext" ,python-pdftotext) ("qtbase" ,qtbase-5)
("unzip" ,unzip)
("xapian" ,xapian) ("xapian" ,xapian)
("zlib" ,zlib))) ("zlib" ,zlib)
;; For filters
("gawk" ,gawk)
("grep" ,grep)
("groff" ,groff)
("gzip" ,gzip)
("libiconv" ,libiconv)
("perl" ,perl)
("perl-image-exiftool" ,perl-image-exiftool)
("poppler" ,poppler)
("sed" ,sed)
("tar" ,tar)))
(native-inputs (native-inputs
`(("pkg-config" ,pkg-config) `(("pkg-config" ,pkg-config)
("which" ,which))) ("which" ,which)))