[PATCH 2/6] gnu: Add colord-gtk.

[PATCH 2/6] gnu: Add colord-gtk.

[宋文武]

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

diff --git a/gnu/packages/freedesktop.scm b/gnu/packages/freedesktop.scm
index 474cf24..b8eb75e 100644
--- a/gnu/packages/freedesktop.scm
+++ b/gnu/packages/freedesktop.scm
@@ -35,6 +35,7 @@
   #:use-module (gnu packages autotools)
   #:use-module (gnu packages gettext)
   #:use-module (gnu packages gperf)
+  #:use-module (gnu packages gtk)
   #:use-module (gnu packages xml)
   #:use-module (gnu packages docbook)
   #:use-module (gnu packages glib)                ;intltool
@@ -568,3 +569,33 @@ modems and setup connections with them.")
 received by the Telepathy framework.  It features pluggable backends to log
 different sorts of messages in different formats.")
     (license license:lgpl2.1+)))
+
+(define-public colord-gtk
+  (package
+    (name "colord-gtk")
+    (version "0.1.26")
+    (source (origin
+              (method url-fetch)
+              (uri (string-append "http://www.freedesktop.org/software/colord"
+                                  "/releases/" name "-" version ".tar.xz"))
+              (sha256
+               (base32
+                "0i9y3bb5apj6a0f8cx36l6mjzs7xc0k7nf0magmf58vy2mzhpl18"))))
+    (build-system gnu-build-system)
+    (arguments '(#:tests? #f)) ; require the colord system service
+    (native-inputs
+     `(("gobject-introspection" ,gobject-introspection)
+       ("intltool" ,intltool)
+       ("pkg-config" ,pkg-config)
+       ("vala" ,vala)))
+    (propagated-inputs
+     ;; colord-gtk.pc refers to all these.
+     `(("colord" ,colord)
+       ("gtk+" ,gtk+)))
+    (synopsis "GTK integration for libcolord")
+    (home-page "http://www.freedesktop.org/software/colord/")
+    (description
+     "This is a GTK+ convenience library for interacting with colord.  It is
+useful for both applications which need colour management and applications that
+wish to perform colour calibration.")
+    (license license:lgpl2.1+)))
-- 
2.5.0

[PATCH 3/6] gnu: Add libgtop.

[宋文武]

* gnu/packages/gnome.scm (libgtop): New variable.
---
 gnu/packages/gnome.scm | 27 +++++++++++++++++++++++++++
 1 file changed, 27 insertions(+)

diff --git a/gnu/packages/gnome.scm b/gnu/packages/gnome.scm
index 1ace594..c60d847 100644
--- a/gnu/packages/gnome.scm
+++ b/gnu/packages/gnome.scm
@@ -4327,3 +4327,30 @@ libxml2.")
      "GNOME Display Manager is a system service that is responsible for
 providing graphical log-ins and managing local and remote displays.")
     (license license:gpl2+)))
+
+(define-public libgtop
+  (package
+    (name "libgtop")
+    (version "2.32.0")
+    (source (origin
+              (method url-fetch)
+              (uri (string-append "mirror://gnome/sources/" name "/"
+                                  (version-major+minor version) "/"
+                                  name "-" version ".tar.xz"))
+              (sha256
+               (base32
+                "13hpml2vfm23816qggr5fvxj75ndb1dq4rgmi7ik6azj69ij8hw4"))))
+    (build-system gnu-build-system)
+    (native-inputs
+     `(("gobject-introspection" ,gobject-introspection)
+       ("intltool" ,intltool)
+       ("perl" ,perl)
+       ("pkg-config" ,pkg-config)))
+    (propagated-inputs
+     `(("glib" ,glib))) ; required by libgtop-2.0.pc
+    (synopsis "Portable system access library")
+    (home-page "https://www.gnome.org/")
+    (description
+     "LibGTop is a library to get system specific data such as CPU and memory
+usage and information about running processes.")
+    (license license:gpl2+)))
-- 
2.5.0

Re: [PATCH 3/6] gnu: Add libgtop.

[Ludovic Courtès]

宋文武 <iyzsong@gmail.com> skribis:

> * gnu/packages/gnome.scm (libgtop): New variable.

LGTM!

Ludo'.

[PATCH 4/6] gnu: gnome-bluetooth: New variable.

[宋文武]

* gnu/packages/gnome.scm (gnome-bluetooth): New variable.
---
 gnu/packages/gnome.scm | 33 +++++++++++++++++++++++++++++++++
 1 file changed, 33 insertions(+)

diff --git a/gnu/packages/gnome.scm b/gnu/packages/gnome.scm
index c60d847..2b425b9 100644
--- a/gnu/packages/gnome.scm
+++ b/gnu/packages/gnome.scm
@@ -4354,3 +4354,36 @@ providing graphical log-ins and managing local and remote displays.")
      "LibGTop is a library to get system specific data such as CPU and memory
 usage and information about running processes.")
     (license license:gpl2+)))
