From 517a37659d165d42c940722ae8a21f1495c02a76 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Maikol=20Sol=C3=ADs?= Date: Mon, 30 Aug 2021 11:58:34 -0600 Subject: [PATCH] Fix: (org-dblock-write:org-ql) remove cookies (V2) Fixes https://github.com/alphapapa/org-ql/issues/248 Thanks to @yantar92 (https://github.com/alphapapa/org-ql/pull/249#issuecomment-907546526) --- org-ql-search.el | 14 ++++++++------ 1 file changed, 8 insertions(+), 6 deletions(-) diff --git a/org-ql-search.el b/org-ql-search.el index 8c48bac..61b4525 100644 --- a/org-ql-search.el +++ b/org-ql-search.el @@ -285,12 +285,14 @@ 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 (replace-regexp-in-string "\[[[:digit:]]*/[[:digit:]]*\]\\|\[[[:digit:]]*\%\]" "" - (org-element-property :raw-value element)) - (org-link-display-format - (replace-regexp-in-string "\[[[:digit:]]*/[[:digit:]]*\]\\|\[[[:digit:]]*\%\]" "" - (org-element-property :raw-value element)))))) - (cons 'priority (lambda (element) + (org-make-link-string (s-trim (org-element-interpret-data + (--remove (eq 'statistics-cookie (org-element-type it)) + (org-element-property :title element)))) + (org-link-display-format + (s-trim (org-element-interpret-data + (--remove (eq 'statistics-cookie (org-element-type it)) + (org-element-property :title element)))))))) + (cons 'priority (lambda (element) (--when-let (org-element-property :priority element) (char-to-string it)))) (cons 'deadline (lambda (element)