Use lefty cursor on desktop

1 files changed, 17 insertions, 18 deletions

diff --git a/guix/home.scm b/guix/home.scm
index fcdc8fd..f865806 100644
--- a/guix/home.scm
+++ b/guix/home.scm
@@ -2,7 +2,6 @@
              (gnu home services)
              (gnu home services desktop)
              (gnu home services gnupg)
-             (gnu home services mcron)
              (gnu home services shells)
              (gnu home services ssh)
              (gnu packages)
@@ -21,19 +20,22 @@
                                      (replace "gtkmm" gtkmm-3))))
             "gui")
       (specifications->packages
-        '("aerc" "isync" "mu" "nheko" "weechat" "weechat-wee-slack"
-          "arandr" "libreoffice" "python-ueberzug" "rxvt-unicode" "scrot"
+        '("aerc" "dante" "isync" "mu"
           "audacious" "ffmpeg" "mediainfo" "mpv" "simplescreenrecorder"
-          "awesome" "copyq" "dbus" "keynav" "sx" "xdg-utils" "xkill" "xrdb"
+          "awesome" "dbus" "keynav" "sx" "xdg-utils" "xkill"
           "bastet" "extremetuxracer" "gnujump" "hedgewars" "kiki" "neverball"
-          "dico" "icecat" "liferea" "tipp10" "w3m" "yt-dlp"
-          "font-google-noto" "font-latin-modern" "hicolor-icon-theme" "qt5ct"
+          "copyq" "pavucontrol" "playerctl" "pulsemixer" "xclip" "xrandr"
+          "dico" "man-pages" "man-pages-posix"
+          "font-google-noto" "font-google-noto-emoji" "font-latin-modern"
           "gcc-toolchain" "make" "python" "texlive" "zig"
           "gimp" "imv" "imagemagick" "zathura" "zathura-pdf-poppler"
           "git" "git:send-email" "git-lfs"
           "gnupg" "pinentry" "nss-certs" "oath-toolkit"
-          "ncdu" "ncurses" "stow" "units" "unzip"
-          "pavucontrol" "playerctl" "pulsemixer"))))
+          "hackneyed-x11-cursors" "hicolor-icon-theme"
+          "icecat" "w3m" "yt-dlp"
+          "libreoffice" "python-ueberzug" "rxvt-unicode" "scrot"
+          "nheko" "senpai" "weechat" "weechat-wee-slack"
+          "ncdu" "ncurses" "stow" "units" "unrar-free" "unzip"))))
   (services
     (list (service home-bash-service-type
                    (home-bash-configuration
@@ -55,13 +57,15 @@
               ("GTK_IM_MODULE" . "ibus")
               ("GUIX_GTK2_IM_MODULE_FILE" . "/run/current-system/profile/lib/gtk-2.0/2.10.0/immodules-gtk2.cache")
               ("GUIX_GTK3_IM_MODULE_FILE" . "/run/current-system/profile/lib/gtk-3.0/3.0.0/immodules-gtk3.cache")
-              ("XMODIFIERS" . "@im=ibus")
               ("QT_IM_MODULE" . "ibus")
-              ("QT_QPA_PLATFORMTHEME" . "qt5ct")))
+              ("XMODIFIERS" . "@im=ibus")
+              ("XCURSOR_SIZE" . "28")
+              ("XCURSOR_THEME" . "LHackneyed")))
           (service home-files-service-type
-                   `((".dico" ,(local-file "dico"))))
+                   `((".dico" ,(local-file "dico"))
+                     (".icons/default/index.theme" ,(local-file "cursor.ini"))))
           (service home-xdg-configuration-files-service-type
-                   `(("sx/sxrc" ,(local-file "sxrc"))))
+                   `(("gtk-3.0/settings.ini" ,(local-file "gtk3.ini"))))
           (service home-dbus-service-type)
           (service home-openssh-service-type
                    (home-openssh-configuration
@@ -86,9 +90,4 @@
                        (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))
-                                        (lambda ()
-                                          (system* "mbsync" "--all"))))))))))
+                     (ssh-support? #t))))))