jiri/org-ql
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add: (org-ql-view--format-element) effort properties

Browse source 
Org uses the nested properties within the 'txt' property for effort-related
computations. The contents of 'txt' itself are not used for anything (and is
usually set to a string of the headline), so we do the same here.
This commit is contained in:
Ankit Pandey 2024-02-24 17:54:40 -08:00
parent c9370982bf
commit ae202356b1
2 changed files with 19 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

5
org-ql-view.el
View file

@ -904,6 +904,8 @@ return an empty string."
(file-name-sans-extension (file-name-sans-extension
(file-name-nondirectory buffer-file-name)))))) (file-name-nondirectory buffer-file-name))))))
"")) ""))
(effort-string (org-element-property (intern (concat ":" (upcase org-effort-property))) element))
(effort (when effort-string (org-duration-to-minutes effort-string)))
(priority-string (-some->> (org-element-property :priority element) (priority-string (-some->> (org-element-property :priority element)
(char-to-string) (char-to-string)
(format "[#%s]") (format "[#%s]")
@ -926,6 +928,9 @@ return an empty string."
'org-category category 'org-category category
'todo-state todo-keyword 'todo-state todo-keyword
'tags tag-list 'tags tag-list
'txt (org-add-props string nil
'effort effort-string
'effort-minutes effort)
'org-habit-p habit-property))))) 'org-habit-p habit-property)))))
(defun org-ql-view--add-faces (element) (defun org-ql-view--add-faces (element)

14
tests/test-org-ql.el
View file

@ -176,6 +176,20 @@ with keyword arg NOW in PLIST."
(cl-loop while (re-search-forward org-heading-regexp nil t) (cl-loop while (re-search-forward org-heading-regexp nil t)
sum 1))))) sum 1)))))
(describe "Agenda"
(require 'org-agenda)
(it "Sets effort properties for formatted element"
(let* ((element (car (org-ql-select org-ql-test-buffer '(effort 30))))
(item (org-ql-view--format-element element)))
(with-temp-buffer
(goto-char (point-min))
(insert item)
(expect
(org-agenda-compare-effort #'= 30.0)
:to-equal t)))))
(describe "Caching" (describe "Caching"
(it "Clears value cache after buffer changes" (it "Clears value cache after buffer changes"