Browse Source

Remove 'marker text property in timelines

The marker is contained in the entry anyway, so let's use that.
master
Daniel Borchmann 3 months ago
parent
commit
e5818fdb8c
No known key found for this signature in database
GPG Key ID: 1C7071A75BB72D64
  1. 8
      site-lisp/timeline-tools.el

8
site-lisp/timeline-tools.el

@ -521,7 +521,6 @@ current values of the relevant buffer local variables."
(timeline-tools-format-entry-time line 'end)
(timeline-tools-entry-duration line)
(timeline-tools-entry-headline line))
'marker (timeline-tools-entry-marker line)
'entry line))))
(insert "|--|\n")
(org-table-align)
@ -613,9 +612,10 @@ Updates category properties before constructing the new timeline."
(unless (eq major-mode 'timeline-tools-mode)
(user-error "Not in Timeline buffer"))
(let ((marker (save-mark-and-excursion
(beginning-of-line)
(org-table-next-field)
(get-text-property (point) 'marker))))
(beginning-of-line)
(org-table-next-field)
(-> (get-text-property (point) 'entry)
(timeline-tools-entry-marker)))))
(unless marker
(user-error "Not on headline to jump to"))
(switch-to-buffer (marker-buffer marker))

Loading…
Cancel
Save