TakeV/guix
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

gnu: libextractor: Modernize.

Browse source 
* gnu/packages/gnunet.scm (libextractor): Move inputs, native-inputs after
arguments.
[arguments]: Use gexps.  Remove trailing #t.
[inputs]: Remove labels and sort.

Change-Id: Ia3950630bd0985e106fb92cce3f92732e93970df
This commit is contained in:
Maxim Cournoyer 2024-03-09 21:01:20 -05:00
parent a2bf7bda4c
commit dc24ee62ee
No known key found for this signature in database
GPG key ID: 1260E46482E63562
1 changed files with 65 additions and 67 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

132
gnu/packages/gnunet.scm
View file

@ -13,7 +13,7 @@
;;; Copyright © 2020 Michael Rohleder <mike@rohleder.de> ;;; Copyright © 2020 Michael Rohleder <mike@rohleder.de>
;;; Copyright © 2022 Maxime Devos <maximedevos@telenet.be> ;;; Copyright © 2022 Maxime Devos <maximedevos@telenet.be>
;;; Copyright © 2023 Adam Faiz <adam.faiz@disroot.org> ;;; Copyright © 2023 Adam Faiz <adam.faiz@disroot.org>
;;; Copyright © 2023 Maxim Cournoyer <maxim.cournoyer@gmail.com> ;;; Copyright © 2023, 2024 Maxim Cournoyer <maxim.cournoyer@gmail.com>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -83,76 +83,74 @@ (define-module (gnu packages gnunet)
(define-public libextractor (define-public libextractor
(package (package
(name "libextractor") (name "libextractor")
(version "1.13") (version "1.13")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (string-append "mirror://gnu/libextractor/libextractor-" (uri (string-append "mirror://gnu/libextractor/libextractor-"
version ".tar.gz")) version ".tar.gz"))
(sha256 (sha256
(base32 (base32
"0mgprmwdhdwq9xhfxfhcncd304425nvcc4zi8ci5f0nja4n333xv")))) "0mgprmwdhdwq9xhfxfhcncd304425nvcc4zi8ci5f0nja4n333xv"))))
(build-system gnu-build-system) (build-system gnu-build-system)
;; WARNING: Checks require /dev/shm to be in the build chroot, especially (outputs '("out"
;; not to be a symbolic link to /run/shm. "static")) ; 420 KiB .a files
;; FIXME: (arguments
;; The following dependencies are all optional, but should be (list #:configure-flags
;; available for maximum coverage: #~(list (string-append "--with-ltdl="
;; * librpm (rpm) ; investigate failure #$(this-package-input "libltdl")))
;; * libtidy-html (tidy-html) ; investigate failure #:phases
(inputs #~(modify-phases %standard-phases
`(("exiv2" ,exiv2) (add-after 'install 'move-static-libraries
("bzip2" ,bzip2) (lambda* (#:key outputs #:allow-other-keys)
("flac" ,flac) ;; Move static libraries to the "static" output.
("file" ,file) ;libmagic, for the MIME plug-in (let* ((out #$output)
("glib" ,glib) (lib (string-append out "/lib"))
("giflib" ,giflib) (slib (string-append #$output:static "/lib")))
("gstreamer" ,gstreamer) (mkdir-p slib)
("gst-plugins-base" ,gst-plugins-base) (for-each (lambda (file)
("gdk-pixbuf" ,gdk-pixbuf) (install-file file slib)
("libarchive" ,libarchive) (delete-file file))
("libgsf" ,libgsf) (find-files lib "\\.a$"))))))))
("libjpeg" ,libjpeg-turbo) ;; WARNING: Checks require /dev/shm to be in the build chroot, especially
("libltdl" ,libltdl) ;; not to be a symbolic link to /run/shm.
("libmpeg2" ,libmpeg2) ;; FIXME:
("libmp4v2" ,libmp4v2) ;; The following dependencies are all optional, but should be
("libsmf" ,libsmf) ;; available for maximum coverage:
("libogg" ,libogg) ;; * librpm (rpm) ; investigate failure
("libtiff" ,libtiff) ;; * libtidy-html (tidy-html) ; investigate failure
("libvorbis" ,libvorbis) (native-inputs
("zlib" ,zlib))) (list pkg-config))
(native-inputs (inputs
(list pkg-config)) (list bzip2
(outputs '("out" exiv2
"static")) ; 420 KiB .a files file ;libmagic, for the MIME plug-in
(arguments flac
`(#:configure-flags gdk-pixbuf
(list (string-append "--with-ltdl=" giflib
(assoc-ref %build-inputs "libltdl"))) glib
#:phases gst-plugins-base
(modify-phases %standard-phases gstreamer
(add-after 'install 'move-static-libraries libarchive
(lambda* (#:key outputs #:allow-other-keys) libgsf
;; Move static libraries to the "static" output. libjpeg-turbo
(let* ((out (assoc-ref outputs "out")) libltdl
(lib (string-append out "/lib")) libmp4v2
(static (assoc-ref outputs "static")) libmpeg2
(slib (string-append static "/lib"))) libogg
(mkdir-p slib) libsmf
(for-each (lambda (file) libtiff
(install-file file slib) libvorbis
(delete-file file)) zlib))
(find-files lib "\\.a$")) (synopsis "Library to extract meta-data from media files")
#t)))))) (description
(synopsis "Library to extract meta-data from media files") "GNU libextractor is a library for extracting metadata from files. It
(description
"GNU libextractor is a library for extracting metadata from files. It
supports a very large number of file formats, including audio files, document supports a very large number of file formats, including audio files, document
files, and archive files. Each file format is implemented as a plugin, so files, and archive files. Each file format is implemented as a plugin, so
new formats can be added easily. The package also contains a command-line new formats can be added easily. The package also contains a command-line
tool to extract metadata from a file and print the results.") tool to extract metadata from a file and print the results.")
(license license:gpl3+) (license license:gpl3+)
(home-page "https://www.gnu.org/software/libextractor/"))) (home-page "https://www.gnu.org/software/libextractor/")))
(define-public libmicrohttpd (define-public libmicrohttpd
(package (package