From dae7ceec9603208cab6412534aa84b918071606c Mon Sep 17 00:00:00 2001
From: jdlugosz963 <jdlugosz963@gmail.com>
Date: Fri, 4 Oct 2024 08:50:39 +0200
Subject: Change channels and combine home with system config.

---
 guix/jd/home/services/desktop.scm | 21 ++++++++++++++++++++-
 1 file changed, 20 insertions(+), 1 deletion(-)

(limited to 'guix/jd/home')

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.")))
-- 
cgit v1.2.3