From 8c4e09dff83847ac7f07bf1da7751e9328006c4d Mon Sep 17 00:00:00 2001 From: Jack Jamison Date: Thu, 30 Jul 2026 20:09:00 -0400 Subject: actual final changes and get rid of junk in lisp dir actually works fine --- .../modes/simple-mpc/evil-collection-simple-mpc.el | 122 --------------------- 1 file changed, 122 deletions(-) delete mode 100644 .config/emacs/lisp/evil-collection/modes/simple-mpc/evil-collection-simple-mpc.el (limited to '.config/emacs/lisp/evil-collection/modes/simple-mpc') diff --git a/.config/emacs/lisp/evil-collection/modes/simple-mpc/evil-collection-simple-mpc.el b/.config/emacs/lisp/evil-collection/modes/simple-mpc/evil-collection-simple-mpc.el deleted file mode 100644 index fea1bb0..0000000 --- a/.config/emacs/lisp/evil-collection/modes/simple-mpc/evil-collection-simple-mpc.el +++ /dev/null @@ -1,122 +0,0 @@ -;;; evil-collection-simple-mpc.el --- Bindings for `simple-mpc' -*- lexical-binding: t -*- -;; Copyright (C) 2022 Joseph Turner - -;; Author: Joseph Turner -;; Maintainer: Joseph Turner -;; URL: https://github.com/emacs-evil/evil-collection -;; Version: 0.0.1 -;; Package-Requires: ((emacs "26.3")) -;; Keywords: evil, simple-mpc, processes, mpd - -;; This program 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 of the License, or -;; (at your option) any later version. - -;; This program 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. - -;; You should have received a copy of the GNU General Public License -;; along with this program. If not, see . - -;;; Commentary: -;;; Bindings for `simple-mpc'. - -;;; Code: -(require 'simple-mpc nil t) -(require 'evil-collection) - -(defconst evil-collection-simple-mpc-maps '(simple-mpc-mode-map - simple-mpc-query-mode-map - simple-mpc-current-playlist-mode-map)) - -(defun evil-collection-simple-mpc-set-bindings () - "Set up `evil' bindings for `simple-mpc'. - -Other modes that are configured: -`simple-mpc-mode' -`simple-mpc-query-mode' -`simple-mpc-current-playlist-mode'" - (evil-collection-define-key 'normal 'simple-mpc-mode-map - "p" 'simple-mpc-toggle - ">" 'simple-mpc-next - "<" 'simple-mpc-prev - "f" 'simple-mpc-seek-forward - "b" 'simple-mpc-seek-backward - "s" 'simple-mpc-query - "c" 'simple-mpc-view-current-playlist - "l" 'simple-mpc-load-playlist - "S" 'simple-mpc-shuffle-current-playlist - "C" 'simple-mpc-clear-current-playlist - "+" 'simple-mpc-increase-volume - "-" 'simple-mpc-decrease-volume - - "q" 'simple-mpc-quit - "ZQ" 'simple-mpc-quit - "ZZ" 'simple-mpc-quit) - - (evil-collection-define-key 'normal 'simple-mpc-current-playlist-mode-map - "x" 'simple-mpc-delete - "d" 'simple-mpc-delete - - "q" 'simple-mpc-current-playlist-quit - "ZQ" 'simple-mpc-current-playlist-quit - "ZZ" 'simple-mpc-current-playlist-quit - - "" 'simple-mpc-play-current-line - (kbd "RET") 'simple-mpc-play-current-line) - - (evil-collection-define-key 'normal 'simple-mpc-query-mode-map - "o" 'simple-mpc-query-sort - - "q" 'simple-mpc-query-quit - "ZQ" 'simple-mpc-query-quit - "ZZ" 'simple-mpc-query-quit - - "" 'simple-mpc-query-add - (kbd "M-RET") 'simple-mpc-query-add - - "" 'simple-mpc-query-add-and-play - (kbd "RET") 'simple-mpc-query-add-and-play)) - -(defvar simple-mpc-main-buffer-name "*simple-mpc-main*") - -(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]lay/pause 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) - (add-hook 'simple-mpc-query-mode-hook 'evil-normalize-keymaps) - (add-hook 'simple-mpc-current-playlist-mode-hook 'evil-normalize-keymaps)) - -(provide 'evil-collection-simple-mpc) -;;; evil-collection-simple-mpc.el ends here -- cgit v1.2.3