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

[Timeline] Add killing of lines

Browse Source
This commit is contained in:
Daniel Borchmann 2018-11-28 15:59:21 +01:00
parent fd3b2135ca
commit be6f75ba5c
Signed by: exot
GPG Key ID: 4F63DB96D45AA9C6
1 changed files with 19 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -66,6 +66,7 @@ Filter are applied in the order they are given in this list."
(define-key map (kbd "RET") #'timeline-tools-jump-to-headline) (define-key map (kbd "RET") #'timeline-tools-jump-to-headline)
(define-key map "q" #'quit-window) (define-key map "q" #'quit-window)
(define-key map (kbd "C-k") #'timeline-tools-kill-line) (define-key map (kbd "C-k") #'timeline-tools-kill-line)
(define-key map "k" #'timeline-tools-kill-line)
(define-key map (kbd "C-n") #'timeline-tools-next-line) (define-key map (kbd "C-n") #'timeline-tools-next-line)
(define-key map (kbd "C-p") #'timeline-tools-previous-line) (define-key map (kbd "C-p") #'timeline-tools-previous-line)
map)) map))
@ -500,6 +501,24 @@ Interactively query for the exact value of \"short\"."
(goto-char marker) (goto-char marker)
(org-reveal))) (org-reveal)))
(defun timeline-tools-kill-line ()
"Delete line at point from the current timeline."
(interactive)
(unless (eq major-mode 'timeline-tools-mode)
(user-error "Not in Timeline buffer"))
(save-mark-and-excursion
;; get actual entry from headline of line
(end-of-line)
(org-table-previous-field)
(let ((entry (get-text-property (point) 'entry)))
(unless entry
(user-error "Not on valid row in timeline."))
(unless (< 1 (length timeline-tools--current-timeline))
(user-error "Cannot delete last line."))
(setq-local timeline-tools--current-timeline
(timeline-tools-transform-timeline
(delq entry timeline-tools--current-timeline))))
(timeline-tools-redraw-timeline)))
;;; Manipulating Clocklines ;;; Manipulating Clocklines