diff options
| author | Craig Earls <enderw88@gmail.com> | 2013-02-01 10:41:35 -0800 |
|---|---|---|
| committer | Craig Earls <enderw88@gmail.com> | 2013-02-01 10:41:35 -0800 |
| commit | fdb9d0c2cae9a7827d9eaf6f7e7ba56ccc86a3fb (patch) | |
| tree | 7e94613175616bcbea264f55b84b0a6af10ea9f7 /lisp/ldg-xact.el | |
| parent | 6718b689991250fc97b0c43ec96328ca2e72e4f3 (diff) | |
| parent | edd82b2639e8a4d1f865dfae898caf678a9e7cbd (diff) | |
| download | fork-ledger-fdb9d0c2cae9a7827d9eaf6f7e7ba56ccc86a3fb.tar.gz fork-ledger-fdb9d0c2cae9a7827d9eaf6f7e7ba56ccc86a3fb.tar.bz2 fork-ledger-fdb9d0c2cae9a7827d9eaf6f7e7ba56ccc86a3fb.zip | |
Merge pull request #144 from enderw88/next
Add regional sort facility to ledger mode
Diffstat (limited to 'lisp/ldg-xact.el')
| -rw-r--r-- | lisp/ldg-xact.el | 17 |
1 files changed, 1 insertions, 16 deletions
diff --git a/lisp/ldg-xact.el b/lisp/ldg-xact.el index 11e6fbaf..1df7d79a 100644 --- a/lisp/ldg-xact.el +++ b/lisp/ldg-xact.el @@ -22,21 +22,6 @@ ;; A sample entry sorting function, which works if entry dates are of ;; the form YYYY/mm/dd. -(defun ledger-sort () - (interactive) - (save-excursion - (goto-char (point-min)) - (sort-subr - nil - (function - (lambda () - (if (re-search-forward - (concat "^[0-9/.=-]+\\(\\s-+\\*\\)?\\(\\s-+(.*?)\\)?\\s-+" - "\\(.+?\\)\\(\t\\|\n\\| [ \t]\\)") nil t) - (goto-char (match-beginning 0)) - (goto-char (point-max))))) - (function - (lambda () - (forward-paragraph)))))) + (provide 'ldg-xact)
\ No newline at end of file |