diff --git a/org-ql-search.el b/org-ql-search.el index 298ef31..8c48bac 100644 --- a/org-ql-search.el +++ b/org-ql-search.el @@ -285,9 +285,11 @@ For example, an org-ql dynamic block header could look like: (list (cons 'todo (lambda (element) (org-element-property :todo-keyword element))) (cons 'heading (lambda (element) - (org-make-link-string (car (org-element-property :title element)) + (org-make-link-string (replace-regexp-in-string "\[[[:digit:]]*/[[:digit:]]*\]\\|\[[[:digit:]]*\%\]" "" + (org-element-property :raw-value element)) (org-link-display-format - (car (org-element-property :title element)))))) + (replace-regexp-in-string "\[[[:digit:]]*/[[:digit:]]*\]\\|\[[[:digit:]]*\%\]" "" + (org-element-property :raw-value element)))))) (cons 'priority (lambda (element) (--when-let (org-element-property :priority element) (char-to-string it))))