Open embark grep buffers in popup

Author: hlissner

modules/completion/vertico/config.el

@@ -122,6 +122,8 @@ variable overrides `completion-styles' during company completion sessions.")
   (define-key!
     [remap describe-bindings] #'embark-bindings)
   :config
+  (set-popup-rule! "^\\*Embark Export Grep" :size 0.35 :ttl 0 :quit nil)
+
   (setq embark-action-indicator
         (lambda (map _target)
           (which-key--show-keymap "Embark" map nil nil 'no-paging)

modules/ui/popup/+hacks.el

@@ -65,6 +65,17 @@ to this commmand."
     (apply orig-fn args)))
 
 
+;;;###package compile
+(defadvice! +popup--compilation-goto-locus-a (orig-fn &rest args)
+  "Fix links in popup compilation buffers creating a new window each time they
+were followed."
+  :around #'compilation-goto-locus
+  (letf! (defun pop-to-buffer (buffer &optional action norecord)
+           (let ((pop-up-windows (not (+popup-buffer-p (current-buffer)))))
+             (funcall pop-to-buffer buffer action norecord)))
+    (apply orig-fn args)))
+
+
 ;;;###package eshell
 (progn
   (setq eshell-destroy-buffer-when-process-dies t)