about summary refs log tree commit diff
path: root/configs/shared/emacs/.emacs.d/elpa/evil-collection-20180913.209/evil-collection-emms.el
diff options
context:
space:
mode:
Diffstat (limited to 'configs/shared/emacs/.emacs.d/elpa/evil-collection-20180913.209/evil-collection-emms.el')
-rw-r--r--configs/shared/emacs/.emacs.d/elpa/evil-collection-20180913.209/evil-collection-emms.el234
1 files changed, 0 insertions, 234 deletions
diff --git a/configs/shared/emacs/.emacs.d/elpa/evil-collection-20180913.209/evil-collection-emms.el b/configs/shared/emacs/.emacs.d/elpa/evil-collection-20180913.209/evil-collection-emms.el
deleted file mode 100644
index cee8dc32750d..000000000000
--- a/configs/shared/emacs/.emacs.d/elpa/evil-collection-20180913.209/evil-collection-emms.el
+++ /dev/null
@@ -1,234 +0,0 @@
-;;; evil-collection-emms.el --- Evil bindings for EMMS -*- lexical-binding: t -*-
-
-;; Copyright (C) 2017 Pierre Neidhardt
-
-;; Author: Pierre Neidhardt <mail@ambrevar.xyz>
-;; Maintainer: James Nguyen <james@jojojames.com>
-;; Pierre Neidhardt <mail@ambrevar.xyz>
-;; URL: https://github.com/emacs-evil/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-collection)
-
-(declare-function emms-with-inhibit-read-only-t "emms")
-(declare-function emms-playlist-mode-correct-previous-yank "emms-playlist-mode")
-
-(defvar emms-browser-mode-map)
-(defvar emms-playlist-mode-map)
-
-(defconst evil-collection-emms-maps '(emms-browser-mode-map
-                                      emms-playlist-mode-map
-                                      emms-metaplaylist-mode-map
-                                      emms-stream-mode-map))
-
-(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)
-  (unless (eobp) (evil-next-line))
-  (evil-collection-emms-playlist-mode-paste-before))
-
-(defun evil-collection-emms-browser-setup ()
-  "Set up `evil' bindings for `emms-browser'."
-  ;; TODO: Why doesn't evil-set-initial-state work with emms-browser-mode?
-
-  (evil-collection-inhibit-insert-state 'emms-browser-mode-map)
-  (add-hook 'emms-browser-mode-hook 'evil-normal-state)
-  (evil-collection-define-key 'normal '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
-
-    ;; volume controls
-    "+" 'emms-volume-raise
-    "=" 'emms-volume-raise
-    "-" 'emms-volume-lower
-
-    "u" 'emms-playlist-mode-undo
-
-    ;; motion
-    "[" 'emms-browser-prev-non-track
-    "]" 'emms-browser-next-non-track
-    (kbd "C-k") 'emms-browser-prev-non-track
-    (kbd "C-j") 'emms-browser-next-non-track
-    "gk" 'emms-browser-prev-non-track
-    "gj" 'emms-browser-next-non-track
-
-    (kbd "<tab>") 'emms-browser-toggle-subitems-recursively
-    (kbd "<backtab>") 'emms-browser-toggle-subitems-recursively
-    "^" 'emms-browser-move-up-level
-    (kbd "SPC") 'emms-browser-toggle-subitems
-    "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
-    "zm" 'emms-browser-collapse-all
-    "zr" 'emms-browser-expand-all
-    "zo" 'emms-browser-expand-one-level
-    ;; TODO find a real replacement for zc
-    "zc" 'emms-browser-collapse-all
-
-    ;; TODO find a way to integrate this with evil-collection-evil-search
-    "/" 'emms-isearch-buffer ; This shows hidden items during search.
-    "n" 'isearch-repeat-forward
-    "N" 'isearch-repeat-backward
-
-    ;; 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-browser-view-in-dired)) ; "d" does the same, keep "gd" for consistency.
-
-(defun evil-collection-emms-setup ()
-  "Set up `evil' bindings for `emms'."
-  (with-eval-after-load 'emms-browser
-    (evil-collection-emms-browser-setup))
-
-  (evil-set-initial-state 'emms-playlist-mode 'normal)
-  (evil-collection-define-key 'normal '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
-
-    ;; volume controls
-    "+" 'emms-volume-raise
-    "=" 'emms-volume-raise
-    "-" 'emms-volume-lower
-
-    "u" 'emms-playlist-mode-undo
-
-    ;; motion
-    "gg" 'emms-playlist-mode-first
-    "G" 'emms-playlist-mode-last
-    "]" 'emms-playlist-mode-next
-    "[" 'emms-playlist-mode-previous
-
-    "D" 'emms-playlist-mode-kill-track  ; emms-browser uses "D"
-    "C" 'emms-playlist-mode-clear
-    "O" 'evil-collection-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
-    "d" 'emms-playlist-mode-goto-dired-at-point
-    "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-collection-define-key 'visual 'emms-playlist-mode-map
-    ;; "d" 'emms-playlist-mode-kill
-    "D" 'emms-playlist-mode-kill)
-
-  (evil-collection-define-key 'normal 'emms-browser-search-mode-map
-    "q" 'emms-browser-kill-search)
-
-  (evil-set-initial-state 'emms-metaplaylist-mode 'normal)
-  (evil-collection-define-key 'normal 'emms-metaplaylist-mode-map
-    (kbd "<return>") 'emms-metaplaylist-mode-goto-current
-    (kbd "<space>") 'emms-metaplaylist-mode-set-active
-    "gr" 'emms-metaplaylist-mode-update
-    "C" 'emms-metaplaylist-mode-new-buffer
-    "." 'emms-metaplaylist-mode-center-current
-    "D" 'emms-metaplaylist-mode-kill-buffer
-    "q" 'kill-this-buffer)
-
-  (evil-set-initial-state 'emms-stream-mode 'normal)
-  (evil-collection-define-key 'normal 'emms-stream-mode-map
-    (kbd "<return>") 'emms-stream-play
-    "j" 'emms-stream-next-line
-    "k" 'emms-stream-previous-line
-    "y" 'emms-stream-yank-bookmark
-    "d" 'emms-stream-kill-bookmark
-    "c" 'emms-stream-edit-bookmark
-    "r" 'emms-stream-edit-bookmark
-    "i" 'emms-stream-info-bookmark
-    "s" 'emms-stream-save-bookmarks-file
-    "x" 'emms-stream-toggle-default-action
-    "q" 'emms-stream-quit))
-
-(provide 'evil-collection-emms)
-;;; evil-collection-emms.el ends here
generated by cgit-pink 1.4.1 (git 2.44.2) at 2024-11-05T01ยท36+0000