* Bug: Estimate effort ranges do not work [9.1.3 (9.1.3-elpa @ /home/francisv/.emacs.d/elpa/org-20171116/)]
@ 2017-11-23 12:59 Francisco Velázquez
2017-11-26 12:43 ` Nicolas Goaziou
0 siblings, 1 reply; 4+ messages in thread
From: Francisco Velázquez @ 2017-11-23 12:59 UTC (permalink / raw)
To: emacs-orgmode
[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #1: estplus.org --]
[-- Type: text/x-org, Size: 97 bytes --]
#+COLUMNS: %Item %Effort{est+}
* Estimated effort
:PROPERTIES:
:Effort: 1:00-2:00
:END:
[-- Attachment #2: estplus.backtrace --]
[-- Type: application/octet-stream, Size: 32989 bytes --]
Debugger entered--Lisp error: (error "Invalid duration format: \"1:00-2:00\"")
signal(error ("Invalid duration format: \"1:00-2:00\""))
error("Invalid duration format: %S" "1:00-2:00")
org-duration-to-minutes("1:00-2:00")
funcall(org-duration-to-minutes "1:00-2:00")
(put-text-property start end prop (funcall f p))
(let ((f x146) (prop x145)) (put-text-property start end prop (funcall f p)))
(let* ((x145 (car x144)) (x146 (cdr x144))) (let ((f x146) (prop x145)) (put-text-property start end prop (funcall f p))))
(let ((x144 (car --dolist-tail--))) (let* ((x145 (car x144)) (x146 (cdr x144))) (let ((f x146) (prop x145)) (put-text-property start end prop (funcall f p)))) (setq --dolist-tail-- (cdr --dolist-tail--)))
(while --dolist-tail-- (let ((x144 (car --dolist-tail--))) (let* ((x145 (car x144)) (x146 (cdr x144))) (let ((f x146) (prop x145)) (put-text-property start end prop (funcall f p)))) (setq --dolist-tail-- (cdr --dolist-tail--))))
(let ((--dolist-tail-- tprop)) (while --dolist-tail-- (let ((x144 (car --dolist-tail--))) (let* ((x145 (car x144)) (x146 (cdr x144))) (let ((f x146) (prop x145)) (put-text-property start end prop (funcall f p)))) (setq --dolist-tail-- (cdr --dolist-tail--)))))
(if (symbolp tprop) (put-text-property start end tprop p) (let ((--dolist-tail-- tprop)) (while --dolist-tail-- (let ((x144 (car --dolist-tail--))) (let* ((x145 (car x144)) (x146 (cdr x144))) (let ((f x146) (prop x145)) (put-text-property start end prop (funcall f p)))) (setq --dolist-tail-- (cdr --dolist-tail--))))))
(let ((start (point)) (end (save-excursion (if inherit (org-end-of-subtree t t) (or (outline-next-heading) (point-max)))))) (if (symbolp tprop) (put-text-property start end tprop p) (let ((--dolist-tail-- tprop)) (while --dolist-tail-- (let ((x144 (car --dolist-tail--))) (let* ((x145 (car x144)) (x146 (cdr x144))) (let ((f x146) (prop x145)) (put-text-property start end prop (funcall f p)))) (setq --dolist-tail-- (cdr --dolist-tail--)))))))
(save-excursion (org-back-to-heading t) (let ((start (point)) (end (save-excursion (if inherit (org-end-of-subtree t t) (or (outline-next-heading) (point-max)))))) (if (symbolp tprop) (put-text-property start end tprop p) (let ((--dolist-tail-- tprop)) (while --dolist-tail-- (let ((x144 (car --dolist-tail--))) (let* ((x145 (car x144)) (x146 (cdr x144))) (let ((f x146) (prop x145)) (put-text-property start end prop (funcall f p)))) (setq --dolist-tail-- (cdr --dolist-tail--))))))))
(if (org-before-first-heading-p) nil (save-excursion (org-back-to-heading t) (let ((start (point)) (end (save-excursion (if inherit (org-end-of-subtree t t) (or (outline-next-heading) (point-max)))))) (if (symbolp tprop) (put-text-property start end tprop p) (let ((--dolist-tail-- tprop)) (while --dolist-tail-- (let ((x144 (car --dolist-tail--))) (let* ((x145 (car x144)) (x146 (cdr x144))) (let ((f x146) (prop x145)) (put-text-property start end prop (funcall f p)))) (setq --dolist-tail-- (cdr --dolist-tail--)))))))))
org-refresh-property(((effort . identity) (effort-minutes . org-duration-to-minutes)) "1:00-2:00" nil)
(progn (org-refresh-property tprop (org-entry-get (point) dprop) inherit\?))
(if (org-at-property-p) (progn (org-refresh-property tprop (org-entry-get (point) dprop) inherit\?)))
(while (re-search-forward property-re nil t) (if (org-at-property-p) (progn (org-refresh-property tprop (org-entry-get (point) dprop) inherit\?))) (outline-next-heading))
(save-restriction (widen) (goto-char (or --mpom (point))) (if global (progn (put-text-property (point-min) (point-max) tprop global))) (while (re-search-forward property-re nil t) (if (org-at-property-p) (progn (org-refresh-property tprop (org-entry-get (point) dprop) inherit\?))) (outline-next-heading)))
(save-excursion (save-restriction (widen) (goto-char (or --mpom (point))) (if global (progn (put-text-property (point-min) (point-max) tprop global))) (while (re-search-forward property-re nil t) (if (org-at-property-p) (progn (org-refresh-property tprop (org-entry-get (point) dprop) inherit\?))) (outline-next-heading))))
(save-excursion (if (markerp --mpom) (set-buffer (marker-buffer --mpom))) (save-excursion (save-restriction (widen) (goto-char (or --mpom (point))) (if global (progn (put-text-property (point-min) (point-max) tprop global))) (while (re-search-forward property-re nil t) (if (org-at-property-p) (progn (org-refresh-property tprop (org-entry-get (point) dprop) inherit\?))) (outline-next-heading)))))
(let ((--mpom 1)) (save-excursion (if (markerp --mpom) (set-buffer (marker-buffer --mpom))) (save-excursion (save-restriction (widen) (goto-char (or --mpom (point))) (if global (progn (put-text-property (point-min) (point-max) tprop global))) (while (re-search-forward property-re nil t) (if (org-at-property-p) (progn (org-refresh-property tprop (org-entry-get (point) dprop) inherit\?))) (outline-next-heading))))))
(progn (let ((--mpom 1)) (save-excursion (if (markerp --mpom) (set-buffer (marker-buffer --mpom))) (save-excursion (save-restriction (widen) (goto-char (or --mpom (point))) (if global (progn (put-text-property (point-min) (point-max) tprop global))) (while (re-search-forward property-re nil t) (if (org-at-property-p) (progn (org-refresh-property tprop (org-entry-get (point) dprop) inherit\?))) (outline-next-heading)))))))
(unwind-protect (progn (let ((--mpom 1)) (save-excursion (if (markerp --mpom) (set-buffer (marker-buffer --mpom))) (save-excursion (save-restriction (widen) (goto-char (or --mpom (point))) (if global (progn (put-text-property (point-min) (point-max) tprop global))) (while (re-search-forward property-re nil t) (if (org-at-property-p) (progn (org-refresh-property tprop (org-entry-get (point) dprop) inherit\?))) (outline-next-heading))))))) (if modified nil (restore-buffer-modified-p nil)))
(let* ((modified (buffer-modified-p)) (buffer-undo-list t) (inhibit-read-only t) (inhibit-modification-hooks t)) (unwind-protect (progn (let ((--mpom 1)) (save-excursion (if (markerp --mpom) (set-buffer (marker-buffer --mpom))) (save-excursion (save-restriction (widen) (goto-char (or --mpom (point))) (if global (progn (put-text-property (point-min) (point-max) tprop global))) (while (re-search-forward property-re nil t) (if (org-at-property-p) (progn (org-refresh-property tprop (org-entry-get (point) dprop) inherit\?))) (outline-next-heading))))))) (if modified nil (restore-buffer-modified-p nil))))
(let* ((case-fold-search t) (inhibit-read-only t) (inherit\? (org-property-inherit-p dprop)) (property-re (org-re-property (concat (regexp-quote dprop) "\\+?") t)) (global (and inherit\? (org--property-global-value dprop nil)))) (let* ((modified (buffer-modified-p)) (buffer-undo-list t) (inhibit-read-only t) (inhibit-modification-hooks t)) (unwind-protect (progn (let ((--mpom 1)) (save-excursion (if (markerp --mpom) (set-buffer (marker-buffer --mpom))) (save-excursion (save-restriction (widen) (goto-char (or --mpom (point))) (if global (progn (put-text-property (point-min) (point-max) tprop global))) (while (re-search-forward property-re nil t) (if (org-at-property-p) (progn (org-refresh-property tprop (org-entry-get (point) dprop) inherit\?))) (outline-next-heading))))))) (if modified nil (restore-buffer-modified-p nil)))))
org-refresh-properties("Effort" ((effort . identity) (effort-minutes . org-duration-to-minutes)))
org-refresh-effort-properties()
(or (memq 'effort org-agenda-ignore-properties) (org-refresh-effort-properties))
(catch 'nextfile (if (bufferp file) (set-buffer file) (org-check-agenda-file file) (set-buffer (org-get-agenda-file-buffer file))) (widen) (org-set-regexps-and-options 'tags-only) (setq pos (point)) (or (memq 'category org-agenda-ignore-properties) (org-refresh-category-properties)) (or (memq 'stats org-agenda-ignore-properties) (org-refresh-stats-properties)) (or (memq 'effort org-agenda-ignore-properties) (org-refresh-effort-properties)) (or (memq 'appt org-agenda-ignore-properties) (org-refresh-properties "APPT_WARNTIME" 'org-appt-warntime)) (setq org-todo-keywords-for-agenda (append org-todo-keywords-for-agenda org-todo-keywords-1)) (setq org-done-keywords-for-agenda (append org-done-keywords-for-agenda org-done-keywords)) (setq org-todo-keyword-alist-for-agenda (append org-todo-keyword-alist-for-agenda org-todo-key-alist)) (setq org-tag-alist-for-agenda (org-uniquify (append org-tag-alist-for-agenda org-current-tag-alist))) (if org-group-tags (progn (let ((--dolist-tail-- org-tag-groups-alist)) (while --dolist-tail-- (let ((alist (car --dolist-tail--))) (let ((old (assoc (car alist) org-tag-groups-alist-for-agenda))) (if old (setcdr old (org-uniquify (append (cdr old) (cdr alist)))) (setq org-tag-groups-alist-for-agenda (cons alist org-tag-groups-alist-for-agenda)))) (setq --dolist-tail-- (cdr --dolist-tail--))))))) (let* ((modified (buffer-modified-p)) (buffer-undo-list t) (inhibit-read-only t) (inhibit-modification-hooks t)) (unwind-protect (progn (save-excursion (remove-text-properties (point-min) (point-max) pall) (if org-agenda-skip-archived-trees (progn (goto-char (point-min)) (while (re-search-forward rea nil t) (if (org-at-heading-p t) (progn (add-text-properties (point-at-bol) (org-end-of-subtree t) pa)))))) (goto-char (point-min)) (setq re (format "^\\*+ .*\\<%s\\>" org-comment-string)) (while (re-search-forward re nil t) (if (let ((save-match-data-internal (match-data))) (unwind-protect (progn (org-in-commented-heading-p t)) (set-match-data save-match-data-internal 'evaporate))) (progn (add-text-properties (match-beginning 0) (org-end-of-subtree t) pc)))))) (if modified nil (restore-buffer-modified-p nil)))) (goto-char pos))
(let ((file (car --dolist-tail--))) (catch 'nextfile (if (bufferp file) (set-buffer file) (org-check-agenda-file file) (set-buffer (org-get-agenda-file-buffer file))) (widen) (org-set-regexps-and-options 'tags-only) (setq pos (point)) (or (memq 'category org-agenda-ignore-properties) (org-refresh-category-properties)) (or (memq 'stats org-agenda-ignore-properties) (org-refresh-stats-properties)) (or (memq 'effort org-agenda-ignore-properties) (org-refresh-effort-properties)) (or (memq 'appt org-agenda-ignore-properties) (org-refresh-properties "APPT_WARNTIME" 'org-appt-warntime)) (setq org-todo-keywords-for-agenda (append org-todo-keywords-for-agenda org-todo-keywords-1)) (setq org-done-keywords-for-agenda (append org-done-keywords-for-agenda org-done-keywords)) (setq org-todo-keyword-alist-for-agenda (append org-todo-keyword-alist-for-agenda org-todo-key-alist)) (setq org-tag-alist-for-agenda (org-uniquify (append org-tag-alist-for-agenda org-current-tag-alist))) (if org-group-tags (progn (let ((--dolist-tail-- org-tag-groups-alist)) (while --dolist-tail-- (let ((alist (car --dolist-tail--))) (let ((old (assoc (car alist) org-tag-groups-alist-for-agenda))) (if old (setcdr old (org-uniquify (append (cdr old) (cdr alist)))) (setq org-tag-groups-alist-for-agenda (cons alist org-tag-groups-alist-for-agenda)))) (setq --dolist-tail-- (cdr --dolist-tail--))))))) (let* ((modified (buffer-modified-p)) (buffer-undo-list t) (inhibit-read-only t) (inhibit-modification-hooks t)) (unwind-protect (progn (save-excursion (remove-text-properties (point-min) (point-max) pall) (if org-agenda-skip-archived-trees (progn (goto-char (point-min)) (while (re-search-forward rea nil t) (if (org-at-heading-p t) (progn (add-text-properties (point-at-bol) (org-end-of-subtree t) pa)))))) (goto-char (point-min)) (setq re (format "^\\*+ .*\\<%s\\>" org-comment-string)) (while (re-search-forward re nil t) (if (let ((save-match-data-internal (match-data))) (unwind-protect (progn (org-in-commented-heading-p t)) (set-match-data save-match-data-internal 'evaporate))) (progn (add-text-properties (match-beginning 0) (org-end-of-subtree t) pc)))))) (if modified nil (restore-buffer-modified-p nil)))) (goto-char pos)) (setq --dolist-tail-- (cdr --dolist-tail--)))
(while --dolist-tail-- (let ((file (car --dolist-tail--))) (catch 'nextfile (if (bufferp file) (set-buffer file) (org-check-agenda-file file) (set-buffer (org-get-agenda-file-buffer file))) (widen) (org-set-regexps-and-options 'tags-only) (setq pos (point)) (or (memq 'category org-agenda-ignore-properties) (org-refresh-category-properties)) (or (memq 'stats org-agenda-ignore-properties) (org-refresh-stats-properties)) (or (memq 'effort org-agenda-ignore-properties) (org-refresh-effort-properties)) (or (memq 'appt org-agenda-ignore-properties) (org-refresh-properties "APPT_WARNTIME" 'org-appt-warntime)) (setq org-todo-keywords-for-agenda (append org-todo-keywords-for-agenda org-todo-keywords-1)) (setq org-done-keywords-for-agenda (append org-done-keywords-for-agenda org-done-keywords)) (setq org-todo-keyword-alist-for-agenda (append org-todo-keyword-alist-for-agenda org-todo-key-alist)) (setq org-tag-alist-for-agenda (org-uniquify (append org-tag-alist-for-agenda org-current-tag-alist))) (if org-group-tags (progn (let ((--dolist-tail-- org-tag-groups-alist)) (while --dolist-tail-- (let ((alist (car --dolist-tail--))) (let ((old (assoc (car alist) org-tag-groups-alist-for-agenda))) (if old (setcdr old (org-uniquify (append (cdr old) (cdr alist)))) (setq org-tag-groups-alist-for-agenda (cons alist org-tag-groups-alist-for-agenda)))) (setq --dolist-tail-- (cdr --dolist-tail--))))))) (let* ((modified (buffer-modified-p)) (buffer-undo-list t) (inhibit-read-only t) (inhibit-modification-hooks t)) (unwind-protect (progn (save-excursion (remove-text-properties (point-min) (point-max) pall) (if org-agenda-skip-archived-trees (progn (goto-char (point-min)) (while (re-search-forward rea nil t) (if (org-at-heading-p t) (progn (add-text-properties (point-at-bol) (org-end-of-subtree t) pa)))))) (goto-char (point-min)) (setq re (format "^\\*+ .*\\<%s\\>" org-comment-string)) (while (re-search-forward re nil t) (if (let ((save-match-data-internal (match-data))) (unwind-protect (progn (org-in-commented-heading-p t)) (set-match-data save-match-data-internal 'evaporate))) (progn (add-text-properties (match-beginning 0) (org-end-of-subtree t) pc)))))) (if modified nil (restore-buffer-modified-p nil)))) (goto-char pos)) (setq --dolist-tail-- (cdr --dolist-tail--))))
(let ((--dolist-tail-- files)) (while --dolist-tail-- (let ((file (car --dolist-tail--))) (catch 'nextfile (if (bufferp file) (set-buffer file) (org-check-agenda-file file) (set-buffer (org-get-agenda-file-buffer file))) (widen) (org-set-regexps-and-options 'tags-only) (setq pos (point)) (or (memq 'category org-agenda-ignore-properties) (org-refresh-category-properties)) (or (memq 'stats org-agenda-ignore-properties) (org-refresh-stats-properties)) (or (memq 'effort org-agenda-ignore-properties) (org-refresh-effort-properties)) (or (memq 'appt org-agenda-ignore-properties) (org-refresh-properties "APPT_WARNTIME" 'org-appt-warntime)) (setq org-todo-keywords-for-agenda (append org-todo-keywords-for-agenda org-todo-keywords-1)) (setq org-done-keywords-for-agenda (append org-done-keywords-for-agenda org-done-keywords)) (setq org-todo-keyword-alist-for-agenda (append org-todo-keyword-alist-for-agenda org-todo-key-alist)) (setq org-tag-alist-for-agenda (org-uniquify (append org-tag-alist-for-agenda org-current-tag-alist))) (if org-group-tags (progn (let ((--dolist-tail-- org-tag-groups-alist)) (while --dolist-tail-- (let ((alist (car --dolist-tail--))) (let ((old (assoc (car alist) org-tag-groups-alist-for-agenda))) (if old (setcdr old (org-uniquify (append (cdr old) (cdr alist)))) (setq org-tag-groups-alist-for-agenda (cons alist org-tag-groups-alist-for-agenda)))) (setq --dolist-tail-- (cdr --dolist-tail--))))))) (let* ((modified (buffer-modified-p)) (buffer-undo-list t) (inhibit-read-only t) (inhibit-modification-hooks t)) (unwind-protect (progn (save-excursion (remove-text-properties (point-min) (point-max) pall) (if org-agenda-skip-archived-trees (progn (goto-char (point-min)) (while (re-search-forward rea nil t) (if (org-at-heading-p t) (progn (add-text-properties (point-at-bol) (org-end-of-subtree t) pa)))))) (goto-char (point-min)) (setq re (format "^\\*+ .*\\<%s\\>" org-comment-string)) (while (re-search-forward re nil t) (if (let ((save-match-data-internal (match-data))) (unwind-protect (progn (org-in-commented-heading-p t)) (set-match-data save-match-data-internal 'evaporate))) (progn (add-text-properties (match-beginning 0) (org-end-of-subtree t) pc)))))) (if modified nil (restore-buffer-modified-p nil)))) (goto-char pos)) (setq --dolist-tail-- (cdr --dolist-tail--)))))
(save-restriction (let ((--dolist-tail-- files)) (while --dolist-tail-- (let ((file (car --dolist-tail--))) (catch 'nextfile (if (bufferp file) (set-buffer file) (org-check-agenda-file file) (set-buffer (org-get-agenda-file-buffer file))) (widen) (org-set-regexps-and-options 'tags-only) (setq pos (point)) (or (memq 'category org-agenda-ignore-properties) (org-refresh-category-properties)) (or (memq 'stats org-agenda-ignore-properties) (org-refresh-stats-properties)) (or (memq 'effort org-agenda-ignore-properties) (org-refresh-effort-properties)) (or (memq 'appt org-agenda-ignore-properties) (org-refresh-properties "APPT_WARNTIME" 'org-appt-warntime)) (setq org-todo-keywords-for-agenda (append org-todo-keywords-for-agenda org-todo-keywords-1)) (setq org-done-keywords-for-agenda (append org-done-keywords-for-agenda org-done-keywords)) (setq org-todo-keyword-alist-for-agenda (append org-todo-keyword-alist-for-agenda org-todo-key-alist)) (setq org-tag-alist-for-agenda (org-uniquify (append org-tag-alist-for-agenda org-current-tag-alist))) (if org-group-tags (progn (let ((--dolist-tail-- org-tag-groups-alist)) (while --dolist-tail-- (let ((alist (car --dolist-tail--))) (let ((old (assoc (car alist) org-tag-groups-alist-for-agenda))) (if old (setcdr old (org-uniquify (append (cdr old) (cdr alist)))) (setq org-tag-groups-alist-for-agenda (cons alist org-tag-groups-alist-for-agenda)))) (setq --dolist-tail-- (cdr --dolist-tail--))))))) (let* ((modified (buffer-modified-p)) (buffer-undo-list t) (inhibit-read-only t) (inhibit-modification-hooks t)) (unwind-protect (progn (save-excursion (remove-text-properties (point-min) (point-max) pall) (if org-agenda-skip-archived-trees (progn (goto-char (point-min)) (while (re-search-forward rea nil t) (if (org-at-heading-p t) (progn (add-text-properties (point-at-bol) (org-end-of-subtree t) pa)))))) (goto-char (point-min)) (setq re (format "^\\*+ .*\\<%s\\>" org-comment-string)) (while (re-search-forward re nil t) (if (let ((save-match-data-internal (match-data))) (unwind-protect (progn (org-in-commented-heading-p t)) (set-match-data save-match-data-internal 'evaporate))) (progn (add-text-properties (match-beginning 0) (org-end-of-subtree t) pc)))))) (if modified nil (restore-buffer-modified-p nil)))) (goto-char pos)) (setq --dolist-tail-- (cdr --dolist-tail--))))))
(save-excursion (save-restriction (let ((--dolist-tail-- files)) (while --dolist-tail-- (let ((file (car --dolist-tail--))) (catch 'nextfile (if (bufferp file) (set-buffer file) (org-check-agenda-file file) (set-buffer (org-get-agenda-file-buffer file))) (widen) (org-set-regexps-and-options 'tags-only) (setq pos (point)) (or (memq 'category org-agenda-ignore-properties) (org-refresh-category-properties)) (or (memq 'stats org-agenda-ignore-properties) (org-refresh-stats-properties)) (or (memq 'effort org-agenda-ignore-properties) (org-refresh-effort-properties)) (or (memq 'appt org-agenda-ignore-properties) (org-refresh-properties "APPT_WARNTIME" 'org-appt-warntime)) (setq org-todo-keywords-for-agenda (append org-todo-keywords-for-agenda org-todo-keywords-1)) (setq org-done-keywords-for-agenda (append org-done-keywords-for-agenda org-done-keywords)) (setq org-todo-keyword-alist-for-agenda (append org-todo-keyword-alist-for-agenda org-todo-key-alist)) (setq org-tag-alist-for-agenda (org-uniquify (append org-tag-alist-for-agenda org-current-tag-alist))) (if org-group-tags (progn (let ((--dolist-tail-- org-tag-groups-alist)) (while --dolist-tail-- (let ((alist (car --dolist-tail--))) (let ((old (assoc (car alist) org-tag-groups-alist-for-agenda))) (if old (setcdr old (org-uniquify (append (cdr old) (cdr alist)))) (setq org-tag-groups-alist-for-agenda (cons alist org-tag-groups-alist-for-agenda)))) (setq --dolist-tail-- (cdr --dolist-tail--))))))) (let* ((modified (buffer-modified-p)) (buffer-undo-list t) (inhibit-read-only t) (inhibit-modification-hooks t)) (unwind-protect (progn (save-excursion (remove-text-properties (point-min) (point-max) pall) (if org-agenda-skip-archived-trees (progn (goto-char (point-min)) (while (re-search-forward rea nil t) (if (org-at-heading-p t) (progn (add-text-properties (point-at-bol) (org-end-of-subtree t) pa)))))) (goto-char (point-min)) (setq re (format "^\\*+ .*\\<%s\\>" org-comment-string)) (while (re-search-forward re nil t) (if (let ((save-match-data-internal (match-data))) (unwind-protect (progn (org-in-commented-heading-p t)) (set-match-data save-match-data-internal 'evaporate))) (progn (add-text-properties (match-beginning 0) (org-end-of-subtree t) pc)))))) (if modified nil (restore-buffer-modified-p nil)))) (goto-char pos)) (setq --dolist-tail-- (cdr --dolist-tail--)))))))
(let ((pa '(:org-archived t)) (pc '(:org-comment t)) (pall '(:org-archived t :org-comment t)) (inhibit-read-only t) (org-inhibit-startup org-agenda-inhibit-startup) (rea (concat ":" org-archive-tag ":")) re pos) (setq org-tag-alist-for-agenda nil org-tag-groups-alist-for-agenda nil) (save-excursion (save-restriction (let ((--dolist-tail-- files)) (while --dolist-tail-- (let ((file (car --dolist-tail--))) (catch 'nextfile (if (bufferp file) (set-buffer file) (org-check-agenda-file file) (set-buffer (org-get-agenda-file-buffer file))) (widen) (org-set-regexps-and-options 'tags-only) (setq pos (point)) (or (memq 'category org-agenda-ignore-properties) (org-refresh-category-properties)) (or (memq 'stats org-agenda-ignore-properties) (org-refresh-stats-properties)) (or (memq 'effort org-agenda-ignore-properties) (org-refresh-effort-properties)) (or (memq 'appt org-agenda-ignore-properties) (org-refresh-properties "APPT_WARNTIME" 'org-appt-warntime)) (setq org-todo-keywords-for-agenda (append org-todo-keywords-for-agenda org-todo-keywords-1)) (setq org-done-keywords-for-agenda (append org-done-keywords-for-agenda org-done-keywords)) (setq org-todo-keyword-alist-for-agenda (append org-todo-keyword-alist-for-agenda org-todo-key-alist)) (setq org-tag-alist-for-agenda (org-uniquify (append org-tag-alist-for-agenda org-current-tag-alist))) (if org-group-tags (progn (let ((--dolist-tail-- org-tag-groups-alist)) (while --dolist-tail-- (let ((alist (car --dolist-tail--))) (let ((old (assoc (car alist) org-tag-groups-alist-for-agenda))) (if old (setcdr old (org-uniquify (append (cdr old) (cdr alist)))) (setq org-tag-groups-alist-for-agenda (cons alist org-tag-groups-alist-for-agenda)))) (setq --dolist-tail-- (cdr --dolist-tail--))))))) (let* ((modified (buffer-modified-p)) (buffer-undo-list t) (inhibit-read-only t) (inhibit-modification-hooks t)) (unwind-protect (progn (save-excursion (remove-text-properties (point-min) (point-max) pall) (if org-agenda-skip-archived-trees (progn (goto-char (point-min)) (while (re-search-forward rea nil t) (if (org-at-heading-p t) (progn (add-text-properties (point-at-bol) (org-end-of-subtree t) pa)))))) (goto-char (point-min)) (setq re (format "^\\*+ .*\\<%s\\>" org-comment-string)) (while (re-search-forward re nil t) (if (let ((save-match-data-internal (match-data))) (unwind-protect (progn (org-in-commented-heading-p t)) (set-match-data save-match-data-internal 'evaporate))) (progn (add-text-properties (match-beginning 0) (org-end-of-subtree t) pc)))))) (if modified nil (restore-buffer-modified-p nil)))) (goto-char pos)) (setq --dolist-tail-- (cdr --dolist-tail--))))))) (setq org-todo-keywords-for-agenda (org-uniquify org-todo-keywords-for-agenda)) (setq org-todo-keyword-alist-for-agenda (org-uniquify org-todo-keyword-alist-for-agenda)))
org-agenda-prepare-buffers(("/home/francisv/tmp/estplus.org"))
(progn (org-agenda-prepare-buffers (and buffer-file-name (list buffer-file-name))) (setq res (org-scan-tags func matcher org--matcher-tags-todo-only start-level)))
(if (not scope) (progn (org-agenda-prepare-buffers (and buffer-file-name (list buffer-file-name))) (setq res (org-scan-tags func matcher org--matcher-tags-todo-only start-level))) (cond ((and scope (listp scope) (symbolp (car scope))) (setq scope (eval scope))) ((eq scope 'agenda) (setq scope (org-agenda-files t))) ((eq scope 'agenda-with-archives) (setq scope (org-agenda-files t)) (setq scope (org-add-archive-files scope))) ((eq scope 'file) (setq scope (and buffer-file-name (list buffer-file-name)))) ((eq scope 'file-with-archives) (setq scope (org-add-archive-files (list (buffer-file-name)))))) (org-agenda-prepare-buffers scope) (let ((--dolist-tail-- scope)) (while --dolist-tail-- (let ((file (car --dolist-tail--))) (save-current-buffer (set-buffer (org-find-base-buffer-visiting file)) (save-excursion (save-restriction (widen) (goto-char (point-min)) (setq res (append res (org-scan-tags func matcher org--matcher-tags-todo-only)))))) (setq --dolist-tail-- (cdr --dolist-tail--))))))
(save-restriction (cond ((eq scope 'tree) (org-back-to-heading t) (org-narrow-to-subtree) (setq scope nil)) ((and (or (eq scope 'region) (eq scope 'region-start-level)) (org-region-active-p)) (if start-level (progn (save-excursion (goto-char (region-beginning)) (if (org-at-heading-p) nil (outline-next-heading)) (setq start-level (org-current-level))))) (narrow-to-region (region-beginning) (save-excursion (goto-char (region-end)) (if (and (bolp) (org-at-heading-p)) nil (outline-next-heading)) (point))) (setq scope nil))) (if (not scope) (progn (org-agenda-prepare-buffers (and buffer-file-name (list buffer-file-name))) (setq res (org-scan-tags func matcher org--matcher-tags-todo-only start-level))) (cond ((and scope (listp scope) (symbolp (car scope))) (setq scope (eval scope))) ((eq scope 'agenda) (setq scope (org-agenda-files t))) ((eq scope 'agenda-with-archives) (setq scope (org-agenda-files t)) (setq scope (org-add-archive-files scope))) ((eq scope 'file) (setq scope (and buffer-file-name (list buffer-file-name)))) ((eq scope 'file-with-archives) (setq scope (org-add-archive-files (list (buffer-file-name)))))) (org-agenda-prepare-buffers scope) (let ((--dolist-tail-- scope)) (while --dolist-tail-- (let ((file (car --dolist-tail--))) (save-current-buffer (set-buffer (org-find-base-buffer-visiting file)) (save-excursion (save-restriction (widen) (goto-char (point-min)) (setq res (append res (org-scan-tags func matcher org--matcher-tags-todo-only)))))) (setq --dolist-tail-- (cdr --dolist-tail--)))))))
(save-excursion (save-restriction (cond ((eq scope 'tree) (org-back-to-heading t) (org-narrow-to-subtree) (setq scope nil)) ((and (or (eq scope 'region) (eq scope 'region-start-level)) (org-region-active-p)) (if start-level (progn (save-excursion (goto-char (region-beginning)) (if (org-at-heading-p) nil (outline-next-heading)) (setq start-level (org-current-level))))) (narrow-to-region (region-beginning) (save-excursion (goto-char (region-end)) (if (and (bolp) (org-at-heading-p)) nil (outline-next-heading)) (point))) (setq scope nil))) (if (not scope) (progn (org-agenda-prepare-buffers (and buffer-file-name (list buffer-file-name))) (setq res (org-scan-tags func matcher org--matcher-tags-todo-only start-level))) (cond ((and scope (listp scope) (symbolp (car scope))) (setq scope (eval scope))) ((eq scope 'agenda) (setq scope (org-agenda-files t))) ((eq scope 'agenda-with-archives) (setq scope (org-agenda-files t)) (setq scope (org-add-archive-files scope))) ((eq scope 'file) (setq scope (and buffer-file-name (list buffer-file-name)))) ((eq scope 'file-with-archives) (setq scope (org-add-archive-files (list (buffer-file-name)))))) (org-agenda-prepare-buffers scope) (let ((--dolist-tail-- scope)) (while --dolist-tail-- (let ((file (car --dolist-tail--))) (save-current-buffer (set-buffer (org-find-base-buffer-visiting file)) (save-excursion (save-restriction (widen) (goto-char (point-min)) (setq res (append res (org-scan-tags func matcher org--matcher-tags-todo-only)))))) (setq --dolist-tail-- (cdr --dolist-tail--))))))))
(let* ((org-agenda-archives-mode nil) (org-agenda-skip-archived-trees (memq 'archive skip)) (org-agenda-skip-comment-trees (memq 'comment skip)) (org-agenda-skip-function (car (org-delete-all '(comment archive) skip))) (org-tags-match-list-sublevels t) (start-level (eq scope 'region-start-level)) matcher res org-todo-keywords-for-agenda org-done-keywords-for-agenda org-todo-keyword-alist-for-agenda org-tag-alist-for-agenda org--matcher-tags-todo-only) (cond ((eq match t) (setq matcher t)) ((eq match nil) (setq matcher t)) (t (setq matcher (if match (cdr (org-make-tags-matcher match)) t)))) (save-excursion (save-restriction (cond ((eq scope 'tree) (org-back-to-heading t) (org-narrow-to-subtree) (setq scope nil)) ((and (or (eq scope 'region) (eq scope 'region-start-level)) (org-region-active-p)) (if start-level (progn (save-excursion (goto-char (region-beginning)) (if (org-at-heading-p) nil (outline-next-heading)) (setq start-level (org-current-level))))) (narrow-to-region (region-beginning) (save-excursion (goto-char (region-end)) (if (and (bolp) (org-at-heading-p)) nil (outline-next-heading)) (point))) (setq scope nil))) (if (not scope) (progn (org-agenda-prepare-buffers (and buffer-file-name (list buffer-file-name))) (setq res (org-scan-tags func matcher org--matcher-tags-todo-only start-level))) (cond ((and scope (listp scope) (symbolp (car scope))) (setq scope (eval scope))) ((eq scope 'agenda) (setq scope (org-agenda-files t))) ((eq scope 'agenda-with-archives) (setq scope (org-agenda-files t)) (setq scope (org-add-archive-files scope))) ((eq scope 'file) (setq scope (and buffer-file-name (list buffer-file-name)))) ((eq scope 'file-with-archives) (setq scope (org-add-archive-files (list (buffer-file-name)))))) (org-agenda-prepare-buffers scope) (let ((--dolist-tail-- scope)) (while --dolist-tail-- (let ((file (car --dolist-tail--))) (save-current-buffer (set-buffer (org-find-base-buffer-visiting file)) (save-excursion (save-restriction (widen) (goto-char (point-min)) (setq res (append res (org-scan-tags func matcher org--matcher-tags-todo-only)))))) (setq --dolist-tail-- (cdr --dolist-tail--)))))))) res)
(if (and (or (eq scope 'region) (eq scope 'region-start-level)) (not (org-region-active-p))) nil (let* ((org-agenda-archives-mode nil) (org-agenda-skip-archived-trees (memq 'archive skip)) (org-agenda-skip-comment-trees (memq 'comment skip)) (org-agenda-skip-function (car (org-delete-all '(comment archive) skip))) (org-tags-match-list-sublevels t) (start-level (eq scope 'region-start-level)) matcher res org-todo-keywords-for-agenda org-done-keywords-for-agenda org-todo-keyword-alist-for-agenda org-tag-alist-for-agenda org--matcher-tags-todo-only) (cond ((eq match t) (setq matcher t)) ((eq match nil) (setq matcher t)) (t (setq matcher (if match (cdr (org-make-tags-matcher match)) t)))) (save-excursion (save-restriction (cond ((eq scope 'tree) (org-back-to-heading t) (org-narrow-to-subtree) (setq scope nil)) ((and (or (eq scope 'region) (eq scope 'region-start-level)) (org-region-active-p)) (if start-level (progn (save-excursion (goto-char (region-beginning)) (if (org-at-heading-p) nil (outline-next-heading)) (setq start-level (org-current-level))))) (narrow-to-region (region-beginning) (save-excursion (goto-char (region-end)) (if (and (bolp) (org-at-heading-p)) nil (outline-next-heading)) (point))) (setq scope nil))) (if (not scope) (progn (org-agenda-prepare-buffers (and buffer-file-name (list buffer-file-name))) (setq res (org-scan-tags func matcher org--matcher-tags-todo-only start-level))) (cond ((and scope (listp scope) (symbolp (car scope))) (setq scope (eval scope))) ((eq scope 'agenda) (setq scope (org-agenda-files t))) ((eq scope 'agenda-with-archives) (setq scope (org-agenda-files t)) (setq scope (org-add-archive-files scope))) ((eq scope 'file) (setq scope (and buffer-file-name (list buffer-file-name)))) ((eq scope 'file-with-archives) (setq scope (org-add-archive-files (list (buffer-file-name)))))) (org-agenda-prepare-buffers scope) (let ((--dolist-tail-- scope)) (while --dolist-tail-- (let ((file (car --dolist-tail--))) (save-current-buffer (set-buffer (org-find-base-buffer-visiting file)) (save-excursion (save-restriction (widen) (goto-char (point-min)) (setq res (append res (org-scan-tags func matcher org--matcher-tags-todo-only)))))) (setq --dolist-tail-- (cdr --dolist-tail--)))))))) res))
org-map-entries(#f(compiled-function () #<bytecode 0xe8e361>) nil nil archive)
org-columns(nil)
funcall-interactively(org-columns nil)
call-interactively(org-columns nil nil)
command-execute(org-columns)
[-- Attachment #3: Type: text/plain, Size: 4815 bytes --]
1. What exactly did you do?
I try to use the low-high estimates with the column attribute {est+}
as documented in http://orgmode.org/manual/Column-attributes.html.
For that, I tried to assign low and high effort values as in
http://thread.gmane.org/gmane.emacs.orgmode/93505/focus=93514. The
formats I tried:
:Effort: +4.0-12.0
:Effort: 4.0-12.0
:Effort: 4-12
:Effort: 4:00-12:00
:Effort: 4:00-1.5d
:Effort_Low: 4:00
:Effort_High: 1.5d
2. What did you expect to happen?
In the attached estplus.org, when I do `M-x org-columns', I expected
to see the column view with the value for {est+}.
3. What happened instead?
In the attached estplus.org, when I do `M-x org-columns', I get the
error 'Invalid duration format'.
I attach the backtrace as well.
Automatically generated with `org-submit-bug-report'
Emacs : GNU Emacs 27.0.50 (build 2, x86_64-pc-linux-gnu, GTK+ Version 3.22.11)
of 2017-11-06
Package: Org mode version 9.1.3 (9.1.3-elpa @ /home/francisv/.emacs.d/elpa/org-20171116/)
current state:
==============
(setq
org-src-mode-hook '(org-src-babel-configure-edit-buffer org-src-mode-configure-edit-buffer)
org-after-todo-state-change-hook '(org-clock-out-if-current)
org-metadown-hook '(org-babel-pop-to-session-maybe)
org-clock-out-hook '(org-clock-remove-empty-clock-drawer)
org-mode-hook '((closure
(org-inlinetask-min-level buffer-face-mode-face org-struct-menu org-last-state org-id-track-globally
org-clock-start-time texmathp-why remember-data-file org-agenda-tags-todo-honor-ignore-options iswitchb-temp-buflist
calc-embedded-open-mode calc-embedded-open-formula calc-embedded-close-formula align-mode-rules-list
org-export-registered-backends ffap-url-regexp t)
nil (add-hook (quote change-major-mode-hook) (quote org-show-block-all) (quote append) (quote local)))
(closure (*this* org-babel-confirm-evaluate-answer-no t) nil
(add-hook (quote change-major-mode-hook) (quote org-babel-show-result-all) (quote append) (quote local)))
#[0 "\300\301\302\303\304$\207" [add-hook change-major-mode-hook org-show-block-all append local] 5]
#[0 "\300\301\302\303\304$\207" [add-hook change-major-mode-hook org-babel-show-result-all append local] 5]
org-babel-result-hide-spec org-babel-hide-all-hashes)
org-archive-hook '(org-attach-archive-delete-maybe)
org-confirm-elisp-link-function 'yes-or-no-p
org-agenda-before-write-hook '(org-agenda-add-entry-text)
org-metaup-hook '(org-babel-load-in-session-maybe)
org-bibtex-headline-format-function '(closure (org-id-locations org-agenda-search-view-always-boolean org-agenda-overriding-header t)
(entry) (cdr (assq :title entry)))
org-babel-pre-tangle-hook '(save-buffer)
org-tab-first-hook '(org-babel-hide-result-toggle-maybe org-babel-header-arg-expand)
org-occur-hook '(org-first-headline-recenter)
org-cycle-hook '(org-cycle-hide-archived-subtrees org-cycle-hide-drawers org-cycle-show-empty-lines
org-optimize-window-after-visibility-change)
org-speed-command-hook '(org-speed-command-activate org-babel-speed-command-activate)
org-confirm-shell-link-function 'yes-or-no-p
org-link-parameters '(("id" :follow org-id-open) ("rmail" :follow org-rmail-open :store org-rmail-store-link)
("mhe" :follow org-mhe-open :store org-mhe-store-link) ("irc" :follow org-irc-visit :store org-irc-store-link)
("info" :follow org-info-open :export org-info-export :store org-info-store-link)
("gnus" :follow org-gnus-open :store org-gnus-store-link)
("docview" :follow org-docview-open :export org-docview-export :store org-docview-store-link)
("bibtex" :follow org-bibtex-open :store org-bibtex-store-link)
("bbdb" :follow org-bbdb-open :export org-bbdb-export :complete org-bbdb-complete-link :store org-bbdb-store-link)
("w3m" :store org-w3m-store-link) ("file+sys") ("file+emacs") ("doi" :follow org--open-doi-link)
("elisp" :follow org--open-elisp-link) ("file" :complete org-file-complete-link)
("ftp" :follow (lambda (path) (browse-url (concat "ftp:" path)))) ("help" :follow org--open-help-link)
("http" :follow (lambda (path) (browse-url (concat "http:" path))))
("https" :follow (lambda (path) (browse-url (concat "https:" path))))
("mailto" :follow (lambda (path) (browse-url (concat "mailto:" path))))
("news" :follow (lambda (path) (browse-url (concat "news:" path)))) ("shell" :follow org--open-shell-link))
)
--
Francisco Velázquez
^ permalink raw reply [flat|nested] 4+ messages in thread
* Re: Bug: Estimate effort ranges do not work [9.1.3 (9.1.3-elpa @ /home/francisv/.emacs.d/elpa/org-20171116/)]
2017-11-23 12:59 Bug: Estimate effort ranges do not work [9.1.3 (9.1.3-elpa @ /home/francisv/.emacs.d/elpa/org-20171116/)] Francisco Velázquez
@ 2017-11-26 12:43 ` Nicolas Goaziou
2017-11-27 14:13 ` Francisco Velázquez
0 siblings, 1 reply; 4+ messages in thread
From: Nicolas Goaziou @ 2017-11-26 12:43 UTC (permalink / raw)
To: Francisco Velázquez; +Cc: emacs-orgmode
Hello,
Francisco Velázquez <francisv@ifi.uio.no> writes:
> 1. What exactly did you do?
>
> I try to use the low-high estimates with the column attribute {est+}
> as documented in http://orgmode.org/manual/Column-attributes.html.
>
> For that, I tried to assign low and high effort values as in
> http://thread.gmane.org/gmane.emacs.orgmode/93505/focus=93514. The
> formats I tried:
>
> :Effort: +4.0-12.0
> :Effort: 4.0-12.0
> :Effort: 4-12
> :Effort: 4:00-12:00
> :Effort: 4:00-1.5d
> :Effort_Low: 4:00
> :Effort_High: 1.5d
EFFORT is a somewhat special property that expects its value to be
a number, mainly for ordering in agenda view. `M-x org-lint' warns about
it.
You can use low-high estimates with any other property, e.g.
:Whatever: 4-12
Regards,
--
Nicolas Goaziou
^ permalink raw reply [flat|nested] 4+ messages in thread
* Re: Bug: Estimate effort ranges do not work [9.1.3 (9.1.3-elpa @ /home/francisv/.emacs.d/elpa/org-20171116/)]
2017-11-26 12:43 ` Nicolas Goaziou
@ 2017-11-27 14:13 ` Francisco Velázquez
2017-11-27 17:22 ` Nicolas Goaziou
0 siblings, 1 reply; 4+ messages in thread
From: Francisco Velázquez @ 2017-11-27 14:13 UTC (permalink / raw)
To: Nicolas Goaziou; +Cc: Francisco Velázquez, emacs-orgmode
[-- Attachment #1: Type: text/plain, Size: 178 bytes --]
Hi Nicolas
If I use a property name other than 'Effort', there column for '{est+}'
is empty. My question remains:
How to use '{est+}'?
I attach the example file.
Thank you.
[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: estplus.org --]
[-- Type: text/x-org, Size: 101 bytes --]
#+COLUMNS: %Item %Effort{est+}
* Estimated effort
:PROPERTIES:
:Effort_low-high: 4-12
:END:
[-- Attachment #3: Type: text/plain, Size: 946 bytes --]
--
Francisco
Nicolas Goaziou writes:
> Hello,
>
> Francisco Velázquez <francisv@ifi.uio.no> writes:
>
>> 1. What exactly did you do?
>>
>> I try to use the low-high estimates with the column attribute {est+}
>> as documented in http://orgmode.org/manual/Column-attributes.html.
>>
>> For that, I tried to assign low and high effort values as in
>> http://thread.gmane.org/gmane.emacs.orgmode/93505/focus=93514. The
>> formats I tried:
>>
>> :Effort: +4.0-12.0
>> :Effort: 4.0-12.0
>> :Effort: 4-12
>> :Effort: 4:00-12:00
>> :Effort: 4:00-1.5d
>> :Effort_Low: 4:00
>> :Effort_High: 1.5d
>
> EFFORT is a somewhat special property that expects its value to be
> a number, mainly for ordering in agenda view. `M-x org-lint' warns about
> it.
>
> You can use low-high estimates with any other property, e.g.
>
> :Whatever: 4-12
>
> Regards,
--
Francisco Velázquez
^ permalink raw reply [flat|nested] 4+ messages in thread
* Re: Bug: Estimate effort ranges do not work [9.1.3 (9.1.3-elpa @ /home/francisv/.emacs.d/elpa/org-20171116/)]
2017-11-27 14:13 ` Francisco Velázquez
@ 2017-11-27 17:22 ` Nicolas Goaziou
0 siblings, 0 replies; 4+ messages in thread
From: Nicolas Goaziou @ 2017-11-27 17:22 UTC (permalink / raw)
To: Francisco Velázquez; +Cc: emacs-orgmode
Hello,
Francisco Velázquez <francisv@ifi.uio.no> writes:
> Hi Nicolas
>
> If I use a property name other than 'Effort', there column for '{est+}'
> is empty. My question remains:
>
> How to use '{est+}'?
>
> I attach the example file.
>
> Thank you.
>
> #+COLUMNS: %Item %Effort{est+}
The property and the column name need to match.
#+COLUMNS: %Item %Effort_low-high{est+}
>
> * Estimated effort
> :PROPERTIES:
> :Effort_low-high: 4-12
> :END:
Regards,
--
Nicolas Goaziou
^ permalink raw reply [flat|nested] 4+ messages in thread
end of thread, other threads:[~2017-11-27 17:23 UTC | newest]
Thread overview: 4+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2017-11-23 12:59 Bug: Estimate effort ranges do not work [9.1.3 (9.1.3-elpa @ /home/francisv/.emacs.d/elpa/org-20171116/)] Francisco Velázquez
2017-11-26 12:43 ` Nicolas Goaziou
2017-11-27 14:13 ` Francisco Velázquez
2017-11-27 17:22 ` Nicolas Goaziou
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).