From mboxrd@z Thu Jan 1 00:00:00 1970 From: Joe Corneli Subject: Bug: entering range of times [9.0.5 (release_9.0.5-474-g942b62 @ /home/joe/org-mode/lisp/)] Date: Thu, 20 Apr 2017 15:19:29 +0100 Message-ID: <87wpafp3f2.fsf@gmail.com> Mime-Version: 1.0 Content-Type: text/plain Content-Transfer-Encoding: quoted-printable Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:51313) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1d1CwA-0000QY-8R for emacs-orgmode@gnu.org; Thu, 20 Apr 2017 10:20:21 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1d1Cvk-0000Ka-Jv for emacs-orgmode@gnu.org; Thu, 20 Apr 2017 10:19:58 -0400 Received: from mail-wm0-x22b.google.com ([2a00:1450:400c:c09::22b]:33949) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1d1Cvk-0000Jk-3v for emacs-orgmode@gnu.org; Thu, 20 Apr 2017 10:19:32 -0400 Received: by mail-wm0-x22b.google.com with SMTP id r190so2954699wme.1 for ; Thu, 20 Apr 2017 07:19:32 -0700 (PDT) Received: from Teacup (cpc2-flit3-2-0-cust79.9-1.cable.virginm.net. [213.105.32.80]) by smtp.gmail.com with ESMTPSA id y11sm7774652wrd.23.2017.04.20.07.19.29 for (version=TLS1_2 cipher=ECDHE-RSA-AES128-GCM-SHA256 bits=128/128); Thu, 20 Apr 2017 07:19:29 -0700 (PDT) List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Sender: "Emacs-orgmode" To: emacs-orgmode@gnu.org As I understand it I should be able to enter a range of times using either of the following formats: ** TODO time range <2017-04-21 Fri 15:45-16:45> ** TODO time+date range <2017-04-21 Fri 15:45>--<2017-04-22 Sat 15:45> Docs: http://orgmode.org/manual/Timestamps.html However, using the formats above triggers errors when I try to display the agenda (org-agenda) or todo list (org-todo-list). Note that a single date with a colon-separated time and no range is OK (no error). ** TODO This is a date with a colon <2017-04-20 Tue 15:45> ~~~ Debugger entered--Lisp error: (void-function org-hh:mm-string-to-minutes) org-hh:mm-string-to-minutes("16:45") org-agenda-format-item(nil #("TODO This is a time range <2017-04-21 Fri 1= 5:45-16:45>" 0 4 (org-category "blotter" fontified t face (:foreground "bla= ck" :background "snow" :weight bold :box (:line-width -1))) 4 25 (org-categ= ory "blotter" fontified t face org-level-2) 25 26 (org-category "blotter" f= ontified t face org-level-2) 26 53 (fontified t org-category "blotter" face= org-date mouse-face highlight keymap (keymap (follow-link . mouse-face) (m= ouse-3 . org-find-file-at-mouse) (mouse-2 . org-open-at-mouse))) 53 54 (fon= tified t rear-nonsticky (mouse-face highlight keymap invisible intangible h= elp-echo org-linked-text htmlize-link) org-category "blotter" face org-date= mouse-face highlight keymap (keymap (follow-link . mouse-face) (mouse-3 . = org-find-file-at-mouse) (mouse-2 . org-open-at-mouse)))) " " "blotter" nil= #("<2017-04-21 Fri 15:45-16:45>" 0 27 (keymap (keymap (follow-link . mouse= -face) (mouse-3 . org-find-file-at-mouse) (mouse-2 . org-open-at-mouse)) mo= use-face highlight face org-date org-category "blotter" fontified t) 27 28 = (keymap (keymap (follow-link . mouse-face) (mouse-3 . org-find-file-at-mous= e) (mouse-2 . org-open-at-mouse)) mouse-face highlight face org-date org-ca= tegory "blotter" rear-nonsticky (mouse-face highlight keymap invisible inta= ngible help-echo org-linked-text htmlize-link) fontified t)) "<\\([0-9]\\{4= \\}-[0-9]\\{2\\}-[0-9]\\{2\\} ?[^\n>]*?\\)>" nil) org-agenda-get-timestamps(nil) org-agenda-get-day-entries("/home/joe/postdoc.git/org/blotter.org" (4 21 = 2017) :scheduled :timestamp :sexp) apply(org-agenda-get-day-entries "/home/joe/postdoc.git/org/blotter.org" = (4 21 2017) (:scheduled :timestamp :sexp)) org-agenda-list(nil) (let ((org-agenda-include-diary t) (org-agenda-remove-tags t)) (org-agend= a-list current-prefix-arg)) eval((let ((org-agenda-include-diary t) (org-agenda-remove-tags t)) (org-= agenda-list current-prefix-arg))) org-let(((org-agenda-include-diary t) (org-agenda-remove-tags t)) (org-ag= enda-list current-prefix-arg)) org-agenda(nil) funcall-interactively(org-agenda nil) call-interactively(org-agenda nil nil) command-execute(org-agenda) ~~~ Emacs : GNU Emacs 25.1.50.2 (x86_64-unknown-linux-gnu, GTK+ Version 3.14.1= 3) of 2016-08-15 Package: Org mode version 9.0.5 (release_9.0.5-474-g942b62 @ /home/joe/org-= mode/lisp/) current state: =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D (setq org-tree-slide-mode-hook '(toggle-org-cloaking) org-tab-first-hook '(org-babel-hide-result-toggle-maybe org-babel-header-a= rg-expand) org-speed-command-hook '(org-speed-command-activate org-babel-speed-comman= d-activate) org-agenda-diary-file "~/postdoc.git/org/work.org" org-occur-hook '(org-first-headline-recenter) org-use-fast-todo-selection 'prefix org-clock-in-prepare-hook '((lambda nil (if (not pomodoro-is-active) (let ((minutes (read-number "Start timer: " = 90))) (when org-timer-current-timer (org-timer-st= op)) (org-timer-set-timer minutes) (pomodoro-mod= e)) ) ) ) org-metaup-hook '(org-babel-load-in-session-maybe) org-html-format-drawer-function #[514 "\207" [] 3 "\n\n(fn NAME CONTENTS)"] org-log-done 'note org-latex-format-inlinetask-function 'org-latex-format-inlinetask-default-= function org-confirm-shell-link-function 'yes-or-no-p org-image-actual-width nil org-finalize-agenda-hook '(remove-todo-and-cookies place-agenda-tags) org-ascii-format-inlinetask-function 'org-ascii-format-inlinetask-default org-startup-folded nil org-latex-pdf-process '("latexmk -pdflatex=3D'pdflatex -interaction nonsto= pmode' -pdf -bibtex -f %f") org-agenda-prefix-format '((agenda . " %i %-10:c%?-12t% s") (timeline . " = % s") (todo . " %i %-12:c") (tags . " %i %-12:c") (se= arch . " %i %-12:c")) org-agenda-custom-commands '(("a" "" agenda "" ((org-agenda-include-diary t) (org-agenda-re= move-tags t))) ) org-latex-format-headline-function 'org-latex-format-headline-default-func= tion org-default-notes-file "~/postdoc.git/org/blotter.org" org-todo-keyword-faces '(("META" :foreground "darkgreen" :background "snow= " :box (:line-width -1)) ("NOTE" :foreground "lightgreen" :weight bold) ("LOW" :foreground "#cb4b16" :background "snow" := weight bold :box (:line-width -1)) ("MED" :foreground "goldenrod" :background "corns= ilk" :weight bold :box (:line-width -1)) ("HIGH" :foreground "darkgreen" :background "hone= ydew" :weight bold :box (:line-width -1)) ("NICE" :foreground "blue" :background "honeydew"= :weight bold :box (:line-width -1)) ("MUST" :foreground "purple" :background "honeyde= w" :weight bold :box (:line-width -1)) ("TODO" :foreground "black" :background "snow" :w= eight bold :box (:line-width -1)) ("DONE" . org-done) ("WONTFIX" . org-done) ("ONIC= E" . org-done) ("QUESTION" . org-done)) org-capture-templates '(("c" "Comment" entry (file+headline "~/postdoc.git/org/blotter.org" "C= omments") "* COMMENT %?\n %i\n %a\n:PROPERTIES:\n:capture= d: %U\n:END:") ("q" "Question" entry (file+headline "~/postdoc.git/org/blotter.org" "Q= uestions") "* QUESTION %?\n %i\n %a\n:PROPERTIES:\n:captur= ed: %U\n:END:") ("t" "Todo" entry (file+headline "~/postdoc.git/org/blotter.org" "T= asks") "* TODO %?\n %i\n %a") ("n" "Note" entry (file+headline "~/postdoc.git/org/blotter.org" "N= otes") "* NOTE %?\n %i\n %a") ("c" "calfw2org" entry (file nil) "* %?\n %(cfw:or= g-capture-day)")) org-after-todo-state-change-hook '(org-clock-out-if-current) org-latex-format-drawer-function #[514 "\207" [] 3 "\n\n(fn _ CONTENTS)"] org-odt-format-headline-function 'org-odt-format-headline-default-function org-from-is-user-regexp "\\" org-html-postamble t org-src-mode-hook '(org-src-babel-configure-edit-buffer org-src-mode-confi= gure-edit-buffer) org-agenda-before-write-hook '(org-agenda-add-entry-text) org-babel-pre-tangle-hook '(save-buffer) org-mode-hook '((lambda nil (font-lock-add-keywords nil (quote (("^\\s-*?\\(-\\{1\\}\\|[0-9]+\\.\\)\\s-" 1 font-= lock-warning-face t))) ) (font-lock-add-keywords nil (quote (("^\\(-\\{5,\\}\\)" 1 font-lock-type-face t)))) ) (closure (org-inlinetask-min-level buffer-face-mode-face org-mode-= map org-tbl-menu org-org-menu org-struct-menu org-entities 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-em= phasis-alist org-emphasis-regexp-components org-export-registered-bac= kends org-modules org-babel-load-languages t) nil (add-hook (quote change-major-mode-hook) (quote org-show-= block-all) (quote append) (quote local)) ) #[0 "\300\301\302\303\304$\207" [add-hook change-major-mode-hook org-babel-show-result-a= ll append local] 5] org-babel-result-hide-spec org-babel-hide-all-hashes) org-refile-targets '((org-agenda-files :maxlevel . 1) ("~/postdoc.git/org/alt/backlog.org" :maxlevel . 1)) org-archive-hook '(org-attach-archive-delete-maybe) org-make-link-description-function 'rewrite-link org-agenda-sorting-strategy '((agenda todo-state-down tag-up category-keep= priority-down) (todo todo-state-down tag-up priority-down c= ategory-keep) (tags priority-down category-keep) (search c= ategory-keep)) org-ascii-format-drawer-function #[771 "\207" [] 4 "\n\n(fn NAME CONTENTS = WIDTH)"] org-odt-format-inlinetask-function 'org-odt-format-inlinetask-default-func= tion org-ctrl-c-ctrl-c-hook '(org-babel-hash-at-point org-babel-execute-safely-= maybe) org-timer-done-hook '((lambda nil (message "Timer done!") (when pomodoro-is-active (save-excursion (set-buffer (get-file-buffer org-a= genda-diary-file)) (pomodoro-mode -1)) (message "Pomodoro done!") (notifications-notify :title "time over" :body "record comments and take a break") (start-process-shell-command "cvlc" nil (concat "cvlc --play-and-exit --no-video " timer-= done-sound-file)) (org-clock-out)) ) ) org-cycle-hook '(org-cycle-hide-archived-subtrees org-cycle-hide-drawers org-cycle-show-empty-lines org-optimize-window-after-visi= bility-change) org-agenda-hide-tags-regexp "write" org-archive-location "~/postdoc.git/org/work.org::datetree/" org-agenda-use-time-grid nil org-agenda-finalize-hook '(remove-todo-and-cookies place-agenda-tags) org-export-before-processing-hook '((lambda (x) (setq org-html-postamble-format (list (list "en" (concat "

