unofficial mirror of guix-devel@gnu.org 
 help / color / mirror / code / Atom feed
* This adds plymouth
@ 2017-01-13 11:25 ng0
  2017-01-13 11:25 ` [PATCH] gnu: Add plymouth ng0
  2017-01-18 16:27 ` This adds plymouth ng0
  0 siblings, 2 replies; 7+ messages in thread
From: ng0 @ 2017-01-13 11:25 UTC (permalink / raw)
  To: guix-devel

[PATCH] gnu: Add plymouth.

For system fancyness, is someone really motivated to write an shepherd integration and service for plymouth?
I made it build for now. But if you touch plymouth in the process, I advise you not to, or directly send
changes upstream. Or have some fun backporting automake-1.14. I only succeeded because I stoped touching
files.
It's an early boot application (the boot splash screen you see when starting TAILS, Fedora and others),
so without system integration it will not work.

^ permalink raw reply	[flat|nested] 7+ messages in thread

* [PATCH] gnu: Add plymouth.
  2017-01-13 11:25 This adds plymouth ng0
@ 2017-01-13 11:25 ` ng0
  2017-01-13 11:34   ` plymouth, correction ng0
  2017-01-18 16:27 ` This adds plymouth ng0
  1 sibling, 1 reply; 7+ messages in thread
From: ng0 @ 2017-01-13 11:25 UTC (permalink / raw)
  To: guix-devel

* 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..6058e131f 100644
--- a/gnu/packages/freedesktop.scm
+++ b/gnu/packages/freedesktop.scm
@@ -7,6 +7,7 @@
 ;;; Copyright © 2015 David Hashe <david.hashe@dhashe.com>
 ;;; Copyright © 2016 Efraim Flashner <efraim@flashner.co.il>
 ;;; Copyright © 2016 Kei Kebreau <kei@openmailbox.org>
+;;; Copyright © 2016, 2017 ng0 <contact.ng0@cryptolab.net>
 ;;;
 ;;; 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

^ permalink raw reply related	[flat|nested] 7+ messages in thread

* plymouth, correction
  2017-01-13 11:25 ` [PATCH] gnu: Add plymouth ng0
@ 2017-01-13 11:34   ` ng0
  2017-01-13 11:34     ` [PATCH] gnu: Add plymouth ng0
  0 siblings, 1 reply; 7+ messages in thread
From: ng0 @ 2017-01-13 11:34 UTC (permalink / raw)
  To: guix-devel

So it seems I did not make any commits in freedesktop in 2016, at least in the public master.

^ permalink raw reply	[flat|nested] 7+ messages in thread

* [PATCH] gnu: Add plymouth.
  2017-01-13 11:34   ` plymouth, correction ng0
@ 2017-01-13 11:34     ` ng0
  0 siblings, 0 replies; 7+ messages in thread
From: ng0 @ 2017-01-13 11:34 UTC (permalink / raw)
  To: guix-devel

* 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 <david.hashe@dhashe.com>
 ;;; Copyright © 2016 Efraim Flashner <efraim@flashner.co.il>
 ;;; Copyright © 2016 Kei Kebreau <kei@openmailbox.org>
+;;; Copyright © 2017 ng0 <contact.ng0@cryptolab.net>
 ;;;
 ;;; 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

^ permalink raw reply related	[flat|nested] 7+ messages in thread