+
+(define-public gnome-bluetooth
+  (package
+    (name "gnome-bluetooth")
+    (version "3.18.1")
+    (source (origin
+              (method url-fetch)
+              (uri (string-append "mirror://gnome/sources/" name "/"
+                                  (version-major+minor version) "/"
+                                  name "-" version ".tar.xz"))
+              (sha256
+               (base32
+                "0jaa9nbygdvcqp9k4p4iy2g8x3684s4x9k5nbcmmm11jdn4mn7f5"))))
+    (build-system glib-or-gtk-build-system)
+    (native-inputs
+     `(("glib:bin" ,glib "bin") ; for gdbus-codegen, etc.
+       ("gobject-introspection" ,gobject-introspection)
+       ("intltool" ,intltool)
+       ("pkg-config" ,pkg-config)
+       ("xmllint" ,libxml2)))
+    (propagated-inputs
+     ;; gnome-bluetooth-1.0.pc refers to all these.
+     `(("gtk+" ,gtk+)
+       ("udev" ,eudev)))
+    (inputs
+     `(("libcanberra" ,libcanberra)
+       ("libnotify" ,libnotify)))
+    (synopsis "GNOME bluetooth subsystem")
+    (home-page "https://wiki.gnome.org/Projects/GnomeBluetooth")
+    (description
+     "This package contains tools for managing and manipulating bluetooth
+devices using the GNOME desktop.")
+    (license license:lgpl2.1+)))
-- 
2.5.0

Re: [PATCH 4/6] gnu: gnome-bluetooth: New variable.

[Ludovic Courtès]

宋文武 <iyzsong@gmail.com> skribis:

> * gnu/packages/gnome.scm (gnome-bluetooth): New variable.

[...]

> +    (synopsis "GNOME bluetooth subsystem")
> +    (home-page "https://wiki.gnome.org/Projects/GnomeBluetooth")
> +    (description
> +     "This package contains tools for managing and manipulating bluetooth

Please capitalize “Bluetooth.”

Otherwise LGTM!

Ludo’.

[PATCH 5/6] gnu: Add gnome-control-center.

[宋文武]

* gnu/packages/gnome.scm (gnome-control-center): New variable.
---
 gnu/packages/gnome.scm | 73 ++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 73 insertions(+)

diff --git a/gnu/packages/gnome.scm b/gnu/packages/gnome.scm
index 2b425b9..88d7481 100644
--- a/gnu/packages/gnome.scm
+++ b/gnu/packages/gnome.scm
@@ -64,6 +64,7 @@
   #:use-module (gnu packages polkit)
   #:use-module (gnu packages popt)
   #:use-module (gnu packages ghostscript)
+  #:use-module (gnu packages ibus)
   #:use-module (gnu packages iso-codes)
   #:use-module (gnu packages libcanberra)
   #:use-module (gnu packages linux)
@@ -73,6 +74,7 @@
   #:use-module (gnu packages m4)
   #:use-module (gnu packages image)
   #:use-module (gnu packages networking)
+  #:use-module (gnu packages password-utils)
   #:use-module (gnu packages perl)
   #:use-module (gnu packages photo)
   #:use-module (gnu packages pkg-config)
@@ -93,6 +95,7 @@
   #:use-module (gnu packages xdisorg)
   #:use-module (gnu packages freedesktop)
   #:use-module (gnu packages mail)
+  #:use-module (gnu packages mit-krb5)
   #:use-module (gnu packages backup)
   #:use-module (gnu packages nettle)
   #:use-module (gnu packages ncurses)
@@ -4387,3 +4390,73 @@ usage and information about running processes.")
      "This package contains tools for managing and manipulating bluetooth
 devices using the GNOME desktop.")
     (license license:lgpl2.1+)))
+
+(define-public gnome-control-center
+  (package
+    (name "gnome-control-center")
+    (version "3.18.2")
+    (source (origin
+              (method url-fetch)
+              (uri (string-append "mirror://gnome/sources/" name "/"
+                                  (version-major+minor version) "/"
+                                  name "-" version ".tar.xz"))
+              (sha256
+               (base32
+                "1bgqg1sl3cp2azrwrjgwx3jzk9n3w76xpcyvk257qavx4ibn3zin"))))
+    (build-system glib-or-gtk-build-system)
+    (arguments
+     '(#:phases
+       (modify-phases %standard-phases
+         (add-before 'configure 'patch-paths
+           (lambda* (#:key inputs #:allow-other-keys)
+             (let ((libc   (assoc-ref inputs "libc"))
+                   (tzdata (assoc-ref inputs "tzdata")))
+               (substitute* "panels/datetime/tz.h"
+                 (("/usr/share/zoneinfo/zone.tab")
+                  (string-append tzdata "/share/zoneinfo/zone.tab")))
+               (substitute* "panels/datetime/test-endianess.c"
+                 (("/usr/share/locale")
+                  (string-append libc "/share/locale")))
+               #t))))))
+    (native-inputs
+     `(("glib:bin" ,glib "bin") ; for glib-mkenums, etc.
+       ("intltool" ,intltool)
+       ("pkg-config" ,pkg-config)
+       ("xsltproc" ,libxslt)))
+    (inputs
+     `(("accountsservice" ,accountsservice)
+       ("clutter-gtk" ,clutter-gtk)
+       ("colord-gtk" ,colord-gtk)
+       ("cups" ,cups)
+       ("dconf" ,dconf)
+       ("docbook-xsl" ,docbook-xsl)
+       ("gnome-bluetooth" ,gnome-bluetooth)
+       ("gnome-desktop" ,gnome-desktop)
+       ("gnome-online-accounts" ,gnome-online-accounts)
+       ("gnome-settings-daemon" ,gnome-settings-daemon)
+       ("grilo" ,grilo)
+       ("ibus" ,ibus)
+       ("libcanberra" ,libcanberra)
+       ("libgudev" ,libgudev)
+       ("libgtop" ,libgtop)
+       ("libpwquality" ,libpwquality)
+       ("libsoup" ,libsoup)
+       ("libxml2" ,libxml2)
+       ("libwacom" ,libwacom)
+       ("mesa" ,mesa)
+       ("mit-krb5" ,mit-krb5)
+       ("modem-manager" ,modem-manager)
+       ("network-manager-applet" ,network-manager-applet)
+       ("polkit" ,polkit)
+       ("pulseaudio" ,pulseaudio)
+       ("smbclient" ,samba)
+       ("tzdata" ,tzdata)
+       ("upower" ,upower)))
+    (synopsis "Utilities to configure the GNOME desktop")
+    (home-page "https://www.gnome.org/")
+    (description
+     "This package contains configuration applets for the GNOME desktop,
+allowing to set accessibility configuration, desktop fonts, keyboard and mouse
+properties, sound setup, desktop theme and background, user interface
+properties, screen resolution, and other GNOME parameters.")
+    (license license:gpl2+)))
-- 
2.5.0

Re: [PATCH 5/6] gnu: Add gnome-control-center.

[Ludovic Courtès]

宋文武 <iyzsong@gmail.com> skribis:

> * gnu/packages/gnome.scm (gnome-control-center): New variable.

LGTM!

Ludo'.

[PATCH 6/6] gnu: Add gnome-shell.

[宋文武]

* gnu/packages/gnome.scm (gnome-shell): New variable.
---
 gnu/packages/gnome.scm | 82 ++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 82 insertions(+)

diff --git a/gnu/packages/gnome.scm b/gnu/packages/gnome.scm
index 88d7481..a6169ac 100644
--- a/gnu/packages/gnome.scm
+++ b/gnu/packages/gnome.scm
@@ -4460,3 +4460,85 @@ allowing to set accessibility configuration, desktop fonts, keyboard and mouse
 properties, sound setup, desktop theme and background, user interface
 properties, screen resolution, and other GNOME parameters.")
     (license license:gpl2+)))
+
+(define-public gnome-shell
+  (package
+    (name "gnome-shell")
+    (version "3.18.3")
+    (source (origin
+              (method url-fetch)
+              (uri (string-append "mirror://gnome/sources/" name "/"
+                                  (version-major+minor version) "/"
+                                  name "-" version ".tar.xz"))
+              (sha256
+               (base32
+                "16sicxdp08yfaj4hiyzvbspb5jk3fpmi291272zhx5vgc3wbl5w5"))))
+    (build-system glib-or-gtk-build-system)
+    (arguments
+     '(#:phases
+       (modify-phases %standard-phases
+         (replace 'install
+           (lambda* (#:key outputs #:allow-other-keys)
+             (let* ((out     (assoc-ref outputs "out"))
+                    (keysdir (string-append
+                              out "/share/gnome-control-center/keybindings")))
+               (zero? (system* "make"
+                               (string-append "keysdir=" keysdir)
+                               "install")))))
+         (add-after
+          'install 'wrap-programs
+          (lambda* (#:key outputs #:allow-other-keys)
+            (let ((out              (assoc-ref outputs "out"))
+                  (gi-typelib-path  (getenv "GI_TYPELIB_PATH"))
+                  (python-path      (getenv "PYTHONPATH")))
+              (wrap-program (string-append out "/bin/gnome-shell")
+                `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path)))
+              (for-each
+               (lambda (prog)
+                 (wrap-program (string-append out "/bin/" prog)
+                   `("PYTHONPATH"      ":" prefix (,python-path))
+                   `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path))))
+               '("gnome-shell-extension-tool" "gnome-shell-perf-tool"))
+              #t))))))
+    (native-inputs
+     `(("glib:bin" ,glib "bin") ; for glib-compile-schemas, etc.
+       ("gobject-introspection" ,gobject-introspection)
+       ("intltool" ,intltool)
+       ("pkg-config" ,pkg-config)
+       ("python" ,python)
+       ("xsltproc" ,libxslt)))
+    (inputs
+     `(("accountsservice" ,accountsservice)
+       ("caribou" ,caribou)
+       ("docbook-xsl" ,docbook-xsl)
+       ("evolution-data-server" ,evolution-data-server)
+       ("gcr" ,gcr)
+       ("gdm" ,gdm)
+       ("gjs" ,gjs)
+       ("gnome-bluetooth" ,gnome-bluetooth)
+       ("gnome-control-center" ,gnome-control-center)
+       ("gnome-desktop" ,gnome-desktop)
+       ("gnome-settings-daemon" ,gnome-settings-daemon)
+       ("gst-plugins-base" ,gst-plugins-base)
+       ("ibus" ,ibus)
+       ("libcanberra" ,libcanberra)
+       ("libcroco" ,libcroco)
+       ("libgweather" ,libgweather)
+       ("libsoup" ,libsoup)
+       ("mesa-headers" ,mesa-headers)
+       ("mutter" ,mutter)
+       ("network-manager-applet" ,network-manager-applet)
+       ("polkit" ,polkit)
+       ("pulseaudio" ,pulseaudio)
+       ("python-pygobject" ,python-pygobject)
+       ("startup-notification" ,startup-notification)
+       ("telepathy-logger" ,telepathy-logger)
+       ("upower" ,upower)
+       ;; XXX: required by libgjs.la.
+       ("readline" ,readline)))
+    (synopsis "Desktop shell for GNOME")
+    (home-page "https://wiki.gnome.org/Projects/GnomeShell")
+    (description
+     "GNOME Shell provides core user interface functions for the GNOME desktop,
+like switching to windows and launching applications.")
+    (license license:gpl2+)))
-- 
2.5.0

