gnu: admin: Add libseat 0.8.0 and move seatd.

* gnu/packages/admin.scm (libseat): New variable
* gnu/packages/admin.scm (seatd): New variable
* gnu/packages/freedesktop.scm (seatd): Remove variable
* gnu/packages/wm.scm (wlroots): Replace seatd input with libseat

Signed-off-by: Lars-Dominik Braun <ldb@leibniz-psychology.org>
This commit is contained in:
muradm 2022-06-15 12:17:40 +03:00 committed by Lars-Dominik Braun
parent 530e0f0260
commit 167b8f29b3
No known key found for this signature in database
GPG key ID: 421377011A378446
3 changed files with 56 additions and 30 deletions

View file

@ -46,6 +46,7 @@
;;; Copyright © 2021 Maxim Cournoyer <maxim.cournoyer@gmail.com>
;;; Copyright © 2021 Maxime Devos <maximedevos@telenet.be>
;;; Copyright © 2021 muradm <mail@muradm.net>
;;; Copyright © 2021 pineapples <guixuser6392@protonmail.com>
;;; Copyright © 2021 Petr Hodina <phodina@protonmail.com>
;;; Copyright © 2021 Artyom V. Poptsov <poptsov.artyom@gmail.com>
;;; Copyright © 2022 Wamm K. D. <jaft.r@outlook.com>
@ -104,6 +105,7 @@ (define-module (gnu packages admin)
#:use-module (gnu packages elf)
#:use-module (gnu packages file)
#:use-module (gnu packages flex)
#:use-module (gnu packages freedesktop)
#:use-module (gnu packages gawk)
#:use-module (gnu packages gettext)
#:use-module (gnu packages gl)
@ -5168,3 +5170,54 @@ (define-public greetd-pam-mount
greetd-pam-mount is used in configuration of greetd to provide
auto-(mounting/unmounting) of XDG_RUNTIME_DIR in the way that it will not
interfere with default pam-mount configuration.")))
(define-public libseat
(package
(name "libseat")
(version "0.7.0")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://git.sr.ht/~kennylevinsen/seatd")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32
"10f8387yy5as547xjjhl0cna6iywdgjmw0iq2nvcs8q6vlpnik4v"))))
(build-system meson-build-system)
(arguments
`(#:configure-flags '("-Dlibseat-logind=elogind"
"-Dserver=disabled")))
(native-inputs
`(("pkg-config" ,pkg-config)))
(propagated-inputs
`(("elogind" ,elogind)))
(home-page "https://sr.ht/~kennylevinsen/seatd")
(synopsis "Seat management library")
(description
"This package provides a universal seat management library that
allows applications to use whatever seat management is available.")
(license license:expat)))
(define-public seatd
(package
(inherit libseat)
(name "seatd")
(arguments
`(#:configure-flags '("-Dlibseat-logind=elogind")
#:phases
(modify-phases %standard-phases
(add-after 'install 'remove-libs
(lambda* (#:key outputs #:allow-other-keys)
(with-directory-excursion (assoc-ref outputs "out")
(for-each delete-file-recursively '("lib" "include"))))))))
(native-inputs
`(("pkg-config" ,pkg-config)
("scdoc" ,scdoc)))
(inputs '())
(synopsis "Seat management daemon")
(description
"This package provides a minimal seat management daemon whose task is to
mediate access to shared devices, such as graphics and input, for applications
that require it.")
(license license:expat)))

View file

@ -849,35 +849,6 @@ (define (source-file regexp)
with localed. This package is extracted from the broader systemd package.")
(license license:lgpl2.1+)))
(define-public seatd
(package
(name "seatd")
(version "0.5.0")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://git.sr.ht/~kennylevinsen/seatd")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32
"1kglq8v4rnr3415mfaghyv2s2f8mxsy5s881gmm2908ig4n4j297"))))
(build-system meson-build-system)
(arguments
`(#:configure-flags '("-Dlogind=enabled")))
(native-inputs
(list pkg-config scdoc))
(propagated-inputs
(list elogind))
(home-page "https://sr.ht/~kennylevinsen/seatd")
(synopsis "Seat management daemon and library")
(description
"This package provides a minimal seat management daemon whose task is to
mediate access to shared devices, such as graphics and input, for applications
that require it. It also provides a universal seat management library that
allows applications to use whatever seat management is available.")
(license license:expat)))
(define-public packagekit
(package
(name "packagekit")

View file

@ -54,6 +54,7 @@
;;; Copyright © 2022 Daniel Meißner <daniel.meissner-i4k@ruhr-uni-bochum.de>
;;; Copyright © 2022 Pier-Hugues Pellerin <ph@heykimo.com>
;;; Copyright © 2022 Maxim Cournoyer <maxim.cournoyer@gmail.com>
;;; Copyright © 2022 muradm <mail@muradm.net>
;;;
;;; This file is part of GNU Guix.
;;;
@ -88,6 +89,7 @@ (define-module (gnu packages wm)
#:use-module (guix utils)
#:use-module (gnu packages)
#:use-module (gnu packages bash)
#:use-module (gnu packages admin)
#:use-module (gnu packages autotools)
#:use-module (gnu packages base)
#:use-module (gnu packages bison)
@ -1538,7 +1540,7 @@ (define-public wlroots
libxkbcommon
mesa
pixman
seatd
libseat
wayland
wayland-protocols
xcb-util-errors