desktop: deterred-mpd

.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

.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

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