diff --git a/modules/completion/vertico/config.el b/modules/completion/vertico/config.el
index 0b6cc6b9c..e2637b3bb 100644
--- a/modules/completion/vertico/config.el
+++ b/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)
diff --git a/modules/ui/popup/+hacks.el b/modules/ui/popup/+hacks.el
index 3cfe40144..6f561649d 100644
--- a/modules/ui/popup/+hacks.el
+++ b/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)