Use lefty cursor on desktop

4 files changed, 26 insertions, 20 deletions

diff --git a/guix/cursor.ini b/guix/cursor.ini
new file mode 100644
index 0000000..02a89c3
--- /dev/null
+++ b/guix/cursor.ini
@@ -0,0 +1,2 @@
+[Icon Theme]
+inherits=LHackneyed
diff --git a/guix/gtk3.ini b/guix/gtk3.ini
new file mode 100644
index 0000000..ad38c7c
--- /dev/null
+++ b/guix/gtk3.ini
@@ -0,0 +1,5 @@
+[Settings]
+gtk-cursor-theme-name = LHackneyed
+gtk-cursor-theme-size = 28
+gtk-font-name = Latin Modern Sans 12
+gtk-key-theme-name = Emacs
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))))))
diff --git a/guix/system.scm b/guix/system.scm
index d81918a..5c4428e 100644
--- a/guix/system.scm
+++ b/guix/system.scm
@@ -22,7 +22,7 @@
       (specifications->packages
         '("bash-completion" "curl" "dconf" "fd" "file" "htop"
           "ibus" "ibus-table" "ibus-table-others" "ibus-libhangul" "nss-certs"
-          "ranger" "ripgrep" "rsync" "udevil" "vim-full" "virt-manager"))
+          "ranger" "ripgrep" "rsync" "udevil" "vim-full"))
       %base-packages))
   (setuid-programs
     (cons*
@@ -59,7 +59,7 @@
                                       (gateway "192.168.0.1"))))
                             (name-servers
                               '("147.182.243.49" ; ns4.ca.us
-                                "104.248.14.193"))))) ; ns2.nj.us
+                                "103.1.206.179"))))) ; ns2.au
            (service avahi-service-type)
            (service udisks-service-type)
            (service elogind-service-type)