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

Move up timeline functions for moving the cursor 

They are more fundamental than other functions, and should thus be closer to the
top.
This commit is contained in:
dbo 2020-01-26 20:54:34 +01:00
parent 619e5bdcae
commit cccaf5bf4b
No known key found for this signature in database
GPG Key ID: 1C7071A75BB72D64
1 changed files with 26 additions and 26 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -502,6 +502,32 @@ current values of the relevant buffer local variables."
(goto-char (point-min))
(timeline-tools-next-line))))
(defun timeline-tools-next-line ()
"Move point to next line in timetable, if possible."
(interactive)
(unless (eq major-mode 'timeline-tools-mode)
(user-error "Not in Timeline buffer"))
(beginning-of-line)
(let ((point (point)))
(when (looking-at "^| ")
(forward-line))
(unless (re-search-forward "^| " nil 'no-error)
(goto-char point)
(user-error "No next line"))
(beginning-of-line)))
(defun timeline-tools-previous-line ()
"Move point to previous line in timetable, if possible."
(interactive)
(unless (eq major-mode 'timeline-tools-mode)
(user-error "Not in Timeline buffer"))
(beginning-of-line)
(let ((point (point)))
(unless (re-search-backward "^| " nil 'no-error)
(goto-char point)
(user-error "No previous line"))
(beginning-of-line)))
(defun timeline-tools--get-timeline-from-buffer ()
"Extract current timeline from buffer and return it.
This function expects the individual lines of a timeline to be
@ -589,32 +615,6 @@ Updates category properties before constructing the new timeline."
(goto-char (point-min))
(forward-line (1- linenum))))
(defun timeline-tools-next-line ()
"Move point to next line in timetable, if possible."
(interactive)
(unless (eq major-mode 'timeline-tools-mode)
(user-error "Not in Timeline buffer"))
(beginning-of-line)
(let ((point (point)))
(when (looking-at "^| ")
(forward-line))
(unless (re-search-forward "^| " nil 'no-error)
(goto-char point)
(user-error "No next line"))
(beginning-of-line)))
(defun timeline-tools-previous-line ()
"Move point to previous line in timetable, if possible."
(interactive)
(unless (eq major-mode 'timeline-tools-mode)
(user-error "Not in Timeline buffer"))
(beginning-of-line)
(let ((point (point)))
(unless (re-search-backward "^| " nil 'no-error)
(goto-char point)
(user-error "No previous line"))
(beginning-of-line)))
;;; Manipulating Clocklines