Re: outline-mode treesitter support?

[Juri Linkov <juri@linkov.net>]

> OK, one way to extract treesit information for outline-minor-mode is by using
> ‘treesit-simple-imenu’ because outline headings should correspond to imenu entries.

I don't know if this is a good idea, but with

  (setq-local outline-search-function #'outline-search-imenu
              outline-level (lambda () 1))

this should do the trick:

#+begin_src emacs-lisp
(defun outline-search-imenu (&optional bound move backward looking-at)
  (unless imenu--index-alist
    (imenu--make-index-alist))
  (let* ((imenu-index (cdar imenu--index-alist))
         (imenu-positions (mapcar (lambda (i) (cdr i)) imenu-index)))
    (if looking-at
        (when (member (point-marker) imenu-positions)
          (set-match-data (list (pos-bol) (pos-eol)))
          t)
      (let ((found (if backward
                       (seq-find (lambda (p) (< p (pos-bol))) (nreverse imenu-positions))
                     (seq-find (lambda (p) (> p (pos-eol))) imenu-positions))))
        (if found
            (if (or (not bound) (if backward (>= found bound) (<= found bound)))
                (progn
                  (goto-char found)
                  (goto-char (pos-bol))
                  (set-match-data (list (point) (pos-eol)))
                  t)
              (when move (goto-char bound))
              nil)
          (when move (goto-char (or bound (if backward (point-min) (point-max)))))
          nil)))))
#+end_src