Re: [PATCH 6/6] gnu: Add gnome-shell.

[Thompson, David]

On Wed, Dec 16, 2015 at 9:36 PM, 宋文武 <iyzsong@gmail.com> wrote:
> * gnu/packages/gnome.scm (gnome-shell): New variable.

Woohoo!!!!!

- Dave

Re: [PATCH 6/6] gnu: Add gnome-shell.

[Daniel Pimentel]

On 2015-12-17 00:04, Thompson, David wrote:
> On Wed, Dec 16, 2015 at 9:36 PM, 宋文武 <iyzsong@gmail.com> wrote:
>> * gnu/packages/gnome.scm (gnome-shell): New variable.
> 
> Woohoo!!!!!
> 
> - Dave
Whoohooo²!!!

I'll install :)

Thnaks Guixs!

-- 
Daniel Pimentel (d4n1 3:)

GNOME on GuixSD

[宋文武]

With commit a4df575, we can get a minimal gnome-shell on GuixSD.

Make sure you have elogind and upower-daemon services running,
and add the following packages:

  adwaita-icon-theme, gnome-session, gnome-shell,
  gnome-control-center, gnome-settings-daemon, dbus

to the packages field (to use with the silm login manager) or
user profile (then add 'exec gnome-session' to ~/.xsession).

