5 files changed, 93 insertions, 4 deletions
diff --git a/oni/home/services/emacs/org-mem.el b/oni/home/services/emacs/org-mem.el
index 55b521f..0c16308 100644
--- a/oni/home/services/emacs/org-mem.el
+++ b/oni/home/services/emacs/org-mem.el
@@ -2,5 +2,9 @@
   :ensure nil
   :init
   (setq org-mem-watch-dirs (list (expand-file-name "~/documents/gtd/"))
-        org-mem-do-sync-with-org-id t)
-  (org-mem-updater-mode))
+        org-mem-do-sync-with-org-id t
+        org-mem-suffixes '(".org"))
+  (org-mem-updater-mode)
+  :config
+  (add-to-list 'org-mem-exclude "health/harp-")
+  (add-to-list 'org-mem-exclude "archive/"))
diff --git a/oni/home/services/freedesktop.scm b/oni/home/services/freedesktop.scm
new file mode 100644
index 0000000..8b29fc6
--- /dev/null
+++ b/oni/home/services/freedesktop.scm
@@ -0,0 +1,45 @@
+(define-module (oni home services freedesktop)
+  #:use-module (gnu services configuration)
+  #:use-module (gnu packages freedesktop)
+  #:use-module (gnu home services)
+  #:use-module (gnu home services utils)
+  #:use-module (gnu home services shepherd)
+  #:use-module (guix packages)
+  #:use-module (guix gexp)
+
+  #:export (home-udiskie-service-type
+            home-udiskie-configuration))
+
+(define-configuration home-udiskie-configuration
+  (package
+    (package udiskie)
+    "Package to use for setting udiskie"))
+
+(define (add-udiskie-packages config)
+  (list (home-udiskie-configuration-package config)))
+
+(define (home-udiskie-shepherd-service config)
+  (list
+   (shepherd-service
+    (documentation "Start udiskie")
+    (provision '(udiskie))
+    (auto-start? #t)
+    (start
+     #~(make-forkexec-constructor
+        (list #$(file-append (home-udiskie-configuration-package config) "/bin/udiskie"))
+        #:log-file (format #f "~a/.local/var/log/udiskie.log" (getenv "HOME"))))
+    (stop #~(make-kill-destructor)))))
+
+(define home-udiskie-service-type
+  (service-type
+   (name 'home-udiskie)
+   (extensions
+    (list (service-extension
+           home-profile-service-type
+           add-udiskie-packages)
+          (service-extension
+           home-shepherd-service-type
+           home-udiskie-shepherd-service)))
+   (compose identity)
+   (default-value (home-udiskie-configuration))
+   (description "Install and configure udiskie.")))
diff --git a/oni/home/services/stumpwm/stumpwm.lisp b/oni/home/services/stumpwm/stumpwm.lisp
index 93484a4..45f4664 100644
--- a/oni/home/services/stumpwm/stumpwm.lisp
+++ b/oni/home/services/stumpwm/stumpwm.lisp
@@ -165,7 +165,7 @@ after it has been unlocked."
   (0 t t :class "teams-for-linux" :create t)
   (0 t t :class "Slack"))
 
-(sb-ext:run-program *shell-program* '("-c" "feh --bg-center ~/pictures/wallpaper/5120x1440/wallhaven-v9ydgl.jpg"))
+(sb-ext:run-program *shell-program* '("-c" "feh --bg-center ~/pictures/wallpaper/5120x1440/Dragonfish-restaurant_by_David_Revoy.jpg"))
 
 (define-key *top-map* (kbd "s-.") "gnext")
 (define-key *top-map* (kbd "s-,") "gprev")
diff --git a/oni/home/services/terminals.scm b/oni/home/services/terminals.scm
new file mode 100644
index 0000000..7a86c60
--- /dev/null
+++ b/oni/home/services/terminals.scm
@@ -0,0 +1,40 @@
+(define-module (oni home services terminals)
+  #:use-module (gnu home services)
+  #:use-module (gnu packages terminals)
+  #:use-module (gnu services configuration)
+  #:use-module (guix gexp)
+  #:use-module (guix packages)
+
+  #:export (home-wezterm-configuration
+            home-wezterm-service-type))
+
+(define-configuration home-wezterm-configuration
+  (package
+    (package wezterm)
+    "Package to use for setting wezterm")
+  (configurations
+   (text-config '())
+   "The rest of the configurations"))
+
+(define (add-wezterm-packages config)
+  (list (home-wezterm-configuration-package config)))
+
+(define (home-wezterm-config-files config)
+  `(("wezterm/wezterm.lua"
+     ,(mixed-text-file
+       "config"
+       (serialize-text-config config (home-wezterm-configuration-configurations config))))))
+
+(define home-wezterm-service-type
+  (service-type
+   (name 'home-wezterm)
+   (extensions
+    (list (service-extension
+           home-profile-service-type
+           add-wezterm-packages)
+          (service-extension
+           home-xdg-configuration-files-service-type
+           home-wezterm-config-files)))
+   (compose identity)
+   (default-value (home-wezterm-configuration))
+   (description "Install and configure wezterm.")))
diff --git a/oni/home/services/zsh.scm b/oni/home/services/zsh.scm
index aa2eb60..582c4dc 100644
--- a/oni/home/services/zsh.scm
+++ b/oni/home/services/zsh.scm
@@ -1,13 +1,13 @@
 (define-module (oni home services zsh)
   #:use-module (ice-9 string-fun)
   #:use-module (gnu services configuration)
+  #:use-module (gnu packages rust-apps)
   #:use-module (gnu packages shellutils)
   #:use-module (gnu home services)
   #:use-module (gnu home services shells)
   #:use-module (gnu home services utils)
   #:use-module (guix packages)
   #:use-module (guix gexp)
-  #:use-module (rosenthal packages rust-apps)
   #:use-module (oni packages zsh)
 
   #:export (home-zsh-autosuggestions-service-type