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

Delete feature to remove short entries 

Haven't used it much anyway, and this will not work anymore when we no longer
explicitly store the current timeline of the buffer.
This commit is contained in:
Daniel - 2020-01-26 20:40:36 +01:00
parent be43c611d9
commit 85cfd25097
No known key found for this signature in database
GPG Key ID: 1C7071A75BB72D64
1 changed files with 0 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -101,7 +101,6 @@ end date of the timeline."
(define-key map "R" #'timeline-tools-reparse-timeline)
(define-key map "f" #'timeline-tools-forward-day)
(define-key map "b" #'timeline-tools-backward-day)
(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)
@ -536,19 +535,6 @@ Updates category properties before constructing the new timeline."
(- timeline-tools--current-time-end 86400))
(timeline-tools-redraw-timeline 'force)))
(defun timeline-tools-skip-short-entries ()
"Skip entries in current timeline that are too short.
Interactively query for the exact value of \"short\"."
(interactive)
(when (not (eq major-mode 'timeline-tools-mode))
(user-error "Not in Timeline buffer"))
(let ((threshold (string-to-number
(read-from-minibuffer "Maximum time for short entries (in seconds): "))))
(setq-local timeline-tools--current-timeline
(timeline-tools-remove-short-entries
timeline-tools--current-timeline threshold))
(timeline-tools-redraw-timeline)))
(defun timeline-tools-jump-to-headline ()
"Jump to headline of current entry, if available."
(interactive)