about summary refs log tree commit diff
path: root/guix/home.scm
diff options
context:
space:
mode:
Diffstat (limited to 'guix/home.scm')
-rw-r--r--guix/home.scm40
1 files changed, 40 insertions, 0 deletions
diff --git a/guix/home.scm b/guix/home.scm
new file mode 100644
index 0000000..fb750ab
--- /dev/null
+++ b/guix/home.scm
@@ -0,0 +1,40 @@
+(use-modules (gnu home)
+             (gnu home services)
+             (gnu home services desktop)
+             (gnu home services mcron)
+             (gnu home services shells)
+             (gnu packages)
+             (gnu services)
+             (guix gexp))
+
+(home-environment
+  (packages
+    (specifications->packages
+      '("arandr" "libreoffice" "rxvt-unicode"
+        "audacious" "ffmpeg" "mediainfo" "mpv" "simplescreenrecorder" "yt-dlp"
+        "awesome" "copyq" "dbus" "keynav" "scrot" "sx" "xrdb"
+        "bastet" "hedgewars"
+        "icecat" "isync" "liferea" "mu" "nheko" "transmission:gui" "w3m"
+        "git" "git:send-email" "git-lfs" "rsync" "sshfs" "stow"
+        "font-google-noto" "font-latin-modern"
+        "gcc" "python" "gnupg" "pinentry" "oath-toolkit"
+        "imv" "imagemagick" "zathura" "zathura-pdf-poppler"
+        "pavucontrol" "playerctl" "pulsemixer")))
+  (services
+    (list (service home-bash-service-type
+                   (home-bash-configuration
+                     (bashrc (list (local-file "bashrc" "bashrc")))))
+          (simple-service 'more-home-environment-variables-service
+                          home-environment-variables-service-type
+                          `(("SHELL" . #t)
+                            ("PATH" . "$HOME/.local/bin:$PATH")
+                            ("NIX_PATH" . "$HOME/Sauces")
+                            ("EDITOR" . "vim")
+                            ("GPG_TTY" . "$(tty)")
+                            ("QT_QPA_PLATFORMTHEME" . "qt5ct")))
+          (service home-dbus-service-type)
+          (service home-mcron-service-type
+                   (home-mcron-configuration
+                     (jobs (list #~(job '(next-minute (range 0 60 1))
+                                        (lambda ()
+                                          (system* "mbsync" "--all"))))))))))