diff options
| -rw-r--r-- | init-el.org | 41 |
1 files changed, 41 insertions, 0 deletions
diff --git a/init-el.org b/init-el.org index 1116690..7343562 100644 --- a/init-el.org +++ b/init-el.org @@ -212,6 +212,7 @@ So, to use this file for the very first time you must (?s "[s]ecrets" toggle-secrets) (?p "[p]astebin" cicadas-paste-current-buffer) (?m "[m]astodon" mastodon) + (?e "[e]mms" emms-controls) (?w "[w]eb browser (eww)" eww))) #+end_src @@ -1916,6 +1917,7 @@ sudo apt install clangd bear #+name: bells-and-whistles #+begin_src elisp :noweb no-export :results none <<lifecoach>> +<<emms>> #+end_src ** Lifecoach @@ -2028,6 +2030,45 @@ messages echo to the echo area. +** EMMS + + Configuration for the emacs multi media system + +#+name: emms +#+begin_src elisp :noweb no-export :results none +(package-install 'emms) + +(require 'emms-setup) +(emms-all) +(emms-default-players) + +(setq emms-source-file-default-directory "~/Music/") + +(defun update-cicadas-now-listening-to () + (with-temp-buffer + (insert + (format emms-mode-line-format + (emms-track-description + (emms-playlist-current-selected-track)))) + (write-file "/ssh:colin@cicadas.surf:~/.now-listening-to"))) + +(add-hook 'emms-player-started-hook #'update-cicadas-now-listening-to) + +(defun update-cicadas-drop-listening-to () + (with-temp-buffer + (write-file "/ssh:colin@cicadas.surf:~/.now-listening-to"))) + +(add-hook 'emms-player-stopped-hook #'update-cicadas-drop-listening-to) + +(def-my-command emms-controls + '((?e "[e]mms" emms) + (?n "[n]ext track" emms-next) + (?p "[p]revious track" emms-previous) + (?s "[s]top" emms-stop) + (? "SPACE paus" emms-pause))) + +#+end_src + * Overwrites #+name: overwrites |