1 files changed, 88 insertions, 54 deletions

diff --git a/guix/jd/desktops/base.scm b/guix/jd/desktops/base.scm
index b9fc286..5f21c47 100644
--- a/guix/jd/desktops/base.scm
+++ b/guix/jd/desktops/base.scm
@@ -1,27 +1,66 @@
 (define-module (jd desktops base)
-  #:use-module (gnu)
   #:use-module (jd packages vpn)
+  #:use-module (jd home-services polkit)
+  #:use-module (jd services polkit)
+  
+  #:use-module (gnu)
+  #:use-module (gnu home)
+  #:use-module (gnu home services)
+  #:use-module (gnu home services desktop)
+  #:use-module (gnu home services gnupg)
+  #:use-module (gnu services)
   #:use-module (nongnu packages linux)
   #:use-module (nongnu system linux-initrd))
 
-(use-package-modules wm gnome)
+(use-package-modules wm gnome gnupg)
 (use-service-modules cups desktop networking ssh xorg
                      docker virtualization pm sound)
 
+
+(define-public %jd-base-home-services
+  (list
+    (service home-redshift-service-type
+             (home-redshift-configuration
+              (location-provider 'manual)
+              (latitude 51.919438)
+              (longitude 19.145136))) ;; Poland
+
+    (simple-service 'some-useful-env-vars-service
+                    home-environment-variables-service-type
+                    `(("GTK_THEME" . "Adwaita:dark")
+                      ("VISUAL" . "emacsclient -a \"emacs -Q\"")
+                      ("EDITOR" . "emacsclient -a \"emacs -Q\"")
+                      ("PATH" . "$HOME/.bin:$HOME/.npm-global/bin:$PATH")
+                      ("XDG_DATA_DIRS" . "$XDG_DATA_DIRS:$HOME/.local/share/flatpak/exports/share")))
+
+    (service home-gpg-agent-service-type
+             (home-gpg-agent-configuration
+              (ssh-support? #t)
+              (default-cache-ttl 28800)
+              (max-cache-ttl 28800)
+              (default-cache-ttl-ssh 28800)
+              (max-cache-ttl-ssh 28800)))
+
+    (service home-polkit-gnome-service-type)))
+
 (define-public %jd-base-user-accounts
-  (cons* (user-account
-          (name "jakub")
-          (comment "Jakub Dlugosz")
-          (group "users")
-          (home-directory "/home/jakub")
-          (supplementary-groups '("wheel"
-                                  "netdev"
-                                  "audio"
-                                  "docker"
-                                  "kvm"
-                                  "libvirt"
-                                  "video")))
-         %base-user-accounts))
+  (cons*
+   (user-account
+    (name "jakub")
+    (comment "Jakub Dlugosz")
+    (group "users")
+    (home-directory "/home/jakub")
+    (supplementary-groups '("wheel"    ;; sudo
+                            "netdev"   ;; network devices
+                            "kvm"
+                            "libvirt"
+                            "tty"
+                            "input"
+                            "docker"
+                            "audio"    ;; control audio devices
+                            "video"    ;; access to webcam
+                            )))
+   %base-user-accounts))
 
 (define-public %jd-base-packages
   (append
@@ -34,49 +73,44 @@
                                "git"
                                "xf86-input-libinput"
                                "intel-vaapi-driver"
-                               "libva-utils"
+                               "libva-utils" ;; vainfo
                                "nss-certs"))
    %base-packages))
 
 (define-public %jd-base-services
-  (append (list
-           (service openssh-service-type)
-
-           (service network-manager-service-type
-                    (network-manager-configuration
-                     (vpn-plugins (list
-                                   network-manager-pptp))))
-           
-           (service bluetooth-service-type
-                    (bluetooth-configuration
-                     (auto-enable? #t)))
-
-           (service docker-service-type)
-           (service libvirt-service-type
-                    (libvirt-configuration
-                     (unix-sock-group "libvirt")
-                     (tls-port "16555")))
-
-           (service sane-service-type)
-           (service cups-service-type
-                    (cups-configuration
-                     (web-interface? #t)))
-
-           (service thermald-service-type)
-           (service tlp-service-type
-                    (tlp-configuration
-                     (cpu-boost-on-ac? #t)
-                     (wifi-pwr-on-bat? #t)))
-
-           (service slim-service-type (slim-configuration
-                                       (display ":0")
-                                       (vt "vt7"))))
-
-          (modify-services %desktop-services
-                           (delete network-manager-service-type)
-                           (delete gdm-service-type))))
-
-;; Odin is a base operating system
+  (cons*
+   (service openssh-service-type)
+
+   (service network-manager-service-type
+            (network-manager-configuration
+             (vpn-plugins (list
+                           network-manager-pptp))))
+   
+   (service bluetooth-service-type
+            (bluetooth-configuration
+             (auto-enable? #t)))
+
+   (service docker-service-type)
+   (service libvirt-service-type
+            (libvirt-configuration
+             (unix-sock-group "libvirt")))
+
+   (service cups-service-type
+            (cups-configuration
+             (web-interface? #t)))
+
+   (service thermald-service-type)
+   (service tlp-service-type
+            (tlp-configuration
+             (cpu-boost-on-ac? #t)
+             (wifi-pwr-on-bat? #t)))
+   
+   polkit-network-manager-service
+   
+   (modify-services %desktop-services
+     (delete network-manager-service-type))))
+
+;; Odin is a base for my operating systems
 (define-public odin-free
   (operating-system
    (locale "en_US.utf8")