Update org-super-agenda-groups

+org.el

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