HACK: Fix search in folded sections in org-mode

+org.el

@@ -183,3 +183,27 @@
 (setq org-goto-interface 'outline-path-completion
       org-goto-max-level 1)
 (use-package! org-capture-ref)
+;; HACK Fix search folded sections
+(after! org-fold-core
+  (defun org-show-current-heading-tidily ()
+    (interactive)  ;Inteactive
+    "Show next entry, keeping other entries closed."
+    (if (save-excursion (end-of-line) (outline-invisible-p))
+        (progn (org-show-entry) (show-children))
+      (setq-local my:current_line (line-number-at-pos))
+      (outline-back-to-heading)
+      (unless (and (bolp) (org-on-heading-p))
+        (org-up-heading-safe)
+        (hide-subtree)
+        (error "Boundary reached"))
+      (org-overview)
+      (org-reveal t)
+      (org-show-entry)
+      (show-children)
+      (goto-line my:current_line)))
+  (defun qw/search-buffer ()
+    (interactive)
+    (org-fold-show-all)
+    (+default/search-buffer)
+    (org-show-current-heading-tidily)))
+(map! :leader :n "s s" #'qw/search-buffer)