ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-11-17 04:07:10 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: gitg: Use new package style.

Browse source 
* gnu/packages/gnome.scm (gitg)[arguments]: Use G-expressions.
[native-inputs]: Drop labels.
This commit is contained in:
Liliana Marie Prikler 2022-03-06 14:18:47 +01:00
parent 62479e9420
commit 716265fd69
No known key found for this signature in database
GPG key ID: 442A84B8C70E2F87
1 changed files with 38 additions and 41 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

79
gnu/packages/gnome.scm
View file

@ -11353,41 +11353,38 @@ (define-public gitg
"0npg4kqpwl992fgjd2cn3fh84aiwpdp9kd8z7rw2xaj2iazsm914"))))
(build-system meson-build-system)
(arguments
`(#:glib-or-gtk? #t
#:phases
(modify-phases %standard-phases
(add-after 'unpack 'disable-post-install-partially
(lambda _
(substitute* "meson_post_install.py"
(("'python'") ; there are no python sources to compile
(string-append "'" (which "true") "'"))
(("gtk-update-icon-cache") (which "true")))
#t))
(add-after 'unpack 'fix-test-sources
(lambda _
(substitute* "tests/libgitg/test-commit.vala"
(("/bin/bash") (which "bash")))
#t))
;; XXX: Remove upon next version bump
(add-after 'unpack 'harden
(lambda _
;; See <https://gitlab.gnome.org/GNOME/gitg/-/issues/337>
(substitute* "libgitg/gitg-date.vala"
(("(val\|tzs) == null" all val)
(string-append val " == null || " val " == \"\""))
(("(val\|tzs) != null" all val)
(string-append val " != null && " val " != \"\"")))
;; See <https://gitlab.gnome.org/GNOME/gitg/-/merge_requests/159>
(substitute* "gitg/gitg-action-support.vala"
(("stash_if_needed\\((.*), Gitg.Ref head" all other)
(string-append "stash_if_needed(" other ", Gitg.Ref? head")))))
(add-after 'glib-or-gtk-wrap 'wrap-typelib
(lambda* (#:key outputs #:allow-other-keys)
(let ((prog (string-append (assoc-ref outputs "out")
"/bin/gitg")))
(wrap-program prog
`("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH"))))
#t))))))
(list
#:glib-or-gtk? #t
#:phases
#~(modify-phases %standard-phases
(add-after 'unpack 'disable-post-install-partially
(lambda _
(substitute* "meson_post_install.py"
(("'python'") ; there are no python sources to compile
(string-append "'" (which "true") "'"))
(("gtk-update-icon-cache") (which "true")))))
(add-after 'unpack 'fix-test-sources
(lambda _
(substitute* "tests/libgitg/test-commit.vala"
(("/bin/bash") (which "bash")))))
;; XXX: Remove upon next version bump
(add-after 'unpack 'harden
(lambda _
;; See <https://gitlab.gnome.org/GNOME/gitg/-/issues/337>
(substitute* "libgitg/gitg-date.vala"
(("(val\|tzs) == null" all val)
(string-append val " == null || " val " == \"\""))
(("(val\|tzs) != null" all val)
(string-append val " != null && " val " != \"\"")))
;; See <https://gitlab.gnome.org/GNOME/gitg/-/merge_requests/159>
(substitute* "gitg/gitg-action-support.vala"
(("stash_if_needed\\((.*), Gitg.Ref head" all other)
(string-append "stash_if_needed(" other ", Gitg.Ref? head")))))
(add-after 'glib-or-gtk-wrap 'wrap-typelib
(lambda* (#:key outputs #:allow-other-keys)
(let ((prog (string-append #$output "/bin/gitg")))
(wrap-program prog
`("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH"))))))))))
(inputs
(list glib
gsettings-desktop-schemas
@ -11403,12 +11400,12 @@ (define-public gitg
libsoup-minimal-2
libxml2))
(native-inputs
`(("glib:bin" ,glib "bin")
("gtk+:bin" ,gtk+ "bin")
("gobject-introspection" ,gobject-introspection)
("intltool" ,intltool)
("pkg-config" ,pkg-config)
("vala" ,vala)))
(list `(,glib "bin")
`(,gtk+ "bin")
gobject-introspection
intltool
pkg-config
vala))
(synopsis "Graphical user interface for git")
(description
"gitg is a graphical user interface for git. It aims at being a small,