branch: elpa/beancount
commit d560451fda486a5d7e59a3108c0c7924e8a969f6
Author: Henrik Lissner <hen...@lissner.net>
Commit: Daniele Nicolodi <dani...@grinta.net>
Use beancount-level-N faces instead of org-level-N
There is no guarantee org will be loaded when beancount-mode is
activated, and if absent, the org-level-N faces won't be available and
you get a torrent of 'invalid face' errors.
We could use outline-N faces instead (after all, if outline-minor-mode
is active, they will be available), but the ideal is to define our own
beancount-level-N faces and inherit them from outline-N instead. This
makes it easier to customize outline headings only in beancount-mode
buffers.
---
beancount.el | 48 +++++++++++++++++++++++++++++++++++++++++-------
1 file changed, 41 insertions(+), 7 deletions(-)
diff --git a/beancount.el b/beancount.el
index 9ad9a5eb46..3314661506 100644
--- a/beancount.el
+++ b/beancount.el
@@ -109,6 +109,38 @@ from the open directive for the relevant account."
`((t :inherit highlight))
"Face to highlight Beancount transaction at point.")
+(defface beancount-outline-1
+ `((t :inherit outline-1))
+ "First level of `outline-minor-mode' headings in `beancount-mode'."
+
+(defface beancount-outline-2
+ `((t :inherit outline-2))
+ "Second level of `outline-minor-mode' headings in `beancount-mode'."
+
+(defface beancount-outline-3
+ `((t :inherit outline-3))
+ "Third level of `outline-minor-mode' headings in `beancount-mode'."
+
+(defface beancount-outline-4
+ `((t :inherit outline-4))
+ "Fourth level of `outline-minor-mode' headings in `beancount-mode'."
+
+(defface beancount-outline-5
+ `((t :inherit outline-5))
+ "Fifth level of `outline-minor-mode' headings in `beancount-mode'."
+
+(defface beancount-outline-6
+ `((t :inherit outline-6))
+ "Sixth level of `outline-minor-mode' headings in `beancount-mode'."
+
+(defface beancount-outline-7
+ `((t :inherit outline-7))
+ "Seventh level of `outline-minor-mode' headings in `beancount-mode'."
+
+(defface beancount-outline-8
+ `((t :inherit outline-8))
+ "Eighth level of `outline-minor-mode' headings in `beancount-mode'."
+
(defconst beancount-account-directive-names
'("balance"
"close"
@@ -233,13 +265,15 @@ from the open directive for the relevant account."
(defun beancount-outline-face ()
(if outline-minor-mode
(cl-case (funcall outline-level)
- (1 'org-level-1)
- (2 'org-level-2)
- (3 'org-level-3)
- (4 'org-level-4)
- (5 'org-level-5)
- (6 'org-level-6)
- (otherwise nil))
+ (1 'beancount-outline-1)
+ (2 'beancount-outline-2)
+ (3 'beancount-outline-3)
+ (4 'beancount-outline-4)
+ (5 'beancount-outline-5)
+ (6 'beancount-outline-6)
+ (7 'beancount-outline-7)
+ (8 'beancount-outline-8)
+ (otherwise nil))
nil))
(defvar beancount-font-lock-keywords
