mirror of
https://codeberg.org/scip/dot-emacs.git
synced 2025-12-16 20:10:58 +01:00
23 lines
646 B
EmacsLisp
23 lines
646 B
EmacsLisp
;; *** Occur
|
|
;; https://oremacs.com/2015/01/26/occur-dwim/
|
|
;; https://github.com/abo-abo/hydra/wiki/Emacs
|
|
(defun occur-dwim ()
|
|
"Call `occur' with a sane default, chosen as the thing under point or selected region"
|
|
(interactive)
|
|
(push (if (region-active-p)
|
|
(buffer-substring-no-properties
|
|
(region-beginning)
|
|
(region-end))
|
|
(let ((sym (thing-at-point 'symbol)))
|
|
(when (stringp sym)
|
|
(regexp-quote sym))))
|
|
regexp-history)
|
|
(call-interactively 'occur))
|
|
|
|
(use-package loccur
|
|
:bind
|
|
(("C-o" . loccur-current)))
|
|
|
|
(provide 'init-occur)
|
|
;;; init-occur.el ends here
|