Please give suggestions :-)

Re: GNOME on GuixSD

[Efraim Flashner]

[-- Attachment #1: Type: text/plain, Size: 823 bytes --]

On Sun, 20 Dec 2015 20:50:01 +0800
iyzsong@member.fsf.org (宋文武) wrote:

> With commit a4df575, we can get a minimal gnome-shell on GuixSD.
> 
> Make sure you have elogind and upower-daemon services running,
> and add the following packages:
> 
>   adwaita-icon-theme, gnome-session, gnome-shell,
>   gnome-control-center, gnome-settings-daemon, dbus
> 
> to the packages field (to use with the silm login manager) or
> user profile (then add 'exec gnome-session' to ~/.xsession).
> 
> Please give suggestions :-)
> 

Does this mean its time to create a gnome metapackage like XFCE has?

-- 
Efraim Flashner   <efraim@flashner.co.il>   אפרים פלשנר
GPG key = A28B F40C 3E55 1372 662D  14F7 41AA E7DC CA3D 8351
Confidentiality cannot be guaranteed on emails sent or received unencrypted

[-- Attachment #2: OpenPGP digital signature --]
[-- Type: application/pgp-signature, Size: 819 bytes --]

Re: GNOME on GuixSD

[宋文武]

Efraim Flashner <efraim@flashner.co.il> writes:

> On Sun, 20 Dec 2015 20:50:01 +0800
> iyzsong@member.fsf.org (宋文武) wrote:
>
>> With commit a4df575, we can get a minimal gnome-shell on GuixSD.
>> 
>> Make sure you have elogind and upower-daemon services running,
>> and add the following packages:
>> 
>>   adwaita-icon-theme, gnome-session, gnome-shell,
>>   gnome-control-center, gnome-settings-daemon, dbus
>> 
>> to the packages field (to use with the silm login manager) or
>> user profile (then add 'exec gnome-session' to ~/.xsession).
>> 
>> Please give suggestions :-)
>> 
>
> Does this mean its time to create a gnome metapackage like XFCE has?
Yes, but some essential packages are still missing, eg: nautilus.

