1 files changed, 0 insertions, 168 deletions
diff --git a/lisp/ledger-navigate.el b/lisp/ledger-navigate.el
deleted file mode 100644
index 7ac440f7..00000000
--- a/lisp/ledger-navigate.el
+++ /dev/null
@@ -1,168 +0,0 @@
-;;; ledger-navigate.el --- Provide navigation services through the ledger buffer.
-
-;; Copyright (C) 2014-2015 Craig Earls (enderw88 AT gmail DOT com)
-
-;; This file is not part of GNU Emacs.
-
-;; This is free software; you can redistribute it and/or modify it under
-;; the terms of the GNU General Public License as published by the Free
-;; Software Foundation; either version 2, or (at your option) any later
-;; version.
-;;
-;; This is distributed in the hope that it will be useful, but WITHOUT
-;; ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
-;; FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
-;; for more details.
-;;
-;; You should have received a copy of the GNU General Public License
-;; along with GNU Emacs; see the file COPYING.  If not, write to the
-;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston,
-;; MA 02110-1301 USA.
-
-
-;;; Commentary:
-;;
-
-;;; Code:
-
-(require 'ledger-regex)
-(require 'ledger-context)
-
-(defun ledger-navigate-next-xact ()
-  "Move point to beginning of next xact."
-  ;; make sure we actually move to the next xact, even if we are the
-  ;; beginning of one now.
-  (if (looking-at ledger-payee-any-status-regex)
-      (forward-line))
-  (if (re-search-forward  ledger-payee-any-status-regex nil t)
-      (goto-char (match-beginning 0))
-    (goto-char (point-max))))
-
-(defun ledger-navigate-start-xact-or-directive-p ()
-  "Return t if at the beginning of an empty or all-whitespace line."
-  (not (looking-at "[ \t]\\|\\(^$\\)")))
-
-(defun ledger-navigate-next-xact-or-directive ()
-  "Move to the beginning of the next xact or directive."
-  (interactive)
-  (beginning-of-line)
-  (if (ledger-navigate-start-xact-or-directive-p) ; if we are the start of an xact, move forward to the next xact
-      (progn
-        (forward-line)
-        (if (not (ledger-navigate-start-xact-or-directive-p)) ; we have moved forward and are not at another xact, recurse forward
-            (ledger-navigate-next-xact-or-directive)))
-    (while (not (or (eobp)  ; we didn't start off at the beginning of an xact
-                    (ledger-navigate-start-xact-or-directive-p)))
-      (forward-line))))
-
-(defun ledger-navigate-prev-xact-or-directive ()
-  "Move point to beginning of previous xact."
-  (interactive)
-  (let ((context (car (ledger-context-at-point))))
-    (when (equal context 'acct-transaction)
-      (ledger-navigate-beginning-of-xact))
-    (beginning-of-line)
-    (re-search-backward "^[[:graph:]]" nil t)))
-
-(defun ledger-navigate-beginning-of-xact ()
-  "Move point to the beginning of the current xact."
-  (interactive)
-  ;; need to start at the beginning of a line incase we are in the first line of an xact already.
-  (beginning-of-line)
-  (let ((sreg (concat "^\\(=\\|~\\|" ledger-iso-date-regexp "\\)")))
-    (unless (looking-at sreg)
-      (re-search-backward sreg nil t)
-      (beginning-of-line)))
-  (point))
-
-(defun ledger-navigate-end-of-xact ()
-  "Move point to end of xact."
-  (interactive)
-  (ledger-navigate-next-xact-or-directive)
-  (re-search-backward ".$")
-  (end-of-line)
-  (point))
-
-(defun ledger-navigate-to-line (line-number)
-  "Rapidly move point to line LINE-NUMBER."
-  (goto-char (point-min))
-  (forward-line (1- line-number)))
-
-(defun ledger-navigate-find-xact-extents (pos)
-  "Return list containing point for beginning and end of xact containing POS.
-Requires empty line separating xacts."
-  (interactive "d")
-  (save-excursion
-    (goto-char pos)
-    (list (ledger-navigate-beginning-of-xact)
-          (ledger-navigate-end-of-xact))))
-
-(defun ledger-navigate-find-directive-extents (pos)
-  "Return the extents of the directive at POS."
-  (goto-char pos)
-  (let ((begin (progn (beginning-of-line)
-                      (point)))
-        (end (progn (end-of-line)
-                    (+ 1 (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)
-  "Move past the block comment at POS, and return its extents."
-  (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 POS."
-  (interactive "d")
-  (save-excursion
-    (goto-char pos)
-    (beginning-of-line)
-    (if (looking-at "[ =~0-9\\[]")
-        (ledger-navigate-find-xact-extents pos)
-      (ledger-navigate-find-directive-extents pos))))
-
-
-(provide 'ledger-navigate)
-
-;;; ledger-navigate.el ends here