diff options
| author | ng0 <ng0@infotropique.org> | 2017-12-30 22:41:46 +0100 |
|---|---|---|
| committer | Danny Milosavljevic <dannym@scratchpost.org> | 2017-12-30 22:55:23 +0100 |
| commit | 1b332539ebfe258536ecdf1199fc82d7516fdad3 (patch) | |
| tree | 5ce49937de77aa4596727e946db1b28bde5167c2 /gnu/packages/mate.scm | |
| parent | 75282ec1688d76822fd9c6cecf6d2e40df017503 (diff) | |
| download | guix-1b332539ebfe258536ecdf1199fc82d7516fdad3.tar.gz | |
gnu: mate-session-manager: Configure with with elogind support.
* gnu/packages/mate.scm (mate-session-manager)[arguments]: Add '--enable-elogind' to configure-flags. (phases): Add 'pre-configure' phase. Signed-off-by: Danny Milosavljevic <dannym@scratchpost.org>
Diffstat (limited to 'gnu/packages/mate.scm')
| -rw-r--r-- | gnu/packages/mate.scm | 24 |
1 files changed, 24 insertions, 0 deletions
diff --git a/gnu/packages/mate.scm b/gnu/packages/mate.scm index eeb5eb161d..409ca570fe 100644 --- a/gnu/packages/mate.scm +++ b/gnu/packages/mate.scm @@ -235,6 +235,29 @@ configurations (profiles).") (base32 "0i0xq6041x2qmb26x9bawx0qpfkgjn6x9w3phnm9s7rc4s0z20ll")))) (build-system glib-or-gtk-build-system) + (arguments + `(#:configure-flags (list "--enable-elogind" + "--disable-schemas-compile") + #:phases + (modify-phases %standard-phases + (add-before 'configure 'pre-configure + (lambda* (#:key outputs #:allow-other-keys) + ;; Use elogind instead of systemd. + (substitute* "configure" + (("libsystemd-login") + "libelogind") + (("systemd") "elogind")) + (substitute* "mate-session/gsm-systemd.c" + (("#include <systemd/sd-login.h>") + "#include <elogind/sd-login.h>")) + ;; Remove uses of the systemd journal. + (substitute* "mate-session/main.c" + (("#ifdef HAVE_SYSTEMD") "#if 0")) + (substitute* "mate-session/gsm-manager.c" + (("#ifdef HAVE_SYSTEMD") "#if 0")) + (substitute* "mate-session/gsm-autostart-app.c" + (("#ifdef HAVE_SYSTEMD") "#if 0")) + #t))))) (native-inputs `(("pkg-config" ,pkg-config) ("intltool" ,intltool) @@ -243,6 +266,7 @@ configurations (profiles).") (inputs `(("gtk+" ,gtk+) ("dbus-glib" ,dbus-glib) + ("elogind" ,elogind) ("libsm" ,libsm) ("mate-desktop" ,mate-desktop))) (home-page "https://mate-desktop.org/") |