emacs-orgmode@gnu.org archives
 help / color / mirror / code / Atom feed
From: Joe Corneli <holtzermann17@gmail.com>
To: emacs-orgmode@gnu.org
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	[thread overview]
Message-ID: <87wpafp3f2.fsf@gmail.com> (raw)

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 15:45-16:45>" 0 4 (org-category "blotter" fontified t face (:foreground "black" :background "snow" :weight bold :box (:line-width -1))) 4 25 (org-category "blotter" fontified t face org-level-2) 25 26 (org-category "blotter" fontified t face org-level-2) 26 53 (fontified t 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))) 53 54 (fontified t rear-nonsticky (mouse-face highlight keymap invisible intangible help-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)) mouse-face highlight face org-date org-category "blotter" fontified t) 27 28 (keymap (keymap (follow-link . mouse-face) (mouse-3 . org-find-file-at-mouse) (mouse-2 . org-open-at-mouse)) mouse-face highlight face org-date org-category "blotter" rear-nonsticky (mouse-face highlight keymap invisible intangible 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-agenda-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-agenda-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.13)
 of 2016-08-15
Package: Org mode version 9.0.5 (release_9.0.5-474-g942b62 @ /home/joe/org-mode/lisp/)

current state:
==============
(setq
 org-tree-slide-mode-hook '(toggle-org-cloaking)
 org-tab-first-hook '(org-babel-hide-result-toggle-maybe org-babel-header-arg-expand)
 org-speed-command-hook '(org-speed-command-activate org-babel-speed-command-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-stop))
                                (org-timer-set-timer minutes) (pomodoro-mode))
                               )
                              )
                             )
 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='pdflatex -interaction nonstopmode' -pdf -bibtex -f  %f")
 org-agenda-prefix-format '((agenda . " %i %-10:c%?-12t% s") (timeline . "  % s")
                            (todo . " %i %-12:c") (tags . " %i %-12:c") (search . " %i %-12:c"))
 org-agenda-custom-commands '(("a" "" agenda ""
                               ((org-agenda-include-diary t) (org-agenda-remove-tags t)))
                              )
 org-latex-format-headline-function 'org-latex-format-headline-default-function
 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 "cornsilk" :weight bold
                           :box (:line-width -1))
                          ("HIGH" :foreground "darkgreen" :background "honeydew" :weight bold
                           :box (:line-width -1))
                          ("NICE" :foreground "blue" :background "honeydew" :weight bold :box
                           (:line-width -1))
                          ("MUST" :foreground "purple" :background "honeydew" :weight bold :box
                           (:line-width -1))
                          ("TODO" :foreground "black" :background "snow" :weight bold :box
                           (:line-width -1))
                          ("DONE" . org-done) ("WONTFIX" . org-done) ("ONICE" . org-done)
                          ("QUESTION" . org-done))
 org-capture-templates '(("c" "Comment" entry
                          (file+headline "~/postdoc.git/org/blotter.org" "Comments")
                          "* COMMENT %?\n  %i\n  %a\n:PROPERTIES:\n:captured: %U\n:END:")
                         ("q" "Question" entry
                          (file+headline "~/postdoc.git/org/blotter.org" "Questions")
                          "* QUESTION %?\n  %i\n  %a\n:PROPERTIES:\n:captured: %U\n:END:")
                         ("t" "Todo" entry
                          (file+headline "~/postdoc.git/org/blotter.org" "Tasks")
                          "* TODO %?\n  %i\n  %a")
                         ("n" "Note" entry
                          (file+headline "~/postdoc.git/org/blotter.org" "Notes")
                          "* NOTE %?\n  %i\n  %a")
                         ("c" "calfw2org" entry (file nil) "* %?\n %(cfw:org-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 "\\<Joe\\>"
 org-html-postamble t
 org-src-mode-hook '(org-src-babel-configure-edit-buffer org-src-mode-configure-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-emphasis-alist
                   org-emphasis-regexp-components org-export-registered-backends 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-all 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 category-keep)
                               (tags priority-down category-keep) (search category-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-function
 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-agenda-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-visibility-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
                                          "<p class=\"author\">Author: %a</p>\n<p class=\"date\">Created: %d</p>\n<p class=\"date\">Revised: "
                                          (format-time-string "%B %-d, %Y")
                                          "</p>\n<p class=\"validation\">%v</p>")
                                         )
                                        )
                                       )
                                      )
                                     )
 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") ("elisp" . "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-function
 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)
                       ("cite" :follow org-bibtex-goto-citation :export nil)
                       ("mu4e" :follow org-mu4e-open :export nil) ("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))
 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-function
 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-agenda-diary-file))
                         (pomodoro-mode -1))
                        (cancel-timer org-timer-countdown-timer))
                       (let ((comments (read-string "Comments: ")))
                        (save-excursion (org-set-property "SUMMARY" comments)))
                       (let ((minutes (read-number "Take a break: " 5)))
                        (when (> minutes 0) (org-agenda-list)
                         (org-agenda-diary-entry-in-org-file-programmatically
                          (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-set-timer minutes))
                        )
                       )
                      org-clock-remove-empty-clock-drawer)
 )

             reply	other threads:[~2017-04-20 14:20 UTC|newest]

Thread overview: 3+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
2017-04-20 14:19 Joe Corneli [this message]
2017-04-20 15:57 ` Bug: entering range of times [9.0.5 (release_9.0.5-474-g942b62 @ /home/joe/org-mode/lisp/)] Kyle Meyer
2017-04-20 21:51   ` Joe Corneli

Reply instructions:

You may reply publicly to this message via plain-text email
using any one of the following methods:

* Save the following mbox file, import it into your mail client,
  and reply-to-all from there: mbox

  Avoid top-posting and favor interleaved quoting:
  https://en.wikipedia.org/wiki/Posting_style#Interleaved_style

  List information: https://www.orgmode.org/

* Reply using the --to, --cc, and --in-reply-to
  switches of git-send-email(1):

  git send-email \
    --in-reply-to=87wpafp3f2.fsf@gmail.com \
    --to=holtzermann17@gmail.com \
    --cc=emacs-orgmode@gnu.org \
    /path/to/YOUR_REPLY

  https://kernel.org/pub/software/scm/git/docs/git-send-email.html

* If your mail client supports setting the In-Reply-To header
  via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line before the message body.
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).