~ruther/guix-local

24e964314ecfd29b8c592bfb7be923e8f740574c — Tomáš Čech 9 years ago 427dda5
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>
M gnu/services/avahi.scm => gnu/services/avahi.scm +2 -1
@@ 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:

M gnu/services/base.scm => gnu/services/base.scm +6 -0
@@ 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

M gnu/services/databases.scm => gnu/services/databases.scm +8 -2
@@ 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:
;;;

M gnu/services/dbus.scm => gnu/services/dbus.scm +3 -1
@@ 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))

;;;

M gnu/services/desktop.scm => gnu/services/desktop.scm +30 -1
@@ 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:

M gnu/services/dict.scm => gnu/services/dict.scm +1 -0
@@ 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))

M gnu/services/lirc.scm => gnu/services/lirc.scm +5 -2
@@ 1,6 1,6 @@
;;; GNU Guix --- Functional package management for GNU
;;; 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.
;;;


@@ 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:
;;;

M gnu/services/mail.scm => gnu/services/mail.scm +1 -0
@@ 37,6 37,7 @@
            dovecot-configuration-error?

            dovecot-service
            dovecot-service-type
            dovecot-configuration
            opaque-dovecot-configuration


M gnu/services/networking.scm => gnu/services/networking.scm +15 -0
@@ 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))

M gnu/services/ssh.scm => gnu/services/ssh.scm +4 -1
@@ 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?

M gnu/services/web.scm => gnu/services/web.scm +5 -2
@@ 1,6 1,6 @@
;;; GNU Guix --- Functional package management for GNU
;;; 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>
;;;
;;; 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:
;;;

M gnu/services/xorg.scm => gnu/services/xorg.scm +2 -0
@@ 48,6 48,8 @@
            slim-service-type
            slim-service

            screen-locker
            screen-locker?
            screen-locker-service-type
            screen-locker-service))