diff options
Diffstat (limited to '.config/emacs/lisp/evil-collection/modes/cus-theme')
| -rw-r--r-- | .config/emacs/lisp/evil-collection/modes/cus-theme/README.org | 30 | ||||
| -rw-r--r-- | .config/emacs/lisp/evil-collection/modes/cus-theme/evil-collection-cus-theme.el | 65 |
2 files changed, 95 insertions, 0 deletions
diff --git a/.config/emacs/lisp/evil-collection/modes/cus-theme/README.org b/.config/emacs/lisp/evil-collection/modes/cus-theme/README.org new file mode 100644 index 0000000..f34e2c0 --- /dev/null +++ b/.config/emacs/lisp/evil-collection/modes/cus-theme/README.org @@ -0,0 +1,30 @@ +* cus-theme + + Evil bindings for [[https://www.gnu.org/software/emacs/manual/html_node/emacs/Custom-Themes.html][cus-theme]] (=M-x customize-themes=, =M-x customize-create-theme=). + + Both =custom-theme-choose-mode= and =custom-new-theme-mode= start in + normal state. + +** Key bindings + +*** custom-theme-choose-mode-map + + | Command | Original | Evil | + |-------------------------+--------------+---------------------------------| + | =widget-forward= | =TAB=, =n= | =gj=, =]]=, =C-j=, =TAB=, =n= | + | =widget-backward= | =S-TAB=, =p= | =gk=, =[[=, =C-k=, =S-TAB=, =p= | + | =custom-describe-theme= | =?= | =K= | + | =widget-button-press= | =RET= | =RET= | + | =quit-window= | =q= | =q= | + | =revert-buffer= | =g= | =g= | + +*** custom-new-theme-mode-map + + | Command | Original | Evil | + |-----------------------+--------------+---------------------------------| + | =widget-forward= | =TAB=, =n= | =gj=, =]]=, =C-j=, =TAB=, =n= | + | =widget-backward= | =S-TAB=, =p= | =gk=, =[[=, =C-k=, =S-TAB=, =p= | + | =Custom-buffer-done= | =q= | =q=, =ZZ= | + | =evil-quit= | n/a | =ZQ= | + | =widget-button-press= | =RET= | =RET= | + | =revert-buffer= | =g= | =g= | diff --git a/.config/emacs/lisp/evil-collection/modes/cus-theme/evil-collection-cus-theme.el b/.config/emacs/lisp/evil-collection/modes/cus-theme/evil-collection-cus-theme.el new file mode 100644 index 0000000..09926a3 --- /dev/null +++ b/.config/emacs/lisp/evil-collection/modes/cus-theme/evil-collection-cus-theme.el @@ -0,0 +1,65 @@ +;;; evil-collection-cus-theme.el --- Bindings for `cus-theme' -*- lexical-binding: t -*- + +;; Copyright (C) 2017 James Nguyen + +;; Author: James Nguyen <james@jojojames.com> +;; 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 "26.3")) +;; Keywords: evil, custom themes, help, faces + +;; 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 <http://www.gnu.org/licenses/>. + +;;; Commentary: +;;; Bindings for `cus-theme'. + +;;; Code: +(require 'cus-theme) +(require 'evil-collection) + +(defconst evil-collection-cus-theme-maps '(custom-theme-choose-mode-map + custom-new-theme-mode-map)) + +;;;###autoload +(defun evil-collection-cus-theme-setup () + "Set up `evil' bindings for `cus-theme'." + (evil-set-initial-state 'custom-new-theme-mode 'normal) + (evil-set-initial-state 'custom-theme-choose-mode 'normal) + + (evil-collection-define-key 'normal 'custom-theme-choose-mode-map + "gj" 'widget-forward + "gk" 'widget-backward + (kbd "]]") 'widget-forward + (kbd "[[") 'widget-backward + (kbd "C-j") 'widget-forward + (kbd "C-k") 'widget-backward + "K" 'custom-describe-theme) + + (evil-collection-define-key 'normal 'custom-new-theme-mode-map + "gj" 'widget-forward + "gk" 'widget-backward + (kbd "]]") 'widget-forward + (kbd "[[") 'widget-backward + (kbd "C-j") 'widget-forward + (kbd "C-k") 'widget-backward + + ;; quit + "q" 'Custom-buffer-done + "ZQ" 'evil-quit + "ZZ" 'Custom-buffer-done)) + +(provide 'evil-collection-cus-theme) +;;; evil-collection-cus-theme.el ends here |