dotfiles-misc/protesilaos.dotfiles
1
0
Fork 0
mirror of https://github.com/protesilaos/dotfiles.git synced 2026-09-10 07:16:20 -04:00
Code Issues Actions Packages Projects Releases Wiki Activity

emacs: make prot-search-outline use imenu category with no sorting

Browse source
This commit is contained in:
Protesilaos Stavrou 2023-12-28 06:49:37 +02:00
parent f07ffa8c99
commit 5f7ac02ffa
No known key found for this signature in database
GPG key ID: 99BD6459CD5CA3EA
3 changed files with 36 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

19
emacs/.emacs.d/prot-emacs.org
View file

@ -8127,6 +8127,16 @@ tools (e.g. `embark')."
`(metadata (category . ,category))
(complete-with-action action candidates string pred))))
;;;###autoload
(defun prot-common-completion-table-no-sort (category candidates)
"Pass appropriate metadata CATEGORY to completion CANDIDATES.
Like `prot-common-completion-table' but also disable sorting."
(lambda (string pred action)
(if (eq action 'metadata)
`(metadata (category . ,category)
(display-sort-function . ,#'identity))
(complete-with-action action candidates string pred))))
;; Thanks to Igor Lima for the `prot-common-crm-exclude-selected-p':
;; <https://github.com/0x462e41>.
;; This is used as a filter predicate in the relevant prompts.
@ -12146,6 +12156,13 @@ Also see `prot-search-grep-todo-keywords'."
(nreverse candidates)
(user-error "No outline"))))
(defun prot-search--outline-prompt ()
"Prompt for outline among headings retrieved by `prot-search--get-outline'."
(completing-read
"Go to outline: "
(prot-common-completion-table-no-sort 'imenu (prot-search--get-outline))
nil :require-match))
(defvar prot-search-outline-hook nil
"Normal hook to run at the end of `prot-search-outline'.")
@ -12153,7 +12170,7 @@ Also see `prot-search-grep-todo-keywords'."
(defun prot-search-outline ()
"Go to the line of the given outline using completion."
(interactive)
(when-let ((selection (completing-read "Go to outline: " (prot-search--get-outline) nil :require-match))
(when-let ((selection (prot-search--outline-prompt))
(line (string-to-number (car (split-string selection "\t")))))
(goto-line line)
(run-hooks 'prot-search-outline-hook)))

10
emacs/.emacs.d/prot-lisp/prot-common.el
View file

@ -244,6 +244,16 @@ tools (e.g. `embark')."
`(metadata (category . ,category))
(complete-with-action action candidates string pred))))
;;;###autoload
(defun prot-common-completion-table-no-sort (category candidates)
"Pass appropriate metadata CATEGORY to completion CANDIDATES.
Like `prot-common-completion-table' but also disable sorting."
(lambda (string pred action)
(if (eq action 'metadata)
`(metadata (category . ,category)
(display-sort-function . ,#'identity))
(complete-with-action action candidates string pred))))
;; Thanks to Igor Lima for the `prot-common-crm-exclude-selected-p':
;; <https://github.com/0x462e41>.
;; This is used as a filter predicate in the relevant prompts.

9
emacs/.emacs.d/prot-lisp/prot-search.el
View file

@ -319,6 +319,13 @@ Also see `prot-search-grep-todo-keywords'."
(nreverse candidates)
(user-error "No outline"))))
(defun prot-search--outline-prompt ()
"Prompt for outline among headings retrieved by `prot-search--get-outline'."
(completing-read
"Go to outline: "
(prot-common-completion-table-no-sort 'imenu (prot-search--get-outline))
nil :require-match))
(defvar prot-search-outline-hook nil
"Normal hook to run at the end of `prot-search-outline'.")
@ -326,7 +333,7 @@ Also see `prot-search-grep-todo-keywords'."
(defun prot-search-outline ()
"Go to the line of the given outline using completion."
(interactive)
(when-let ((selection (completing-read "Go to outline: " (prot-search--get-outline) nil :require-match))
(when-let ((selection (prot-search--outline-prompt))
(line (string-to-number (car (split-string selection "\t")))))
(goto-line line)
(run-hooks 'prot-search-outline-hook)))