From cfbce734b76339be3959d426128654dfa784f714 Mon Sep 17 00:00:00 2001 From: James Nguyen Date: Sun, 5 Nov 2017 09:14:10 -0800 Subject: [PATCH] Add evil-ggtags --- evil-collection.el | 5 ++- evil-ggtags.el | 81 ++++++++++++++++++++++++++++++++++++++++++++++ 2 files changed, 85 insertions(+), 1 deletion(-) create mode 100644 evil-ggtags.el diff --git a/evil-collection.el b/evil-collection.el index 740ac4a..aa09e7c 100644 --- a/evil-collection.el +++ b/evil-collection.el @@ -63,7 +63,10 @@ (evil-elisp-refs-set-keys)) (with-eval-after-load 'flycheck (require 'evil-flycheck) - (evil-flycheck-set-keys))) + (evil-flycheck-set-keys)) + (with-eval-after-load 'ggtags + (require 'evil-ggtags) + (evil-ggtags-set-keys))) ;;;###autoload (defun evil-collection-all-modes-init () diff --git a/evil-ggtags.el b/evil-ggtags.el new file mode 100644 index 0000000..47d7854 --- /dev/null +++ b/evil-ggtags.el @@ -0,0 +1,81 @@ +;;; evil-ggtags.el --- Evil integration for ggtags. -*- lexical-binding: t -*- + +;; Copyright (C) 2017 James Nguyen + +;; Author: James Nguyen +;; Maintainer: James Nguyen +;; URL: https://github.com/jojojames/evil-collection +;; Version: 0.0.1 +;; Package-Requires: ((emacs "25.1")) +;; Keywords: evil, ggtags, emacs +;; HomePage: https://github.com/jojojames/evil-collection + +;; 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 integration for `ggtags-mode'. + +;;; Code: +(require 'evil-collection-util) +(require 'ggtags) + +(defun evil-ggtags-set-keys () + (+evilify-map + ggtags-global-mode-map + :mode ggtags-global-mode) + + (+evilify-map + ggtags-view-search-history-mode-map + :bindings + "j" 'ggtags-view-search-history-prev + "\C-j" 'ggtags-view-search-history-prev + "k" 'ggtags-view-search-history-next + "\C-k" 'ggtags-view-search-history-next + "x" 'ggtags-view-search-history-kill + "r" 'ggtags-save-to-register + "\r" 'ggtags-view-search-history-action + "e" 'evil-forward-word-end + "E" 'evil-forward-WORD-end) + + (+evilify-map + ggtags-view-tag-history-mode-map + :bindings + "\C-j" 'next-error-no-select + "\C-k" 'previous-error-no-select + "e" 'evil-forward-word-end + "E" 'evil-forward-WORD-end) + + (+evilify-map + ggtags-view-tag-history-mode-map + :bindings + "\C-j" 'next-error-no-select + "\C-k" 'previous-error-no-select + "e" 'evil-forward-word-end + "E" 'evil-forward-WORD-end) + + (+evilify-map + ggtags-navigation-map + :bindings + "\C-j" 'next-error + "\C-k" 'previous-error + "\M-j" 'ggtags-navigation-next-file + "\M-k" 'ggtags-navigation-previous-file + "\M-=" 'ggtags-navigation-start-file + "\M->" 'ggtags-navigation-last-error + "\M-<" 'first-error + "e" 'evil-forward-word-end + "E" 'evil-forward-WORD-end)) + +(provide 'evil-ggtags) +;;; evil-ggtags.el ends here