wgester/dotfiles
1
0
Fork 0
forked from colonelpanic/dotfiles
Code Pull Requests Activity

Get markers from entries when flattening imenu

Browse Source
This commit is contained in:
Ivan Malison 2016-08-17 17:55:24 -07:00
parent 4ed90ddf30
commit 001af75c85
No known key found for this signature in database
GPG Key ID: 62530EFBE99DC2F8
1 changed files with 9 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
dotfiles/emacs.d/README.org
View File

@ -505,17 +505,15 @@ to get this behavior out of functions that provide a nested imenu
index. index.
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(defvar imalison:imenu-separator ".") (defvar imalison:imenu-separator ".")
(defvar imalison:imenu-get-markers-from-entry-strings t)
(cl-defun imalison:flatten-index-entry (index-entry &optional (prefix "")) (cl-defun imalison:flatten-index-entry (index-entry &optional (prefix ""))
(cl-destructuring-bind (entry-name . rest) index-entry (cl-destructuring-bind (entry-name . rest) index-entry
(message "%s" rest) (message "%s" rest)
(let ((new-entry-name (concat prefix entry-name)) (let ((new-entry-name (concat prefix entry-name))
(original-properties (text-properties-at 0 entry-name))) (entry-marker
;; Inherit any text-properties that were attached to the (when imalison:imenu-get-markers-from-entry-strings
;; original entry. (imalison:get-marker-from-string entry-name))))
(set-text-properties 0 (length new-entry-name)
original-properties
new-entry-name)
(if (listp rest) (if (listp rest)
;; Internal Node ;; Internal Node
(let* ((new-prefix (concat new-entry-name imalison:imenu-separator)) (let* ((new-prefix (concat new-entry-name imalison:imenu-separator))
@ -523,14 +521,17 @@ index.
(cl-mapcan (lambda (entry) (cl-mapcan (lambda (entry)
(imalison:flatten-index-entry entry new-prefix)) (imalison:flatten-index-entry entry new-prefix))
rest))) rest)))
(if original-properties (if entry-marker
;; When the entry had properties, we may want to keep ;; When the entry had properties, we may want to keep
;; it around, because it might have a marker attached. ;; it around, because it might have a marker attached.
(cons (list new-entry-name) flattened-subentries) (cons (cons new-entry-name entry-marker) flattened-subentries)
flattened-subentries)) flattened-subentries))
;; Leaf Node ;; Leaf Node
(list (cons new-entry-name rest)))))) (list (cons new-entry-name rest))))))
(defun imalison:get-marker-from-string (string)
(--first (markerp it) (text-properties-at 0 string)))
(defun imalison:flatten-imenu-index (index) (defun imalison:flatten-imenu-index (index)
(cl-mapcan 'imalison:flatten-index-entry index)) (cl-mapcan 'imalison:flatten-index-entry index))