blob: db386fd78ab275580e479b150d0e766272da75ab (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
|
;;; evil-collection-mpdel.el --- Evil bindings for mpdel -*- lexical-binding: t -*-
;; Copyright (C) 2021 Ruoyu Feng
;; Author: Ruoyu Feng <mail@vonfry.name>
;; Maintainer: James Nguyen <james@jojojames.com>
;; Pierre Neidhardt <mail@ambrevar.xyz>
;; URL: https://github.com/emacs-evil/evil-collection
;; Version: 0.0.4
;; Package-Requires: ((emacs "25.1"))
;; Keywords: evil, tools, mpd
;; 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 mpdel.
;;; Code:
(require 'mpdel nil t)
(require 'evil-collection)
(defvar mpdel-core-map)
(defconst evil-collection-mpdel-maps '(mpdel-core-map))
(defconst evil-collection-mpdel-modes '(mpdel-browser-mode mpdel-playlist-mode
mpdel-song-mode mpdel-browser-mode
mpdel-playlist-current-playlist-mode
mpdel-playlist-stored-playlist-mode))
;;;###autoload
(defun evil-collection-mpdel-setup ()
"Set up `evil' bindings for `mpdel'."
(evil-collection-set-readonly-bindings 'mpdel-core-map)
(dolist (mode evil-collection-mpdel-modes)
(evil-set-initial-state mode 'normal))
(evil-collection-define-key 'normal 'mpdel-core-map
"p" 'libmpdel-playback-play-pause
"{" 'libmpdel-playback-previous
"}" 'libmpdel-playback-next
"a" 'mpdel-core-add-to-current-playlist
"A" 'mpdel-core-add-to-stored-playlist
"r" 'mpdel-core-replace-current-playlist
"R" 'mpdel-core-replace-stored-playlist
"i" 'mpdel-core-insert-current-playlist
"gD" 'mpdel-core-dired
"gA" 'mpdel-core-open-artists
"gL" 'mpdel-core-open-stored-playlists
"ss" 'mpdel-core-search-by-title
"sl" 'mpdel-core-search-by-album
"sr" 'mpdel-core-search-by-artist
"gp" 'navigel-open-parent
"j" 'evil-next-line
"k" 'evil-previous-line
"+" 'mpdel-core-volume-increase
"-" 'mpdel-core-volume-decrease
"C" 'libmpdel-connect-profile
"gb" 'mpdel-browser-open
"go" 'mpdel-song-open
"gr" 'mpdel-song-refresh
"I" 'mpdel-song-play
"q" 'mpdel-song-quit-window
"g-s" 'mpdel-song-small-increment
"g-n" 'mpdel-song-normal-increment
"g-l" 'mpdel-song-large-increment
"g+s" 'mpdel-song-small-decrement
"g+n" 'mpdel-song-normal-decrement
"g+l" 'mpdel-song-large-decrement
"gl" 'mpdel-playlist-open
"(" 'mpdel-playlist-move-up
")" 'mpdel-playlist-move-down
"w" 'mpdel-playlist-save
"P" 'mpdel-playlist-play)
(evil-collection-define-key 'normal 'mpdel-tablist-mode-map
"D" 'tablist-do-delete))
(provide 'evil-collection-mpdel)
;;; evil-collection-mpdel.el ends here
|
