summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--init.el8
-rw-r--r--lisp/evil-little-word.el126
2 files changed, 134 insertions, 0 deletions
diff --git a/init.el b/init.el
index f41c06e..e87d748 100644
--- a/init.el
+++ b/init.el
@@ -9,6 +9,8 @@
package-archives)
(package-initialize)
+(add-to-list 'load-path "~/.emacs.d/lisp")
+
;; GUI settings
(tool-bar-mode -1)
(menu-bar-mode -1)
@@ -59,6 +61,12 @@ This functions should be added to the hooks of major modes for programming."
(require 'evil)
(evil-mode 1)
+(require 'evil-little-word)
+(define-key evil-motion-state-map (kbd "w") 'evil-forward-little-word-begin)
+(define-key evil-motion-state-map (kbd "glw") 'evil-forward-word-begin)
+(define-key evil-motion-state-map (kbd "b") 'evil-backward-little-word-begin)
+(define-key evil-motion-state-map (kbd "glb") 'evil-backward-word-begin)
+
(defun comment-or-uncomment-region-or-line ()
"Comments or uncomments the region or the current line if there's no active region."
(interactive)
diff --git a/lisp/evil-little-word.el b/lisp/evil-little-word.el
new file mode 100644
index 0000000..f5bb2bb
--- /dev/null
+++ b/lisp/evil-little-word.el
@@ -0,0 +1,126 @@
+;;; evil-little-word.el --- Emulate camelcasemotion.vim
+
+;; Author: INA Lintaro <tarao.gnn at gmail.com>
+;; URL: http://github.com/tarao/evil-plugins
+;; Version: 0.1
+;; Keywords: evil, plugin
+
+;; This file is NOT part of GNU Emacs.
+
+;;; License:
+;;
+;; 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/>.
+
+;;; Code:
+
+(require 'evil)
+
+(defun maybe-define-category (cat doc &optional table)
+ (unless (category-docstring cat table) (define-category cat doc table)))
+
+(let (uc lc defs (table (standard-category-table)))
+ (map-char-table
+ #'(lambda (key value)
+ (when (natnump value)
+ (let (from to)
+ (if (consp key)
+ (setq from (car key) to (cdr key))
+ (setq from (setq to key)))
+ (while (<= from to)
+ (cond ((/= from (downcase from))
+ (add-to-list 'uc from))
+ ((/= from (upcase from))
+ (add-to-list 'lc from)))
+ (setq from (1+ from))))))
+ (standard-case-table))
+ (setq defs `(("Uppercase" ?U ,uc)
+ ("Lowercase" ?u ,lc)
+ ("Underscore" ?_ (?_))))
+ (dolist (elt defs)
+ (maybe-define-category (cadr elt) (car elt) table)
+ (dolist (ch (car (cddr elt)))
+ (modify-category-entry ch (cadr elt) table))))
+
+(defgroup evil-little-word nil
+ "CamelCase and snake_case word movement support."
+ :prefix "evil-little-word-"
+ :group 'evil)
+
+(defcustom evil-little-word-separating-categories
+ (append evil-cjk-word-separating-categories '((?u . ?U) (?_ . ?u) (?_ . ?U)))
+ "List of pair (cons) of categories to determine word boundary
+for little word movement. See the documentation of
+`word-separating-categories'. Use `describe-categories' to see
+the list of categories."
+ :type '((character . character))
+ :group 'evil-little-word)
+
+(defcustom evil-little-word-combining-categories
+ (append evil-cjk-word-combining-categories '())
+ "List of pair (cons) of categories to determine word boundary
+for little word movement. See the documentation of
+`word-combining-categories'. Use `describe-categories' to see the
+list of categories."
+ :type '((character . character))
+ :group 'evil-little-word)
+
+(defmacro evil-with-little-word (&rest body)
+ (declare (indent defun) (debug t))
+ `(let ((evil-cjk-word-separating-categories
+ evil-little-word-separating-categories)
+ (evil-cjk-word-combining-categories
+ evil-little-word-combining-categories))
+ ,@body))
+
+(defun forward-evil-little-word (&optional count)
+ "Forward by little words."
+ (evil-with-little-word (forward-evil-word count)))
+
+(evil-define-motion evil-forward-little-word-begin (count)
+ "Move the cursor to the beginning of the COUNT-th next little word."
+ :type exclusive
+ (evil-with-little-word (evil-forward-word-begin count)))
+
+(evil-define-motion evil-forward-little-word-end (count)
+ "Move the cursor to the end of the COUNT-th next little word."
+ :type inclusive
+ (evil-with-little-word (evil-forward-word-end count)))
+
+(evil-define-motion evil-backward-little-word-begin (count)
+ "Move the cursor to the beginning of the COUNT-th previous little word."
+ :type exclusive
+ (evil-with-little-word (evil-backward-word-begin count)))
+
+(evil-define-motion evil-backward-little-word-end (count)
+ "Move the cursor to the end of the COUNT-th previous little word."
+ :type inclusive
+ (evil-with-little-word (evil-backward-word-end count)))
+
+(evil-define-text-object evil-a-little-word (count &optional beg end type)
+ "Select a little word."
+ (evil-select-an-object 'evil-little-word beg end type count))
+
+(evil-define-text-object evil-inner-little-word (count &optional beg end type)
+ "Select inner little word."
+ (evil-select-inner-object 'evil-little-word beg end type count))
+
+(define-key evil-motion-state-map (kbd "glw") 'evil-forward-little-word-begin)
+(define-key evil-motion-state-map (kbd "glb") 'evil-backward-little-word-begin)
+(define-key evil-motion-state-map (kbd "glW") 'evil-forward-little-word-end)
+(define-key evil-motion-state-map (kbd "glB") 'evil-backward-little-word-end)
+(define-key evil-outer-text-objects-map (kbd "lw") 'evil-a-little-word)
+(define-key evil-inner-text-objects-map (kbd "lw") 'evil-inner-little-word)
+
+(provide 'evil-little-word)
+;;; evil-little-word.el ends here