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

[Timeline] Add text properties to all fields

Browse Source 
Actually, we add the text properties ‘marker’ and ‘entry’ to the whole line, but
the alinging of the table somehow removes the text properties between two
columns.  It is kept in the fields, though, and that is enough.
This commit is contained in:
Daniel - 2019-07-13 20:16:04 +02:00
parent af244b853b
commit 76999d9136
No known key found for this signature in database
GPG Key ID: 1C7071A75BB72D64
1 changed files with 23 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -485,14 +485,14 @@ archives."
(when (not (equal last-category current-category)) (when (not (equal last-category current-category))
(insert "|--|\n") (insert "|--|\n")
(setq last-category current-category)) (setq last-category current-category))
(insert (format "| %s | %s | %s | %s min | %s | \n" (insert
(propertize (format "| %s | %s | %s | %s min | %s | \n"
current-category current-category
(timeline-tools-format-entry-time line 'start) (timeline-tools-format-entry-time line 'start)
(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))
(propertize (timeline-tools-entry-headline line)
'marker (timeline-tools-entry-marker line) 'marker (timeline-tools-entry-marker line)
'entry line))))) 'entry line))))
(insert "|--|\n") (insert "|--|\n")
(org-table-align) (org-table-align)
(goto-char (point-min)) (goto-char (point-min))
@ -564,8 +564,8 @@ Interactively query for the exact value of \"short\"."
(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
(end-of-line) (beginning-of-line)
(org-table-previous-field) (org-table-next-field)
(get-text-property (point) 'marker)))) (get-text-property (point) 'marker))))
(unless marker (unless marker
(user-error "Not on headline to jump to")) (user-error "Not on headline to jump to"))
@ -583,9 +583,7 @@ Interactively query for the exact value of \"short\"."
(beginning-of-line) (beginning-of-line)
(unless (looking-at "^| ") (unless (looking-at "^| ")
(user-error "Not in table")) (user-error "Not in table"))
;; Move 5 columns to find the actual entry (org-table-next-field)
(dotimes (_ 5)
(org-table-next-field))
(let ((entry (get-text-property (point) 'entry))) (let ((entry (get-text-property (point) 'entry)))
(unless entry (unless entry
(user-error "Not on valid row in timeline")) (user-error "Not on valid row in timeline"))