diff options
author | Alan Pearce | 2017-05-04 11:23:43 +0200 |
---|---|---|
committer | Alan Pearce | 2017-05-04 11:23:43 +0200 |
commit | e4afa65a2fa90ba330b03f34e21cafa0b12b877b (patch) | |
tree | 6661df02e2936334b8c0643eca3a2ecb2c6b0756 | |
parent | 755ccce37c2e1e72e3934fd66009d1f510b9c456 (diff) | |
download | dotfiles-e4afa65a2fa90ba330b03f34e21cafa0b12b877b.tar.lz dotfiles-e4afa65a2fa90ba330b03f34e21cafa0b12b877b.tar.zst dotfiles-e4afa65a2fa90ba330b03f34e21cafa0b12b877b.zip |
Emacs: Use counsel-imenu
-rw-r--r-- | emacs/.emacs.d/init.org | 23 |
1 files changed, 0 insertions, 23 deletions
diff --git a/emacs/.emacs.d/init.org b/emacs/.emacs.d/init.org index 0f33162..72db3f1 100644 --- a/emacs/.emacs.d/init.org +++ b/emacs/.emacs.d/init.org @@ -1371,7 +1371,6 @@ replacement for helm so far. (use-package swiper :bind (("C-s" . swiper) ("C-r" . swiper) - ("C-x i" . ivy-imenu-goto) ("C-=" . swiper)) :diminish ivy-mode :demand t @@ -1379,28 +1378,6 @@ replacement for helm so far. (ivy-mode 1) (setq ivy-re-builders-alist '((t . ivy--regex-plus)) ivy-extra-directories '("./")) - (defun ivy-imenu-get-candidates-from (alist &optional prefix) - (cl-loop for elm in alist - nconc (if (imenu--subalist-p elm) - (ivy-imenu-get-candidates-from - (cl-loop for (e . v) in (cdr elm) collect - (cons e (if (integerp v) (copy-marker v) v))) - (concat prefix (if prefix ".") (car elm))) - (and (cdr elm) ; bug in imenu, should not be needed. - (setcdr elm (copy-marker (cdr elm))) ; Same as [1]. - (list (cons (concat prefix (if prefix ".") (car elm)) - (copy-marker (cdr elm)))))))) - - (defun ivy-imenu-goto () - "Go to buffer position" - (interactive) - (let ((imenu-auto-rescan t) items) - (unless (featurep 'imenu) - (require 'imenu nil t)) - (setq items (imenu--make-index-alist t)) - (ivy-read "imenu items:" - (ivy-imenu-get-candidates-from (delete (assoc "*Rescan*" items) items)) - :action (lambda (k) (goto-char k))))) (ivy-set-actions 'ivy-switch-buffer '(("k" (lambda (x) (kill-buffer x) (ivy--reset-state ivy-last)) |