diff --git a/evil-collection-disk-usage.el b/evil-collection-disk-usage.el new file mode 100644 index 0000000..e35b059 --- /dev/null +++ b/evil-collection-disk-usage.el @@ -0,0 +1,93 @@ +;;; evil-collection-disk-usage.el --- Evil bindings for disk-usage.el -*- lexical-binding: t -*- + +;; Copyright (C) 2019 Pierre Neidhardt + +;; Author: James Nguyen +;; Maintainer: James Nguyen +;; Pierre Neidhardt +;; URL: https://github.com/emacs-evil/evil-collection +;; Version: 0.0.1 +;; Package-Requires: ((emacs "25.1")) +;; Keywords: evil, files, convenience, tools + +;; 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: +;; Evil bindings for `disk-usage-mode'. + +;;; Code: +(require 'evil-collection) +(require 'disk-usage nil t) + +(defconst evil-collection-disk-usage-maps '(disk-usage-mode-map + disk-usage-by-types-mode-map)) + +;;;###autoload +(defun evil-collection-disk-usage-setup () + "Set up `evil' bindings for `disk-usage'." + (evil-collection-inhibit-insert-state 'disk-usage-mode-map) + (evil-collection-define-key 'normal 'disk-usage-mode-map + ;; motion + (kbd "SPC") 'scroll-up-command + (kbd "S-SPC") 'scroll-down-command + (kbd "") 'forward-button + (kbd "") 'backward-button + + "S" 'tabulated-list-sort + "^" 'disk-usage-up + + "zh" 'disk-usage-toggle-human-readable + "zf" 'disk-usage-toggle-full-path + "zr" 'disk-usage-toggle-recursive + + (kbd "ze") 'disk-usage-eshell-at-point + (kbd "zs") 'disk-usage-shell-at-point + (kbd "d") 'disk-usage-dired-at-point + + "m" 'disk-usage-mark-at-point + "m" 'disk-usage-unmark-at-point + "x" 'disk-usage-delete-marked-files + + "g?" 'describe-mode + "gr" 'revert-buffer + + ;; quit + "q" 'quit-window + "ZQ" 'evil-quit + "ZZ" 'quit-window) + + (evil-collection-inhibit-insert-state 'disk-usage-by-types-mode-map) + (evil-collection-define-key 'normal 'disk-usage-by-types-mode-map + ;; motion + (kbd "SPC") 'scroll-up-command + (kbd "S-SPC") 'scroll-down-command + (kbd "") 'forward-button + (kbd "") 'backward-button + + (kbd "") 'disk-usage-files + + "S" 'tabulated-list-sort + + "zh" 'disk-usage-toggle-human-readable + + "g?" 'describe-mode + "gr" 'revert-buffer + + ;; quit + "q" 'quit-window + "ZQ" 'evil-quit + "ZZ" 'quit-window)) + +(provide 'evil-collection-disk-usage) +;;; evil-collection-disk-usage.el ends here diff --git a/evil-collection.el b/evil-collection.el index 8cbde5d..cd5f8ee 100644 --- a/evil-collection.el +++ b/evil-collection.el @@ -111,6 +111,7 @@ See https://github.com/emacs-evil/evil-collection/issues/60 for more details.") debug diff-mode dired + disk-usage doc-view ebib edbi