sqrtminusone/dotfiles
1
0
Fork 0
mirror of https://github.com/SqrtMinusOne/dotfiles.git synced 2025-12-11 19:45:25 +03:00
Code Issues Projects Releases Packages Wiki Activity Actions

desktop: deterred-mpd

Browse source
This commit is contained in:
Pavel Korytov 2025-01-23 12:16:11 +03:00
parent 3e4efbae78
commit 8ac7ebc54a
3 changed files with 28 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
.config/shepherd/init.scm
View file

@ -13,6 +13,16 @@
#:stop (make-kill-destructor) #:stop (make-kill-destructor)
#:requires '(mpd))) #: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 (define mcron
(make <service> (make <service>
#:provides '(mcron) #:provides '(mcron)
@ -128,6 +138,7 @@
(register-services (register-services
mpd mpd
sqrt-data-agent-mpd sqrt-data-agent-mpd
deterred-mpd
mcron mcron
aw-server aw-server
aw-watcher-afk aw-watcher-afk
@ -149,6 +160,7 @@
(for-each start '(mpd (for-each start '(mpd
sqrt-data-agent-mpd sqrt-data-agent-mpd
deterred-mpd
mcron mcron
aw-server aw-server
aw-watcher-afk aw-watcher-afk

4
.emacs.d/desktop.el
View file

@ -590,7 +590,7 @@ _d_: Discord
(add-hook 'exwm-update-class-hook #'my/exwm-update-class) (add-hook 'exwm-update-class-hook #'my/exwm-update-class)
(require 'exwm-randr) (require 'exwm-randr)
(exwm-randr-enable) (exwm-randr-mode 1)
(start-process-shell-command "xrandr" nil "~/bin/scripts/screen-layout") (start-process-shell-command "xrandr" nil "~/bin/scripts/screen-layout")
(when (string= (system-name) "violet") (when (string= (system-name) "violet")
(setq my/exwm-another-monitor "DP-1") (setq my/exwm-another-monitor "DP-1")
@ -669,7 +669,7 @@ _d_: Discord
(,(kbd "s-P") . async-shell-command) (,(kbd "s-P") . async-shell-command)
(,(kbd "s-;") . my/exwm-apps-hydra/body) (,(kbd "s-;") . my/exwm-apps-hydra/body)
(,(kbd "s--") . password-store-completion) (,(kbd "s--") . password-store-completion)
(,(kbd "s-=") . my/emojify-type) (,(kbd "s-=") . emoji-insert)
(,(kbd "s-i") . ,(my/app-command "copyq menu")) (,(kbd "s-i") . ,(my/app-command "copyq menu"))
;; Basic controls ;; Basic controls

16
Desktop.org
View file

@ -871,7 +871,7 @@ And keybindings that are available in both =char-mode= and =line-mode=:
(,(kbd "s-P") . async-shell-command) (,(kbd "s-P") . async-shell-command)
(,(kbd "s-;") . my/exwm-apps-hydra/body) (,(kbd "s-;") . my/exwm-apps-hydra/body)
(,(kbd "s--") . password-store-completion) (,(kbd "s--") . password-store-completion)
(,(kbd "s-=") . my/emojify-type) (,(kbd "s-=") . emoji-insert)
(,(kbd "s-i") . ,(my/app-command "copyq menu")) (,(kbd "s-i") . ,(my/app-command "copyq menu"))
;; Basic controls ;; Basic controls
@ -1210,7 +1210,7 @@ And the EXWM config itself.
(add-hook 'exwm-update-class-hook #'my/exwm-update-class) (add-hook 'exwm-update-class-hook #'my/exwm-update-class)
(require 'exwm-randr) (require 'exwm-randr)
(exwm-randr-enable) (exwm-randr-mode 1)
(start-process-shell-command "xrandr" nil "~/bin/scripts/screen-layout") (start-process-shell-command "xrandr" nil "~/bin/scripts/screen-layout")
(when (string= (system-name) "violet") (when (string= (system-name) "violet")
(setq my/exwm-another-monitor "DP-1") (setq my/exwm-another-monitor "DP-1")
@ -4404,6 +4404,16 @@ MPD watcher
#:start (make-forkexec-constructor '("sqrt_data_agent_mpd")) #:start (make-forkexec-constructor '("sqrt_data_agent_mpd"))
#:stop (make-kill-destructor) #:stop (make-kill-destructor)
#:requires '(mpd))) #: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 #+end_src
** GNU Mcron ** GNU Mcron
[[https://www.gnu.org/software/mcron/][GNU Mcron]] is a replacement for cron, written in Scheme. [[https://www.gnu.org/software/mcron/][GNU Mcron]] is a replacement for cron, written in Scheme.
@ -4590,6 +4600,7 @@ Register services:
(register-services (register-services
mpd mpd
sqrt-data-agent-mpd sqrt-data-agent-mpd
deterred-mpd
mcron mcron
aw-server aw-server
aw-watcher-afk aw-watcher-afk
@ -4617,6 +4628,7 @@ Run services
#+begin_src scheme #+begin_src scheme
(for-each start '(mpd (for-each start '(mpd
sqrt-data-agent-mpd sqrt-data-agent-mpd
deterred-mpd
mcron mcron
aw-server aw-server
aw-watcher-afk aw-watcher-afk