ADD mingus package

ADD mingus browser bindings
ADD mingus playlist bingings
This commit is contained in:
ndwarshuis 2019-05-26 16:15:37 -04:00
parent c26bccb8a8
commit 6d5226c21c
1 changed files with 38 additions and 0 deletions

View File

@ -51,6 +51,7 @@ This is my personal emacs config. It is quite massive. Please use the table of c
- [[#shell][shell]] - [[#shell][shell]]
- [[#ediff][ediff]] - [[#ediff][ediff]]
- [[#jupyter][jupyter]] - [[#jupyter][jupyter]]
- [[#mulitmedia-controls][mulitmedia controls]]
- [[#keybindings][keybindings]] - [[#keybindings][keybindings]]
- [[#setup][setup]] - [[#setup][setup]]
- [[#whichkey][whichkey]] - [[#whichkey][whichkey]]
@ -3116,6 +3117,14 @@ Since mu4e is an external program, need to check that it is installed before loa
(use-package ein (use-package ein
:straight t) :straight t)
#+END_SRC #+END_SRC
** mulitmedia controls
#+BEGIN_SRC emacs-lisp
(use-package mingus
:straight t
:config
(setq mingus-mpd-host "localhost"
mingus-mpd-port 6600))
#+END_SRC
* keybindings * keybindings
For the sake of my sanity, all bindings go here. Note this means I don't use =:bind= in use-package forms. For the sake of my sanity, all bindings go here. Note this means I don't use =:bind= in use-package forms.
** setup ** setup
@ -3395,6 +3404,20 @@ This is somewhat strange because all I really care about is moving between lines
(kbd "M-j") #'outline-move-subtree-down ; requires outline magic (kbd "M-j") #'outline-move-subtree-down ; requires outline magic
(kbd "M-RET") #'outline-insert-heading) (kbd "M-RET") #'outline-insert-heading)
#+END_SRC #+END_SRC
*** mingus
#+BEGIN_SRC emacs-lisp
(evil-define-key '(visual normal) mingus-browse-map
(kbd "RET") #'mingus-down-dir-or-play-song
"^" #'mingus-open-parent
"s" #'mingus-search
"a" #'mingus-add-things-at-p)
(evil-define-key '(visual normal) mingus-playlist-map
(kbd "RET") #'mingus-play
"m" #'mingus-mark
"D" #'mingus-del-marked
"U" #'mingus-unmark-all)
#+END_SRC
*** collection *** collection
Most packages that don't have an evil version are in this one. Some don't behave the way I like so those are further modified below. Most packages that don't have an evil version are in this one. Some don't behave the way I like so those are further modified below.
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
@ -3772,6 +3795,21 @@ The function keys are nice because they are almost (not always) free in every mo
(global-set-key (kbd "C-S-<f4>") 'org-tomato-user-pomodoro-goto) (global-set-key (kbd "C-S-<f4>") 'org-tomato-user-pomodoro-goto)
(global-set-key (kbd "<f8>") 'helm-command-prefix) (global-set-key (kbd "<f8>") 'helm-command-prefix)
(defhydra hydra-multimedia (global-map "<f10>" :exit t)
"convenient multimedia controls"
("<f10>" mingus)
("b" mingus-browse)
("c" mingus-clear)
("p" mingus-pause)
("v" mingus-volume)
("r" mingus-repeat)
("-" mingus-vol-down :exit nil)
("=" mingus-vol-up :exit nil)
("]" mingus-seek :exit nil)
("[" mingus-seek-backward :exit nil)
(">" mingus-next :exit nil)
("<" mingus-prev :exit nil))
(defhydra hydra-modes (global-map "<f11>" :exit t) (defhydra hydra-modes (global-map "<f11>" :exit t)
"convenient mode toggles" "convenient mode toggles"
("v" visual-line-mode) ("v" visual-line-mode)