diff options
Diffstat (limited to 'haunt')
| -rw-r--r-- | haunt/haunt.scm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/haunt/haunt.scm b/haunt/haunt.scm index b5b85d3..c618ab0 100644 --- a/haunt/haunt.scm +++ b/haunt/haunt.scm @@ -50,7 +50,9 @@ ;; date format that Org uses. (define (org-string->date str) "Convert STR, a string in Org format, into a SRFI-19 date object." - (string->date str "<~Y-~m-~d ~a>")) + (catch 'misc-error + (lambda () (string->date str "<~Y-~m-~d ~a ~H:~M>")) + (lambda (key . parameters) (string->date str "<~Y-~m-~d ~a>")))) (register-metadata-parser! 'date org-string->date) |