ADD mingus package
ADD mingus browser bindings ADD mingus playlist bingings
This commit is contained in:
parent
c26bccb8a8
commit
6d5226c21c
38
etc/conf.org
38
etc/conf.org
|
@ -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)
|
||||||
|
|
Loading…
Reference in New Issue