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

Merge branch 'next' into ledger-mode-automatic-transactions

Browse source
This commit is contained in:
Craig Earls 2013-03-20 12:24:39 -07:00
commit aa04b392a0
1 changed files with 16 additions and 40 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

56
lisp/ldg-new.el
View file

@ -91,48 +91,24 @@
(delete-char 3)
(forward-line 1))))))
(defun ledger-dump-variable (var)
(defun ledger-mode-dump-variable (var)
(if var
(insert (format "%s: %S\n" (symbol-name var) (eval var)))))
(defun ledger-mode-dump-variables ()
(interactive)
(find-file "ledger-mode-dump")
(delete-region (point-min) (point-max))
(insert "Ledger Mode Configuration Dump\n")
(insert "Date: " (current-time-string) "\n")
(insert "Emacs: " (version) "\n")
(insert "System Configuration: "system-configuration "\n")
(insert "ldg-commodities:\n")
(ledger-dump-variable 'ledger-reconcile-default-commodity)
(insert "ldg-exec:\n")
(ledger-dump-variable 'ledger-works)
(ledger-dump-variable 'ledger-binary-path)
(insert "ldg-occur:\n")
(ledger-dump-variable 'ledger-occur-use-face-unfolded)
(ledger-dump-variable 'ledger-occur-mode)
(ledger-dump-variable 'ledger-occur-history)
(ledger-dump-variable 'ledger-occur-last-match)
(insert "ldg-post:\n")
(ledger-dump-variable 'ledger-post-auto-adjust-postings)
(ledger-dump-variable 'ledger-post-account-alignment-column)
(ledger-dump-variable 'ledger-post-amount-alignment-column)
(ledger-dump-variable 'ledger-post-use-completion-engine)
(insert "ldg-reconcile:\n")
(ledger-dump-variable 'ledger-recon-buffer-name)
(ledger-dump-variable 'ledger-fold-on-reconcile)
(ledger-dump-variable 'ledger-buffer-tracks-reconcile-buffer)
(ledger-dump-variable 'ledger-reconcile-force-window-bottom)
(ledger-dump-variable 'ledger-reconcile-toggle-to-pending)
(insert "ldg-reports:\n")
(ledger-dump-variable 'ledger-reports)
(ledger-dump-variable 'ledger-report-format-specifiers)
(ledger-dump-variable 'ledger-report-buffer-name)
(insert "ldg-state:")
(ledger-dump-variable 'ledger-clear-whole-transactions)
(insert "ldg-xact:\n")
(ledger-dump-variable 'ledger-highlight-xact-under-point))
(insert (format " %s: %S\n" (symbol-name var) (eval var)))))
(defun ledger-mode-dump-group (group)
"Dump GROUP customizations to current buffer"
(let ((members (custom-group-members group nil)))
(dolist (member members)
(cond ((eq (cadr member) 'custom-group)
(insert (format "Group %s:\n" (symbol-name (car member))))
(ledger-mode-dump-group (car member)))
((eq (cadr member) 'custom-variable)
(ledger-mode-dump-variable (car member)))))))
(defun ledger-mode-dump-configuration ()
"Dump all customizations"
(find-file "ledger-mode-dump")
(ledger-mode-dump-group 'ledger))
(provide 'ledger)