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

gnu: accountsservice: Update to 0.6.55.

Browse source 
* gnu/packages/freedesktop.scm (accountsservice): Update to 0.6.55.
[source]: Wrap the URI.
[build-system]: Switch to meson-build-system.
[arguments]: Fix configure-flags. Remove trailing #t. Fix the 'pre-configure
phase and wrap it.
[inputs]: Add dbus.
[description]: Wrap it.
This commit is contained in:
Mathieu Othacehe 2021-09-26 08:59:39 +00:00
parent d0bfb36a0a
commit d680ec00b9
No known key found for this signature in database
GPG key ID: 8354763531769CA6
1 changed files with 26 additions and 21 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

47
gnu/packages/freedesktop.scm
View file

@ -1393,57 +1393,62 @@ (define-public udisks
(define-public accountsservice (define-public accountsservice
(package (package
(name "accountsservice") (name "accountsservice")
(version "0.6.50") (version "0.6.55")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
(uri (string-append "https://www.freedesktop.org/software/" (uri (string-append "https://www.freedesktop.org/software/"
"accountsservice/accountsservice-" version ".tar.xz")) "accountsservice/accountsservice-"
version ".tar.xz"))
(sha256 (sha256
(base32 "0jn7vg1z4vxnna0hl33hbcb4bb3zpilxc2vyclh24vx4vvsjhn83")))) (base32 "16wwd633jak9ajyr1f1h047rmd09fhf3kzjz6g5xjsz0lwcj8azz"))))
(build-system gnu-build-system) (build-system meson-build-system)
(arguments (arguments
'(#:tests? #f ; XXX: tests require DocBook 4.1.2 '(#:tests? #f ; XXX: tests require DocBook 4.1.2
#:configure-flags #:configure-flags
'("--localstatedir=/var" '("--localstatedir=/var"
"--disable-systemd" "-Dsystemdsystemunitdir=/tmp/empty"
"--enable-elogind") "-Dsystemd=false"
"-Delogind=true")
#:phases #:phases
(modify-phases %standard-phases (modify-phases %standard-phases
(add-after 'unpack 'patch-/bin/cat (add-after 'unpack 'patch-/bin/cat
(lambda _ (lambda _
(substitute* "src/user.c" (substitute* "src/user.c"
(("/bin/cat") (which "cat"))) (("/bin/cat") (which "cat")))))
#t))
(add-before (add-before
'configure 'pre-configure 'configure 'pre-configure
(lambda* (#:key inputs #:allow-other-keys) (lambda* (#:key inputs #:allow-other-keys)
;; Don't try to create /var/lib/AccountsService. (substitute* "meson_post_install.py"
(substitute* "src/Makefile.in" (("in dst_dirs") "in []"))
(("\\$\\(MKDIR_P\\).*/lib/AccountsService.*") "true"))
(let ((shadow (assoc-ref inputs "shadow"))) (let ((shadow (assoc-ref inputs "shadow")))
(substitute* '("src/user.c" "src/daemon.c") (substitute* '("src/user.c" "src/daemon.c")
(("/usr/sbin/usermod") (string-append shadow "/sbin/usermod")) (("/usr/sbin/usermod")
(("/usr/sbin/useradd") (string-append shadow "/sbin/useradd")) (string-append shadow "/sbin/usermod"))
(("/usr/sbin/userdel") (string-append shadow "/sbin/userdel")) (("/usr/sbin/useradd")
(("/usr/bin/passwd") (string-append shadow "/bin/passwd")) (string-append shadow "/sbin/useradd"))
(("/usr/bin/chage") (string-append shadow "/bin/chage")))) (("/usr/sbin/userdel")
#t))))) (string-append shadow "/sbin/userdel"))
(("/usr/bin/passwd")
(string-append shadow "/bin/passwd"))
(("/usr/bin/chage")
(string-append shadow "/bin/chage")))))))))
(native-inputs (native-inputs
`(("glib:bin" ,glib "bin") ; for gdbus-codegen, etc. `(("glib:bin" ,glib "bin") ; for gdbus-codegen, etc.
("gobject-introspection" ,gobject-introspection) ("gobject-introspection" ,gobject-introspection)
("intltool" ,intltool) ("intltool" ,intltool)
("pkg-config" ,pkg-config))) ("pkg-config" ,pkg-config)))
(inputs (inputs
`(("elogind" ,elogind) `(("dbus" ,dbus)
("elogind" ,elogind)
("polkit" ,polkit) ("polkit" ,polkit)
("shadow" ,shadow))) ("shadow" ,shadow)))
(home-page "https://www.freedesktop.org/wiki/Software/AccountsService/") (home-page "https://www.freedesktop.org/wiki/Software/AccountsService/")
(synopsis "D-Bus interface for user account query and manipulation") (synopsis "D-Bus interface for user account query and manipulation")
(description (description
"The AccountService project provides a set of D-Bus interfaces for querying "The AccountService project provides a set of D-Bus interfaces for
and manipulating user account information and an implementation of these querying and manipulating user account information and an implementation of
interfaces, based on the useradd, usermod and userdel commands.") these interfaces, based on the useradd, usermod and userdel commands.")
(license license:gpl3+))) (license license:gpl3+)))
(define-public libmbim (define-public libmbim