nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

services: Export *-service-type and *-configuration. 

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 <ludo@gnu.org>
This commit is contained in:
Tomáš Čech 2016-07-19 15:19:14 +02:00 committed by Ludovic Courtès
parent 427dda54f2
commit 24e964314e
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
12 changed files with 82 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
gnu/services/avahi.scm
View File

@ -26,7 +26,8 @@
#:use-module (gnu packages admin) #:use-module (gnu packages admin)
#:use-module (guix records) #:use-module (guix records)
#:use-module (guix gexp) #:use-module (guix gexp)
#:export (avahi-service #:export (avahi-configuration
avahi-service
avahi-service-type)) avahi-service-type))
;;; Commentary: ;;; Commentary:

6
gnu/services/base.scm
View File

@ -94,11 +94,17 @@
guix-publish-configuration? guix-publish-configuration?
guix-publish-service guix-publish-service
guix-publish-service-type guix-publish-service-type
gpm-configuration
gpm-configuration?
gpm-service-type gpm-service-type
gpm-service gpm-service
urandom-seed-service-type urandom-seed-service-type
urandom-seed-service urandom-seed-service
rngd-configuration
rngd-configuration?
rngd-service-type rngd-service-type
rngd-service rngd-service
pam-limits-service-type pam-limits-service-type

10
gnu/services/databases.scm
View File

@ -27,9 +27,15 @@
#:use-module (guix records) #:use-module (guix records)
#:use-module (guix gexp) #:use-module (guix gexp)
#:use-module (ice-9 match) #:use-module (ice-9 match)
#:export (postgresql-service #:export (postgresql-configuration
postgresql-configuration?
postgresql-service
postgresql-service-type
mysql-service mysql-service
mysql-configuration)) mysql-service-type
mysql-configuration
mysql-configuration?))
;;; Commentary: ;;; Commentary:
;;; ;;;

4
gnu/services/dbus.scm
View File

@ -27,7 +27,9 @@
#:use-module (guix records) #:use-module (guix records)
#:use-module (srfi srfi-1) #:use-module (srfi srfi-1)
#:use-module (ice-9 match) #:use-module (ice-9 match)
#:export (dbus-root-service-type #:export (dbus-configuration
dbus-configuration?
dbus-root-service-type
dbus-service)) dbus-service))
;;; ;;;

31
gnu/services/desktop.scm
View File

@ -45,18 +45,47 @@
#:use-module (guix gexp) #:use-module (guix gexp)
#:use-module (srfi srfi-1) #:use-module (srfi srfi-1)
#:use-module (ice-9 match) #: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
udisks-service-type
colord-service colord-service
geoclue-application geoclue-application
geoclue-configuration
geoclue-configuration?
%standard-geoclue-applications %standard-geoclue-applications
geoclue-service geoclue-service
geoclue-service-type
bluetooth-service bluetooth-service
polkit-configuration
polkit-configuration?
polkit-service polkit-service
polkit-service-type
elogind-configuration elogind-configuration
elogind-configuration?
elogind-service elogind-service
elogind-service-type
gnome-desktop-configuration
gnome-desktop-configuration?
gnome-desktop-service gnome-desktop-service
gnome-desktop-service-type
xfce-desktop-configuration
xfce-desktop-configuration?
xfce-desktop-service xfce-desktop-service
xfce-desktop-service-type
%desktop-services)) %desktop-services))
;;; Commentary: ;;; Commentary:

1
gnu/services/dict.scm
View File

@ -30,6 +30,7 @@
#:use-module (srfi srfi-26) #:use-module (srfi srfi-26)
#:use-module (ice-9 match) #:use-module (ice-9 match)
#:export (dicod-service #:export (dicod-service
dicod-service-type
dicod-configuration dicod-configuration
dicod-database dicod-database
%dicod-database:gcide)) %dicod-database:gcide))

7
gnu/services/lirc.scm
View File

@ -1,6 +1,6 @@
;;; GNU Guix --- Functional package management for GNU ;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2015 Alex Kost <alezost@gmail.com> ;;; Copyright © 2015 Alex Kost <alezost@gmail.com>
;;; Copyright © 2015 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2015, 2016 Ludovic Courtès <ludo@gnu.org>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -24,7 +24,10 @@
#:use-module (guix gexp) #:use-module (guix gexp)
#:use-module (guix records) #:use-module (guix records)
#:use-module (ice-9 match) #:use-module (ice-9 match)
#:export (lirc-service)) #:export (lirc-configuration
lirc-configuation?
lirc-service
lirc-service-type))
;;; Commentary: ;;; Commentary:
;;; ;;;

1
gnu/services/mail.scm
View File

@ -37,6 +37,7 @@
dovecot-configuration-error? dovecot-configuration-error?
dovecot-service dovecot-service
dovecot-service-type
dovecot-configuration dovecot-configuration
opaque-dovecot-configuration opaque-dovecot-configuration

15
gnu/services/networking.scm
View File

@ -39,13 +39,28 @@
#:use-module (srfi srfi-26) #:use-module (srfi srfi-26)
#:use-module (ice-9 match) #:use-module (ice-9 match)
#:export (%facebook-host-aliases #:export (%facebook-host-aliases
static-networking
static-networking-service static-networking-service
static-networking-service-type
dhcp-client-service dhcp-client-service
%ntp-servers %ntp-servers
ntp-configuration
ntp-configuration?
ntp-service ntp-service
ntp-service-type
tor-configuration
tor-configuration?
tor-hidden-service tor-hidden-service
tor-service tor-service
tor-service-type
bitlbee-configuration
bitlbee-configuration?
bitlbee-service bitlbee-service
bitlbee-service-type
wicd-service wicd-service
network-manager-service network-manager-service
connman-service)) connman-service))

5
gnu/services/ssh.scm
View File

@ -25,7 +25,10 @@
#:use-module (guix gexp) #:use-module (guix gexp)
#:use-module (guix records) #:use-module (guix records)
#:use-module (srfi srfi-26) #:use-module (srfi srfi-26)
#:export (lsh-service #:export (lsh-configuration
lsh-configuration?
lsh-service
lsh-service-type
dropbear-configuration dropbear-configuration
dropbear-configuration? dropbear-configuration?

7
gnu/services/web.scm
View File

@ -1,6 +1,6 @@
;;; GNU Guix --- Functional package management for GNU ;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2015 David Thompson <davet@gnu.org> ;;; Copyright © 2015 David Thompson <davet@gnu.org>
;;; Copyright © 2015 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2015, 2016 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2016 ng0 <ng0@we.make.ritual.n0.is> ;;; Copyright © 2016 ng0 <ng0@we.make.ritual.n0.is>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
@ -27,7 +27,10 @@
#:use-module (guix records) #:use-module (guix records)
#:use-module (guix gexp) #:use-module (guix gexp)
#:use-module (ice-9 match) #:use-module (ice-9 match)
#:export (nginx-service)) #:export (nginx-configuration
nginx-configuration?
nginx-service
nginx-service-type))
;;; Commentary: ;;; Commentary:
;;; ;;;

2
gnu/services/xorg.scm
View File

@ -48,6 +48,8 @@
slim-service-type slim-service-type
slim-service slim-service
screen-locker
screen-locker?
screen-locker-service-type screen-locker-service-type
screen-locker-service)) screen-locker-service))