sfos/ledger
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Handle block comments as blocks rather than individual lines.

Browse source
This commit is contained in:
Craig Earls 2014-11-09 09:50:22 -07:00
parent 8a87fd1310
commit 2ef1c09210
1 changed files with 50 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

54
lisp/ledger-navigate.el
View file

@ -95,10 +95,56 @@ Requires empty line separating xacts."
(defun ledger-navigate-find-directive-extents (pos)
(goto-char pos)
(list (progn (beginning-of-line)
(point))
(progn (end-of-line)
(point))))
(let ((begin (progn (beginning-of-line)
(point)))
(end (progn (end-of-line)
(point))))
;; handle block comments here
(beginning-of-line)
(if (looking-at " *;")
(progn
(while (and (looking-at " *;")
(> (point) (point-min)))
(forward-line -1))
;; We are either at the beginning of the buffer, or we found
;; a line outside the comment. If we are not at the
;; beginning of the buffer then we need to move forward a
;; line.
(if (> (point) (point-min))
(progn (forward-line 1)
(beginning-of-line)))
(setq begin (point))
(goto-char pos)
(beginning-of-line)
(while (and (looking-at " *;")
(< (point) (point-max)))
(forward-line 1))
(setq end (point))))
(list begin end)))
(defun ledger-navigate-block-comment (pos)
(interactive "d")
(goto-char pos)
(let ((begin (progn (beginning-of-line)
(point)))
(end (progn (end-of-line)
(point))))
;; handle block comments here
(beginning-of-line)
(if (looking-at " *;")
(progn
(while (and (looking-at " *;")
(> (point) (point-min)))
(forward-line -1))
(setq begin (point))
(goto-char pos)
(beginning-of-line)
(while (and (looking-at " *;")
(< (point) (point-max)))
(forward-line 1))
(setq end (point))))
(list begin end)))
(defun ledger-navigate-find-element-extents (pos)
"return list containing beginning and end of the entity surrounding point"