[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

01/01: services: network-manager: Use record for configuration.

From: ???
Subject: 01/01: services: network-manager: Use record for configuration.
Date: Fri, 20 Jan 2017 13:46:46 +0000 (UTC)

iyzsong pushed a commit to branch master
in repository guix.

commit b726096bc5fcef1b96554c679b81a34d49265f9c
Author: Christopher Baines <address@hidden>
Date:   Fri Jan 20 21:43:53 2017 +0800

    services: network-manager: Use record for configuration.
    * gnu/services/network-manager.scm (<network-manager-configuration>): New
    record type.
    (network-manager-shpeherd-service): Change to use the
    network-manager-configuration record, rather than a package.  Generate a
    simple configuration file from the network-manager-configuration record.
    (network-manager-service-type): Update extensions to take the
    network-manager-configuration rather than a package.
    (network-manager-service): Remove function, the network-manager-service-type
    can be used instead, and this avoids keeping the function signature and 
    coresponding to the service type in sync.
    * doc/guix.texi (Networking Services): Remove documentation for the removed
    network-manager-service procedure, and add documentation of the
    network-manager-service-type variable and network-manager-configuration
    Signed-off-by: 宋文武 <address@hidden>
 doc/guix.texi               |   40 +++++++++++++++++++---
 gnu/services/networking.scm |   77 ++++++++++++++++++++++++++++---------------
 2 files changed, 85 insertions(+), 32 deletions(-)

diff --git a/doc/guix.texi b/doc/guix.texi
index 7cd9cd0..1f0bd75 100644
--- a/doc/guix.texi
+++ b/doc/guix.texi
@@ -8758,11 +8758,41 @@ and @command{wicd-curses} user interfaces.
 @end deffn
 @cindex NetworkManager
address@hidden {Scheme Procedure} network-manager-service @
-       [#:network-manager @var{network-manager}]
-Return a service that runs NetworkManager, a network connection manager
-attempting to keep network connectivity active when available.
address@hidden deffn
address@hidden {Scheme Variable} network-manager-service-type
+This is the service type for the
address@hidden://, NetworkManager}
+service. The value for this service type is a
address@hidden record.
address@hidden defvr
address@hidden {Data Type} network-manager-configuration
+Data type representing the configuration of NetworkManager.
address@hidden @asis
address@hidden @code{network-manager} (default: @code{network-manager})
+The NetworkManager package to use.
address@hidden @code{dns} (default: @code{"default"})
+Processing mode for DNS, which affects how NetworkManager uses the
address@hidden configuration file.
address@hidden @samp
address@hidden default
+NetworkManager will update @code{resolv.conf} to reflect the nameservers
+provided by currently active connections.
address@hidden dnsmasq
+NetworkManager will run @code{dnsmasq} as a local caching nameserver,
+using a "split DNS" configuration if you are connected to a VPN, and
+then update @code{resolv.conf} to point to the local nameserver.
address@hidden none
+NetworkManager will not modify @code{resolv.conf}.
address@hidden table
address@hidden table
address@hidden deftp
 @cindex Connman
 @deffn {Scheme Procedure} connman-service @
diff --git a/gnu/services/networking.scm b/gnu/services/networking.scm
index ac011f1..8f136f0 100644
--- a/gnu/services/networking.scm
+++ b/gnu/services/networking.scm
@@ -64,7 +64,12 @@
-            network-manager-service
+            network-manager-configuration
+            network-manager-configuration?
+            network-manager-configuration-dns
+            network-manager-service-type
@@ -679,40 +684,58 @@ and @command{wicd-curses} user interfaces."
 ;;; NetworkManager
+(define-record-type* <network-manager-configuration>
+  network-manager-configuration make-network-manager-configuration
+  network-manager-configuration?
+  (network-manager network-manager-configuration-network-manager
+                   (default network-manager))
+  (dns network-manager-configuration-dns
+       (default "default")))
 (define %network-manager-activation
   ;; Activation gexp for NetworkManager.
       (use-modules (guix build utils))
       (mkdir-p "/etc/NetworkManager/system-connections")))
-(define (network-manager-shepherd-service network-manager)
-  "Return a shepherd service for NETWORK-MANAGER."
-  (list (shepherd-service
-         (documentation "Run the NetworkManager.")
-         (provision '(networking))
-         (requirement '(user-processes dbus-system wpa-supplicant loopback))
-         (start #~(make-forkexec-constructor
-                   (list (string-append #$network-manager
-                                        "/sbin/NetworkManager")
-                         "--no-daemon")))
-         (stop #~(make-kill-destructor)))))
+(define network-manager-shepherd-service
+  (match-lambda
+    (($ <network-manager-configuration> network-manager dns)
+     (let
+         ((conf (plain-file "NetworkManager.conf"
+                            (string-append "
+dns=" dns "
+     (list (shepherd-service
+            (documentation "Run the NetworkManager.")
+            (provision '(networking))
+            (requirement '(user-processes dbus-system wpa-supplicant loopback))
+            (start #~(make-forkexec-constructor
+                      (list (string-append #$network-manager
+                                           "/sbin/NetworkManager")
+                            (string-append "--config=" #$conf)
+                            "--no-daemon")))
+            (stop #~(make-kill-destructor))))))))
 (define network-manager-service-type
-  (service-type (name 'network-manager)
-                (extensions
-                 (list (service-extension shepherd-root-service-type
-                                          network-manager-shepherd-service)
-                       (service-extension dbus-root-service-type list)
-                       (service-extension polkit-service-type list)
-                       (service-extension activation-service-type
-                                          (const %network-manager-activation))
-                       ;; Add network-manager to the system profile.
-                       (service-extension profile-service-type list)))))
-(define* (network-manager-service #:key (network-manager network-manager))
-  "Return a service that runs NetworkManager, a network connection manager
-that attempting to keep active network connectivity when available."
-  (service network-manager-service-type network-manager))
+  (let
+      ((config->package
+        (match-lambda
+         (($ <network-manager-configuration> network-manager)
+          (list network-manager)))))
+    (service-type
+     (name 'network-manager)
+     (extensions
+      (list (service-extension shepherd-root-service-type
+                               network-manager-shepherd-service)
+            (service-extension dbus-root-service-type config->package)
+            (service-extension polkit-service-type config->package)
+            (service-extension activation-service-type
+                               (const %network-manager-activation))
+            ;; Add network-manager to the system profile.
+            (service-extension profile-service-type config->package))))))

reply via email to

[Prev in Thread] Current Thread [Next in Thread]