me
/
guix
Archived
1
0
Fork 0
Code

gnu: totem: Use new package style. 

* gnu/packages/gnome.scm (totem)[native-inputs]: Drop labels.
[arguments]: Convert to list of G-Expressions.  Drop trailing #t.
master
Liliana Marie Prikler 2022-07-08 21:13:14 +02:00
parent 7e0440255f
commit 67d67b757d
No known key found for this signature in database
GPG Key ID: 442A84B8C70E2F87
1 changed files with 42 additions and 50 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

92
gnu/packages/gnome.scm
View File

@ -6138,14 +6138,14 @@ discovery protocols.")
(base32 "1az6ay7zhz2naqrzcfldx1yv2ylw1yjx76g3mqrqppwmvcflkw2a")))) (base32 "1az6ay7zhz2naqrzcfldx1yv2ylw1yjx76g3mqrqppwmvcflkw2a"))))
(build-system meson-build-system) (build-system meson-build-system)
(native-inputs (native-inputs
`(("pkg-config" ,pkg-config) (list pkg-config
("desktop-file-utils" ,desktop-file-utils) desktop-file-utils
("gettext" ,gettext-minimal) gettext-minimal
("gobject-introspection" ,gobject-introspection) gobject-introspection
("glib:bin" ,glib "bin") ;for 'glib-mkenums' `(,glib "bin") ;for 'glib-mkenums'
("itstool" ,itstool) itstool
("xmllint" ,libxml2) libxml2
("xorg-server" ,xorg-server-for-tests))) xorg-server-for-tests))
(propagated-inputs (propagated-inputs
(list dconf)) (list dconf))
(inputs (inputs
@ -6176,49 +6176,41 @@ discovery protocols.")
grilo-plugins grilo-plugins
vala)) vala))
(arguments (arguments
`(#:glib-or-gtk? #t (list
#:glib-or-gtk? #t
;; Disable automatic GStreamer plugin installation via PackageKit and ;; Disable automatic GStreamer plugin installation via PackageKit and
;; all that. ;; all that.
#:configure-flags '("-D" "enable-easy-codec-installation=no" #:configure-flags #~(list "-Denable-easy-codec-installation=no"
;; Do not build .a files for the plugins, it's
;; Do not build .a files for the plugins, it's ;; completely useless. This saves 2 MiB.
;; completely useless. This saves 2 MiB. "--default-library" "shared")
"--default-library" "shared") #:phases
#:phases #~(modify-phases %standard-phases
(modify-phases %standard-phases (add-after 'unpack 'skip-gtk-update-icon-cache
(add-after 'unpack 'skip-gtk-update-icon-cache ;; Don't create 'icon-theme.cache'.
;; Don't create 'icon-theme.cache'. (lambda _
(substitute* "meson_post_install.py"
(("gtk-update-icon-cache") "true"))))
(add-before 'install 'disable-cache-generation
(lambda _ (lambda _
(substitute* "meson_post_install.py" (setenv "DESTDIR" "/")))
(("gtk-update-icon-cache") "true")) (add-before 'check 'pre-check
#t)) (lambda _
(add-before ;; Tests require a running X server.
'install 'disable-cache-generation (system "Xvfb :1 &")
(lambda _ (setenv "DISPLAY" ":1")))
(setenv "DESTDIR" "/") (add-after 'install 'wrap-totem
#t)) (lambda* (#:key inputs outputs #:allow-other-keys)
(add-before (let ((out (assoc-ref outputs "out"))
'check 'pre-check (gi-typelib-path (getenv "GI_TYPELIB_PATH"))
(lambda _ (gst-plugin-path (getenv "GST_PLUGIN_SYSTEM_PATH"))
;; Tests require a running X server. (grl-plugin-path (getenv "GRL_PLUGIN_PATH")))
(system "Xvfb :1 &") (wrap-program (string-append out "/bin/totem")
(setenv "DISPLAY" ":1") `("GI_TYPELIB_PATH" ":" suffix (,gi-typelib-path))
#t)) `("GST_PLUGIN_SYSTEM_PATH" ":" prefix (,gst-plugin-path))
(add-after `("GRL_PLUGIN_PATH" ":" prefix (,grl-plugin-path)))
'install 'wrap-totem (wrap-program (string-append out "/bin/totem-video-thumbnailer")
(lambda* (#:key inputs outputs #:allow-other-keys) `("GST_PLUGIN_SYSTEM_PATH" ":" prefix (,gst-plugin-path)))))))))
(let ((out (assoc-ref outputs "out"))
(gi-typelib-path (getenv "GI_TYPELIB_PATH"))
(gst-plugin-path (getenv "GST_PLUGIN_SYSTEM_PATH"))
(grl-plugin-path (getenv "GRL_PLUGIN_PATH")))
(wrap-program (string-append out "/bin/totem")
`("GI_TYPELIB_PATH" ":" suffix (,gi-typelib-path))
`("GST_PLUGIN_SYSTEM_PATH" ":" prefix (,gst-plugin-path))
`("GRL_PLUGIN_PATH" ":" prefix (,grl-plugin-path)))
(wrap-program (string-append out "/bin/totem-video-thumbnailer")
`("GST_PLUGIN_SYSTEM_PATH" ":" prefix (,gst-plugin-path))))
#t)))))
(home-page "https://wiki.gnome.org/Apps/Videos") (home-page "https://wiki.gnome.org/Apps/Videos")
(synopsis "Simple media player for GNOME based on GStreamer") (synopsis "Simple media player for GNOME based on GStreamer")
(description "Totem is a simple yet featureful media player for GNOME (description "Totem is a simple yet featureful media player for GNOME