dbo/.emacs.d
dbo
/
.emacs.d
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

[Org] Fix formatting of ‘db/org-format-timeline’

This commit is contained in:
Daniel - 2017-12-02 21:21:05 +01:00
parent 24da327c2e
commit bdf7209032
Signed by: dbo
GPG Key ID: 4F63DB96D45AA9C6
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
site-lisp/db-org.el
View File

@ -1067,7 +1067,7 @@ When not given, FILES defaults to `org-agenda-files’."
(insert "|--|\n")
(dolist (entry timeline)
(cl-destructuring-bind (start end marker) entry
(insert (format "| %s | %s | %s min | %s |\n"
(insert (format "| %s | %s | %s | %s |\n"
(org-entry-get marker "CATEGORY")
(format-time-string "%Y-%m-%d %H:%m" start)
(format-time-string "%Y-%m-%d %H:%m" end)
@ -1076,7 +1076,7 @@ When not given, FILES defaults to `org-agenda-files’."
(with-current-buffer (marker-buffer marker)
(goto-char (marker-position marker))
(thing-at-point 'line t)))))
(string-match (format "^\\(\\*+\\)\\(?: +%s\\)?\\(?: %s\\)? +\\(.*?\\)[ \t]*\\(?::\\(?:[A-Za-z]+:\\)+\\)?$"
(string-match (format "^\\(\\*+\\)\\(?: +%s\\)?\\(?: %s\\)? +\\(.*?\\)[ \t]*\\(?::\\(?:[A-Za-z_]+:\\)+\\)?$"
(regexp-opt org-todo-keywords-1)
org-priority-regexp)
heading)