Skip to content

Commit c2477c9

Browse files
committed
refact: using pcase instead of if
1 parent 0e02bc8 commit c2477c9

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
@@ -325,9 +325,9 @@ this (must be a single line in the Org buffer):
325325
(cons 'heading (lambda (element)
326326
(let ((normalized-heading
327327
(org-ql-search--link-heading-search-string (org-element-property :raw-value element))))
328-
(if not-links
329-
normalized-heading
330-
(org-ql-search--org-make-link-string normalized-heading (org-link-display-format normalized-heading))))))
328+
(pcase links
329+
(t (org-ql-search--org-make-link-string normalized-heading (org-link-display-format normalized-heading)))
330+
(nil normalized-heading)))))
331331
(cons 'priority (lambda (element)
332332
(--when-let (org-element-property :priority element)
333333
(char-to-string it))))

0 commit comments

Comments
 (0)