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

[Timeline] Move propertization (uh) to redrawing function

This commit is contained in:
Daniel - 2018-11-28 15:46:50 +01:00
parent 0bfdf970d1
commit b9d611d9bf
Signed by: dbo
GPG Key ID: 4F63DB96D45AA9C6
1 changed files with 10 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
site-lisp/timeline-tools.el
View File

@ -65,6 +65,9 @@ Filter are applied in the order they are given in this list."
(define-key map "s" #'timeline-tools-skip-short-entries)
(define-key map (kbd "RET") #'timeline-tools-jump-to-headline)
(define-key map "q" #'quit-window)
(define-key map (kbd "C-k") #'timeline-tools-kill-line)
(define-key map (kbd "C-n") #'timeline-tools-next-line)
(define-key map (kbd "C-p") #'timeline-tools-previous-line)
map))
(define-derived-mode timeline-tools-mode
@ -104,14 +107,10 @@ Return whatever is found first."
(org-entry-get marker "CATEGORY"))))
(defun timeline-tools-entry-headline (entry)
"Return the headline associated with ENTRY.
The headline will be a string, propertized with a property called
`marker’ and a corresponding marker pointing to the headline."
(let* ((marker (timeline-tools-entry-marker entry))
(heading (org-with-point-at marker
(org-element-headline-parser (point-max)))))
(propertize (plist-get (cadr heading) :raw-value)
'marker marker)))
"Return the headline associated with ENTRY."
(let* ((marker (timeline-tools-entry-marker entry)))
(org-with-point-at marker
(org-element-headline-parser (point-max)))))
;; Utilities
@ -418,7 +417,9 @@ archives."
(timeline-tools-format-entry-time line 'start)
(timeline-tools-format-entry-time line 'end)
(timeline-tools-entry-duration line)
(timeline-tools-entry-headline line)))))
(propertize (timeline-tools-entry-headline line)
'marker (timeline-tools-entry-marker line)
'entry line)))))
(insert "|--|\n")
(org-table-align)
(goto-char (point-min)))))