···

       
1
       
1
       
+
       
(require 'ledger-mode)

     

       
2
       
2
       
+
       
(setq ledger-post-amount-alignment-column 52)

     

       
3
       
3
       
+
       
(setq ledger-default-date-format ledger-iso-date-format)

     

       
4
       
4
       
+
       
(setq ledger-post-account-alignment-column 4)

     

       
5
       
5
       
+
       
(setq ledger-reconcile-default-commodity '£)

     

       
6
       
6
       
+
       
(setq tab-always-indent 'complete)

     

···

       
4
       
4
       
 
       
(load "appearance")

     

       
5
       
5
       
 
       
(load "save")

     

       
6
       
6
       
 
       
(load "email")

     

       
7
       
7
       
+
       
(load "ledger")

     

       
7
       
8
       
 
       


     

       
8
       
9
       
 
       
;; (setq interprogram-cut-function nil)

     

       
9
       
10
       
 
       
;; (setq interprogram-paste-function nil)

     

       
10
       
11
       
 
       


     

       
11
       
12
       
 
       
(require 'helm)

     

       
12
       
13
       
 
       
(helm-mode 1)

     

       
13
       
13
       
-
       


     

       
14
       
14
       
-
       
(require 'ledger-mode)

     

       
15
       
15
       
-
       
(setq ledger-post-amount-alignment-column 52)

     

       
16
       
16
       
-
       
(setq ledger-default-date-format ledger-iso-date-format)

     

       
17
       
17
       
-
       
(setq ledger-post-account-alignment-column 4)

     

       
18
       
18
       
-
       
(setq ledger-reconcile-default-commodity '£)

     

       
19
       
14
       
 
       


     

       
20
       
15
       
 
       
(setq-default truncate-lines t)

     

···

       
268
       
268
       
 
       


     

       
269
       
269
       
 
       
local function recursive_accounts()

     

       
270
       
270
       
 
       
	return sn(nil, {

     

       
271
       
271
       
-
       
		t({ '', '  ' }), i(1, 'Account'), f(amount_spacing, { 1, 2 }),

     

       
271
       
271
       
+
       
		t({ '', '    ' }), i(1, 'Account'), f(amount_spacing, { 1, 2 }),

     

       
272
       
272
       
 
       
		c(2, {

     

       
273
       
273
       
 
       
			t(''),

     

       
274
       
274
       
 
       
			sn(nil, { i(1, '£') })

     
···

       
287
       
287
       
 
       
	s('ledger', {

     

       
288
       
288
       
 
       
		i(1, f(date_input)), t(' '), i(2, 'Description'),

     

       
289
       
289
       
 
       
		c(3, {

     

       
290
       
290
       
-
       
			sn(nil, { t({ '', '  ; ' }), i(1, 'Comment') }),

     

       
290
       
290
       
+
       
			sn(nil, { t({ '', '    ; ' }), i(1, 'Comment') }),

     

       
291
       
291
       
 
       
			t(''),

     

       
292
       
292
       
 
       
		}),

     

       
293
       
293
       
-
       
		t({ '', '  ' }), i(4, 'Account'), f(amount_spacing, { 4, 5 }),

     

       
293
       
293
       
+
       
		t({ '', '    ' }), i(4, 'Account'), f(amount_spacing, { 4, 5 }),

     

       
294
       
294
       
 
       
		c(5, {

     

       
295
       
295
       
 
       
			sn(nil, { i(1, '£') }),

     

       
296
       
296
       
 
       
			t(''),