sfos/ledger
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Finished changing name to ledger-*

Browse source 
All files and references changed ldg-* to ledger-*
This commit is contained in:
Craig Earls 2013-07-02 15:37:33 -07:00
parent 5b8817c8e8
commit 63ba45dbaa
18 changed files with 151 additions and 151 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lisp/ldg-commodities.el → lisp/ledger-commodities.el
View file

@ -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

6
lisp/ldg-complete.el → lisp/ledger-complete.el
View file

@ -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

6
lisp/ldg-context.el → lisp/ledger-context.el
View file

@ -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

6
lisp/ldg-exec.el → lisp/ledger-exec.el
View file

@ -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)
@ -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

8
lisp/ldg-fonts.el → lisp/ledger-fonts.el
View file

@ -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

8
lisp/ldg-init.el → lisp/ledger-init.el
View file

@ -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"
@ -63,6 +63,6 @@
(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

42
lisp/ldg-mode.el → lisp/ledger-mode.el
View file

@ -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

6
lisp/ldg-occur.el → lisp/ledger-occur.el
View file

@ -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

8
lisp/ldg-post.el → lisp/ledger-post.el
View file

@ -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

54
lisp/ldg-reconcile.el → lisp/ledger-reconcile.el
View file

@ -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

4
lisp/ldg-regex.el → lisp/ledger-regex.el
View file

@ -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)

34
lisp/ldg-report.el → lisp/ledger-report.el
View file

@ -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)
@ -106,21 +106,21 @@ text that should replace the format specifier."
(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] (make-sparse-keymap "ledger-rep"))
(define-key map [menu-bar ledger-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 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)))
@ -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

6
lisp/ldg-schedule.el → lisp/ledger-schedule.el
View file

@ -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)
@ -325,6 +325,6 @@ returns true if the date meets the requirements"
(current-buffer)))
(provide 'ldg-schedule)
(provide 'ledger-schedule)
;;; ldg-schedule.el ends here
;;; ledger-schedule.el ends here

6
lisp/ldg-sort.el → lisp/ledger-sort.el
View file

@ -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

6
lisp/ldg-state.el → lisp/ledger-state.el
View file

@ -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)
@ -239,6 +239,6 @@ dropped."
(insert " * ")
'cleared))))))
(provide 'ldg-state)
(provide 'ledger-state)
;;; ldg-state.el ends here
;;; ledger-state.el ends here

4
lisp/ldg-test.el → lisp/ledger-test.el
View file

@ -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)

4
lisp/ldg-texi.el → lisp/ledger-texi.el
View file

@ -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)

6
lisp/ldg-xact.el → lisp/ledger-xact.el
View file

@ -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