diff options
Diffstat (limited to 'evil-collection-emms.el')
| -rw-r--r-- | evil-collection-emms.el | 193 |
1 files changed, 193 insertions, 0 deletions
diff --git a/evil-collection-emms.el b/evil-collection-emms.el new file mode 100644 index 0000000..652a5ca --- /dev/null +++ b/evil-collection-emms.el @@ -0,0 +1,193 @@ +;;; evil-collection-emms.el --- Evil bindings for EMMS -*- lexical-binding: t -*- + +;; Copyright (C) 2017 Pierre Neidhardt + +;; Author: Pierre Neidhardt <ambrevar@gmail.com> +;; Maintainer: James Nguyen <james@jojojames.com> +;; Pierre Neidhardt <ambrevar@gmail.com> +;; URL: https://github.com/jojojames/evil-collection +;; Version: 0.0.1 +;; Package-Requires: ((emacs "25.1")) +;; Keywords: evil, emms, tools + +;; This file is free software; you can redistribute it and/or modify +;; it under the terms of the GNU General Public License as published +;; by the Free Software Foundation; either version 3, or (at your +;; option) any later version. +;; +;; This file is distributed in the hope that it will be useful, +;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;; GNU General Public License for more details. +;; +;; For a full copy of the GNU General Public License +;; see <http://www.gnu.org/licenses/>. + +;;; Commentary: +;; Evil bindings for EMMS. + +;;; Code: +(require 'emms nil t) +(require 'evil) + +(defvar emms-browser-mode-map) +(defvar emms-playlist-mode-map) + +;;; TODO: Make all playback bindings consistent across modes: +;;; - stop +;;; - pause +;;; - volume +;;; - next/previous +;;; - fast-forward/backward + +;;; TODO: Add bindings to emms-browser-search-mode-map. + +;;; emms-browser does not run any mode hook. As such the default state is 'normal. +;;; TODO: Report upstream. +(defun evil-collection-emms-browser () + "Default `emms-browser' to motion state." + (evil-motion-state)) + +(with-no-warnings + (defun evil-collection-emms-playlist-mode-insert-newline-above () + "Insert a newline above point." + (interactive) + (emms-with-inhibit-read-only-t + (evil-insert-newline-above))) + + (defun evil-collection-emms-playlist-mode-insert-newline-below () + "Insert a newline below point." + (interactive) + (emms-with-inhibit-read-only-t + (evil-insert-newline-below))) + + (defun evil-collection-emms-playlist-mode-paste-before () + "Pastes the latest yanked playlist items before the cursor position. + The return value is the yanked text." + (interactive) + (emms-with-inhibit-read-only-t + (goto-char (point-at-bol)) + (yank) + (emms-playlist-mode-correct-previous-yank) + (evil-previous-line) + (evil-beginning-of-line))) + + (defun evil-collection-emms-playlist-mode-paste-after () + "Pastes the latest yanked playlist items behind point. + The return value is the yanked text." + (interactive) + (evil-next-line) + (evil-emms-playlist-mode-paste-before))) + +(defun evil-collection-emms-setup () + "Set up `evil' bindings for `emms'." + (advice-add 'emms-browser :after 'evil-emms-browser) + (evil-set-initial-state 'emms-playlist-mode 'motion) + + (with-eval-after-load 'emms-browser + (dolist (map (list emms-browser-mode-map emms-playlist-mode-map)) + (evil-define-key* 'motion map + "+" 'emms-volume-raise + "=" 'emms-volume-raise + "-" 'emms-volume-lower + "u" 'emms-playlist-mode-undo)) + + ;; TODO: Why do we need to define emms-browser-mode-map after load and not emms-playlist-mode-map? + (evil-define-key 'motion emms-browser-mode-map + ;; playback controls + "x" 'emms-pause + "X" 'emms-stop + "r" 'emms-random + "<" 'emms-seek-backward + ">" 'emms-seek-forward + (kbd "<return>") 'emms-browser-add-tracks + (kbd "C-<return>") 'emms-browser-add-tracks-and-play + + ;; motion + "[" 'emms-browser-prev-non-track + "]" 'emms-browser-next-non-track + "gj" 'emms-browser-prev-non-track + "gk" 'emms-browser-next-non-track + + (kbd "<tab>") 'emms-browser-toggle-subitems + (kbd "SPC") 'emms-browser-toggle-subitems + ;; TODO: Use S-<tab>? + "g1" 'emms-browser-collapse-all + "g2" 'emms-browser-expand-to-level-2 + "g3" 'emms-browser-expand-to-level-3 + "g4" 'emms-browser-expand-to-level-4 + "g0" 'emms-browser-expand-all + "ga" 'emms-browse-by-artist + "gA" 'emms-browse-by-album + "gb" 'emms-browse-by-genre + "gy" 'emms-browse-by-year + "gc" 'emms-browse-by-composer + "gp" 'emms-browse-by-performer + + "/" 'emms-isearch-buffer ; This shows hidden items during search. + + ;; filter + ;; "" 'emms-browser-previous-filter ; TODO: What does this do? + ;; "" 'emms-browser-next-filter + + "s" (lookup-key emms-browser-mode-map (kbd "s")) + "g" (lookup-key emms-browser-mode-map (kbd "W")) ;; TODO: This overrides other "g-" prefixed keys. + + "C" 'emms-browser-clear-playlist + "D" 'emms-browser-delete-files + "d" 'emms-browser-view-in-dired + "gd" 'emms-playlist-mode-goto-dired-at-point)) ; "d" does the same, keep "gd" for consistency. + + (evil-define-key 'motion emms-playlist-mode-map + ;; playback controls + "x" 'emms-pause + "X" 'emms-stop + "r" 'emms-random + "<" 'emms-seek-backward + ">" 'emms-seek-forward + (kbd "C-j") 'emms-next + (kbd "C-k") 'emms-previous + "gj" 'emms-next + "gk" 'emms-previous + (kbd "<return>") 'emms-playlist-mode-play-smart + + ;; motion + "gg" 'emms-playlist-mode-first + "G" 'emms-playlist-mode-last + "]" 'emms-playlist-mode-next + "[" 'emms-playlist-mode-previous + "gj" 'emms-playlist-mode-next + "gk" 'emms-playlist-mode-previous + + "D" 'emms-playlist-mode-kill-track ; emms-browser uses "D" + "C" 'emms-playlist-mode-clear + "O" 'evil-collection-evil-emms-playlist-mode-insert-newline-above + "o" 'evil-collection-emms-playlist-mode-insert-newline-below + "P" 'evil-collection-emms-playlist-mode-paste-before + "p" 'evil-collection-emms-playlist-mode-paste-after + + "u" 'emms-playlist-mode-undo + + "ze" 'emms-tag-editor-edit + "R" 'emms-tag-editor-rename + + "." 'emms-playlist-mode-center-current + "gd" 'emms-playlist-mode-goto-dired-at-point ; "d" does the same, keep "gd" for consistency. + + "zs" 'emms-show + "a" 'emms-playlist-mode-add-contents + "zp" 'emms-playlist-set-playlist-buffer + + ;; filter + "S" (lookup-key emms-playlist-mode-map (kbd "S")) + "s" (lookup-key emms-playlist-mode-map (kbd "/")) + ;; "" 'emms-playlist-limit-to-all ; TODO: Test. + + (kbd "M-y") 'emms-playlist-mode-yank-pop) + + (evil-define-key 'visual emms-playlist-mode-map + ;; "d" 'emms-playlist-mode-kill + "D" 'emms-playlist-mode-kill)) + +(provide 'evil-collection-emms) +;;; evil-collection-emms.el ends here |