From 8ac7ebc54a18ccdc052cb9d470f978fe4b1d7817 Mon Sep 17 00:00:00 2001
From: SqrtMinusOne <thexcloud@gmail.com>
Date: Thu, 23 Jan 2025 12:16:11 +0300
Subject: [PATCH] desktop: deterred-mpd

---
 .config/shepherd/init.scm | 12 ++++++++++++
 .emacs.d/desktop.el       |  4 ++--
 Desktop.org               | 16 ++++++++++++++--
 3 files changed, 28 insertions(+), 4 deletions(-)

diff --git a/.config/shepherd/init.scm b/.config/shepherd/init.scm
index e57ebe1..b05acbd 100644
--- a/.config/shepherd/init.scm
+++ b/.config/shepherd/init.scm
@@ -13,6 +13,16 @@
     #:stop (make-kill-destructor)
     #:requires '(mpd)))
 
+(define deterred-mpd
+  (make <service>
+    #:provides '(deterred-mpd)
+    #:respawn? #t
+    #:start (make-forkexec-constructor
+             '("python" "/home/pavel/10-19 Code/13 Other Projects/13.02 sqrt-data/13.02.R Repos/13.02.R.05 deterred/watchers/deterred-mpd.py"
+               "--db" "/home/pavel/.deterred/database.db"))
+    #:stop (make-kill-destructor)
+    #:requires '(mpd)))
+
 (define mcron
   (make <service>
     #:provides '(mcron)
@@ -128,6 +138,7 @@
 (register-services
  mpd
  sqrt-data-agent-mpd
+ deterred-mpd
  mcron
  aw-server
  aw-watcher-afk
@@ -149,6 +160,7 @@
 
 (for-each start '(mpd
                   sqrt-data-agent-mpd
+                  deterred-mpd
                   mcron
                   aw-server
                   aw-watcher-afk
diff --git a/.emacs.d/desktop.el b/.emacs.d/desktop.el
index 34719f9..1ea77f3 100644
--- a/.emacs.d/desktop.el
+++ b/.emacs.d/desktop.el
@@ -590,7 +590,7 @@ _d_: Discord
   (add-hook 'exwm-update-class-hook #'my/exwm-update-class)
 
   (require 'exwm-randr)
-  (exwm-randr-enable)
+  (exwm-randr-mode 1)
   (start-process-shell-command "xrandr" nil "~/bin/scripts/screen-layout")
   (when (string= (system-name) "violet")
     (setq my/exwm-another-monitor "DP-1")
@@ -669,7 +669,7 @@ _d_: Discord
           (,(kbd "s-P") . async-shell-command)
           (,(kbd "s-;") . my/exwm-apps-hydra/body)
           (,(kbd "s--") . password-store-completion)
-          (,(kbd "s-=") . my/emojify-type)
+          (,(kbd "s-=") . emoji-insert)
           (,(kbd "s-i") . ,(my/app-command "copyq menu"))
   
           ;; Basic controls
diff --git a/Desktop.org b/Desktop.org
index 5c235e4..292adea 100644
--- a/Desktop.org
+++ b/Desktop.org
@@ -871,7 +871,7 @@ And keybindings that are available in both =char-mode= and =line-mode=:
         (,(kbd "s-P") . async-shell-command)
         (,(kbd "s-;") . my/exwm-apps-hydra/body)
         (,(kbd "s--") . password-store-completion)
-        (,(kbd "s-=") . my/emojify-type)
+        (,(kbd "s-=") . emoji-insert)
         (,(kbd "s-i") . ,(my/app-command "copyq menu"))
 
         ;; Basic controls
@@ -1210,7 +1210,7 @@ And the EXWM config itself.
   (add-hook 'exwm-update-class-hook #'my/exwm-update-class)
 
   (require 'exwm-randr)
-  (exwm-randr-enable)
+  (exwm-randr-mode 1)
   (start-process-shell-command "xrandr" nil "~/bin/scripts/screen-layout")
   (when (string= (system-name) "violet")
     (setq my/exwm-another-monitor "DP-1")
@@ -4404,6 +4404,16 @@ MPD watcher
     #:start (make-forkexec-constructor '("sqrt_data_agent_mpd"))
     #:stop (make-kill-destructor)
     #:requires '(mpd)))
+
+(define deterred-mpd
+  (make <service>
+    #:provides '(deterred-mpd)
+    #:respawn? #t
+    #:start (make-forkexec-constructor
+             '("python" "/home/pavel/10-19 Code/13 Other Projects/13.02 sqrt-data/13.02.R Repos/13.02.R.05 deterred/watchers/deterred-mpd.py"
+               "--db" "/home/pavel/.deterred/database.db"))
+    #:stop (make-kill-destructor)
+    #:requires '(mpd)))
 #+end_src
 ** GNU Mcron
 [[https://www.gnu.org/software/mcron/][GNU Mcron]] is a replacement for cron, written in Scheme.
@@ -4590,6 +4600,7 @@ Register services:
 (register-services
  mpd
  sqrt-data-agent-mpd
+ deterred-mpd
  mcron
  aw-server
  aw-watcher-afk
@@ -4617,6 +4628,7 @@ Run services
 #+begin_src scheme
 (for-each start '(mpd
                   sqrt-data-agent-mpd
+                  deterred-mpd
                   mcron
                   aw-server
                   aw-watcher-afk