I think the metapackage should include all core GNOME packages as the
‘gnome-core’ from debian:

  https://packages.debian.org/jessie/gnome-core



Also, ludo mention that we can define %gnome-packages as a list instead of
a metapackage, it's more lightweight.  But a list can't be searched and
installed as a normal package by user, so I think a metapackage is
better.

Maybe people could even use GNOME from guix upon other distros?

Re: GNOME on GuixSD

[Ludovic Courtès]

iyzsong@member.fsf.org (宋文武) skribis:

> Also, ludo mention that we can define %gnome-packages as a list instead of
> a metapackage, it's more lightweight.  But a list can't be searched and
> installed as a normal package by user, so I think a metapackage is
> better.

Yeah, a GNOME meta-package may be more convenient.

> Maybe people could even use GNOME from guix upon other distros?

Would there be compatibility issues with the various daemons?  Actually
elogind uses the same DBus interface as systemd, so there shouldn’t be
any problems here, right?

Thanks,
Ludo’.

Re: GNOME on GuixSD

[Thompson, David]

On Sun, Dec 20, 2015 at 7:50 AM, 宋文武 <iyzsong@member.fsf.org> wrote:
> With commit a4df575, we can get a minimal gnome-shell on GuixSD.
>
> Make sure you have elogind and upower-daemon services running,
> and add the following packages:
>
>   adwaita-icon-theme, gnome-session, gnome-shell,
>   gnome-control-center, gnome-settings-daemon, dbus
>
> to the packages field (to use with the silm login manager) or
> user profile (then add 'exec gnome-session' to ~/.xsession).
>
> Please give suggestions :-)

