From 0675208a63837b0ce6802b5124bb90514f07b5e0 Mon Sep 17 00:00:00 2001
From: Craig Earls <enderw88@gmail.com>
Date: Fri, 1 Feb 2013 10:19:47 -0700
Subject: Add regional sort facility to ledger mode

C-c C-s now bound to ledger-sort-region.  ledger-sort-region is smart and
find the beginning of the first xact within the region and the beginning of
the first xact AFTER the region so that it can keep posing structure intact
---
 lisp/ldg-sort.el | 62 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 62 insertions(+)
 create mode 100644 lisp/ldg-sort.el

(limited to 'lisp/ldg-sort.el')

diff --git a/lisp/ldg-sort.el b/lisp/ldg-sort.el
new file mode 100644
index 00000000..e1988413
--- /dev/null
+++ b/lisp/ldg-sort.el
@@ -0,0 +1,62 @@
+;;; ldg-xact.el --- Helper code for use with the "ledger" command-line tool
+
+;; Copyright (C) 2003-2013 John Wiegley (johnw AT gnu DOT org)
+
+;; 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., 59 Temple Place - Suite 330, Boston,
+;; MA 02111-1307, USA.
+
+;; A sample entry sorting function, which works if entry dates are of
+;; the form YYYY/mm/dd.
+
+(defun ledger-next-record-function ()
+        (if (re-search-forward
+             (concat "^[0-9/.=-]+\\(\\s-+\\*\\)?\\(\\s-+(.*?)\\)?\\s-+"
+                     "\\(.+?\\)\\(\t\\|\n\\| [ \t]\\)") nil t)
+            (goto-char (match-beginning 0))
+	    (goto-char (point-max))))
+
+(defun ledger-end-record-function ()
+  (forward-paragraph))
+
+(defun ledger-sort-region (beg end)
+  (interactive "r") ;load beg and end from point and mark automagically
+  (let ((new-beg beg)
+	(new-end end))
+    (save-excursion
+      (save-restriction
+	(ledger-next-record-function) ;make sure point is at the beginning of a xact
+	(message "beg: %s end: %s" new-beg new-end)
+	(setq new-beg (point))
+	(goto-char end)
+	(ledger-next-record-function) ;make sure end of region is at the beginning of
+                                      ;next record after the region
+	(setq new-end (point))
+	(narrow-to-region beg end)
+	(goto-char (point-min))
+
+	(let ((inhibit-field-text-motion t))
+	  (sort-subr
+	   nil
+	   'ledger-next-record-function
+	   'ledger-end-record-function))))))
+
+(defun ledger-sort-buffer ()
+  (interactive)
+    (ledger-sort-region (point-min) (point-max)))
+
+
+(provide 'ldg-sort)
\ No newline at end of file
-- 
cgit v1.2.3