2023-04-12 16:39:35 +02:00
|
|
|
;; https://github.com/leoliu/ack-el
|
|
|
|
|
|
2023-04-12 20:25:04 +02:00
|
|
|
(defun tvd-kill-ack()
|
2023-04-13 07:23:09 +02:00
|
|
|
(interactive)
|
|
|
|
|
(let ((kill-buffer-query-functions nil))
|
|
|
|
|
(delete-window)
|
|
|
|
|
(kill-buffer "*ack*")))
|
|
|
|
|
|
|
|
|
|
(defun tvd-hook-kill-ack()
|
2023-04-12 20:25:04 +02:00
|
|
|
;; FIXME: still asks!
|
2023-04-13 07:23:09 +02:00
|
|
|
(local-set-key (kbd "q") 'tvd-kill-ack))
|
2023-04-12 20:25:04 +02:00
|
|
|
|
|
|
|
|
(use-package ack
|
|
|
|
|
:config
|
2023-04-13 07:23:09 +02:00
|
|
|
(setq ack-defaults-function 'ack-legacy-defaults)
|
|
|
|
|
(advice-add 'ack-mode :after
|
|
|
|
|
'(lambda ()
|
|
|
|
|
(switch-to-buffer "*ack*"))))
|
2023-04-12 20:25:04 +02:00
|
|
|
|
2023-04-13 07:23:09 +02:00
|
|
|
(add-hook 'ack-mode-hook 'tvd-hook-kill-ack)
|
