From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.io!.POSTED.blaine.gmane.org!not-for-mail From: Juri Linkov Newsgroups: gmane.emacs.devel Subject: Re: outline-mode treesitter support? Date: Wed, 20 Dec 2023 19:08:46 +0200 Organization: LINKOV.NET Message-ID: <864jgc94yp.fsf@mail.linkov.net> References: <1D18C79B-A9D5-4ECD-A95C-33159A28E2CD@gmail.com> <86r0jit8rn.fsf@mail.linkov.net> <8C0E4C36-4323-4E1B-A7A5-25A76CE5716C@gmail.com> <86sf3xjtfe.fsf@mail.linkov.net> Mime-Version: 1.0 Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: 8bit Injection-Info: ciao.gmane.io; posting-host="blaine.gmane.org:116.202.254.214"; logging-data="18333"; mail-complaints-to="usenet@ciao.gmane.io" User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/30.0.50 (x86_64-pc-linux-gnu) Cc: emacs-devel@gnu.org To: Huan Nguyen Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane-mx.org@gnu.org Wed Dec 20 18:16:25 2023 Return-path: Envelope-to: ged-emacs-devel@m.gmane-mx.org Original-Received: from lists.gnu.org ([209.51.188.17]) by ciao.gmane.io with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.92) (envelope-from ) id 1rG0BE-0004bj-EK for ged-emacs-devel@m.gmane-mx.org; Wed, 20 Dec 2023 18:16:24 +0100 Original-Received: from localhost ([::1] helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1rG0AW-0000UX-QV; Wed, 20 Dec 2023 12:15:42 -0500 Original-Received: from eggs.gnu.org ([2001:470:142:3::10]) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1rG0AN-0000SH-8X for emacs-devel@gnu.org; Wed, 20 Dec 2023 12:15:33 -0500 Original-Received: from relay3-d.mail.gandi.net ([2001:4b98:dc4:8::223]) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1rG0AA-0002aH-MH for emacs-devel@gnu.org; Wed, 20 Dec 2023 12:15:30 -0500 Original-Received: by mail.gandi.net (Postfix) with ESMTPSA id 8897D60003; Wed, 20 Dec 2023 17:15:11 +0000 (UTC) In-Reply-To: <86sf3xjtfe.fsf@mail.linkov.net> (Juri Linkov's message of "Wed, 20 Dec 2023 09:50:13 +0200") X-GND-Sasl: juri@linkov.net Received-SPF: pass client-ip=2001:4b98:dc4:8::223; envelope-from=juri@linkov.net; helo=relay3-d.mail.gandi.net X-Spam_score_int: -18 X-Spam_score: -1.9 X-Spam_bar: - X-Spam_report: (-1.9 / 5.0 requ) BAYES_00=-1.9, SPF_HELO_PASS=-0.001, SPF_PASS=-0.001, T_SCC_BODY_TEXT_LINE=-0.01 autolearn=ham autolearn_force=no X-Spam_action: no action X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.1.29 Precedence: list List-Id: "Emacs development discussions." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-devel-bounces+ged-emacs-devel=m.gmane-mx.org@gnu.org Original-Sender: emacs-devel-bounces+ged-emacs-devel=m.gmane-mx.org@gnu.org Xref: news.gmane.io gmane.emacs.devel:314021 Archived-At: > 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