Remove 'marker text property in timelines
The marker is contained in the entry anyway, so let's use that.
This commit is contained in:
parent
b80f05d49f
commit
e5818fdb8c
|
@ -521,7 +521,6 @@ current values of the relevant buffer local variables."
|
||||||
(timeline-tools-format-entry-time line 'end)
|
(timeline-tools-format-entry-time line 'end)
|
||||||
(timeline-tools-entry-duration line)
|
(timeline-tools-entry-duration line)
|
||||||
(timeline-tools-entry-headline line))
|
(timeline-tools-entry-headline line))
|
||||||
'marker (timeline-tools-entry-marker line)
|
|
||||||
'entry line))))
|
'entry line))))
|
||||||
(insert "|--|\n")
|
(insert "|--|\n")
|
||||||
(org-table-align)
|
(org-table-align)
|
||||||
|
@ -613,9 +612,10 @@ Updates category properties before constructing the new timeline."
|
||||||
(unless (eq major-mode 'timeline-tools-mode)
|
(unless (eq major-mode 'timeline-tools-mode)
|
||||||
(user-error "Not in Timeline buffer"))
|
(user-error "Not in Timeline buffer"))
|
||||||
(let ((marker (save-mark-and-excursion
|
(let ((marker (save-mark-and-excursion
|
||||||
(beginning-of-line)
|
(beginning-of-line)
|
||||||
(org-table-next-field)
|
(org-table-next-field)
|
||||||
(get-text-property (point) 'marker))))
|
(-> (get-text-property (point) 'entry)
|
||||||
|
(timeline-tools-entry-marker)))))
|
||||||
(unless marker
|
(unless marker
|
||||||
(user-error "Not on headline to jump to"))
|
(user-error "Not on headline to jump to"))
|
||||||
(switch-to-buffer (marker-buffer marker))
|
(switch-to-buffer (marker-buffer marker))
|
||||||
|
|
Loading…
Reference in New Issue