* Re: This adds plymouth
  2017-01-13 11:25 This adds plymouth ng0
  2017-01-13 11:25 ` [PATCH] gnu: Add plymouth ng0
@ 2017-01-18 16:27 ` ng0
  2017-01-18 21:57   ` Ricardo Wurmus
  1 sibling, 1 reply; 7+ messages in thread
From: ng0 @ 2017-01-18 16:27 UTC (permalink / raw)
  To: guix-devel

ng0 <ng0@libertad.pw> writes:

> [PATCH] gnu: Add plymouth.
>
> For system fancyness, is someone really motivated to write an shepherd integration and service for plymouth?
> I made it build for now. But if you touch plymouth in the process, I advise you not to, or directly send
> changes upstream. Or have some fun backporting automake-1.14. I only succeeded because I stoped touching
> files.
> It's an early boot application (the boot splash screen you see when starting TAILS, Fedora and others),
> so without system integration it will not work.

I will give writing a service a try, as this is needed for a
system test which is needed if you don't want/can't test in some
VM.
-- 
♥Ⓐ  ng0 -- https://www.inventati.org/patternsinthechaos/

^ permalink raw reply	[flat|nested] 7+ messages in thread

* Re: This adds plymouth
  2017-01-18 16:27 ` This adds plymouth ng0
@ 2017-01-18 21:57   ` Ricardo Wurmus
  2017-01-18 23:51     ` ng0
  0 siblings, 1 reply; 7+ messages in thread
From: Ricardo Wurmus @ 2017-01-18 21:57 UTC (permalink / raw)
  To: ng0; +Cc: guix-devel


ng0 <contact.ng0@cryptolab.net> writes:

> ng0 <ng0@libertad.pw> writes:
>
>> [PATCH] gnu: Add plymouth.
>>
>> It's an early boot application (the boot splash screen you see when starting TAILS, Fedora and others),
>> so without system integration it will not work.
>
> I will give writing a service a try, as this is needed for a
> system test which is needed if you don't want/can't test in some
> VM.

Thanks, this would be nice!  How would it be used during the system boot
procedure?  How would I make it start after configuring a system with
it?

--
Ricardo

GPG: BCA6 89B6 3655 3801 C3C6  2150 197A 5888 235F ACAC
https://elephly.net

^ permalink raw reply	[flat|nested] 7+ messages in thread

* Re: This adds plymouth
  2017-01-18 21:57   ` Ricardo Wurmus
@ 2017-01-18 23:51     ` ng0
  0 siblings, 0 replies; 7+ messages in thread
From: ng0 @ 2017-01-18 23:51 UTC (permalink / raw)
  To: guix-devel

Ricardo Wurmus <rekado@elephly.net> writes:

> ng0 <contact.ng0@cryptolab.net> writes:
>
>> ng0 <ng0@libertad.pw> writes:
>>
>>> [PATCH] gnu: Add plymouth.
>>>
>>> It's an early boot application (the boot splash screen you see when starting TAILS, Fedora and others),
>>> so without system integration it will not work.
>>
>> I will give writing a service a try, as this is needed for a
>> system test which is needed if you don't want/can't test in some
>> VM.
>
> Thanks, this would be nice!  How would it be used during the system boot
> procedure?  How would I make it start after configuring a system with
> it?
>
> --
> Ricardo
>
> GPG: BCA6 89B6 3655 3801 C3C6  2150 197A 5888 235F ACAC
> https://elephly.net
>

Difficult to foresee right now, plymouth is new to me. I'd say
"read the docs" (which I still need to do).
I will look at Fedora, Gentoo and others to see where it gets
inserted in the boot process.
-- 
♥Ⓐ  ng0 -- https://www.inventati.org/patternsinthechaos/

^ permalink raw reply	[flat|nested] 7+ messages in thread

end of thread, other threads:[~2017-01-18 23:50 UTC | newest]

Thread overview: 7+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2017-01-13 11:25 This adds plymouth ng0
2017-01-13 11:25 ` [PATCH] gnu: Add plymouth ng0
2017-01-13 11:34   ` plymouth, correction ng0
2017-01-13 11:34     ` [PATCH] gnu: Add plymouth ng0
2017-01-18 16:27 ` This adds plymouth ng0
2017-01-18 21:57   ` Ricardo Wurmus
2017-01-18 23:51     ` ng0

Code repositories for project(s) associated with this public inbox

	https://git.savannah.gnu.org/cgit/guix.git

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).