Add popup rule for org-journal search commands

modules/lang/org/contrib/journal.el

@@ -32,6 +32,8 @@
     ;; ...By exploiting `org-journal-dir''s setter
     (setq! org-journal-dir (expand-file-name org-journal-dir org-directory)))
 
+  (set-popup-rule! "^\\*Org-journal search" :select t :quit t)
+
   (map! (:map org-journal-mode-map
          :n "]f"  #'org-journal-open-next-entry
          :n "[f"  #'org-journal-open-previous-entry

modules/ui/popup/+hacks.el

@@ -281,6 +281,13 @@ Ugh, such an ugly hack."
       (apply orig-fn args))))
 
 
+;;;###package org-journal
+(defadvice! +popup--use-popup-window-a (orig-fn &rest args)
+  :around #'org-journal-search-by-string
+  (letf! ((#'switch-to-buffer #'pop-to-buffer))
+    (apply orig-fn args)))
+
+
 ;;;###package persp-mode
 (defadvice! +popup--persp-mode-restore-popups-a (&rest _)
   "Restore popup windows when loading a perspective from file."