From 4e2460393ac96ffe5eefc3604d72341ceab35901 Mon Sep 17 00:00:00 2001
From: Sameer Rahmani <lxsameer@gnu.org>
Date: Thu, 26 Apr 2018 19:51:58 +0100
Subject: [PATCH] imenu integration has been added

---
 lib/extensions/development.el      |  5 +++++
 lib/extensions/development/init.el | 23 +++++++++++++++++++++--
 2 files changed, 26 insertions(+), 2 deletions(-)

diff --git a/lib/extensions/development.el b/lib/extensions/development.el
index 02e2ea3..0e292b8 100644
--- a/lib/extensions/development.el
+++ b/lib/extensions/development.el
@@ -48,6 +48,11 @@
               (depends-on 'eshell-prompt-extras)
               (depends-on 'shell-pop))
 
+(with-ability imenu
+              (depends-on 'imenu)
+              (depends-on 'imenu-list)
+              (depends-on 'imenu-anywhere))
+
 ;; TODO: Add flycheck-color-modebar
 ;; TODO  Add flycheck-tip
 
diff --git a/lib/extensions/development/init.el b/lib/extensions/development/init.el
index 39e42b8..18978ef 100644
--- a/lib/extensions/development/init.el
+++ b/lib/extensions/development/init.el
@@ -73,6 +73,25 @@
                                          (bm-buffer-save-all)
                                          (bm-repository-save))))
 
+  (ability imenu ()
+           "IMenu integration for FG42"
+           (require 'imenu)
+           (require 'imenu-list)
+
+           (cheatsheet-add :group '--Development--
+                           :key   "C-'"
+                           :description "Toggle IMenu list which shows the symbol definitions based on major mode.")
+
+           (cheatsheet-add :group '--Development--
+                           :key   "C-."
+                           :description "Search for the definition of the symbol you want anywhere.")
+
+           ;; (imenu-list-minor-mode)
+           (setq imenu-list-focus-after-activation t)
+           (setq imenu-list-auto-resize t)
+           (global-set-key (kbd "C-'") #'imenu-list-smart-toggle)
+           (global-set-key (kbd "C-.") #'imenu-anywhere))
+
   (ability parinfer ()
            (add-hook 'emacs-lisp-mode-hook #'parinfer-mode))
 
@@ -92,7 +111,7 @@
                            :description "Jump to definition in another window using an external tool")
 
            (require 'dumb-jump)
-	   (dumb-jump-mode t)
+           (dumb-jump-mode t)
            (define-key dumb-jump-mode-map (kbd "M-g o") 'dumb-jump-go-other-window)
            (define-key dumb-jump-mode-map (kbd "M-g j") 'dumb-jump-go)
            (define-key dumb-jump-mode-map (kbd "C-u y") 'dumb-jump-go)
@@ -139,7 +158,7 @@
            (add-hook 'after-init-hook 'company-statistics-mode)
            (define-key company-active-map "\t" 'company-yasnippet-or-completion)
 
-	   (setq dabbrev-case-fold-search t)
+           (setq dabbrev-case-fold-search t)
 
            (add-to-list 'company-backends 'company-dabbrev)
            (add-to-list 'company-backends 'company-dabbrev-code))