1 files changed, 95 insertions, 0 deletions

diff --git a/src/jd/features/networking.scm b/src/jd/features/networking.scm
new file mode 100644
index 0000000..74f8085
--- /dev/null
+++ b/src/jd/features/networking.scm
@@ -0,0 +1,95 @@
+(define-module (jd features networking)
+  #:use-module (rde features)
+  #:use-module (rde predicates)
+
+  #:use-module (gnu services)
+  #:use-module (gnu home services)
+  #:use-module (gnu home services shepherd)
+  #:use-module (rde home services i2p)
+  #:use-module (gnu services networking)
+  #:use-module (gnu services dbus)
+  #:use-module (gnu system nss)
+  ;; #:use-module (rde system services networking)
+  #:use-module (rde system services accounts)
+
+  #:use-module (gnu packages i2p)
+  #:use-module (gnu packages networking)
+  #:use-module (gnu packages ssh)
+  #:use-module (gnu packages gnome)
+  #:use-module (rde packages)
+
+  #:use-module (guix gexp)
+
+  #:export (feature-networking*))
+
+(define* (feature-networking*
+          #:key
+          (iwd-autoconnect? #t)
+          (network-manager network-manager)
+          (network-manager-applet network-manager-applet)
+          (network-manager-vpn-plugins '())
+          mdns?)
+  "Configure iwd and everything."
+  (ensure-pred file-like? network-manager)
+  (ensure-pred file-like? network-manager-applet)
+
+  (define f-name 'networking)
+  (define (get-home-services config)
+
+    (list
+     (simple-service 'network-manager-applet-package
+                     home-profile-service-type
+                     (list network-manager-applet))
+     ;; TODO: Disable nm-applet notification by default
+     ;; gsettings set org.gnome.nm-applet disable-connected-notifications true
+     (simple-service
+      'networking-nm-applet-shepherd-service
+      home-shepherd-service-type
+      (list
+       (shepherd-service
+        (provision '(nm-applet))
+        (requirement '(dbus))
+        (stop  #~(make-kill-destructor))
+        (start #~(make-forkexec-constructor
+                  (list #$(file-append network-manager-applet "/bin/nm-applet")
+                        "--indicator")
+                  #:log-file (string-append
+                              (getenv "XDG_STATE_HOME") "/log"
+                              "/nm-applet.log"))))))))
+  (define polkit-network-manager
+    (file-union
+     "polkit-network-manager"
+     `(("share/polkit-1/rules.d/50-org.freedesktop.NetworkManager.rules"
+        ,(plain-file
+          "wheel.rules"
+          "polkit.addRule(function(action, subject) {
+    if (action.id.indexOf(\"org.freedesktop.NetworkManager.\") == 0 && subject.isInGroup(\"plugdev\")) {
+        return polkit.Result.YES;
+    }
+});
+")))))
+
+  (define (get-system-services config)
+    (list
+     (service network-manager-service-type
+              (network-manager-configuration
+               (network-manager network-manager)
+               (vpn-plugins network-manager-vpn-plugins)
+               (shepherd-requirement '(iwd))))
+     (service (@@ (rde system services networking) iwd-service-type)
+              ((@@ (rde system services networking) iwd-configuration)
+               (main-conf
+                `((Settings ((AutoConnect . ,iwd-autoconnect?)))))))
+     (service modem-manager-service-type)
+     (service usb-modeswitch-service-type)
+     (simple-service 'polkit-network-manager polkit-service-type (list polkit-network-manager))))
+
+  (feature
+   (name f-name)
+   (values `((,f-name . #t)
+             ,@(if mdns?
+                   `((name-service . ,%mdns-host-lookup-nss)
+                     (mdns . #t))
+                   '())))
+   (home-services-getter get-home-services)
+   (system-services-getter get-system-services)))