I tried it and... it works! Awesome!

Now, we need the Gnome Tweak Tool so we can change "advanced" things
like the font size which is waaay too big by default.

Thanks for all the effort!  It's like I'm using a "normal" distro again!

 - Dave

Re: GNOME on GuixSD

[Ludovic Courtès]

"Thompson, David" <dthompson2@worcester.edu> skribis:

> Thanks for all the effort!  It's like I'm using a "normal" distro again!

Maybe someday you’ll be able say you’re using a mainstream distro again.
;-)

Ludo’.

Re: GNOME on GuixSD

[Ludovic Courtès]

iyzsong@member.fsf.org (宋文武) skribis:

> With commit a4df575, we can get a minimal gnome-shell on GuixSD.
>
> Make sure you have elogind and upower-daemon services running,
> and add the following packages:
>
>   adwaita-icon-theme, gnome-session, gnome-shell,
>   gnome-control-center, gnome-settings-daemon, dbus
>
> to the packages field (to use with the silm login manager) or
> user profile (then add 'exec gnome-session' to ~/.xsession).
>
> Please give suggestions :-)

What about defining %gnome-packages in (gnu system desktop)?  Then if
someone appends it to %base-packages, they get a ready-to-use GNOME
desktop, no?  (Slim should find the .desktop entry for GNOME.)

Similarly, we should update ‘desktop.tmpl’ to mention %gnome-packages or
whatever it takes to use GNOME.

WDYT?

Thank you for all the work!

Ludo’.

Re:GNOME on GuixSD

[d4n1]

[-- Attachment #1: Type: text/html, Size: 1297 bytes --]

Re: [PATCH 6/6] gnu: Add gnome-shell.

[Luis Felipe López Acevedo]

On 2015-12-16 22:04, Thompson, David wrote:
> On Wed, Dec 16, 2015 at 9:36 PM, 宋文武 <iyzsong@gmail.com> wrote:
>> * gnu/packages/gnome.scm (gnome-shell): New variable.
> 
> Woohoo!!!!!

Awesome! Thanks for the hard work 宋文武 :)

-- 
Luis Felipe López Acevedo
http://sirgazil.bitbucket.org/

Re: [PATCH 6/6] gnu: Add gnome-shell.

[Christopher Allan Webber]

OMG YES

Re: [PATCH 6/6] gnu: Add gnome-shell.

[Ludovic Courtès]

宋文武 <iyzsong@gmail.com> skribis:

> * gnu/packages/gnome.scm (gnome-shell): New variable.

Here we go.  :-)

LGTM!

I concur with the general enthusiasm: thanks for this whole patch
series!

Ludo’.

Re: [PATCH 2/6] gnu: Add colord-gtk.

[Ludovic Courtès]

宋文武 <iyzsong@gmail.com> skribis:

> * gnu/packages/freedesktop.scm (colord-gtk): New variable.

OK!

Ludo’.