[PATCH] gnu: Add plymouth.

[ng0]

* gnu/packages/freedesktop.scm (plymouth): New variable.
---
 gnu/packages/freedesktop.scm | 93 ++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 93 insertions(+)

diff --git a/gnu/packages/freedesktop.scm b/gnu/packages/freedesktop.scm
index 66060eaa6..fcafddb4d 100644
--- a/gnu/packages/freedesktop.scm
+++ b/gnu/packages/freedesktop.scm
@@ -7,6 +7,7 @@
 ;;; Copyright © 2015 David Hashe <address@hidden>
 ;;; Copyright © 2016 Efraim Flashner <address@hidden>
 ;;; Copyright © 2016 Kei Kebreau <address@hidden>
+;;; Copyright © 2017 ng0 <address@hidden>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -46,6 +47,7 @@
   #:use-module (gnu packages gperf)
   #:use-module (gnu packages graphviz)
   #:use-module (gnu packages gtk)
+  #:use-module (gnu packages image)
   #:use-module (gnu packages libffi)
   #:use-module (gnu packages libunwind)
   #:use-module (gnu packages libusb)
@@ -881,3 +883,94 @@ library to access fingerprint readers, over the D-Bus 
interprocess
 communication bus.  This daemon layer above libfprint solves problems related
 to applications simultaneously competing for fingerprint readers.")
     (license license:gpl2+)))
+
+(define-public plymouth
+  (package
+    (name "plymouth")
+    (version "0.9.2")
+    (source
+     (origin
+       (method url-fetch)
+       (uri (string-append "https://www.freedesktop.org/software/";
+                           "plymouth/releases/" name "-" version ".tar.bz2"))
+       (sha256
+        (base32
+         "0zympsgy5bbfl2ag5nc1jxlshpx8r1s1yyjisanpx76g88hfh31g"))))
+    (build-system gnu-build-system)
+    (arguments
+     `(#:configure-flags (list (string-append "--sbindir="
+                                              (assoc-ref %outputs "out")
+                                              "/sbin")
+                               (string-append "--bindir="
+                                              (assoc-ref %outputs "out")
+                                              "/bin")
+                               (string-append "--prefix="
+                                              (assoc-ref %outputs "out"))
+                               (string-append "--exec-prefix="
+                                              (assoc-ref %outputs "out"))
+                               (string-append "--libexecdir="
+                                              (assoc-ref %outputs "out")
+                                              "/lib")
+                               (string-append "--sysconfdir="
+                                              "/etc")
+                               (string-append "--localstatedir="
+                                              "/var")
+                               (string-append "--with-logo="
+                                              "/etc/plymouth/logo.png")
+                               (string-append "--with-background-color="
+                                              "0x000000")
+                               (string-append 
"--with-background-start-color-stop="
+                                              "0x000000")
+                               (string-append 
"--with-background-end-color-stop="
+                                              "0x000000")
+                               "--without-system-root-install"
+                               "--without-rhgb-compat-link"
+                               "--enable-tracing"
+                               "--disable-systemd-integration"
+                               "--enable-pango"
+                               "--enable-gdm-transition"
+                               "--enable-gtk")
+       #:make-flags (list (string-append "plymouthd_defaultsdir="
+                                         (assoc-ref %outputs "out")
+                                         "/share/plymouth")
+                          (string-append "plymouthd_confdir="
+                                         (assoc-ref %outputs "out")
+                                         "/etc/plymouth"))
+       #:phases
+       (modify-phases %standard-phases
+         (add-before 'configure 'fix-docbook
+           (lambda* (#:key inputs #:allow-other-keys)
+             (substitute* "docs/Makefile.in"
+               
(("http://docbook.sourceforge.net/release/xsl/current/manpages/docbook.xsl";)
+                (string-append (assoc-ref inputs "docbook-xsl")
+                               "/xml/xsl/docbook-xsl-"
+                               ,(package-version docbook-xsl)
+                               "/manpages/docbook.xsl")))
+             (setenv "XML_CATALOG_FILES"
+                     (string-append (assoc-ref inputs "docbook-xml")
+                                    "/xml/dtd/docbook/catalog.xml"))
+             #t)))))
+    (inputs
+     `(("gtk+" ,gtk+)
+       ("glib" ,glib)
+       ("cairo" ,cairo)
+       ("libdrm" ,libdrm)
+       ("pango" ,pango)
+       ("libpng" ,libpng)
+       ("eudev" ,eudev)))
+    (native-inputs
+     `(("pkg-config" ,pkg-config)
+       ("libxslt" ,libxslt)
+       ("docbook-xsl" ,docbook-xsl)
+       ("docbook-xml" ,docbook-xml)))
+    (synopsis "Graphical boot animation (splash) and logger")
+    (home-page "https://www.freedesktop.org/wiki/Software/Plymouth/";)
+    (description
+     "Plymouth is an application that runs very early in the boot
+process (even before the root filesystem is mounted!) that provides
+a graphical boot animation while the boot process happens in the
+background.
+
+You are not supposed to install this on your own, it is only useful
+with system integration.")
+    (license license:gpl2+)))
-- 
2.11.0