From 24e964314ecfd29b8c592bfb7be923e8f740574c Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Tom=C3=A1=C5=A1=20=C4=8Cech?= Date: Tue, 19 Jul 2016 15:19:14 +0200 Subject: [PATCH] services: Export *-service-type and *-configuration. MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit This allows users to use 'modify-services' and similar constructs for all these service types. * gnu/services/avahi.scm: export avahi-configuration. * gnu/services/base.scm: export gpm-configuration and rngd-configuration. * gnu/services/databases.scm: export *-service-type and *-configuration. * gnu/services/dbus.scm: export dbus-configuration. * gnu/services/dict.scm: export dicod-service-type. * gnu/services/lirc.scm: export lirc-configuration and lirc-service-type. * gnu/services/mail.scm: export dovecot-service-type. * gnu/services/web.scm: export nginx-configuration and nginx-service-type. * gnu/services/xorg.scm: export screen-locker and screen-locker?. * gnu/services/ssh.scm: export lsh-configuration and lsh-service-type. * gnu/services/desktop.scm: export *-service, *-service-type and *-configuration. * gnu/services/networking.scm: export *-configuration and *-service-type. Co-authored-by: Ludovic Courtès --- gnu/services/avahi.scm | 3 ++- gnu/services/base.scm | 6 ++++++ gnu/services/databases.scm | 10 ++++++++-- gnu/services/dbus.scm | 4 +++- gnu/services/desktop.scm | 31 ++++++++++++++++++++++++++++++- gnu/services/dict.scm | 1 + gnu/services/lirc.scm | 7 +++++-- gnu/services/mail.scm | 1 + gnu/services/networking.scm | 15 +++++++++++++++ gnu/services/ssh.scm | 5 ++++- gnu/services/web.scm | 7 +++++-- gnu/services/xorg.scm | 2 ++ 12 files changed, 82 insertions(+), 10 deletions(-) diff --git a/gnu/services/avahi.scm b/gnu/services/avahi.scm index 562005c22c741d9effa7c01d45e6f8d94362f638..807cc05a226e790fddcdf40c271477a9ea964c09 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: diff --git a/gnu/services/base.scm b/gnu/services/base.scm index 805ba7d12c1784c052cc69da5abe8c39dfb0dfe3..4474ce7996f6dbc7238d9898decf477d4d3da2ac 100644 --- a/gnu/services/base.scm +++ b/gnu/services/base.scm @@ -94,11 +94,17 @@ guix-publish-configuration? guix-publish-service guix-publish-service-type + + gpm-configuration + gpm-configuration? gpm-service-type gpm-service urandom-seed-service-type urandom-seed-service + + rngd-configuration + rngd-configuration? rngd-service-type rngd-service pam-limits-service-type diff --git a/gnu/services/databases.scm b/gnu/services/databases.scm index e136d1e00bdcac21511b5d29f7c17ad80edf063b..86847f8c5063fc1be5daa72e23463ffd456e2689 100644 --- a/gnu/services/databases.scm +++ b/gnu/services/databases.scm @@ -27,9 +27,15 @@ #:use-module (guix records) #:use-module (guix gexp) #:use-module (ice-9 match) - #:export (postgresql-service + #:export (postgresql-configuration + postgresql-configuration? + postgresql-service + postgresql-service-type + mysql-service - mysql-configuration)) + mysql-service-type + mysql-configuration + mysql-configuration?)) ;;; Commentary: ;;; diff --git a/gnu/services/dbus.scm b/gnu/services/dbus.scm index 6ef13568efe0b0a1cdf11a1e49c49efe1c8ab19f..690561cccd39333a0afd482bb697754055c22b43 100644 --- a/gnu/services/dbus.scm +++ b/gnu/services/dbus.scm @@ -27,7 +27,9 @@ #:use-module (guix records) #:use-module (srfi srfi-1) #:use-module (ice-9 match) - #:export (dbus-root-service-type + #:export (dbus-configuration + dbus-configuration? + dbus-root-service-type dbus-service)) ;;; diff --git a/gnu/services/desktop.scm b/gnu/services/desktop.scm index 86214a73bf207630aeff3ec266caeec64cc7e18f..bf21707bfedce57a6adb0a983d3e182979443b4f 100644 --- a/gnu/services/desktop.scm +++ b/gnu/services/desktop.scm @@ -45,18 +45,47 @@ #:use-module (guix gexp) #:use-module (srfi srfi-1) #:use-module (ice-9 match) - #:export (upower-service + #:export (upower-configuration + upower-configuration? + upower-service + upower-service-type + + udisks-configuration + udisks-configuration? udisks-service + udisks-service-type + colord-service + geoclue-application + geoclue-configuration + geoclue-configuration? %standard-geoclue-applications geoclue-service + geoclue-service-type + bluetooth-service + + polkit-configuration + polkit-configuration? polkit-service + polkit-service-type + elogind-configuration + elogind-configuration? elogind-service + elogind-service-type + + gnome-desktop-configuration + gnome-desktop-configuration? gnome-desktop-service + gnome-desktop-service-type + + xfce-desktop-configuration + xfce-desktop-configuration? xfce-desktop-service + xfce-desktop-service-type + %desktop-services)) ;;; Commentary: diff --git a/gnu/services/dict.scm b/gnu/services/dict.scm index 9c06d5713aca5e65f754955d8f57a7c7e295d9e8..b06922c91104a3c63b2c32a80acc47356762006e 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)) diff --git a/gnu/services/lirc.scm b/gnu/services/lirc.scm index 069084abf6681181637f18f93e832e50f2e08919..e95f54280df857ba2750b789991e3d827a7c2f95 100644 --- a/gnu/services/lirc.scm +++ b/gnu/services/lirc.scm @@ -1,6 +1,6 @@ ;;; GNU Guix --- Functional package management for GNU ;;; Copyright © 2015 Alex Kost -;;; Copyright © 2015 Ludovic Courtès +;;; Copyright © 2015, 2016 Ludovic Courtès ;;; ;;; This file is part of GNU Guix. ;;; @@ -24,7 +24,10 @@ #:use-module (guix gexp) #:use-module (guix records) #:use-module (ice-9 match) - #:export (lirc-service)) + #:export (lirc-configuration + lirc-configuation? + lirc-service + lirc-service-type)) ;;; Commentary: ;;; diff --git a/gnu/services/mail.scm b/gnu/services/mail.scm index 4bd1b96b5658762e5a0c49a568e53339d97fc964..c252d669de129d9b546c79766c4a6a14f590b331 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 diff --git a/gnu/services/networking.scm b/gnu/services/networking.scm index a77ed3bb80b68063d9873fcaf85b74f8e6af1af4..71f49a03a5e60fb9f7b04f1e9f6b85d465b2e4dc 100644 --- a/gnu/services/networking.scm +++ b/gnu/services/networking.scm @@ -39,13 +39,28 @@ #: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-configuration? ntp-service + ntp-service-type + + tor-configuration + tor-configuration? tor-hidden-service tor-service + tor-service-type + + bitlbee-configuration + bitlbee-configuration? bitlbee-service + bitlbee-service-type + wicd-service network-manager-service connman-service)) diff --git a/gnu/services/ssh.scm b/gnu/services/ssh.scm index 743b5e3805ae7e1796f61505dd2195891808970c..9a7ea0fb46a2a99ec39e3318f28205929750e025 100644 --- a/gnu/services/ssh.scm +++ b/gnu/services/ssh.scm @@ -25,7 +25,10 @@ #:use-module (guix gexp) #:use-module (guix records) #:use-module (srfi srfi-26) - #:export (lsh-service + #:export (lsh-configuration + lsh-configuration? + lsh-service + lsh-service-type dropbear-configuration dropbear-configuration? diff --git a/gnu/services/web.scm b/gnu/services/web.scm index 72ef7d4050a58be9f71e9c6de4ce88046586293d..d86aab50b56595c45316d38ace7d2f960c0c147f 100644 --- a/gnu/services/web.scm +++ b/gnu/services/web.scm @@ -1,6 +1,6 @@ ;;; GNU Guix --- Functional package management for GNU ;;; Copyright © 2015 David Thompson -;;; Copyright © 2015 Ludovic Courtès +;;; Copyright © 2015, 2016 Ludovic Courtès ;;; Copyright © 2016 ng0 ;;; ;;; This file is part of GNU Guix. @@ -27,7 +27,10 @@ #:use-module (guix records) #:use-module (guix gexp) #:use-module (ice-9 match) - #:export (nginx-service)) + #:export (nginx-configuration + nginx-configuration? + nginx-service + nginx-service-type)) ;;; Commentary: ;;; diff --git a/gnu/services/xorg.scm b/gnu/services/xorg.scm index 44d12a7e77ad03e73e6f343e866bb6ffb3403e64..905c88ff66fbeadc6a58247117bc798163415620 100644 --- a/gnu/services/xorg.scm +++ b/gnu/services/xorg.scm @@ -48,6 +48,8 @@ slim-service-type slim-service + screen-locker + screen-locker? screen-locker-service-type screen-locker-service))