me
/
guix
Archived
1
0
Fork 0

gnu: accountsservice: Update to 0.6.55.

* 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.
master
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

View File

@ -1393,57 +1393,62 @@ message bus.")
(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