From 8129a7eb553db49299e70e07266763e570ba151d Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Mon, 22 Feb 2016 15:23:14 -0500 Subject: [PATCH] elisp: Add imenu support for evil operators/commands --- modules/module-lisp.el | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/modules/module-lisp.el b/modules/module-lisp.el index ef094f62e..e3e880033 100644 --- a/modules/module-lisp.el +++ b/modules/module-lisp.el @@ -24,6 +24,10 @@ (add-hook 'after-save-hook 'narf-elisp-auto-compile nil t) (let ((header-face 'font-lock-constant-face)) + (add-to-list 'imenu-generic-expression + `("Evil Command" "\\(^\\s-*(evil-define-command +\\)\\(\\_<.+\\_>\\)" 2)) + (add-to-list 'imenu-generic-expression + `("Evil Operator" "\\(^\\s-*(evil-define-operator +\\)\\(\\_<.+\\_>\\)" 2)) (add-to-list 'imenu-generic-expression `("Package" "\\(^\\s-*(use-package +\\)\\(\\_<.+\\_>\\)" 2)) (add-to-list 'imenu-generic-expression @@ -41,7 +45,8 @@ (propertize x 'face (cond ((string= x "Variables") 'font-lock-variable-name-face) - ((string= x "Function") + ((or (string= x "Function") + (string-prefix-p "Evil " x t)) 'font-lock-function-name-face) ((string= x "Types") 'font-lock-type-face)