diff options
| author | Craig Earls <enderw88@gmail.com> | 2014-08-26 20:10:51 -0700 |
|---|---|---|
| committer | Craig Earls <enderw88@gmail.com> | 2014-08-26 20:10:51 -0700 |
| commit | dd3fd0e9deab8deb586745960f10f833eb783f1b (patch) | |
| tree | 563b67ea1773d1ebc86e4721d106f4178a59398c /lisp/ledger-fonts.el | |
| parent | 403ca4f1a5b4a11eb4168e2e62709f4a09c3c202 (diff) | |
| download | fork-ledger-dd3fd0e9deab8deb586745960f10f833eb783f1b.tar.gz fork-ledger-dd3fd0e9deab8deb586745960f10f833eb783f1b.tar.bz2 fork-ledger-dd3fd0e9deab8deb586745960f10f833eb783f1b.zip | |
no message
Diffstat (limited to 'lisp/ledger-fonts.el')
| -rw-r--r-- | lisp/ledger-fonts.el | 62 |
1 files changed, 41 insertions, 21 deletions
diff --git a/lisp/ledger-fonts.el b/lisp/ledger-fonts.el index 63a9f8d1..5725db09 100644 --- a/lisp/ledger-fonts.el +++ b/lisp/ledger-fonts.el @@ -228,31 +228,51 @@ :group 'ledger-faces) +;; (defvar ledger-font-lock-keywords +;; `( ;; (,ledger-other-entries-regex 1 +;; ;; ledger-font-other-face) +;; (,ledger-comment-regex 0 +;; 'ledger-font-comment-face) +;; (,ledger-amount-regex 0 +;; 'ledger-font-posting-amount-face) +;; (,ledger-multiline-comment-regex 0 'ledger-font-comment-face) +;; (,ledger-payee-pending-regex 2 +;; 'ledger-font-payee-pending-face) ; Works +;; (,ledger-payee-cleared-regex 2 +;; 'ledger-font-payee-cleared-face) ; Works +;; (,ledger-payee-uncleared-regex 2 +;; 'ledger-font-payee-uncleared-face) ; Works +;; (,ledger-account-cleared-regex 2 +;; 'ledger-font-posting-account-cleared-face) ; Works +;; (,ledger-account-pending-regex 2 +;; 'ledger-font-posting-account-pending-face) ; Works +;; (,ledger-account-any-status-regex 2 +;; 'ledger-font-posting-account-face) ; Works +;; (,ledger-other-entries-regex 1 +;; 'ledger-font-other-face)) +;; "Expressions to highlight in Ledger mode.") + (defvar ledger-font-lock-keywords - `( ;; (,ledger-other-entries-regex 1 - ;; ledger-font-other-face) - (,ledger-comment-regex 0 - 'ledger-font-comment-face) - (,ledger-amount-regex 0 - 'ledger-font-posting-amount-face) - (,ledger-multiline-comment-regex 0 'ledger-font-comment-face) - (,ledger-payee-pending-regex 2 - 'ledger-font-payee-pending-face) ; Works - (,ledger-payee-cleared-regex 2 - 'ledger-font-payee-cleared-face) ; Works - (,ledger-payee-uncleared-regex 2 - 'ledger-font-payee-uncleared-face) ; Works - (,ledger-account-cleared-regex 2 - 'ledger-font-posting-account-cleared-face) ; Works - (,ledger-account-pending-regex 2 - 'ledger-font-posting-account-pending-face) ; Works - (,ledger-account-any-status-regex 2 - 'ledger-font-posting-account-face) ; Works - (,ledger-other-entries-regex 1 - 'ledger-font-other-face)) + `(("account" . ledger-font-account-directive-face) + ("apply" . ledger-font-apply-directive-face) + ("alias" . ledger-font-alias-directive-face) + ("assert" . ledger-font-assert-directive-face) + ("bucket" . ledger-font-bucket-directive-face) + ("capture" . ledger-font-capture-directive-face) + ("check" . ledger-font-check-directive-face) + ("commodity" . ledger-font-commodity-directive-face) + ("define" . ledger-font-define-directive-face) + ("end" . ledger-font-end-directive-face) + ("expr" . ledger-font-expr-directive-face) + ("fixed" . ledger-font-fixed-directive-face) + ("include" . ledger-font-include-directive-face) + ("payee" . ledger-font-payee-directive-face) + ("tag" . ledger-font-tag-directive-face) + ("year" . ledger-font-year-directive-face)) "Expressions to highlight in Ledger mode.") + (provide 'ledger-fonts) ;;; ledger-fonts.el ends here |