From fc5a8f4e7351e26cb7fa85cf9766faccf88d8118 Mon Sep 17 00:00:00 2001 From: James Nguyen Date: Sat, 11 Nov 2017 17:08:06 -0800 Subject: [PATCH] Add anaconda-mode --- evil-anaconda-mode.el | 55 +++++++++++++++++++++++++++++++++++++++++++ evil-collection.el | 1 + 2 files changed, 56 insertions(+) create mode 100644 evil-anaconda-mode.el diff --git a/evil-anaconda-mode.el b/evil-anaconda-mode.el new file mode 100644 index 0000000..7ba8458 --- /dev/null +++ b/evil-anaconda-mode.el @@ -0,0 +1,55 @@ +;;; evil-anaconda-mode.el --- Bindings for `anaconda-mode'. -*- 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: + +;; 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: +;;; Bindings for `anaconda-mode'. + +;;; Code: +(require 'anaconda-mode) +(require 'evil) + +(defun evil-anaconda-mode-setup () + ;; Bindings don't seem to be set the first time. + (add-hook 'anaconda-mode-hook #'evil-normalize-keymaps) + + (evil-define-key 'normal anaconda-mode-view-mode-map + "gj" 'next-error-no-select + "gk" 'previous-error-no-select + (kbd "C-j") 'next-error-no-select + (kbd "C-k") 'previous-error-no-select + "]" 'next-error-no-select + "[" 'previous-error-no-select + "q" 'quit-window) + + (evil-define-key 'normal anaconda-mode-map + ;; Would be nice to support these too. + ;; 'anaconda-mode-find-assignments + ;; 'anaconda-mode-find-references + "gd" 'anaconda-mode-find-definitions + "C-t" 'anaconda-mode-go-back + "K" 'anaconda-mode-show-doc + "gf" 'anaconda-mode-find-file)) + +(provide 'evil-anaconda-mode) +;;; evil-anaconda-mode.el ends here diff --git a/evil-collection.el b/evil-collection.el index 4e5a5a4..7790a6b 100644 --- a/evil-collection.el +++ b/evil-collection.el @@ -36,6 +36,7 @@ ;;; Code: (defvar evil-collection-mode-list `(ag + anaconda-mode arc-mode bookmark calendar