commit 475757403ca6c3bc442c1f292d3e45c504d0f6d6 parent 368437e33dc9f401869d7a6264736d5a0e21a738 Author: Vincent Demeester <vincent@sbr.pm> Date: Fri, 24 Sep 2021 18:41:45 +0200 tools/emacs: remove unused custom func Signed-off-by: Vincent Demeester <vincent@sbr.pm> Diffstat:
| M | tools/emacs/config/config-navigating.el | | | 25 | +------------------------ |
1 file changed, 1 insertion(+), 24 deletions(-)
diff --git a/tools/emacs/config/config-navigating.el b/tools/emacs/config/config-navigating.el @@ -43,33 +43,10 @@ (let ((urls browse-url-button-regexp)) (occur urls "\\&"))) - (defun vde/occur-browse-url-in-buffer () - "Run `eww' on a URL from the buffer using completion. -Also see `vde/occur-url'." - (interactive) - (let ((matches nil)) - (save-excursion - (goto-char (point-min)) - (while (search-forward-regexp browse-url-button-regexp nil t) - (push (match-string-no-properties 0) matches))) - (icomplete-vertical-do - (:height (/ (frame-height) 4) :separator 'dotted-line) - (eww - (completing-read "Browse URL: " matches nil t))))) - - (defun vde/occur-visit-or-list-urls (&optional arg) - "Wrap `vde/occur-visit-or-list-urls' and `vde/occur-url'. -Meant to economise on key bindings." - (interactive "P") - (if arg - (vde/occur-url) - (vde/occur-browse-url-in-buffer))) - :hook ((occur-mode . hl-line-mode) (occur-mode . (lambda () (toggle-truncate-lines t)))) - :bind (("M-s u" . vde/occur-visit-or-list-urls) - ("M-s M-o" . multi-occur) + :bind (("M-s M-o" . multi-occur) :map occur-mode-map ("t" . toggle-truncate-lines)))