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/dico       |  1 +
 guix/home.scm   | 34 +++++++++++++++++++++++-----------
 guix/sxrc       |  5 +++++
 guix/system.scm |  3 ++-
 4 files changed, 31 insertions(+), 12 deletions(-)
 create mode 100644 guix/dico
 create mode 100755 guix/sxrc

diff --git a/guix/dico b/guix/dico
new file mode 100644
index 0000000..7bdddfd
--- /dev/null
+++ b/guix/dico
@@ -0,0 +1 @@
+open localhost
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))
diff --git a/guix/sxrc b/guix/sxrc
new file mode 100755
index 0000000..4cab300
--- /dev/null
+++ b/guix/sxrc
@@ -0,0 +1,5 @@
+#!/bin/sh
+copyq &
+keynav &
+ibus-daemon -drx
+exec dbus-run-session -- awesome
diff --git a/guix/system.scm b/guix/system.scm
index f8c329d..8d280c0 100644
--- a/guix/system.scm
+++ b/guix/system.scm
@@ -3,7 +3,7 @@
 
 (use-modules (gnu)
              (gnu system setuid))
-(use-service-modules avahi desktop dns networking nix sound ssh xorg)
+(use-service-modules avahi desktop dict dns networking nix sound ssh xorg)
 
 (operating-system
   (locale "en_DK.utf8")
@@ -67,6 +67,7 @@
            (service x11-socket-directory-service-type)
            (service pulseaudio-service-type)
            (service alsa-service-type)
+           (service dicod-service-type)
            (service nix-service-type)
            %base-services))
   (kernel-arguments (cons "modprobe.blacklist=pcspkr"
-- 
cgit 1.4.1