Finished changing name to ledger-*
All files and references changed ldg-* to ledger-*
This commit is contained in:
Craig Earls
parent
5b8817c8e8
commit
63ba45dbaa
18 changed files with 151 additions and 151 deletions
|
|
@ -1,4 +1,4 @@
|
|||
;;; ldg-commodities.el --- Helper code for use with the "ledger" command-line tool
|
||||
;;; ledger-commodities.el --- Helper code for use with the "ledger" command-line tool
|
||||
|
||||
;; Copyright (C) 2003-2013 John Wiegley (johnw AT gnu DOT org)
|
||||
|
||||
|
|
@ -26,7 +26,7 @@
|
|||
|
||||
;;; Code:
|
||||
|
||||
(require 'ldg-regex)
|
||||
(require 'ledger-regex)
|
||||
|
||||
(defcustom ledger-reconcile-default-commodity "$"
|
||||
"The default commodity for use in target calculations in ledger reconcile."
|
||||
|
|
@ -142,6 +142,6 @@ longer ones are after the value."
|
|||
comm
|
||||
(list (car comm) ledger-reconcile-default-commodity))))))
|
||||
|
||||
(provide 'ldg-commodities)
|
||||
(provide 'ledger-commodities)
|
||||
|
||||
;;; ldg-commodities.el ends here
|
||||
;;; ledger-commodities.el ends here
|
||||
|
|
@ -1,4 +1,4 @@
|
|||
;;; ldg-complete.el --- Helper code for use with the "ledger" command-line tool
|
||||
;;; ledger-complete.el --- Helper code for use with the "ledger" command-line tool
|
||||
|
||||
;; Copyright (C) 2003-2013 John Wiegley (johnw AT gnu DOT org)
|
||||
|
||||
|
|
@ -252,6 +252,6 @@ ledger-magic-tab would cycle properly"
|
|||
'(sole shortest))
|
||||
pcomplete-last-completion-raw))))))
|
||||
|
||||
(provide 'ldg-complete)
|
||||
(provide 'ledger-complete)
|
||||
|
||||
;;; ldg-complete.el ends here
|
||||
;;; ledger-complete.el ends here
|
||||
|
|
@ -1,4 +1,4 @@
|
|||
;;; ldg-context.el --- Helper code for use with the "ledger" command-line tool
|
||||
;;; ledger-context.el --- Helper code for use with the "ledger" command-line tool
|
||||
|
||||
;; Copyright (C) 2003-2013 John Wiegley (johnw AT gnu DOT org)
|
||||
|
||||
|
|
@ -206,6 +206,6 @@ specified line, returns nil."
|
|||
(defun ledger-context-goto-field-end (context-info field-name)
|
||||
(goto-char (ledger-context-field-end-position context-info field-name)))
|
||||
|
||||
(provide 'ldg-context)
|
||||
(provide 'ledger-context)
|
||||
|
||||
;;; ldg-report.el ends here
|
||||
;;; ledger-report.el ends here
|
||||
|
|
@ -1,4 +1,4 @@
|
|||
;;; ldg-exec.el --- Helper code for use with the "ledger" command-line tool
|
||||
;;; ledger-exec.el --- Helper code for use with the "ledger" command-line tool
|
||||
|
||||
;; Copyright (C) 2003-2013 John Wiegley (johnw AT gnu DOT org)
|
||||
|
||||
|
|
@ -77,7 +77,7 @@
|
|||
(let ((buffer ledger-buf)
|
||||
(version-strings '()))
|
||||
(with-temp-buffer
|
||||
(when (ledger-exec-ledger (current-buffer) (current-buffer) "--version")
|
||||
(when (ledger-exec-ledger (current-buffer) (current-buffer) "--version")
|
||||
(goto-char (point-min))
|
||||
(delete-horizontal-space)
|
||||
(setq version-strings (split-string
|
||||
|
|
@ -96,6 +96,6 @@
|
|||
(message "Good Ledger Version")
|
||||
(message "Bad Ledger Version")))
|
||||
|
||||
(provide 'ldg-exec)
|
||||
(provide 'ledger-exec)
|
||||
|
||||
;;; ldg-exec.el ends here
|
||||
;;; ledger-exec.el ends here
|
||||
|
|
@ -1,4 +1,4 @@
|
|||
;;; ldg-fonts.el --- Helper code for use with the "ledger" command-line tool
|
||||
;;; ledger-fonts.el --- Helper code for use with the "ledger" command-line tool
|
||||
|
||||
;; Copyright (C) 2003-2013 John Wiegley (johnw AT gnu DOT org)
|
||||
|
||||
|
|
@ -26,7 +26,7 @@
|
|||
|
||||
;;; Code:
|
||||
|
||||
(require 'ldg-regex)
|
||||
(require 'ledger-regex)
|
||||
|
||||
(defgroup ledger-faces nil "Ledger mode highlighting" :group 'ledger)
|
||||
(defface ledger-font-payee-uncleared-face
|
||||
|
|
@ -133,6 +133,6 @@
|
|||
"Expressions to highlight in Ledger mode.")
|
||||
|
||||
|
||||
(provide 'ldg-fonts)
|
||||
(provide 'ledger-fonts)
|
||||
|
||||
;;; ldg-fonts.el ends here
|
||||
;;; ledger-fonts.el ends here
|
||||
|
|
@ -1,4 +1,4 @@
|
|||
;;; ldg-init.el --- Helper code for use with the "ledger" command-line tool
|
||||
;;; ledger-init.el --- Helper code for use with the "ledger" command-line tool
|
||||
|
||||
;; Copyright (C) 2003-2013 John Wiegley (johnw AT gnu DOT org)
|
||||
|
||||
|
|
@ -22,7 +22,7 @@
|
|||
;;; Commentary:
|
||||
;; Determine the ledger environment
|
||||
|
||||
(require 'ldg-regex)
|
||||
(require 'ledger-regex)
|
||||
|
||||
(defcustom ledger-init-file-name "~/.ledgerrc"
|
||||
"Location of the ledger initialization file. nil if you don't have one"
|
||||
|
|
@ -38,7 +38,7 @@
|
|||
(let ((matchb (match-beginning 0)) ;; save the match data, string-match stamp on it
|
||||
(matche (match-end 0)))
|
||||
(end-of-line)
|
||||
(setq environment-alist
|
||||
(setq environment-alist
|
||||
(append environment-alist
|
||||
(list (cons (let ((flag (buffer-substring-no-properties (+ 2 matchb) matche)))
|
||||
(if (string-match "[ \t\n\r]+\\'" flag)
|
||||
|
|
@ -57,12 +57,12 @@
|
|||
(ledger-init-parse-initialization init-base-name)
|
||||
(when (and ledger-init-file-name
|
||||
(file-exists-p ledger-init-file-name)
|
||||
(file-readable-p ledger-init-file-name))
|
||||
(file-readable-p ledger-init-file-name))
|
||||
(find-file-noselect ledger-init-file-name)
|
||||
(setq ledger-environment-alist
|
||||
(setq ledger-environment-alist
|
||||
(ledger-init-parse-initialization init-base-name))
|
||||
(kill-buffer init-base-name)))))
|
||||
|
||||
(provide 'ldg-init)
|
||||
(provide 'ledger-init)
|
||||
|
||||
;;; ldg-init.el ends here
|
||||
;;; ledger-init.el ends here
|
||||
|
|
@ -1,4 +1,4 @@
|
|||
;;; ldg-mode.el --- Helper code for use with the "ledger" command-line tool
|
||||
;;; ledger-mode.el --- Helper code for use with the "ledger" command-line tool
|
||||
|
||||
;; Copyright (C) 2003-2013 John Wiegley (johnw AT gnu DOT org)
|
||||
|
||||
|
|
@ -26,25 +26,25 @@
|
|||
|
||||
;;; Code:
|
||||
|
||||
(require 'ldg-regex)
|
||||
(require 'ledger-regex)
|
||||
(require 'esh-util)
|
||||
(require 'esh-arg)
|
||||
(require 'ldg-commodities)
|
||||
(require 'ldg-complete)
|
||||
(require 'ldg-context)
|
||||
(require 'ldg-exec)
|
||||
(require 'ldg-fonts)
|
||||
(require 'ldg-init)
|
||||
(require 'ldg-occur)
|
||||
(require 'ldg-post)
|
||||
(require 'ldg-reconcile)
|
||||
(require 'ldg-report)
|
||||
(require 'ldg-sort)
|
||||
(require 'ldg-state)
|
||||
(require 'ldg-test)
|
||||
(require 'ldg-texi)
|
||||
(require 'ldg-xact)
|
||||
(require 'ldg-schedule)
|
||||
(require 'ledger-commodities)
|
||||
(require 'ledger-complete)
|
||||
(require 'ledger-context)
|
||||
(require 'ledger-exec)
|
||||
(require 'ledger-fonts)
|
||||
(require 'ledger-init)
|
||||
(require 'ledger-occur)
|
||||
(require 'ledger-post)
|
||||
(require 'ledger-reconcile)
|
||||
(require 'ledger-report)
|
||||
(require 'ledger-sort)
|
||||
(require 'ledger-state)
|
||||
(require 'ledger-test)
|
||||
(require 'ledger-texi)
|
||||
(require 'ledger-xact)
|
||||
(require 'ledger-schedule)
|
||||
|
||||
;;; Code:
|
||||
|
||||
|
|
@ -233,8 +233,8 @@ Can indent, complete or align depending on context."
|
|||
(define-key map [(meta ?p)] 'ledger-post-prev-xact)
|
||||
(define-key map [(meta ?n)] 'ledger-post-next-xact)
|
||||
|
||||
(define-key map [menu-bar] (make-sparse-keymap "ldg-menu"))
|
||||
(define-key map [menu-bar ldg-menu] (cons "Ledger" map))
|
||||
(define-key map [menu-bar] (make-sparse-keymap "ledger-menu"))
|
||||
(define-key map [menu-bar ledger-menu] (cons "Ledger" map))
|
||||
|
||||
(define-key map [report-kill] '(menu-item "Kill Report" ledger-report-kill :enable ledger-works))
|
||||
(define-key map [report-edit] '(menu-item "Edit Report" ledger-report-edit :enable ledger-works))
|
||||
|
|
@ -295,4 +295,4 @@ Can indent, complete or align depending on context."
|
|||
|
||||
(provide 'ledger)
|
||||
|
||||
;;; ldg-mode.el ends here
|
||||
;;; ledger-mode.el ends here
|
||||
|
|
@ -1,4 +1,4 @@
|
|||
;;; ldg-mode.el --- Helper code for use with the "ledger" command-line tool
|
||||
;;; ledger-mode.el --- Helper code for use with the "ledger" command-line tool
|
||||
|
||||
;; Copyright (C) 2003-2013 John Wiegley (johnw AT gnu DOT org)
|
||||
|
||||
|
|
@ -187,6 +187,6 @@ Used for coordinating `ledger-occur' with other buffers, like reconcile."
|
|||
(setq current-end (cadr match))))
|
||||
(nreverse (push (list current-beginning current-end) points))))
|
||||
|
||||
(provide 'ldg-occur)
|
||||
(provide 'ledger-occur)
|
||||
|
||||
;;; ldg-occur.el ends here
|
||||
;;; ledger-occur.el ends here
|
||||
|
|
@ -1,4 +1,4 @@
|
|||
;;; ldg-post.el --- Helper code for use with the "ledger" command-line tool
|
||||
;;; ledger-post.el --- Helper code for use with the "ledger" command-line tool
|
||||
|
||||
;; Copyright (C) 2003-2013 John Wiegley (johnw AT gnu DOT org)
|
||||
|
||||
|
|
@ -23,7 +23,7 @@
|
|||
;;; Commentary:
|
||||
;; Utility functions for dealing with postings.
|
||||
|
||||
(require 'ldg-regex)
|
||||
(require 'ledger-regex)
|
||||
|
||||
;;; Code:
|
||||
|
||||
|
|
@ -242,8 +242,8 @@ region align the posting on the current line."
|
|||
|
||||
|
||||
|
||||
(provide 'ldg-post)
|
||||
(provide 'ledger-post)
|
||||
|
||||
|
||||
|
||||
;;; ldg-post.el ends here
|
||||
;;; ledger-post.el ends here
|
||||
|
|
@ -1,4 +1,4 @@
|
|||
;;; ldg-reconcile.el --- Helper code for use with the "ledger" command-line tool
|
||||
;;; ledger-reconcile.el --- Helper code for use with the "ledger" command-line tool
|
||||
|
||||
;; Copyright (C) 2003-2013 John Wiegley (johnw AT gnu DOT org)
|
||||
|
||||
|
|
@ -453,33 +453,33 @@ moved and recentered. If they aren't strange things happen."
|
|||
|
||||
(define-key map [(control ?c) (control ?p)] (ledger-reconcile-change-sort-key-and-refresh "(payee)"))
|
||||
|
||||
(define-key map [menu-bar] (make-sparse-keymap "ldg-recon-menu"))
|
||||
(define-key map [menu-bar ldg-recon-menu] (cons "Reconcile" map))
|
||||
(define-key map [menu-bar ldg-recon-menu qui] '("Quit" . ledger-reconcile-quit))
|
||||
(define-key map [menu-bar ldg-recon-menu sep1] '("--"))
|
||||
(define-key map [menu-bar ldg-recon-menu pre] '("Previous Entry" . previous-line))
|
||||
(define-key map [menu-bar ldg-recon-menu vis] '("Visit Source" . ledger-reconcile-visit))
|
||||
(define-key map [menu-bar ldg-recon-menu nex] '("Next Entry" . next-line))
|
||||
(define-key map [menu-bar ldg-recon-menu sep2] '("--"))
|
||||
(define-key map [menu-bar ldg-recon-menu del] '("Delete Entry" . ledger-reconcile-delete))
|
||||
(define-key map [menu-bar ldg-recon-menu add] '("Add Entry" . ledger-reconcile-add))
|
||||
(define-key map [menu-bar ldg-recon-menu tog] '("Toggle Entry" . ledger-reconcile-toggle))
|
||||
(define-key map [menu-bar ldg-recon-menu sep3] '("--"))
|
||||
(define-key map [menu-bar ldg-recon-menu sort-amt] `("Sort by amount" . ,(ledger-reconcile-change-sort-key-and-refresh "(amount)")))
|
||||
(define-key map [menu-bar ldg-recon-menu sort-pay] `("Sort by date" . ,(ledger-reconcile-change-sort-key-and-refresh "(date)")))
|
||||
(define-key map [menu-bar ldg-recon-menu sort-dat] `("Sort by payee" . ,(ledger-reconcile-change-sort-key-and-refresh "(payee)")))
|
||||
(define-key map [menu-bar ldg-recon-menu sep4] '("--"))
|
||||
(define-key map [menu-bar ldg-recon-menu bal] '("Show Cleared Balance" . ledger-display-balance))
|
||||
(define-key map [menu-bar ldg-recon-menu tgt] '("Change Target Balance" . ledger-reconcile-change-target))
|
||||
(define-key map [menu-bar ldg-recon-menu sep5] '("--"))
|
||||
(define-key map [menu-bar ldg-recon-menu rna] '("Reconcile New Account" . ledger-reconcile))
|
||||
(define-key map [menu-bar ldg-recon-menu sep6] '("--"))
|
||||
(define-key map [menu-bar ldg-recon-menu fin] '("Finish" . ledger-reconcile-finish))
|
||||
(define-key map [menu-bar ldg-recon-menu ref] '("Refresh" . ledger-reconcile-refresh))
|
||||
(define-key map [menu-bar ldg-recon-menu sav] '("Save" . ledger-reconcile-save))
|
||||
(define-key map [menu-bar] (make-sparse-keymap "ledger-recon-menu"))
|
||||
(define-key map [menu-bar ledger-recon-menu] (cons "Reconcile" map))
|
||||
(define-key map [menu-bar ledger-recon-menu qui] '("Quit" . ledger-reconcile-quit))
|
||||
(define-key map [menu-bar ledger-recon-menu sep1] '("--"))
|
||||
(define-key map [menu-bar ledger-recon-menu pre] '("Previous Entry" . previous-line))
|
||||
(define-key map [menu-bar ledger-recon-menu vis] '("Visit Source" . ledger-reconcile-visit))
|
||||
(define-key map [menu-bar ledger-recon-menu nex] '("Next Entry" . next-line))
|
||||
(define-key map [menu-bar ledger-recon-menu sep2] '("--"))
|
||||
(define-key map [menu-bar ledger-recon-menu del] '("Delete Entry" . ledger-reconcile-delete))
|
||||
(define-key map [menu-bar ledger-recon-menu add] '("Add Entry" . ledger-reconcile-add))
|
||||
(define-key map [menu-bar ledger-recon-menu tog] '("Toggle Entry" . ledger-reconcile-toggle))
|
||||
(define-key map [menu-bar ledger-recon-menu sep3] '("--"))
|
||||
(define-key map [menu-bar ledger-recon-menu sort-amt] `("Sort by amount" . ,(ledger-reconcile-change-sort-key-and-refresh "(amount)")))
|
||||
(define-key map [menu-bar ledger-recon-menu sort-pay] `("Sort by date" . ,(ledger-reconcile-change-sort-key-and-refresh "(date)")))
|
||||
(define-key map [menu-bar ledger-recon-menu sort-dat] `("Sort by payee" . ,(ledger-reconcile-change-sort-key-and-refresh "(payee)")))
|
||||
(define-key map [menu-bar ledger-recon-menu sep4] '("--"))
|
||||
(define-key map [menu-bar ledger-recon-menu bal] '("Show Cleared Balance" . ledger-display-balance))
|
||||
(define-key map [menu-bar ledger-recon-menu tgt] '("Change Target Balance" . ledger-reconcile-change-target))
|
||||
(define-key map [menu-bar ledger-recon-menu sep5] '("--"))
|
||||
(define-key map [menu-bar ledger-recon-menu rna] '("Reconcile New Account" . ledger-reconcile))
|
||||
(define-key map [menu-bar ledger-recon-menu sep6] '("--"))
|
||||
(define-key map [menu-bar ledger-recon-menu fin] '("Finish" . ledger-reconcile-finish))
|
||||
(define-key map [menu-bar ledger-recon-menu ref] '("Refresh" . ledger-reconcile-refresh))
|
||||
(define-key map [menu-bar ledger-recon-menu sav] '("Save" . ledger-reconcile-save))
|
||||
|
||||
(use-local-map map)))
|
||||
|
||||
(provide 'ldg-reconcile)
|
||||
(provide 'ledger-reconcile)
|
||||
|
||||
;;; ldg-reconcile.el ends here
|
||||
;;; ledger-reconcile.el ends here
|
||||
|
|
@ -1,4 +1,4 @@
|
|||
;;; ldg-regex.el --- Helper code for use with the "ledger" command-line tool
|
||||
;;; ledger-regex.el --- Helper code for use with the "ledger" command-line tool
|
||||
|
||||
;; Copyright (C) 2003-2013 John Wiegley (johnw AT gnu DOT org)
|
||||
|
||||
|
|
@ -332,4 +332,4 @@
|
|||
"\\(.*\\)" ;; desc
|
||||
"\\)"))
|
||||
|
||||
(provide 'ldg-regex)
|
||||
(provide 'ledger-regex)
|
||||
|
|
@ -1,4 +1,4 @@
|
|||
;;; ldg-report.el --- Helper code for use with the "ledger" command-line tool
|
||||
;;; ledger-report.el --- Helper code for use with the "ledger" command-line tool
|
||||
|
||||
;; Copyright (C) 2003-2013 John Wiegley (johnw AT gnu DOT org)
|
||||
|
||||
|
|
@ -105,22 +105,22 @@ text that should replace the format specifier."
|
|||
'ledger-report-edit)
|
||||
(define-key map [return] 'ledger-report-visit-source)
|
||||
|
||||
|
||||
(define-key map [menu-bar] (make-sparse-keymap "ldg-rep"))
|
||||
(define-key map [menu-bar ldg-rep] (cons "Reports" map))
|
||||
|
||||
(define-key map [menu-bar ldg-rep lrq] '("Quit" . ledger-report-quit))
|
||||
(define-key map [menu-bar ldg-rep s2] '("--"))
|
||||
(define-key map [menu-bar ldg-rep lrd] '("Scroll Down" . scroll-down))
|
||||
(define-key map [menu-bar ldg-rep vis] '("Visit Source" . ledger-report-visit-source))
|
||||
(define-key map [menu-bar ldg-rep lru] '("Scroll Up" . scroll-up))
|
||||
(define-key map [menu-bar ldg-rep s1] '("--"))
|
||||
(define-key map [menu-bar ldg-rep rev] '("Reverse report order" . ledger-report-reverse-lines))
|
||||
(define-key map [menu-bar ldg-rep s0] '("--"))
|
||||
(define-key map [menu-bar ldg-rep lrk] '("Kill Report" . ledger-report-kill))
|
||||
(define-key map [menu-bar ldg-rep lrr] '("Re-run Report" . ledger-report-redo))
|
||||
(define-key map [menu-bar ldg-rep lre] '("Edit Report" . ledger-report-edit))
|
||||
(define-key map [menu-bar ldg-rep lrs] '("Save Report" . ledger-report-save))
|
||||
(define-key map [menu-bar] (make-sparse-keymap "ledger-rep"))
|
||||
(define-key map [menu-bar ledger-rep] (cons "Reports" map))
|
||||
|
||||
(define-key map [menu-bar ledger-rep lrq] '("Quit" . ledger-report-quit))
|
||||
(define-key map [menu-bar ledger-rep s2] '("--"))
|
||||
(define-key map [menu-bar ledger-rep lrd] '("Scroll Down" . scroll-down))
|
||||
(define-key map [menu-bar ledger-rep vis] '("Visit Source" . ledger-report-visit-source))
|
||||
(define-key map [menu-bar ledger-rep lru] '("Scroll Up" . scroll-up))
|
||||
(define-key map [menu-bar ledger-rep s1] '("--"))
|
||||
(define-key map [menu-bar ledger-rep rev] '("Reverse report order" . ledger-report-reverse-lines))
|
||||
(define-key map [menu-bar ledger-rep s0] '("--"))
|
||||
(define-key map [menu-bar ledger-rep lrk] '("Kill Report" . ledger-report-kill))
|
||||
(define-key map [menu-bar ledger-rep lrr] '("Re-run Report" . ledger-report-redo))
|
||||
(define-key map [menu-bar ledger-rep lre] '("Edit Report" . ledger-report-edit))
|
||||
(define-key map [menu-bar ledger-rep lrs] '("Save Report" . ledger-report-save))
|
||||
|
||||
(use-local-map map)))
|
||||
|
||||
|
|
@ -310,7 +310,7 @@ Optional EDIT the command."
|
|||
(let ((file (match-string 1))
|
||||
(line (string-to-number (match-string 2))))
|
||||
(delete-region (match-beginning 0) (match-end 0))
|
||||
(when file
|
||||
(when file
|
||||
(set-text-properties (line-beginning-position) (line-end-position)
|
||||
(list 'ledger-source (cons file (save-window-excursion
|
||||
(save-excursion
|
||||
|
|
@ -330,7 +330,7 @@ Optional EDIT the command."
|
|||
(let* ((prop (get-text-property (point) 'ledger-source))
|
||||
(file (if prop (car prop)))
|
||||
(line-or-marker (if prop (cdr prop))))
|
||||
(when (and file line-or-marker)
|
||||
(when (and file line-or-marker)
|
||||
(find-file-other-window file)
|
||||
(widen)
|
||||
(if (markerp line-or-marker)
|
||||
|
|
@ -414,6 +414,6 @@ Optional EDIT the command."
|
|||
(ledger-reports-add ledger-report-name ledger-report-cmd)
|
||||
(ledger-reports-custom-save)))))))
|
||||
|
||||
(provide 'ldg-report)
|
||||
(provide 'ledger-report)
|
||||
|
||||
;;; ldg-report.el ends here
|
||||
;;; ledger-report.el ends here
|
||||
|
|
@ -1,4 +1,4 @@
|
|||
;;; ldg-schedule.el --- Helper code for use with the "ledger" command-line tool
|
||||
;;; ledger-schedule.el --- Helper code for use with the "ledger" command-line tool
|
||||
|
||||
;; Copyright (C) 2013 Craig Earls (enderw88 at gmail dot com)
|
||||
|
||||
|
|
@ -20,7 +20,7 @@
|
|||
;; Boston, MA 02111-1307, USA.
|
||||
|
||||
;;; Commentary:
|
||||
;;
|
||||
;;
|
||||
;; This module provides for automatically adding transactions to a
|
||||
;; ledger buffer on a periodic basis. Recurrence expressions are
|
||||
;; inspired by Martin Fowler's "Recurring Events for Calendars",
|
||||
|
|
@ -67,7 +67,7 @@ If year is nil, assume it is not a leap year"
|
|||
(error "Month out of range, MONTH=%S" month)))
|
||||
|
||||
;; Macros to handle date expressions
|
||||
|
||||
|
||||
(defun ledger-schedule-constrain-day-in-month (count day-of-week)
|
||||
"Return a form that evaluates DATE that returns true for the COUNT DAY-OF-WEEK.
|
||||
For example, return true if date is the 3rd Thursday of the
|
||||
|
|
@ -80,24 +80,24 @@ COUNT 0) means EVERY day-of-week (eg. every Saturday)"
|
|||
(let ((decoded (gensym)))
|
||||
`(let ((,decoded (decode-time date)))
|
||||
(and (eq (nth 6 ,decoded) ,day-of-week)
|
||||
(between (nth 3 ,decoded)
|
||||
,(* (1- count) 7)
|
||||
(between (nth 3 ,decoded)
|
||||
,(* (1- count) 7)
|
||||
,(* count 7))))))
|
||||
((< count 0)
|
||||
((< count 0)
|
||||
(let ((days-in-month (gensym))
|
||||
(decoded (gensym)))
|
||||
`(let* ((,decoded (decode-time date))
|
||||
(,days-in-month (ledger-schedule-days-in-month
|
||||
(nth 4 ,decoded)
|
||||
(,days-in-month (ledger-schedule-days-in-month
|
||||
(nth 4 ,decoded)
|
||||
(nth 5 ,decoded))))
|
||||
(and (eq (nth 6 ,decoded) ,day-of-week)
|
||||
(between (nth 3 ,decoded)
|
||||
(+ ,days-in-month ,(* count 7))
|
||||
(between (nth 3 ,decoded)
|
||||
(+ ,days-in-month ,(* count 7))
|
||||
(+ ,days-in-month ,(* (1+ count) 7)))))))
|
||||
(t
|
||||
(error "COUNT out of range, COUNT=%S" count)))
|
||||
(error "Invalid argument to ledger-schedule-day-in-month-macro %S %S"
|
||||
count
|
||||
(error "Invalid argument to ledger-schedule-day-in-month-macro %S %S"
|
||||
count
|
||||
day-of-week)))
|
||||
|
||||
(defun ledger-schedule-constrain-every-count-day (day-of-week skip start-date)
|
||||
|
|
@ -138,10 +138,10 @@ the transaction should be logged for that day."
|
|||
(let ((date-descriptor "")
|
||||
(transaction nil)
|
||||
(xact-start (match-end 0)))
|
||||
(setq date-descriptors
|
||||
(setq date-descriptors
|
||||
(ledger-schedule-read-descriptor-tree
|
||||
(buffer-substring-no-properties
|
||||
(match-beginning 0)
|
||||
(buffer-substring-no-properties
|
||||
(match-beginning 0)
|
||||
(match-end 0))))
|
||||
(forward-paragraph)
|
||||
(setq transaction (list date-descriptors
|
||||
|
|
@ -150,7 +150,7 @@ the transaction should be logged for that day."
|
|||
(point))))
|
||||
(setq xact-list (cons transaction xact-list))))
|
||||
xact-list)))
|
||||
|
||||
|
||||
(defun ledger-schedule-replace-brackets ()
|
||||
"Replace all brackets with parens"
|
||||
(goto-char (point-min))
|
||||
|
|
@ -166,7 +166,7 @@ the transaction should be logged for that day."
|
|||
"\\([\*]\\|\\([0-3][0-9]\\)\\|"
|
||||
"\\([0-5]"
|
||||
"\\(\\(Su\\)\\|"
|
||||
"\\(Mo\\)\\|"
|
||||
"\\(Mo\\)\\|"
|
||||
"\\(Tu\\)\\|"
|
||||
"\\(We\\)\\|"
|
||||
"\\(Th\\)\\|"
|
||||
|
|
@ -182,19 +182,19 @@ returns true if the date meets the requirements"
|
|||
;; Replace brackets with parens
|
||||
(insert descriptor-string)
|
||||
(ledger-schedule-replace-brackets)
|
||||
|
||||
|
||||
(goto-char (point-max))
|
||||
;; double quote all the descriptors for string processing later
|
||||
(while (re-search-backward ledger-schedule-descriptor-regex nil t) ;; Day slot
|
||||
(goto-char
|
||||
(goto-char
|
||||
(match-end 0))
|
||||
(insert ?\")
|
||||
(goto-char (match-beginning 0))
|
||||
(insert "\"" )))
|
||||
|
||||
|
||||
;; read the descriptor string into a lisp object the transform the
|
||||
;; string descriptor into useable things
|
||||
(ledger-schedule-transform-auto-tree
|
||||
(ledger-schedule-transform-auto-tree
|
||||
(read (buffer-substring-no-properties (point-min) (point-max))))))
|
||||
|
||||
(defun ledger-schedule-transform-auto-tree (descriptor-string-list)
|
||||
|
|
@ -207,7 +207,7 @@ returns true if the date meets the requirements"
|
|||
(if (consp newcar)
|
||||
(setq newcar (ledger-schedule-transform-auto-tree (car descriptor-string-list))))
|
||||
;; newcar may be a cons now, after ledger-schedule-transfrom-auto-tree
|
||||
(if (consp newcar)
|
||||
(if (consp newcar)
|
||||
(push newcar result)
|
||||
;; this is where we actually turn the string descriptor into useful lisp
|
||||
(push (ledger-schedule-compile-constraints newcar) result)) )
|
||||
|
|
@ -215,7 +215,7 @@ returns true if the date meets the requirements"
|
|||
|
||||
;; tie up all the clauses in a big or and lambda, and return
|
||||
;; the lambda function as list to be executed by funcall
|
||||
`(lambda (date)
|
||||
`(lambda (date)
|
||||
,(nconc (list 'or) (nreverse result) descriptor-string-list)))))
|
||||
|
||||
(defun ledger-schedule-compile-constraints (descriptor-string)
|
||||
|
|
@ -238,8 +238,8 @@ returns true if the date meets the requirements"
|
|||
(error "Improperly specified year constraint: " str)))))
|
||||
|
||||
(defun ledger-schedule-constrain-month (str)
|
||||
|
||||
(let ((month-match t))
|
||||
|
||||
(let ((month-match t))
|
||||
(cond ((string= str "*")
|
||||
month-match) ;; always match
|
||||
((/= 0 (setq month-match (string-to-number str)))
|
||||
|
|
@ -298,17 +298,17 @@ returns true if the date meets the requirements"
|
|||
(defvar auto-items)
|
||||
|
||||
(defun ledger-schedule-test ( early horizon)
|
||||
(ledger-schedule-create-auto-buffer
|
||||
(ledger-schedule-scan-transactions ledger-schedule-file)
|
||||
early
|
||||
horizon
|
||||
(ledger-schedule-create-auto-buffer
|
||||
(ledger-schedule-scan-transactions ledger-schedule-file)
|
||||
early
|
||||
horizon
|
||||
(get-buffer "2013.ledger")))
|
||||
|
||||
|
||||
(defun ledger-schedule-test-predict ()
|
||||
(let ((today (current-time))
|
||||
test-date items)
|
||||
|
||||
|
||||
(loop for day from 0 to ledger-schedule-look-forward by 1 do
|
||||
(setq test-date (time-add today (days-to-time day)))
|
||||
(dolist (item auto-items items)
|
||||
|
|
@ -318,13 +318,13 @@ returns true if the date meets the requirements"
|
|||
|
||||
(defun ledger-schedule-upcoming ()
|
||||
(interactive)
|
||||
(ledger-schedule-create-auto-buffer
|
||||
(ledger-schedule-scan-transactions ledger-schedule-file)
|
||||
(ledger-schedule-create-auto-buffer
|
||||
(ledger-schedule-scan-transactions ledger-schedule-file)
|
||||
ledger-schedule-look-backward
|
||||
ledger-schedule-look-forward
|
||||
(current-buffer)))
|
||||
|
||||
|
||||
(provide 'ldg-schedule)
|
||||
(provide 'ledger-schedule)
|
||||
|
||||
;;; ldg-schedule.el ends here
|
||||
;;; ledger-schedule.el ends here
|
||||
|
|
@ -1,4 +1,4 @@
|
|||
;;; ldg-xact.el --- Helper code for use with the "ledger" command-line tool
|
||||
;;; ledger-xact.el --- Helper code for use with the "ledger" command-line tool
|
||||
|
||||
;; Copyright (C) 2003-2013 John Wiegley (johnw AT gnu DOT org)
|
||||
|
||||
|
|
@ -121,6 +121,6 @@
|
|||
sort-end
|
||||
(point-max)))))
|
||||
|
||||
(provide 'ldg-sort)
|
||||
(provide 'ledger-sort)
|
||||
|
||||
;;; ldg-sort.el ends here
|
||||
;;; ledger-sort.el ends here
|
||||
|
|
@ -1,4 +1,4 @@
|
|||
;;; ldg-state.el --- Helper code for use with the "ledger" command-line tool
|
||||
;;; ledger-state.el --- Helper code for use with the "ledger" command-line tool
|
||||
|
||||
;; Copyright (C) 2003-2013 John Wiegley (johnw AT gnu DOT org)
|
||||
|
||||
|
|
@ -110,7 +110,7 @@ dropped."
|
|||
;;this excursion toggles the posting status
|
||||
(save-excursion
|
||||
(setq inhibit-modification-hooks t)
|
||||
|
||||
|
||||
(goto-char (line-beginning-position))
|
||||
(when (looking-at "[ \t]")
|
||||
(skip-chars-forward " \t")
|
||||
|
|
@ -228,7 +228,7 @@ dropped."
|
|||
(eq (ledger-state-from-char (char-after)) 'cleared))
|
||||
(progn
|
||||
(delete-char 1)
|
||||
(when (and style (eq style 'cleared))
|
||||
(when (and style (eq style 'cleared))
|
||||
(insert " *")
|
||||
'cleared))
|
||||
(if (and style (eq style 'pending))
|
||||
|
|
@ -239,6 +239,6 @@ dropped."
|
|||
(insert " * ")
|
||||
'cleared))))))
|
||||
|
||||
(provide 'ldg-state)
|
||||
(provide 'ledger-state)
|
||||
|
||||
;;; ldg-state.el ends here
|
||||
;;; ledger-state.el ends here
|
||||
|
|
@ -1,4 +1,4 @@
|
|||
;;; ldg-test.el --- Helper code for use with the "ledger" command-line tool
|
||||
;;; ledger-test.el --- Helper code for use with the "ledger" command-line tool
|
||||
|
||||
;; Copyright (C) 2003-2013 John Wiegley (johnw AT gnu DOT org)
|
||||
|
||||
|
|
@ -124,4 +124,4 @@
|
|||
(async-shell-command (format "\"%s\" %s" command args))
|
||||
(cd prev-directory)))))))
|
||||
|
||||
(provide 'ldg-test)
|
||||
(provide 'ledger-test)
|
||||
|
|
@ -1,4 +1,4 @@
|
|||
;;; ldg-texi.el --- Helper code for use with the "ledger" command-line tool
|
||||
;;; ledger-texi.el --- Helper code for use with the "ledger" command-line tool
|
||||
|
||||
;; Copyright (C) 2003-2013 John Wiegley (johnw AT gnu DOT org)
|
||||
|
||||
|
|
@ -169,4 +169,4 @@
|
|||
(ledger-texi-write-test example-name command input output
|
||||
"../test/manual")))))
|
||||
|
||||
(provide 'ldg-texi)
|
||||
(provide 'ledger-texi)
|
||||
|
|
@ -1,4 +1,4 @@
|
|||
;;; ldg-xact.el --- Helper code for use with the "ledger" command-line tool
|
||||
;;; ledger-xact.el --- Helper code for use with the "ledger" command-line tool
|
||||
|
||||
;; Copyright (C) 2003-2013 John Wiegley (johnw AT gnu DOT org)
|
||||
|
||||
|
|
@ -195,6 +195,6 @@ correct chronological place in the buffer."
|
|||
(end-of-line -1)))))
|
||||
|
||||
|
||||
(provide 'ldg-xact)
|
||||
(provide 'ledger-xact)
|
||||
|
||||
;;; ldg-xact.el ends here
|
||||
;;; ledger-xact.el ends here
|
||||
Loading…
Add table
Reference in a new issue