Author: %a=

\n

Created: %d

\n

Revised: " (format-time-string "%B %-d, %Y") "

\n

= %v

") ) ) ) ) ) org-odt-schema-dir nil org-todo-keywords '((sequence "META(M)" "NOTE(n)" "NICE(i)" "LOW(l)" "MED(= m)" "HIGH(h)" "MUST(u)" "TODO(t)" "|" "DONE(d)" "WONTFIX(w)" "ONICE= (o)" "QUESTION(q)") ) org-timer-default-timer 90 org-export-allow-bind-keywords t org-babel-tangle-lang-exts '(("clojure" . "clj") ("emacs-lisp" . "el") ("e= lisp" . "el")) org-confirm-elisp-link-function 'yes-or-no-p org-metadown-hook '(org-babel-pop-to-session-maybe) org-odt-format-drawer-function #[514 "\207" [] 3 "\n\n(fn NAME CONTENTS)"] org-html-format-headline-function 'org-html-format-headline-default-functi= on org-link-parameters '(("id" :follow org-id-open) ("rmail" :follow org-rmail-open :store org-rmail-sto= re-link) ("mhe" :follow org-mhe-open :store org-mhe-store-lin= k) ("irc" :follow org-irc-visit :store org-irc-store-li= nk) ("info" :follow org-info-open :export org-info-expor= t :store org-info-store-link) ("gnus" :follow org-gnus-open :store org-gnus-store-= link) ("docview" :follow org-docview-open :export org-docv= iew-export :store org-docview-store-link) ("bibtex" :follow org-bibtex-open :store org-bibtex-= store-link) ("bbdb" :follow org-bbdb-open :export org-bbdb-expor= t :complete org-bbdb-complete-link :store org-bbdb-store-link) ("w3m" :store org-w3m-store-link) ("cite" :follow org-bibtex-goto-citation :export nil) ("mu4e" :follow org-mu4e-open :export nil) ("file+sy= s") ("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 "f= tp:" 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)) org-structure-template-alist '(("s" "#+BEGIN_SRC ?\n\n#+END_SRC") ("e" "#+BEGIN_EXAMPLE\n?\n#+END_EXAMPLE") ("q" "#+BEGIN_QUOTE\n?\n#+END_QUOTE") ("v" "#+BEGIN_VERSE\n?\n#+END_VERSE") ("V" "#+BEGIN_VERBATIM\n?\n#+END_VERBATIM") ("c" "#+BEGIN_CENTER\n?\n#+END_CENTER") ("l" "#+BEGIN_LaTeX\n?\n#+END_LaTeX") ("L" = "#+LaTeX: ") ("h" "#+BEGIN_HTML\n?\n#+END_HTML") ("H" "#= +HTML: ") ("a" "#+BEGIN_ASCII\n?\n#+END_ASCII") ("A" = "#+ASCII: ") ("i" "#+INDEX: ?") ("I" "#+INCLUDE: %file ?= ") ("x" "#+BEGIN_COMMENT\n?\n#+END_COMMENT")) org-babel-load-languages '((clojure . t) (emacs-lisp . t)) org-clock-sound t org-cycle-global-at-bob t org-tree-slide-slide-in-effect nil org-agenda-include-deadlines nil org-html-format-inlinetask-function 'org-html-format-inlinetask-default-fu= nction org-agenda-mode-hook '(hide-notes) org-agenda-files '("~/postdoc.git/org/") org-clock-out-hook '((lambda nil (when (timerp org-timer-countdown-timer) (save-excursion (set-buffer (get-file-buffer org-ag= enda-diary-file)) (pomodoro-mode -1)) (cancel-timer org-timer-countdown-timer)) (let ((comments (read-string "Comments: "))) (save-excursion (org-set-property "SUMMARY" comment= s))) (let ((minutes (read-number "Take a break: " 5))) (when (> minutes 0) (org-agenda-list) (org-agenda-diary-entry-in-org-file-programmatical= ly (concat (int-to-string minutes) " minute break " (substring (current-time-string) 11 16)) ) (org-agenda-list) (search-forward "break") (goto-char (line-beginning-position)) (org-timer-s= et-timer minutes)) ) ) org-clock-remove-empty-clock-drawer) )