ledger-mode now automatically loads and parses the init file.

Currently only pays attention to decimal-comma

lisp/ldg-commodities.el

@@ -36,7 +36,6 @@
 This only has effect interfacing to calc mode in edit amount"
   :type 'boolean
   :group 'ledger)
-
 (defun ledger-split-commodity-string (str)
   "Split a commoditized amount into two parts"
   (let (val
@@ -85,7 +84,7 @@ DIRECTION can be :to-user or :from-user.  All math calculations
 are done with decimal-period, some users may prefer decimal-comma
 which must be translated both directions."
   (let ((val number-string))
-    (if ledger-use-decimal-comma
+    (if (assoc "decimal-comma" ledger-environment-alist)
 	(cond ((eq direction :from-user)
 	       ;; change string to decimal-period
 	       (while (string-match "," val)

lisp/ldg-init.el

@@ -22,14 +22,17 @@
 ;;; Commentary:
 ;; Determine the ledger environment
 
-(defvar init-file-name "~/.ledgerrc")
+(defcustom init-file-name "~/.ledgerrc"
+  "Location of the ledger initialization file. nil if you don't have one"
+  :group 'ledger)
+
 (defvar ledger-environment-alist nil)
 
 (defun ledger-init-parse-initialization (file)
-     (with-current-buffer file
+  (with-current-buffer file
-     (setq ledger-environment-alist nil)
+    (setq ledger-environment-alist nil)
-     (goto-char (point-min))
+    (goto-char (point-min))
-     (while (re-search-forward "^--.+?\\($\\|[ ]\\)" nil t )
+    (while (re-search-forward "^--.+?\\($\\|[ ]\\)" nil t )
       (let ((matchb (match-beginning 0)) ;; save the match data, string-match stomp on it
 	    (matche (match-end 0)))
 	(end-of-line)
@@ -43,17 +46,21 @@
 				    (if (> (length value) 0)
 					value
 					t))))))))
-     ledger-environment-alist))
+    ledger-environment-alist))
 
 (defun ledger-init-load-init-file ()
   (interactive)
   (save-excursion
-    (if (and (file-exists-p init-file-name)
+    (if (get-buffer (file-name-nondirectory init-file-name))
+	(ledger-init-parse-initialization (file-name-nondirectory init-file-name))
+	(if (and
+	     init-file-name
+	     (file-exists-p init-file-name)
 	     (file-readable-p init-file-name))
-	(progn
+	    (let 
-	  (find-file init-file-name)
+		(find-file-noselect init-file-name)
-	  (ledger-init-parse-initialization (file-name-nondirectory init-file-name))
+	      (ledger-init-parse-initialization (file-name-nondirectory init-file-name))
-	  (kill-buffer (file-name-nondirectory init-file-name))))))
+	      (kill-buffer (file-name-nondirectory init-file-name)))))))
 
 
 

lisp/ldg-mode.el

@@ -76,6 +76,8 @@
     (add-hook 'before-revert-hook 'ledger-remove-overlays nil t)
     (make-variable-buffer-local 'highlight-overlay)
 
+    (ledger-init-load-init-file)
+
     (let ((map (current-local-map)))
       (define-key map [(control ?c) (control ?a)] 'ledger-add-transaction)
       (define-key map [(control ?c) (control ?b)] 'ledger-post-edit-amount)

lisp/ldg-new.el

@@ -32,22 +32,23 @@
 
 ;;; Commentary:
 ;; Load up the ledger mode
+(require 'esh-arg)
+(require 'ldg-commodities)
 (require 'ldg-complete)
 (require 'ldg-exec)
+(require 'ldg-fonts)
+(require 'ldg-init)
 (require 'ldg-mode)
+(require 'ldg-occur)
 (require 'ldg-post)
 (require 'ldg-reconcile)
 (require 'ldg-register)
 (require 'ldg-report)
+(require 'ldg-sort)
 (require 'ldg-state)
 (require 'ldg-test)
 (require 'ldg-texi)
 (require 'ldg-xact)
-(require 'ldg-sort)
-(require 'ldg-fonts)
-(require 'ldg-occur)
-(require 'ldg-commodities)
-(require 'esh-arg)
 
 
 ;;; Code: