Change channels and combine home with system config.

2 files changed, 50 insertions, 50 deletions

diff --git a/guix/jd/desktops/base.scm b/guix/jd/desktops/base.scm
index 079d57e..2cd98fd 100644
--- a/guix/jd/desktops/base.scm
+++ b/guix/jd/desktops/base.scm
@@ -22,7 +22,7 @@
 
 (use-service-modules cups desktop networking ssh xorg
                      docker virtualization pm sound dbus
-                     nix sddm)
+                     nix sddm guix)
 
 (define-public %jd-base-home-services
   (list
@@ -119,37 +119,18 @@
 
 (define-public %jd-base-services
   (cons*
-   (service openssh-service-type)
+   (service guix-home-service-type
+            `(("jakub" ,(home-environment
+                         (services %jd-base-home-services)))))
 
-   ;; (set-xorg-configuration
-   ;;  (xorg-configuration                      ;for Xorg
-   ;;   (keyboard-layout (keyboard-layout "pl"))))
-   ;; (service greetd-service-type
-   ;;  (greetd-configuration
-   ;;   ;; We need to give the greeter user these permissions, otherwise
-   ;;   ;; Sway will crash on launch.
-   ;;   (greeter-supplementary-groups (list "video" "input"))
-   ;;   (terminals
-   ;;    (list (greetd-terminal-configuration
-   ;;           (terminal-vt "1")
-   ;;           (terminal-switch #t))
-   ;;       (greetd-terminal-configuration
-   ;;        (terminal-vt "2"))
-   ;;          (greetd-terminal-configuration
-   ;;        (terminal-vt "3"))
-   ;;       (greetd-terminal-configuration
-   ;;        (terminal-vt "4"))
-   ;;       (greetd-terminal-configuration
-   ;;        (terminal-vt "5"))
-   ;;       (greetd-terminal-configuration
-   ;;        (terminal-vt "6"))))))
+   (service openssh-service-type)
 
    (service console-font-service-type
-                 (map (lambda (tty)
-                        (cons tty (file-append
-                                   font-terminus
-                                   "/share/consolefonts/ter-122n.psf.gz")))
-                      '("tty1" "tty2" "tty3" "tty4" "tty5" "tty6")))
+            (map (lambda (tty)
+                   (cons tty (file-append
+                              font-terminus
+                              "/share/consolefonts/ter-122n.psf.gz")))
+                 '("tty1" "tty2" "tty3" "tty4" "tty5" "tty6")))
 
    (service screen-locker-service-type
             (screen-locker-configuration
@@ -202,26 +183,26 @@
    
    ;; %desktop-services
    (modify-services %desktop-services
-     (guix-service-type config => (guix-configuration
-                                   (inherit config)
-                                   (substitute-urls
-                                    (append (list "https://substitutes.nonguix.org")
-                                            %default-substitute-urls))
-                                   (authorized-keys
-                                    (append (list (plain-file "non-guix.pub"
-                                                              "(public-key (ecc (curve Ed25519) (q #C1FD53E5D4CE971933EC50C9F307AE2171A2D3B52C804642A7A35F84F3A4EA98#)))"))
-                                            %default-authorized-guix-keys))))
-     (delete network-manager-service-type)
-     ;; (delete mingetty-service-type)
-     (delete console-font-service-type)
-
-     (delete pulseaudio-service-type)
-     (delete alsa-service-type)
-     (delete (if (string-prefix? "x86_64"
-                                 (or (%current-target-system)
-                                     (%current-system)))
-                 gdm-service-type
-                 sddm-service-type)))))
+                    (guix-service-type config => (guix-configuration
+                                                  (inherit config)
+                                                  (substitute-urls
+                                                   (append (list "https://substitutes.nonguix.org")
+                                                           %default-substitute-urls))
+                                                  (authorized-keys
+                                                   (append (list (plain-file "non-guix.pub"
+                                                                             "(public-key (ecc (curve Ed25519) (q #C1FD53E5D4CE971933EC50C9F307AE2171A2D3B52C804642A7A35F84F3A4EA98#)))"))
+                                                           %default-authorized-guix-keys))))
+                    (delete network-manager-service-type)
+                    ;; (delete mingetty-service-type)
+                    (delete console-font-service-type)
+
+                    (delete pulseaudio-service-type)
+                    (delete alsa-service-type)
+                    (delete (if (string-prefix? "x86_64"
+                                                (or (%current-target-system)
+                                                    (%current-system)))
+                                gdm-service-type
+                                sddm-service-type)))))
 
 ;; Odin is a base for my operating systems
 (define-public odin-free
diff --git a/guix/jd/home/services/desktop.scm b/guix/jd/home/services/desktop.scm
index 32c8059..d5aa414 100644
--- a/guix/jd/home/services/desktop.scm
+++ b/guix/jd/home/services/desktop.scm
@@ -13,6 +13,7 @@
   #:use-module (gnu home services sound)
   #:use-module (gnu home services xdg)
   #:use-module (gnu home services gnupg)
+  #:use-module (gnu home services dotfiles)
   #:use-module (guix gexp)
 
   #:use-module (jd packages fonts))
@@ -33,6 +34,9 @@
                                "wlsunset"
                                "grimshot"
                                "swappy"
+
+                               "htop"
+                               "distrobox"
                               
                                "udiskie"
                                ;; rest
@@ -121,7 +125,7 @@
   `(("GTK_THEME" . "Adwaita:dark")
     ("VISUAL" . "emacsclient")
     ("EDITOR" . "emacsclient")
-    ("PATH" . "$HOME/.bin:$HOME/.npm-global/bin:$PATH")
+    ("PATH" . "$HOME/.bin:$HOME/.local/bin:$HOME/.npm-global/bin:$PATH")
     ("XDG_DATA_DIRS" . "$XDG_DATA_DIRS:$HOME/.local/share/flatpak/exports/share")
     ("SBCL_HOME" . "/run/current-system/profile/lib/sbcl/")
 
@@ -161,6 +165,19 @@
    (default-cache-ttl-ssh 28800)
    (max-cache-ttl-ssh 28800)))
 
+(define (desktop-gpg-agent-service config)
+  (home-gpg-agent-configuration
+   (pinentry-program
+    (file-append pinentry-gnome3 "/bin/pinentry-gnome3"))
+   (ssh-support? #t)
+   (default-cache-ttl 28800)
+   (max-cache-ttl 28800)
+   (default-cache-ttl-ssh 28800)
+   (max-cache-ttl-ssh 28800)))
+
+(define (desktop-dotfiles-service config)
+  (home-dotfiles-configuration
+   (directories '("./files"))))
 
 (define-public home-desktop-service-type
   (service-type (name 'home-desktop)
@@ -174,6 +191,8 @@
                                                      desktop-xdg-mime-applications-service)
                                   (service-extension home-gpg-agent-service-type
                                                      desktop-gpg-agent-service)
+                                  (service-extension home-dotfiles-service-type
+                                                     desktop-dotfiles-service)
                                   ))
                 (default-value #f)
                 (description "Runs desktop services.")))