From ea50412bc5847a367d8974f2875bc97598cf3545 Mon Sep 17 00:00:00 2001
From: Thomas von Dein <tom@vondein.org>
Date: Thu, 13 Apr 2023 07:23:09 +0200
Subject: [PATCH] fixed ack problems

---
 TODO.md           |  3 ---
 conf-lisp/grep.el | 15 ++++++++++++---
 2 files changed, 12 insertions(+), 6 deletions(-)

diff --git a/TODO.md b/TODO.md
index dbde3e0..e69de29 100644
--- a/TODO.md
+++ b/TODO.md
@@ -1,3 +0,0 @@
-# c-y y doesnt work
-    unknown argument for?!?!
-# ack 'q' still asks to kill process
diff --git a/conf-lisp/grep.el b/conf-lisp/grep.el
index c4f316c..4f0aa4d 100644
--- a/conf-lisp/grep.el
+++ b/conf-lisp/grep.el
@@ -1,11 +1,20 @@
 ;; https://github.com/leoliu/ack-el
 
 (defun tvd-kill-ack()
+  (interactive)
+  (let ((kill-buffer-query-functions nil))
+    (delete-window)
+    (kill-buffer "*ack*")))
+
+(defun tvd-hook-kill-ack()
   ;; FIXME: still asks!
-  (local-set-key (kbd "q") 'kill-buffer-and-window))
+  (local-set-key (kbd "q") 'tvd-kill-ack))
 
 (use-package ack
   :config
-  (setq ack-defaults-function 'ack-legacy-defaults))
+  (setq ack-defaults-function 'ack-legacy-defaults)
+  (advice-add 'ack-mode :after
+    '(lambda ()
+       (switch-to-buffer "*ack*"))))
 
-(add-hook 'ack-mode-hook 'tvd-kill-ack)
+(add-hook 'ack-mode-hook 'tvd-hook-kill-ack)