From 1564da721dddc5ba987017d6aa20f08286a35639 Mon Sep 17 00:00:00 2001
From: Nguyễn Gia Phong <cnx@loang.net>
Date: Mon, 7 Aug 2023 18:04:25 +0900
Subject: Set up local dict for desktop

---
 guix/home.scm | 34 +++++++++++++++++++++++-----------
 1 file changed, 23 insertions(+), 11 deletions(-)

(limited to 'guix/home.scm')

diff --git a/guix/home.scm b/guix/home.scm
index c0bc345..df3ab72 100644
--- a/guix/home.scm
+++ b/guix/home.scm
@@ -1,6 +1,7 @@
 (use-modules (gnu home)
              (gnu home services)
              (gnu home services desktop)
+             (gnu home services gnupg)
              (gnu home services mcron)
              (gnu home services shells)
              (gnu home services ssh)
@@ -25,12 +26,12 @@
           "audacious" "ffmpeg" "mediainfo" "mpv" "simplescreenrecorder"
           "awesome" "copyq" "dbus" "keynav" "scrot" "sx" "xdg-utils" "xrdb"
           "bastet" "extremetuxracer" "gnujump" "hedgewars" "kiki" "neverball"
+          "dico" "icecat" "liferea" "w3m" "yt-dlp"
           "font-google-noto" "font-latin-modern" "hicolor-icon-theme" "qt5ct"
           "gcc-toolchain" "python" "texlive" "zig"
           "gimp" "imv" "imagemagick" "zathura" "zathura-pdf-poppler"
           "git" "git:send-email" "git-lfs"
           "gnupg" "pinentry" "nss-certs" "oath-toolkit"
-          "icecat" "liferea" "w3m" "yt-dlp"
           "ncdu" "ncurses" "stow" "units" "unzip"
           "pavucontrol" "playerctl" "pulsemixer"))))
   (services
@@ -56,19 +57,30 @@
               ("XMODIFIERS" . "@im=ibus")
               ("QT_IM_MODULE" . "ibus")
               ("QT_QPA_PLATFORMTHEME" . "qt5ct")))
+          (service home-files-service-type
+                   `((".dico" ,(local-file "dico"))))
+          (service home-xdg-configuration-files-service-type
+                   `(("sx/sxrc" ,(local-file "sxrc"))))
           (service home-dbus-service-type)
           (service home-openssh-service-type
                    (home-openssh-configuration
-                    (hosts
-                     (list (openssh-host (name "loang")
-                                         (host-name "loang.net")
-                                         (user "cnx")
-                                         (port 2211))
-                           (openssh-host (name "rack")
-                                         (host-name "10.20.18.56")
-                                         (user "cnx")
-                                         (port 4071))))
-                    (authorized-keys (list (local-file "cnx.pub")))))
+                     (hosts (list (openssh-host (name "loang")
+                                                (host-name "loang.net")
+                                                (user "cnx")
+                                                (port 2211))
+                                  (openssh-host (name "rack")
+                                                (host-name "10.20.18.56")
+                                                (user "cnx")
+                                                (port 4071))))
+                     (authorized-keys (list (local-file "cnx.pub")))
+                     (add-keys-to-agent "yes")))
+          (service home-gpg-agent-service-type
+                   (home-gpg-agent-configuration
+                     (pinentry-program
+                       (file-append
+                         (specification->package "pinentry-gtk2")
+                         "/bin/pinentry-gtk-2"))
+                     (ssh-support? #t)))
           (service home-mcron-service-type
                    (home-mcron-configuration
                      (jobs (list #~(job '(next-minute (range 0 60 1))
-- 
cgit 1.4.1