all messages for Emacs-related lists mirrored at yhetil.org
 help / color / mirror / code / Atom feed
* 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
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 external index

	https://git.savannah.gnu.org/cgit/emacs.git
	https://git.savannah.gnu.org/cgit/emacs/org-mode.git

This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.