tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

agenda: Fold case when retrieving user-configured effort values 

* lisp/org-agenda.el (org-agenda-filter-by-effort):
(org-agenda-filter-completion-function): Ignore case when querying
effort property key in org-global-properties since property keys are
documented as case-insensitive.
This commit is contained in:
Kyle Meyer 2020-07-09 00:33:09 -04:00
parent eac255d911
commit 95eaab7f44
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lisp/org-agenda.el
View File

@ -7611,8 +7611,9 @@ This last option is in practice not very useful, but it is available for
consistency with the other filter commands." consistency with the other filter commands."
(interactive "P") (interactive "P")
(let* ((efforts (split-string (let* ((efforts (split-string
(or (cdr (assoc (concat org-effort-property "_ALL") (or (cdr (assoc-string (concat org-effort-property "_ALL")
org-global-properties)) org-global-properties
t))
"0 0:10 0:30 1:00 2:00 3:00 4:00 5:00 6:00 7:00"))) "0 0:10 0:30 1:00 2:00 3:00 4:00 5:00 6:00 7:00")))
;; XXX: the following handles only up to 10 different ;; XXX: the following handles only up to 10 different
;; effort values. ;; effort values.
@ -7777,8 +7778,9 @@ which see."
(org-agenda-get-represented-tags)))) (org-agenda-get-represented-tags))))
((member operator '("<" ">" "=")) ((member operator '("<" ">" "="))
(setq table (split-string (setq table (split-string
(or (cdr (assoc (concat org-effort-property "_ALL") (or (cdr (assoc-string (concat org-effort-property "_ALL")
org-global-properties)) org-global-properties
t))
"0 0:10 0:30 1:00 2:00 3:00 4:00 5:00 6:00 7:00") "0 0:10 0:30 1:00 2:00 3:00 4:00 5:00 6:00 7:00")
" +"))) " +")))
(t (setq table nil))) (t (setq table nil)))