From 19a4ce0f08d846e2f8f9483f92a2a207cabb01b4 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?=E5=AE=8B=E6=96=87=E6=AD=A6?= <iyzsong@member.fsf.org>
Date: Mon, 1 May 2017 11:33:47 +0800
Subject: [PATCH] WIP

---
 gnu/packages/display-managers.scm | 95 +++++++++++++++++++++++++++++++++++++++
 1 file changed, 95 insertions(+)

diff --git a/gnu/packages/display-managers.scm b/gnu/packages/display-managers.scm
index 0a70fd737..d636565d9 100644
--- a/gnu/packages/display-managers.scm
+++ b/gnu/packages/display-managers.scm
@@ -23,19 +23,26 @@
   #:use-module (guix packages)
   #:use-module (guix download)
   #:use-module (guix build-system cmake)
+  #:use-module (guix build-system gnu)
   #:use-module (guix packages)
+  #:use-module (guix utils)
   #:use-module (gnu packages)
   #:use-module (gnu packages admin)
   #:use-module (gnu packages fontutils)
   #:use-module (gnu packages freedesktop)
   #:use-module (gnu packages gl)
   #:use-module (gnu packages glib)
+  #:use-module (gnu packages gnome)
+  #:use-module (gnu packages gnupg)
+  #:use-module (gnu packages gtk)
   #:use-module (gnu packages image)
   #:use-module (gnu packages kde-frameworks)
   #:use-module (gnu packages linux)
   #:use-module (gnu packages pkg-config)
+  #:use-module (gnu packages python)
   #:use-module (gnu packages qt)
   #:use-module (gnu packages xdisorg)
+  #:use-module (gnu packages xfce)
   #:use-module (gnu packages xorg))
 
 (define-public greenisland
@@ -249,3 +256,91 @@ login / shutdown / reboot commands, Single (GDM-like) or double (XDM-like)
 input control, Can load predefined user at startup, Configurable welcome /
 shutdown messages, Random theme selection.")
     (license license:gpl2)))
+
+(define-public lightdm
+  (package
+    (name "lightdm")
+    (version "1.22.0")
+    (source (origin
+              (method url-fetch)
+              (uri (string-append
+                    "https://launchpad.net/lightdm/"
+                    (version-major+minor version) "/" version
+                    "/+download/lightdm-" version ".tar.xz"))
+              (sha256
+               (base32
+                "0a5bvfl2h7r873al6q7c819h0kg564k9fh51rl6489z6lyvazfg4"))))
+    (build-system gnu-build-system)
+    (arguments
+     '(#:parallel-tests? #f             ; fails randomly when run in parallel
+       #:configure-flags '("--localstatedir=/var")
+       #:phases
+       (modify-phases %standard-phases
+         (add-before 'check 'pre-check
+           (lambda _
+             (wrap-program "tests/src/test-python-greeter"
+               `("PYTHONPATH"      ":" prefix (,(getenv "PYTHONPATH")))
+               `("GI_TYPELIB_PATH" ":" prefix (,(getenv "GI_TYPELIB_PATH"))))
+             ;; Unset 'LC_ALL', otherwise 4 tests fail with:
+             ;;   ...: setlocale: LC_ALL: cannot change locale (en_US.utf8)
+             (unsetenv "LC_ALL")
+             ;; Skip faulty tests.
+             (let ((skip-test
+                    (lambda (test)
+                      (with-output-to-file (string-append "tests/" test)
+                        (lambda ()
+                          (format #t "#!~a~%" (which "sh"))
+                          (format #t "exit 77~%"))))))
+               (skip-test "test-sessions-gobject")
+               (skip-test "test-sessions-python"))
+             #t)))))
+    (native-inputs
+     `(("gobject-introspection" ,gobject-introspection)
+       ("itstool" ,itstool)
+       ("intltool" ,intltool)
+       ("pkg-config" ,pkg-config)
+       ("vala" ,vala)
+       ;; Inputs for testing only below:
+       ("dbus" ,dbus)
+       ;; For 'test-python-greeter', which is incompatible with Python 3.
+       ("python" ,python-2)
+       ("python-pygobject" ,python2-pygobject)))
+     (inputs
+     `(("audit" ,audit)
+       ("libgcrypt" ,libgcrypt)
+       ("linux-pam" ,linux-pam)))
+     (propagated-inputs
+      ;; Required by 'liblightdm-gobject-1.pc'.
+      `(("glib" ,glib)
+        ("libx11" ,libx11)
+        ("libxklavier" ,libxklavier)))
+    (synopsis "Display manager")
+    (home-page "https://launchpad.net/lightdm")
+    (description "")
+    (license license:gpl3+)))
+
+(define-public lightdm-gtk-greeter
+  (package
+    (name "lightdm-gtk-greeter")
+    (version "2.0.2")
+    (source (origin
+              (method url-fetch)
+              (uri (string-append
+                    "https://launchpad.net/lightdm-gtk-greeter/"
+                    (version-major+minor version) "/" version
+                    "/+download/lightdm-gtk-greeter-" version ".tar.gz"))
+              (sha256
+               (base32
+                "1436sdm83xqhxyr1rzqxhsl8if2xmidlvb341xcv6dv83lyxkrlf"))))
+    (build-system gnu-build-system)
+    (native-inputs
+     `(("exo" ,exo)
+       ("intltool" ,intltool)
+       ("pkg-config" ,pkg-config)))
+    (inputs
+     `(("lightdm" ,lightdm)
+       ("gtk+" ,gtk+)))
+    (synopsis "")
+    (home-page "https://launchpad.net/lightdm-gtk-greeter")
+    (description "")
+    (license license:gpl3+)))
-- 
2.12.2