emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/spacemacs-theme fd3ac0a4be 262/336: Added support to custo


From: ELPA Syncer
Subject: [nongnu] elpa/spacemacs-theme fd3ac0a4be 262/336: Added support to customise bold headings of org levels and priority items
Date: Fri, 14 Jan 2022 10:59:43 -0500 (EST)

branch: elpa/spacemacs-theme
commit fd3ac0a4bedcc2ee6764889664ad0a1adca0adc5
Author: Jernej Kaše <jernej.kase@gmx.at>
Commit: Jernej Kaše <jernej.kase@gmx.at>

    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)))))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]