Skip to content

Commit fb29106

Browse files
committed
refact: using pcase instead of if
1 parent 6ec7323 commit fb29106

File tree

1 file changed

+3
-3
lines changed

1 file changed

+3
-3
lines changed

org-ql-search.el

+3-3
Original file line numberDiff line numberDiff line change
@@ -322,9 +322,9 @@ this (must be a single line in the Org buffer):
322322
(cons 'heading (lambda (element)
323323
(let ((normalized-heading
324324
(org-ql-search--link-heading-search-string (org-element-property :raw-value element))))
325-
(if not-links
326-
normalized-heading
327-
(org-ql-search--org-make-link-string normalized-heading (org-link-display-format normalized-heading))))))
325+
(pcase links
326+
(t (org-ql-search--org-make-link-string normalized-heading (org-link-display-format normalized-heading)))
327+
(nil normalized-heading)))))
328328
(cons 'priority (lambda (element)
329329
(--when-let (org-element-property :priority element)
330330
(char-to-string it))))

0 commit comments

Comments
 (0)