gnu: dino: Use new package style.

* gnu/packages/messaging.scm (dino)[arguments]: Convert to list of
G-Expressions.
[native-inputs, inputs]: Drop labels.
This commit is contained in:
Liliana Marie Prikler 2022-07-02 12:09:53 +02:00
parent 9b73b76cad
commit fe111f404d
No known key found for this signature in database
GPG key ID: 442A84B8C70E2F87

View file

@ -1380,58 +1380,58 @@ (define-public dino
(build-system cmake-build-system) (build-system cmake-build-system)
(outputs '("out" "debug")) (outputs '("out" "debug"))
(arguments (arguments
`(#:tests? #f (list #:tests? #f
#:parallel-build? #f ; not supported #:parallel-build? #f ; not supported
#:modules ((guix build cmake-build-system) #:modules '((guix build cmake-build-system)
((guix build glib-or-gtk-build-system) #:prefix glib-or-gtk:) ((guix build glib-or-gtk-build-system) #:prefix glib-or-gtk:)
(guix build utils)) (guix build utils))
#:imported-modules (,@%gnu-build-system-modules #:imported-modules `(,@%gnu-build-system-modules
(guix build cmake-build-system) (guix build cmake-build-system)
(guix build glib-or-gtk-build-system)) (guix build glib-or-gtk-build-system))
#:phases #:phases
(modify-phases %standard-phases #~(modify-phases %standard-phases
;; For A/V support. ;; For A/V support.
(add-after 'install 'wrap (add-after 'install 'wrap
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out")) (let* ((out (assoc-ref outputs "out"))
(dino (string-append out "/bin/dino")) (dino (string-append out "/bin/dino"))
(gst-plugin-path (getenv "GST_PLUGIN_SYSTEM_PATH"))) (gst-plugin-path (getenv "GST_PLUGIN_SYSTEM_PATH")))
(wrap-program dino (wrap-program dino
`("GST_PLUGIN_SYSTEM_PATH" ":" prefix (,gst-plugin-path)))))) `("GST_PLUGIN_SYSTEM_PATH" ":" prefix (,gst-plugin-path))))))
(add-after 'install 'glib-or-gtk-wrap (add-after 'install 'glib-or-gtk-wrap
(assoc-ref glib-or-gtk:%standard-phases 'glib-or-gtk-wrap))))) (assoc-ref glib-or-gtk:%standard-phases 'glib-or-gtk-wrap)))))
(native-inputs (native-inputs
`(("gettext" ,gettext-minimal) (list gettext-minimal
("glib:bin" ,glib "bin") `(,glib "bin")
("gobject-introspection" ,gobject-introspection) gobject-introspection
("gtk+:bin" ,gtk+ "bin") `(,gtk+ "bin")
("pkg-config" ,pkg-config) pkg-config
("vala" ,vala))) vala))
(inputs (inputs
`(("atk" ,atk) (list atk
("cairo" ,cairo) cairo
("librsvg" ,librsvg) librsvg
("glib" ,glib) glib
("glib-networking" ,glib-networking) glib-networking
("gpgme" ,gpgme) gpgme
("gsettings-desktop-schemas" ,gsettings-desktop-schemas) gsettings-desktop-schemas
("gspell" ,gspell) ;for spell-check support gspell ;for spell-check support
("gstreamer" ,gstreamer) ;for A/V support gstreamer ;for A/V support
("gst-plugins-base" ,gst-plugins-base) gst-plugins-base
("gst-plugins-good" ,gst-plugins-good) gst-plugins-good
("gtk+" ,gtk+) gtk+
("icu4c" ,icu4c) ;for emoji support icu4c ;for emoji support
("libcanberra" ,libcanberra) ;for sound-notification support libcanberra ;for sound-notification support
("libgcrypt" ,libgcrypt) libgcrypt
("libgee" ,libgee) libgee
("libnice" ,libnice) libnice
("libsignal-protocol-c" ,libsignal-protocol-c) libsignal-protocol-c
("libsoup" ,libsoup-minimal-2) libsoup-minimal-2
("libsrtp" ,libsrtp) ;for calls support libsrtp ;for calls support
("pango" ,pango) pango
("qrencode" ,qrencode) qrencode
("sqlite" ,sqlite) sqlite
("webrtc-audio-processing" ,webrtc-audio-processing))) ;for A/V support webrtc-audio-processing)) ;for A/V support
(synopsis "Graphical Jabber/XMPP Client using GTK+/Vala") (synopsis "Graphical Jabber/XMPP Client using GTK+/Vala")
(description "Dino is a chat client for the desktop. It focuses on providing (description "Dino is a chat client for the desktop. It focuses on providing
a minimal yet reliable Jabber/XMPP experience and having encryption enabled by a minimal yet reliable Jabber/XMPP experience and having encryption enabled by