branch: externals/org-modern
commit 7c6b7048e99573452944d4541e43f9dd57a61f46
Author: Daniel Mendler <m...@daniel-mendler.de>
Commit: Daniel Mendler <m...@daniel-mendler.de>
Add org-modern-variable-pitch option (Fix #21)
---
org-modern.el | 14 +++++++++-----
1 file changed, 9 insertions(+), 5 deletions(-)
diff --git a/org-modern.el b/org-modern.el
index 0e7cc74288..ab87778476 100644
--- a/org-modern.el
+++ b/org-modern.el
@@ -147,6 +147,10 @@ If set to a string, e.g., \"‣\", the string is used as
replacement for #+."
Set to nil to disable the indicator."
:type '(choice (const nil) (vector string)))
+(defcustom org-modern-variable-pitch t
+ "Prefer variable pitch for modern style."
+ :type 'boolean)
+
(defgroup org-modern-faces nil
"Faces used by `org-modern'."
:group 'org-modern
@@ -154,12 +158,12 @@ Set to nil to disable the indicator."
:group 'faces)
(defface org-modern-label
- `((t :height 0.9
- :inherit variable-pitch
- :width condensed :weight regular
- :underline nil
+ `((t ,@(and org-modern-variable-pitch '(:inherit variable-pitch))
,@(and (integerp org-modern-label-border)
- `(:box (:line-width ,(- org-modern-label-border))))))
+ `(:box (:line-width ,(- org-modern-label-border))))
+ :height 0.9
+ :width condensed :weight regular
+ :underline nil))
"Parent face for labels.")
(defface org-modern-block-keyword
