export symbols required to use modify-services syntax

export symbols required to use modify-services syntax

[Tomáš Čech]

As I learnt yesterday on IRC, there is syntax modify-services to be used in
system configuration. Unfortunatelly not all the services which configuration
could be changed has exported bindings to do that.

This patchset should address that.

Also note, that `screen-locker' and `static-networking' have inconsistent
naming scheme compared to others. I'd go with `screen-locker-configuration'
and `static-networking-configuration' but my Scheme-fu is weak.

[PATCH 01/12] services: avahi: export avahi-configuration.

[Tomáš Čech]

* gnu/services/avahi.scm: export avahi-configuration.
---
 gnu/services/avahi.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/gnu/services/avahi.scm b/gnu/services/avahi.scm
index 562005c..807cc05 100644
--- a/gnu/services/avahi.scm
+++ b/gnu/services/avahi.scm
@@ -26,7 +26,8 @@
   #:use-module (gnu packages admin)
   #:use-module (guix records)
   #:use-module (guix gexp)
-  #:export (avahi-service
+  #:export (avahi-configuration
+            avahi-service
             avahi-service-type))
 
 ;;; Commentary:
-- 
2.9.0

[PATCH 02/12] services: base: export gpm-configuration and rngd-configuration.

[Tomáš Čech]

* gnu/services/base.scm: export gpm-configuration and
  rngd-configuration.
---
 gnu/services/base.scm | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/gnu/services/base.scm b/gnu/services/base.scm
index c9c2594..7c324b6 100644
--- a/gnu/services/base.scm
+++ b/gnu/services/base.scm
@@ -93,11 +93,15 @@
             guix-publish-configuration?
             guix-publish-service
             guix-publish-service-type
+
+            gpm-configuration
             gpm-service-type
             gpm-service
 
             urandom-seed-service-type
             urandom-seed-service
+
+            rngd-configuration
             rngd-service-type
             rngd-service
 
-- 
2.9.0

[PATCH 03/12] services: databases: export service types and configuration.

[Tomáš Čech]

* gnu/services/databases.scm: export *-service-type and *-configuration.
---
 gnu/services/databases.scm | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/gnu/services/databases.scm b/gnu/services/databases.scm
index e136d1e..6890635 100644
--- a/gnu/services/databases.scm
+++ b/gnu/services/databases.scm
@@ -27,8 +27,12 @@
   #:use-module (guix records)
   #:use-module (guix gexp)
   #:use-module (ice-9 match)
-  #:export (postgresql-service
+  #:export (postgresql-configuration
+            postgresql-service
+            postgresql-service-type
+
             mysql-service
+            mysql-service-type
             mysql-configuration))
 
 ;;; Commentary:
-- 
2.9.0

[PATCH 04/12] services: dbus: export dbus-configuration.

[Tomáš Čech]

* gnu/services/dbus.scm: export dbus-configuration.
---
 gnu/services/dbus.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/gnu/services/dbus.scm b/gnu/services/dbus.scm
index 6ef1356..7c30a2f 100644
--- a/gnu/services/dbus.scm
+++ b/gnu/services/dbus.scm
@@ -27,7 +27,8 @@
   #:use-module (guix records)
   #:use-module (srfi srfi-1)
   #:use-module (ice-9 match)
-  #:export (dbus-root-service-type
+  #:export (dbus-configuration
+            dbus-root-service-type
             dbus-service))
 
 ;;;
-- 
2.9.0

[PATCH 05/12] services: dict: export dicod-service-type.

[Tomáš Čech]

* gnu/services/dict.scm: export dicod-service-type.
---
 gnu/services/dict.scm | 1 +
 1 file changed, 1 insertion(+)

diff --git a/gnu/services/dict.scm b/gnu/services/dict.scm
index 9c06d57..b06922c 100644
--- a/gnu/services/dict.scm
+++ b/gnu/services/dict.scm
@@ -30,6 +30,7 @@
   #:use-module (srfi srfi-26)
   #:use-module (ice-9 match)
   #:export (dicod-service
+            dicod-service-type
             dicod-configuration
             dicod-database
             %dicod-database:gcide))
-- 
2.9.0

[PATCH 06/12] services: lirc: export lirc-configuration and lirc-service-type.

[Tomáš Čech]

* gnu/services/lirc.scm: export lirc-configuration and
  lirc-service-type.
---
 gnu/services/lirc.scm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/gnu/services/lirc.scm b/gnu/services/lirc.scm
index 069084a..7ff751b 100644
--- a/gnu/services/lirc.scm
+++ b/gnu/services/lirc.scm
@@ -24,7 +24,9 @@
   #:use-module (guix gexp)
   #:use-module (guix records)
   #:use-module (ice-9 match)
-  #:export (lirc-service))
+  #:export (lirc-configuration
+            lirc-service
+            lirc-service-type))
 
 ;;; Commentary:
 ;;;
-- 
2.9.0

[PATCH 07/12] services: mail: export dovecot-service-type.

[Tomáš Čech]

* gnu/services/mail.scm: export dovecot-service-type.
---
 gnu/services/mail.scm | 1 +
 1 file changed, 1 insertion(+)

diff --git a/gnu/services/mail.scm b/gnu/services/mail.scm
index 4bd1b96..c252d66 100644
--- a/gnu/services/mail.scm
+++ b/gnu/services/mail.scm
@@ -37,6 +37,7 @@
             dovecot-configuration-error?
 
             dovecot-service
+            dovecot-service-type
             dovecot-configuration
             opaque-dovecot-configuration
 
-- 
2.9.0

[PATCH 08/12] services: web: export nginx-configuration and nginx-service-type.

[Tomáš Čech]

* gnu/services/web.scm: export nginx-configuration and
  nginx-service-type.
---
 gnu/services/web.scm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/gnu/services/web.scm b/gnu/services/web.scm
index 72ef7d4..d95a628 100644
--- a/gnu/services/web.scm
+++ b/gnu/services/web.scm
@@ -27,7 +27,9 @@
   #:use-module (guix records)
   #:use-module (guix gexp)
   #:use-module (ice-9 match)
-  #:export (nginx-service))
+  #:export (nginx-configuration
+            nginx-service
+            nginx-service-type))
 
 ;;; Commentary:
 ;;;
-- 
2.9.0

[PATCH 09/12] services: xorg: export screen-locker.

[Tomáš Čech]

* gnu/services/xorg.scm: export screen-locker.
---
 gnu/services/xorg.scm | 1 +
 1 file changed, 1 insertion(+)

diff --git a/gnu/services/xorg.scm b/gnu/services/xorg.scm
index 44d12a7..89273d4 100644
--- a/gnu/services/xorg.scm
+++ b/gnu/services/xorg.scm
@@ -48,6 +48,7 @@
             slim-service-type
             slim-service
 
+            screen-locker
             screen-locker-service-type
             screen-locker-service))
 
-- 
2.9.0

[PATCH 10/12] services: ssh: export lsh-configuration and lsh-service-type.

[Tomáš Čech]

* gnu/services/ssh.scm: export lsh-configuration and lsh-service-type.
---
 gnu/services/ssh.scm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/gnu/services/ssh.scm b/gnu/services/ssh.scm
index 743b5e3..fe57ac9 100644
--- a/gnu/services/ssh.scm
+++ b/gnu/services/ssh.scm
@@ -25,7 +25,9 @@
   #:use-module (guix gexp)
   #:use-module (guix records)
   #:use-module (srfi srfi-26)
-  #:export (lsh-service
+  #:export (lsh-configuration
+            lsh-service
+            lsh-service-type
 
             dropbear-configuration
             dropbear-configuration?
-- 
2.9.0

[PATCH 11/12] services: desktop: export *-service, *-service-type and *-configuration.

[Tomáš Čech]

* gnu/services/desktop.scm: export *-service, *-service-type
  and *-configuration.
---
 gnu/services/desktop.scm | 15 ++++++++++++++-
 1 file changed, 14 insertions(+), 1 deletion(-)

diff --git a/gnu/services/desktop.scm b/gnu/services/desktop.scm
index 86214a7..daa1ff7 100644
--- a/gnu/services/desktop.scm
+++ b/gnu/services/desktop.scm
@@ -45,18 +45,31 @@
   #:use-module (guix gexp)
   #:use-module (srfi srfi-1)
   #:use-module (ice-9 match)
-  #:export (upower-service
+  #:export (upower-configuration
+            upower-service
+            upower-service-type
+            udisks-configuration
             udisks-service
+            udisks-service-type
             colord-service
             geoclue-application
+            geoclue-configuration
             %standard-geoclue-applications
             geoclue-service
+            geoclue-service-type
             bluetooth-service
+            polkit-configuration
             polkit-service
+            polkit-service-type
             elogind-configuration
             elogind-service
+            elogind-service-type
+            gnome-desktop-configuration
             gnome-desktop-service
+            gnome-desktop-service-type
+            xfce-desktop-configuration
             xfce-desktop-service
+            xfce-desktop-service-type
             %desktop-services))
 
 ;;; Commentary:
-- 
2.9.0

[PATCH 12/12] services: networking: export *-configuration and *-service-type.

[Tomáš Čech]

* gnu/services/networking.scm: export *-configuration
  and *-service-type.
---
 gnu/services/networking.scm | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/gnu/services/networking.scm b/gnu/services/networking.scm
index a77ed3b..8ddceaa 100644
--- a/gnu/services/networking.scm
+++ b/gnu/services/networking.scm
@@ -39,13 +39,21 @@
   #:use-module (srfi srfi-26)
   #:use-module (ice-9 match)
   #:export (%facebook-host-aliases
+            static-networking
             static-networking-service
+            static-networking-service-type
             dhcp-client-service
             %ntp-servers
+            ntp-configuration
             ntp-service
+            ntp-service-type
+            tor-configuration
             tor-hidden-service
             tor-service
+            tor-service-type
+            bitlbee-configuration
             bitlbee-service
+            bitlbee-service-type
             wicd-service
             network-manager-service
             connman-service))
-- 
2.9.0

Re: export symbols required to use modify-services syntax

[Ludovic Courtès]

Tomáš Čech <sleep_walker@gnu.org> skribis:

> As I learnt yesterday on IRC, there is syntax modify-services to be used in
> system configuration. Unfortunatelly not all the services which configuration
> could be changed has exported bindings to do that.
>
> This patchset should address that.

Good idea!  I took the liberty to squash them in a single commit,
because I think it’s single logical change.  I also exported type
predicates (‘lsh-configuration?’, etc.)

Of course this is mildly useful because all these data structures are
still undocumented, but it’s a first step!

> Also note, that `screen-locker' and `static-networking' have inconsistent
> naming scheme compared to others. I'd go with `screen-locker-configuration'
> and `static-networking-configuration' but my Scheme-fu is weak.

Hmm, naming is hard…

Thank you!

Ludo’.