refact: using pcase instead of if

alphapapa · Jan 8, 2024 · fb29106 · fb29106
1 parent 6ec7323
commit fb29106
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/org-ql-search.el b/org-ql-search.el
@@ -322,9 +322,9 @@ this (must be a single line in the Org buffer):
                  (cons 'heading (lambda (element)
                                   (let ((normalized-heading
                                          (org-ql-search--link-heading-search-string (org-element-property :raw-value element))))
-                                    (if not-links
-                                        normalized-heading
-                                      (org-ql-search--org-make-link-string normalized-heading (org-link-display-format normalized-heading))))))
+                                    (pcase links
+                                      (t (org-ql-search--org-make-link-string normalized-heading (org-link-display-format normalized-heading)))
+                                      (nil normalized-heading)))))
                  (cons 'priority (lambda (element)
                                    (--when-let (org-element-property :priority element)
                                      (char-to-string it))))