aboutsummaryrefslogtreecommitdiff
path: root/.config/emacs/lisp/evil-collection/modes/vlf
diff options
context:
space:
mode:
Diffstat (limited to '.config/emacs/lisp/evil-collection/modes/vlf')
-rw-r--r--.config/emacs/lisp/evil-collection/modes/vlf/README.org46
-rw-r--r--.config/emacs/lisp/evil-collection/modes/vlf/evil-collection-vlf.el86
2 files changed, 132 insertions, 0 deletions
diff --git a/.config/emacs/lisp/evil-collection/modes/vlf/README.org b/.config/emacs/lisp/evil-collection/modes/vlf/README.org
new file mode 100644
index 0000000..05842c4
--- /dev/null
+++ b/.config/emacs/lisp/evil-collection/modes/vlf/README.org
@@ -0,0 +1,46 @@
+* vlf
+
+ Evil bindings for [[https://github.com/m00natic/vlfi][vlf]] (View Large Files). Bindings are added to
+ =vlf-prefix-map= (the =C-c C-v= prefix).
+
+** Key bindings
+
+ Always installed:
+
+ | Command | Original | Evil |
+ |-------------------------------------------+----------+-------------------|
+ | =vlf-next-batch= | =n= | =gj=, =C-j=, =]]= |
+ | =vlf-prev-batch= | =p= | =gk=, =C-k=, =[[= |
+ | =vlf-change-batch-size= | =+= | =+= |
+ | =evil-collection-vlf-decrease-batch-size= | =-= | =-= |
+ | =vlf-next-batch-from-point= | =SPC= | === |
+ | =vlf-revert= | =g= | =gr= |
+ | =vlf-query-replace= | =%= | =g%= |
+ | =vlf-occur= | =o= | =go= |
+
+ When =evil-collection-want-g-bindings= is non-nil:
+
+ | Command | Original | Evil |
+ |--------------------------+----------+------|
+ | =vlf-re-search-forward= | =s= | =g/= |
+ | =vlf-re-search-backward= | =r= | =g?= |
+ | =vlf-jump-to-chunk= | =j= | =gJ= |
+ | =vlf-ediff-buffers= | =e= | =gE= |
+ | =vlf-goto-line= | =l= | =g:= |
+ | =vlf-toggle-follow= | =f= | =gF= |
+
+ When =evil-collection-want-g-bindings= is nil:
+
+ | Command | Original | Evil |
+ |--------------------------+----------+------|
+ | =vlf-re-search-forward= | =s= | =s= |
+ | =vlf-re-search-backward= | =r= | =S= |
+ | =vlf-jump-to-chunk= | =j= | =J= |
+ | =vlf-ediff-buffers= | =e= | =E= |
+ | =vlf-goto-line= | =l= | =L= |
+ | =vlf-toggle-follow= | =f= | =F= |
+
+** New commands
+
+ - =evil-collection-vlf-decrease-batch-size= - Halve the vlf batch size
+ (mirror of =vlf-change-batch-size= with a prefix arg), bound to =-=.
diff --git a/.config/emacs/lisp/evil-collection/modes/vlf/evil-collection-vlf.el b/.config/emacs/lisp/evil-collection/modes/vlf/evil-collection-vlf.el
new file mode 100644
index 0000000..b1482e2
--- /dev/null
+++ b/.config/emacs/lisp/evil-collection/modes/vlf/evil-collection-vlf.el
@@ -0,0 +1,86 @@
+;;; evil-collection-vlf.el --- Evil bindings for vlf -*- 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, vlf, 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 <http://www.gnu.org/licenses/>.
+
+;;; Commentary:
+;; Evil bindings for `vlf'.
+
+;;; Code:
+(require 'evil-collection)
+(require 'vlf nil t)
+
+(defvar vlf-mode-map)
+(declare-function vlf-change-batch-size "vlf")
+
+(defconst evil-collection-vlf-maps '(vlf-mode-map))
+
+(define-obsolete-variable-alias 'evil-collection-vlf-want-g-bindings
+ 'evil-collection-want-g-bindings "0.0.11")
+
+(defun evil-collection-vlf-decrease-batch-size ()
+ "Decrease vlf batch size by factor of 2."
+ (interactive)
+ (vlf-change-batch-size t))
+
+;;; Code:
+;;;###autoload
+(defun evil-collection-vlf-setup ()
+ "Set up `evil' bindings for `vlf'."
+ (evil-set-initial-state 'vlf-mode 'normal)
+
+ (add-hook 'vlf-mode-hook #'evil-normalize-keymaps)
+
+ (evil-collection-define-key 'normal 'vlf-prefix-map
+ "gj" 'vlf-next-batch
+ "gk" 'vlf-prev-batch
+ (kbd "C-j") 'vlf-next-batch
+ (kbd "C-k") 'vlf-prev-batch
+ "]]" 'vlf-next-batch
+ "[[" 'vlf-prev-batch
+ "+" 'vlf-change-batch-size
+ "-" 'evil-collection-vlf-decrease-batch-size
+ "=" 'vlf-next-batch-from-point
+ ;; refresh
+ "gr" 'vlf-revert
+ "g%" 'vlf-query-replace
+ "go" 'vlf-occur)
+
+ (if evil-collection-want-g-bindings
+ (evil-collection-define-key 'normal 'vlf-prefix-map
+ "g/" 'vlf-re-search-forward
+ "g?" 'vlf-re-search-backward
+ "gJ" 'vlf-jump-to-chunk
+ "gE" 'vlf-ediff-buffers
+ "g:" 'vlf-goto-line
+ "gF" 'vlf-toggle-follow)
+ (evil-collection-define-key 'normal 'vlf-prefix-map
+ "s" 'vlf-re-search-forward
+ "S" 'vlf-re-search-backward
+ "J" 'vlf-jump-to-chunk
+ "E" 'vlf-ediff-buffers
+ "L" 'vlf-goto-line
+ "F" 'vlf-toggle-follow)))
+
+(provide 'evil-collection-vlf)
+;;; evil-collection-vlf.el ends here