gnu: viewnior: Use new style inputs and fix indentation.

* gnu/packages/image-viewers.scm (viewnior)[phases]: Delete trailing #t.
[native-inputs, inputs]: Remove labels.
This commit is contained in:
Maxim Cournoyer 2022-08-17 22:04:20 -04:00
parent e3af0324bc
commit 8d60951864
No known key found for this signature in database
GPG key ID: 1260E46482E63562

View file

@ -24,6 +24,7 @@
;;; Copyright © 2021 Zheng Junjie <873216071@qq.com> ;;; Copyright © 2021 Zheng Junjie <873216071@qq.com>
;;; Copyright © 2021 dissent <disseminatedissent@protonmail.com> ;;; Copyright © 2021 dissent <disseminatedissent@protonmail.com>
;;; Copyright © 2022 Michael Rohleder <mike@rohleder.de> ;;; Copyright © 2022 Michael Rohleder <mike@rohleder.de>
;;; Copyright © 2022 Maxim Cournoyer <maxim.cournoyer@gmail.com>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -412,34 +413,32 @@ (define-public viewnior
(name "viewnior") (name "viewnior")
(version "1.8") (version "1.8")
(source (source
(origin (origin
(method git-fetch) (method git-fetch)
(uri (git-reference (uri (git-reference
(url "https://github.com/hellosiyan/Viewnior") (url "https://github.com/hellosiyan/Viewnior")
(commit (string-append name "-" version)))) (commit (string-append name "-" version))))
(file-name (git-file-name name version)) (file-name (git-file-name name version))
(sha256 (sha256
(base32 "14qvx1wajncd5ab0207274cwk32f4ipfnlaci6phmah0cwra2did")))) (base32 "14qvx1wajncd5ab0207274cwk32f4ipfnlaci6phmah0cwra2did"))))
(build-system meson-build-system) (build-system meson-build-system)
(arguments (arguments
'(#:phases '(#:phases (modify-phases %standard-phases
(modify-phases %standard-phases (add-after 'unpack 'patch-source
(add-after 'unpack 'patch-source (lambda _
(lambda _ ;; Don't create 'icon-theme.cache'
;; Don't create 'icon-theme.cache' (substitute* "meson.build"
(substitute* "meson.build" (("meson.add_install_script*") "")))))
(("meson.add_install_script*") "")) #:tests? #f)) ;no tests
#t)))
#:tests? #f)) ; no tests
(native-inputs (native-inputs
`(("gettext" ,gettext-minimal) (list gettext-minimal
("glib" ,glib "bin") ; glib-genmarshal `(,glib "bin") ;glib-genmarshal
("pkg-config" ,pkg-config) pkg-config
("shared-mime-info" ,shared-mime-info))) shared-mime-info))
(inputs (inputs
`(("exiv2" ,exiv2) (list exiv2
("gdk-pixbuf" ,gdk-pixbuf) gdk-pixbuf
("gtk+-2" ,gtk+-2))) gtk+-2))
(home-page "https://siyanpanayotov.com/project/viewnior") (home-page "https://siyanpanayotov.com/project/viewnior")
(synopsis "Simple, fast and elegant image viewer") (synopsis "Simple, fast and elegant image viewer")
(description "Viewnior is an image viewer program. Created to be simple, (description "Viewnior is an image viewer program. Created to be simple,