ledger-mode: wider lines for posts

[dotemacs] / lisp / my-file-modes.el

diff --git a/lisp/my-file-modes.el b/lisp/my-file-modes.el
index 6020b4cf2e8848197e7c6cc453f8aa264d3ad0bb..142e1a04f7c3908d8543e2810550aec7773e9f53 100644 (file)
--- a/lisp/my-file-modes.el
+++ b/lisp/my-file-modes.el
@@ -38,6 +38,10 @@
 (when (require 'tern nil 'noerror)
   (add-hook 'js2-mode-hook (lambda () (tern-mode t))))
 
+(when (require 'ledger-mode nil 'noerror)
+  (add-to-list 'auto-mode-alist '("\\.ledger\\'" . ledger-mode))
+  (setq ledger-post-amount-alignment-column 72))
+
 (require 'markdown-mode)
 (define-key markdown-mode-map (kbd "M-{") 'markdown-beginning-of-block)
 (define-key markdown-mode-map (kbd "M-}") 'markdown-end-of-block)
@@ -61,11 +65,6 @@
 (require 'ssh-file-modes)
 
 (when (require 'stumpwm-mode nil 'noerror)
-  (add-hook 'find-file-hook
-            (lambda ()
-              (when (string=
-                     ".stumpwmrc"
-                     (file-name-nondirectory (buffer-file-name)))
-                (stumpwm-mode)))))
+  (add-to-list 'auto-mode-alist '("/\\.stumpwmrc\\'" . stumpwm-mode)))
 
 (require 'yaml-mode)