branch: elpa/spacemacs-theme
commit fd3ac0a4bedcc2ee6764889664ad0a1adca0adc5
Author: Jernej Kaše <[email protected]>
Commit: Jernej Kaše <[email protected]>
Added support to customise bold headings of org levels and priority items
Spacemacs theme makes headings of org items level 1 and 2 inherit bold
weight without apparent way to customise it.
The same goes for agenda (priority) items, which are bold.
This commit adds two custom variables:
- spacemacs-theme-org-bold
controls if level 1 and 2 items should be bold or not
default: t
- spacemacs-theme-org-priority-bold
controls if items in the agenda should be bold
default: t
---
spacemacs-common.el | 16 +++++++++++++---
1 file changed, 13 insertions(+), 3 deletions(-)
diff --git a/spacemacs-common.el b/spacemacs-common.el
index 62cb0e8887..5b6eac127a 100644
--- a/spacemacs-common.el
+++ b/spacemacs-common.el
@@ -70,6 +70,16 @@ to 'auto, tags may not be properly aligned. "
:type 'boolean
:group 'spacemacs-theme)
+(defcustom spacemacs-theme-org-bold t
+ "Inherit text bold for org headings"
+ :type 'boolean
+ :group 'spacemacs-theme)
+
+(defcustom spacemacs-theme-org-priority-bold t
+ "Inherit text bold for priority items in agenda view"
+ :type 'boolean
+ :group 'spacemacs-theme)
+
(defcustom spacemacs-theme-org-highlight nil
"Highlight org headings."
:type 'boolean
@@ -719,8 +729,8 @@ to 'auto, tags may not be properly aligned. "
`(org-footnote ((,class (:underline t :foreground ,base))))
`(org-hide ((,class (:foreground ,base))))
`(org-kbd ((,class (:inherit region :foreground ,base :box (:line-width 1
:style released-button)))))
- `(org-level-1 ((,class (:inherit bold :foreground ,head1 :height ,(if
spacemacs-theme-org-height 1.3 1.0) :background ,(when
spacemacs-theme-org-highlight head1-bg)))))
- `(org-level-2 ((,class (:inherit bold :foreground ,head2 :height ,(if
spacemacs-theme-org-height 1.2 1.0) :background ,(when
spacemacs-theme-org-highlight head2-bg)))))
+ `(org-level-1 ((,class (:inherit bold :bold ,(if spacemacs-theme-org-bold
'unspecified nil) :foreground ,head1 :height ,(if spacemacs-theme-org-height
1.3 1.0) :background ,(when spacemacs-theme-org-highlight head1-bg)))))
+ `(org-level-2 ((,class (:inherit bold :bold ,(if spacemacs-theme-org-bold
'unspecified nil) :foreground ,head2 :height ,(if spacemacs-theme-org-height
1.2 1.0) :background ,(when spacemacs-theme-org-highlight head2-bg)))))
`(org-level-3 ((,class (:bold nil :foreground ,head3 :height ,(if
spacemacs-theme-org-height 1.1 1.0) :background ,(when
spacemacs-theme-org-highlight head3-bg)))))
`(org-level-4 ((,class (:bold nil :foreground ,head4 :background ,(when
spacemacs-theme-org-highlight head4-bg)))))
`(org-level-5 ((,class (:bold nil :foreground ,head1))))
@@ -730,7 +740,7 @@ to 'auto, tags may not be properly aligned. "
`(org-link ((,class (:underline t :foreground ,comment))))
`(org-meta-line ((,class (:foreground ,meta))))
`(org-mode-line-clock-overrun ((,class (:foreground ,err))))
- `(org-priority ((,class (:foreground ,war :inherit bold))))
+ `(org-priority ((,class (:foreground ,war :inherit bold :bold ,(if
spacemacs-theme-org-priority-bold 'unspecified nil)))))
`(org-quote ((,class (:inherit org-block :slant italic))))
`(org-scheduled ((,class (:foreground ,comp))))
`(org-scheduled-today ((,class (:foreground ,func :height ,(if
spacemacs-theme-org-agenda-height 1.2 1.0)))))
