Added menu entries to help set sort region

doc/ledger-mode.texi

@@ -316,7 +316,9 @@ markup within your ledger.  For exmaple
 
 <<< information to not sort >>>
 @end smallexample
-
+You can use menu entries to insert start and end markers.  These
+functions will automatically delete old markers and put new new marker
+at point.
 
 @node Hiding Transactions,  , Sorting Transactions, The Ledger Buffer
 @section Hiding Transactions

lisp/ldg-mode.el

@@ -116,6 +116,8 @@
 								    (interactive)
 								    (customize-group 'ledger))))
       (define-key map [sep1] '("--"))
+      (define-key map [sort-end] '(menu-item "Mark Sort End" ledger-sort-insert-end-mark))
+      (define-key map [sort-start] '(menu-item "Mark Sort Beginning" ledger-sort-insert-start-mark))
       (define-key map [sort-buff] '(menu-item "Sort Buffer" ledger-sort-buffer))
       (define-key map [sort-reg] '(menu-item "Sort Region" ledger-sort-region :enable mark-active))
       (define-key map [sep2] '(menu-item "--"))

lisp/ldg-sort.el

@@ -38,6 +38,36 @@
   "Move point to end of transaction."
   (forward-paragraph))
 
+(defun ledger-sort-find-start ()
+  (if (re-search-forward ";.*Ledger-mode:.*Start sort" nil t)
+      (match-end 0)))
+
+(defun ledger-sort-find-end ()
+  (if (re-search-forward ";.*Ledger-mode:.*End sort" nil t)
+      (match-end 0)))
+
+(defun ledger-sort-insert-start-mark ()
+  (interactive)
+  (let (has-old-marker) 
+    (save-excursion
+      (goto-char (point-min))
+      (setq has-old-marker (ledger-sort-find-start))
+      (if has-old-marker 
+	  (delete-region (match-beginning 0) (match-end 0))))
+    (beginning-of-line)
+    (insert "\n; Ledger-mode: Start sort\n\n")))
+
+(defun ledger-sort-insert-end-mark ()
+  (interactive)
+  (let (has-old-marker) 
+    (save-excursion
+      (goto-char (point-min))
+      (setq has-old-marker (ledger-sort-find-end))
+      (if has-old-marker 
+	  (delete-region (match-beginning 0) (match-end 0))))
+    (beginning-of-line)
+    (insert "\n; Ledger-mode: End sort\n\n")))
+
 (defun ledger-sort-region (beg end)
   "Sort the region from BEG to END in chronological order."
   (interactive "r") ;; load beg and end from point and mark
@@ -66,14 +96,15 @@
 (defun ledger-sort-buffer ()
   "Sort the entire buffer."
   (interactive)
-  (let ((sort-start (point-min))
-	(sort-end (point-max)))
   (goto-char (point-min))
-    (if (re-search-forward ";.*Ledger-mode:.*Start sort" nil t)
+  (let ((sort-start (ledger-sort-find-start))
-	(set 'sort-start (match-end 0)))
+	(sort-end (ledger-sort-find-end)))
-    (if (re-search-forward ";.*Ledger-mode:.*End sort" nil t)
+    (ledger-sort-region (if sort-start
-	(set 'sort-end (match-end 0)))    
+			    sort-start
-    (ledger-sort-region sort-start sort-end)))
+			    (point-min)) 
+			(if sort-end
+			    sort-end
+			    (point-max)))))
 
 (provide 'ldg-sort)