Add polkit rules for network-manager

1 files changed, 15 insertions, 1 deletions

diff --git a/src/jd/features/networking.scm b/src/jd/features/networking.scm
index 59eeb90..74f8085 100644
--- a/src/jd/features/networking.scm
+++ b/src/jd/features/networking.scm
@@ -7,6 +7,7 @@
   #: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)
@@ -55,6 +56,18 @@
                   #: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
@@ -68,7 +81,8 @@
                (main-conf
                 `((Settings ((AutoConnect . ,iwd-autoconnect?)))))))
      (service modem-manager-service-type)
-     (service usb-modeswitch-service-type)))
+     (service usb-modeswitch-service-type)
+     (simple-service 'polkit-network-manager polkit-service-type (list polkit-network-manager))))
 
   (feature
    (name f-name)