Sample document
--- title: Wat --- ## Section a ### Sub 1 ### Sub 11 ## Section b ### Sub 2
The imenu output of counsel-imenu and also the outline in treemacs shows this hierarchy:
I expected Section b and Section a to be siblings, but Section b is demoted to a child of Section a.
The code that is responsible for this is likely this parser:
(defun markdown-imenu-create-nested-index () "Create and return a nested imenu index alist for the current buffer. See `imenu-create-index-function' and `imenu--index-alist' for details." (let* ((root '(nil . nil)) cur-alist (cur-level 0) (empty-heading "-") (self-heading ".") hashes pos level heading) (save-excursion ;; Headings (goto-char (point-min)) (while (re-search-forward markdown-regex-header (point-max) t) (unless (markdown-code-block-at-point-p) (cond ((match-string-no-properties 2) ;; level 1 setext (setq heading (match-string-no-properties 1)) (setq pos (match-beginning 1) level 1)) ((match-string-no-properties 3) ;; level 2 setext (setq heading (match-string-no-properties 1)) (setq pos (match-beginning 1) level 2)) ((setq hashes (markdown-trim-whitespace (match-string-no-properties 4))) (setq heading (match-string-no-properties 5) pos (match-beginning 4) level (length hashes)))) (let ((alist (list (cons heading pos)))) (cond ((= cur-level level) ; new sibling (setcdr cur-alist alist) (setq cur-alist alist)) ((< cur-level level) ; first child (dotimes (_ (- level cur-level 1)) (setq alist (list (cons empty-heading alist)))) (if cur-alist (let* ((parent (car cur-alist)) (self-pos (cdr parent))) (setcdr parent (cons (cons self-heading self-pos) alist))) (setcdr root alist)) ; primogenitor (setq cur-alist alist) (setq cur-level level)) (t ; new sibling of an ancestor (let ((sibling-alist (last (cdr root)))) (dotimes (_ (1- level)) (setq sibling-alist (last (cdar sibling-alist)))) (setcdr sibling-alist alist) (setq cur-alist alist)) (setq cur-level level)))))) ;; Footnotes (let ((fn (markdown-get-defined-footnotes))) (if (or (zerop (length fn)) (null markdown-add-footnotes-to-imenu)) (cdr root) (nconc (cdr root) (list (cons "Footnotes" fn))))))))I may or may not be able to adjust this myself, we'll see, as my elisp isn't that good :) So I'm posting this issue to track the behavior. If someone else chimes in, great!.
RetroSearch is an open source project built by @garambo | Open a GitHub Issue
Search and Browse the WWW like it's 1997 | Search results from DuckDuckGo
HTML:
3.2
| Encoding:
UTF-8
| Version:
0.7.4
