Replace simple-mpc main buffer view to show evil keys
This commit is contained in:
parent
6ffb2503c9
commit
176e6439c7
|
@ -26,13 +26,13 @@
|
||||||
|
|
||||||
;;; Code:
|
;;; Code:
|
||||||
(require 'simple-mpc nil t)
|
(require 'simple-mpc nil t)
|
||||||
|
(require 'simple-mpc-vars nil t)
|
||||||
(require 'evil-collection)
|
(require 'evil-collection)
|
||||||
|
|
||||||
(defconst evil-collection-simple-mpc-mode-maps '(simple-mpc-mode-map))
|
(defconst evil-collection-simple-mpc-mode-maps '(simple-mpc-mode-map))
|
||||||
|
|
||||||
;;;###autoload
|
(defun evil-collection-simple-mpc-set-bindings ()
|
||||||
(defun evil-collection-simple-mpc-setup ()
|
"Set up 'evil' bindings for 'simple-mpc-mode', 'simple-mpc-query-mode', and 'simple-mpc-current-playlist-mode'."
|
||||||
"Setup up 'evil' bindings for 'simple-mpc-mode', 'simple-mpc-query-mode', and 'simple-mpc-current-playlist-mode'."
|
|
||||||
(evil-collection-define-key 'normal 'simple-mpc-mode-map
|
(evil-collection-define-key 'normal 'simple-mpc-mode-map
|
||||||
"p" 'simple-mpc-toggle
|
"p" 'simple-mpc-toggle
|
||||||
">" 'simple-mpc-next
|
">" 'simple-mpc-next
|
||||||
|
@ -75,5 +75,38 @@
|
||||||
"<return>" 'simple-mpc-query-add-and-play
|
"<return>" 'simple-mpc-query-add-and-play
|
||||||
(kbd "RET") 'simple-mpc-query-add-and-play))
|
(kbd "RET") 'simple-mpc-query-add-and-play))
|
||||||
|
|
||||||
|
(defun evil-collection-simple-mpc-replace-main-view ()
|
||||||
|
"Update main view to show keys in use with evil mode."
|
||||||
|
(interactive)
|
||||||
|
(when
|
||||||
|
(string= (buffer-name) simple-mpc-main-buffer-name)
|
||||||
|
(read-only-mode -1)
|
||||||
|
(erase-buffer)
|
||||||
|
(insert (propertize "* simple-mpc *\n\n"
|
||||||
|
'face 'simple-mpc-main-name)
|
||||||
|
(propertize " * controls\n" 'face 'simple-mpc-main-headers)
|
||||||
|
" * [p] toggle\n"
|
||||||
|
" * [>] next track\n"
|
||||||
|
" * [<] previous track\n"
|
||||||
|
" * seek [f]orward\n"
|
||||||
|
|
||||||
|
" * seek [b]ackward\n"
|
||||||
|
" * [+] increase volume\n"
|
||||||
|
" * [-] decrease volume\n"
|
||||||
|
(propertize "\n * playlist\n" 'face 'simple-mpc-main-headers)
|
||||||
|
" * view [c]urrent playlist\n"
|
||||||
|
" * [C]lear current playlist\n"
|
||||||
|
" * [S]huffle playlist\n"
|
||||||
|
" * [l]oad playlist\n"
|
||||||
|
" * [s]earch database\n"
|
||||||
|
(propertize "\n * misc\n" 'face 'simple-mpc-main-headers)
|
||||||
|
" * [q]uit")))
|
||||||
|
|
||||||
|
;;;###autoload
|
||||||
|
(defun evil-collection-simple-mpc-setup ()
|
||||||
|
"Set up simple-mpc bindings and main view."
|
||||||
|
(evil-collection-simple-mpc-set-bindings)
|
||||||
|
(add-hook 'simple-mpc-mode-hook 'evil-collection-simple-mpc-replace-main-view))
|
||||||
|
|
||||||
(provide 'evil-collection-simple-mpc)
|
(provide 'evil-collection-simple-mpc)
|
||||||
;;; evil-collection-simple-mpc.el ends here
|
;;; evil-collection-simple-mpc.el ends here
|
||||||
|
|
Loading…
Reference in New Issue