diff options
Diffstat (limited to 'init.org')
-rw-r--r-- | init.org | 67 |
1 files changed, 7 insertions, 60 deletions
@@ -49,9 +49,6 @@ To install all packages via GNU Guix I can either use a manifest file or use the emacs-clojure-mode \ emacs-company \ emacs-debbugs \ - emacs-emms \ - emacs-emms-mode-line-cycle \ - emacs-emms-player-mpv \ emacs-ess \ emacs-expand-region \ emacs-fill-column-indicator \ @@ -934,70 +931,19 @@ To make EXWM feel more like a proper desktop environment I also use the =desktop :header-args: :noweb-ref emms :noweb yes :END: -I like to use EMMS as a music player. Unfortunately, the default players like mpg321 or ogg123 don’t support seeking, so I’m using =mpv= for everything. +Not EMMS but MPC: #+BEGIN_SRC elisp -(require 'emms-player-mpv) -(setq emms-player-list (list emms-player-mpv)) +(setq simple-mpc-arguments "-h 192.168.178.20") #+END_SRC -Some more initialisation settings: - -#+BEGIN_SRC elisp -(emms-all) -(setq emms-playlist-buffer-name "*EMMS*") -(setq emms-source-file-directory-tree-function - 'emms-source-file-directory-tree-find) -#+END_SRC - -Set up global key bindings for controlling EMMS in any mode. - -#+BEGIN_SRC elisp -(require 'emms-setup) -(global-set-key (kbd "C-c e t") 'emms-play-directory-tree) -(global-set-key (kbd "C-c e x") 'emms-start) -(global-set-key (kbd "C-c e v") 'emms-stop) -(global-set-key (kbd "C-c e n") 'emms-next) -(global-set-key (kbd "C-c e p") 'emms-previous) -(global-set-key (kbd "C-c e o") 'emms-show) -(global-set-key (kbd "C-c e h") 'emms-shuffle) -(global-set-key (kbd "C-c e e") 'emms-play-file) -(global-set-key (kbd "C-c e f") 'emms-play-playlist) -(global-set-key (kbd "C-c e SPC") 'emms-pause) -(global-set-key (kbd "C-c e a") 'emms-add-directory-tree) - -(global-set-key (kbd "C-c e r") 'emms-toggle-repeat-track) -(global-set-key (kbd "C-c e R") 'emms-toggle-repeat-playlist) - -;; playlist-mode-map -(define-key emms-playlist-mode-map (kbd "SPC") 'emms-pause) -(define-key emms-playlist-mode-map (kbd "+") 'emms-volume-raise) -(define-key emms-playlist-mode-map (kbd "-") 'emms-volume-lower) -(define-key emms-playlist-mode-map (kbd "<right>") - (lambda () (interactive) (emms-seek +10))) -(define-key emms-playlist-mode-map (kbd "<left>") - (lambda () (interactive) (emms-seek -10))) -(define-key emms-playlist-mode-map (kbd "<up>") - (lambda () (interactive) (emms-seek +60))) -(define-key emms-playlist-mode-map (kbd "<down>") - (lambda () (interactive) (emms-seek -60))) -#+END_SRC +* Modeline +:PROPERTIES: +:header-args: :noweb-ref modeline +:END: -On my laptop screen the file name in the EMMS modeline cannot be fully displayed. I use =emms-mode-line-cycle= to limit the width of the file name in the modeline. #+BEGIN_SRC elisp -(require 'emms-mode-line-cycle) -(emms-mode-line 1) -(emms-playing-time 1) -(emms-mode-line-cycle 1) -#+END_SRC - -All of this should be loaded lazily. - -#+BEGIN_SRC elisp :noweb-ref emms-lazy -(with-eval-after-load "emms" - <<emms>> -) #+END_SRC * Modeline @@ -1023,6 +969,7 @@ All of this should be loaded lazily. (sml/setup) #+END_SRC + * Lilypond :PROPERTIES: :header-args: :noweb-ref lilypond |