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: define prot-search-outline-hook and use it with pulsar

Browse source
This commit is contained in:
Protesilaos Stavrou 2023-12-25 13:26:43 +02:00
parent 2856ce9905
commit f1d93d4a86
No known key found for this signature in database
GPG key ID: 99BD6459CD5CA3EA
3 changed files with 18 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
emacs/.emacs.d/prot-emacs-modules/prot-emacs-search.el
View file

@ -41,6 +41,10 @@
(concat "TODO\\|FIXME\\|NOTE\\|REVIEW\\|XXX\\|KLUDGE"
"\\|HACK\\|WARN\\|WARNING\\|DEPRECATED\\|BUG"))
(with-eval-after-load 'pulsar
(add-hook 'prot-search-outline-hook #'pulsar-recenter-center)
(add-hook 'prot-search-outline-hook #'pulsar-reveal-entry))
(prot-emacs-keybind global-map
"M-s M-%" #'prot-search-replace-markup ; see `prot-search-markup-replacements'
"M-s M-<" #'prot-search-isearch-beginning-of-buffer

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

@ -4305,6 +4305,10 @@ active and the Completions window is on display."
(concat "TODO\\|FIXME\\|NOTE\\|REVIEW\\|XXX\\|KLUDGE"
"\\|HACK\\|WARN\\|WARNING\\|DEPRECATED\\|BUG"))
(with-eval-after-load 'pulsar
(add-hook 'prot-search-outline-hook #'pulsar-recenter-center)
(add-hook 'prot-search-outline-hook #'pulsar-reveal-entry))
(prot-emacs-keybind global-map
"M-s M-%" #'prot-search-replace-markup ; see `prot-search-markup-replacements'
"M-s M-<" #'prot-search-isearch-beginning-of-buffer
@ -11974,13 +11978,17 @@ Also see `prot-search-grep-todo-keywords'."
(nreverse candidates)
(user-error "No outline"))))
(defvar prot-search-outline-hook nil
"Normal hook to run at the end of `prot-search-outline'.")
;;;###autoload
(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))
(line (string-to-number (car (split-string selection "\t")))))
(goto-line line)))
(goto-line line)
(run-hooks 'prot-search-outline-hook)))
;;;; Grep

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

@ -319,13 +319,17 @@ Also see `prot-search-grep-todo-keywords'."
(nreverse candidates)
(user-error "No outline"))))
(defvar prot-search-outline-hook nil
"Normal hook to run at the end of `prot-search-outline'.")
;;;###autoload
(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))
(line (string-to-number (car (split-string selection "\t")))))
(goto-line line)))
(goto-line line)
(run-hooks 'prot-search-outline-hook)))
;;;; Grep