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

meh. Still chugging along.

Browse source
This commit is contained in:
Craig Earls 2014-09-05 20:12:03 -07:00
parent d3d5c333f5
commit fec5ecb4f3
2 changed files with 11 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
lisp/ledger-fontify.el
View file

@ -54,8 +54,9 @@
(interactive) (interactive)
(if (string= (format-mode-line 'mode-name) "Ledger") (if (string= (format-mode-line 'mode-name) "Ledger")
(progn (progn
(ledger-fontify-whole-buffer)
(add-hook 'after-change-functions 'ledger-fontify-buffer-part) (add-hook 'after-change-functions 'ledger-fontify-buffer-part)
; (add-hook 'before-change-functions 'ledger-fontify-ensure-activation) (add-hook 'before-change-functions 'ledger-fontify-ensure-activation)
(message "ledger-fontify-activate called")))) (message "ledger-fontify-activate called"))))
(defun ledger-fontify-ensure-activation (beg end) (defun ledger-fontify-ensure-activation (beg end)
@ -64,11 +65,11 @@
(defun ledger-fontify-buffer-part (beg end len) (defun ledger-fontify-buffer-part (beg end len)
(save-excursion (save-excursion
(message (concat "ledger-fontify-buffer-part: " ;; (message (concat "ledger-fontify-buffer-part: "
(int-to-string beg) " " ;; (int-to-string beg) " "
(int-to-string end) " " ;; (int-to-string end) " "
(int-to-string len) ;; (int-to-string len)
)) ;; ))
; (goto-char beg) ; (goto-char beg)
(backward-paragraph) (backward-paragraph)
(forward-char) (forward-char)

7
lisp/ledger-mode.el
View file

@ -329,10 +329,11 @@ With a prefix argument, remove the effective date. "
;; (font-lock-fontify-buffer-function . ledger-fontify-whole-buffer) ;; (font-lock-fontify-buffer-function . ledger-fontify-whole-buffer)
;; (font-lock-fontify-region-function . ledger-fontify-buffer-part))) ;; (font-lock-fontify-region-function . ledger-fontify-buffer-part)))
(setq-local font-lock-defaults `(,ledger-font-lock-keywords nil t nil nil ;; (setq-local font-lock-defaults `(,ledger-font-lock-keywords nil t nil nil
(font-lock-fontify-buffer-function . ledger-fontify-whole-buffer))) ;; (font-lock-fontify-buffer-function . ledger-fontify-whole-buffer)))
(setq-local indent-region-function 'ledger-post-align-postings)) (setq-local indent-region-function 'ledger-post-align-postings)
(ledger-fontify-activate))
(defun ledger-set-year (newyear) (defun ledger-set-year (newyear)