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

Not working well, try something else on new-fontification-scheme-2

Browse source
This commit is contained in:
Craig Earls 2014-08-26 18:33:41 -07:00
parent bacde09ead
commit 403ca4f1a5
3 changed files with 26 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
lisp/ledger-fontify.el
View file

@ -38,6 +38,7 @@
(defun ledger-fontify-whole-buffer () (defun ledger-fontify-whole-buffer ()
(interactive) (interactive)
(save-excursion (save-excursion
(message "Ledger fontify whole buffer")
(goto-char (point-min)) (goto-char (point-min))
(while (not (eobp)) (while (not (eobp))
(cond ((looking-at ledger-xact-start-regex) (cond ((looking-at ledger-xact-start-regex)
@ -53,13 +54,26 @@
(interactive) (interactive)
(if (string= (format-mode-line 'mode-name) "Ledger") (if (string= (format-mode-line 'mode-name) "Ledger")
(progn (progn
(add-hook 'post-command-hook 'ledger-fontify-buffer-part)))) (add-hook 'after-change-functions 'ledger-fontify-buffer-part)
; (add-hook 'before-change-functions 'ledger-fontify-ensure-activation)
(message "ledger-fontify-activate called"))))
(defun ledger-fontify-buffer-part () (defun ledger-fontify-ensure-activation (beg end)
(if (string= (format-mode-line 'mode-name) "Ledger")
(add-hook 'after-change-functions 'ledger-fontify-buffer-part)))
(defun ledger-fontify-buffer-part (beg end len)
(save-excursion (save-excursion
(message (concat "ledger-fontify-buffer-part: "
(int-to-string beg) " "
(int-to-string end) " "
(int-to-string len)
))
; (goto-char beg)
(backward-paragraph) (backward-paragraph)
(forward-char) (forward-char)
(cond ((looking-at ledger-xact-start-regex) (cond ((or (looking-at ledger-xact-start-regex)
(looking-at ledger-posting-regex))
(ledger-fontify-xact-at (point))) (ledger-fontify-xact-at (point)))
((looking-at ledger-directive-start-regex) ((looking-at ledger-directive-start-regex)
(ledger-fontify-directive-at (point)))))) (ledger-fontify-directive-at (point))))))

12
lisp/ledger-mode.el
View file

@ -320,8 +320,8 @@ With a prefix argument, remove the effective date. "
(add-hook 'completion-at-point-functions 'pcomplete-completions-at-point nil t) (add-hook 'completion-at-point-functions 'pcomplete-completions-at-point nil t)
(add-hook 'after-save-hook 'ledger-report-redo) (add-hook 'after-save-hook 'ledger-report-redo)
(ledger-fontify-whole-buffer) ;(ledger-fontify-whole-buffer)
(ledger-fontify-activate) ;(ledger-fontify-activate)
;(add-hook 'after-save-hook) ;(add-hook 'after-save-hook)
(add-hook 'post-command-hook 'ledger-highlight-xact-under-point nil t) (add-hook 'post-command-hook 'ledger-highlight-xact-under-point nil t)
@ -329,8 +329,12 @@ With a prefix argument, remove the effective date. "
(ledger-init-load-init-file) (ledger-init-load-init-file)
(set (make-local-variable 'indent-region-function) 'ledger-post-align-postings) (setq font-lock-defaults
(run-mode-hooks)) '(nil t nil nil nil
(font-lock-fontify-buffer-function . ledger-fontify-whole-buffer)
(font-lock-fontify-region-function . ledger-fontify-buffer-part)))
(set (make-local-variable 'indent-region-function) 'ledger-post-align-postings))
(defun ledger-set-year (newyear) (defun ledger-set-year (newyear)

2
lisp/ledger-regex.el
View file

@ -336,7 +336,7 @@
(concat ledger-iso-date-regexp ;; subexp 1 (concat ledger-iso-date-regexp ;; subexp 1
" ?\\([ *!]\\)" ;; mark, subexp 5 " ?\\([ *!]\\)" ;; mark, subexp 5
" ?\\((.*)\\)?" ;; code, subexp 6 " ?\\((.*)\\)?" ;; code, subexp 6
" ?\\([[:word:] ]+\\)" ;; desc, subexp 7 " ?\\([^;\n]+\\)" ;; desc, subexp 7
"\\(\n\\|;.*\\)" ;; comment, subexp 8 "\\(\n\\|;.*\\)" ;; comment, subexp 8
)) ))