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

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

[nongnu] elpa/spacemacs-theme 3e1768ec49 265/336: Merge pull request #12


From: ELPA Syncer
Subject: [nongnu] elpa/spacemacs-theme 3e1768ec49 265/336: Merge pull request #120 from is-r-not-j/master
Date: Fri, 14 Jan 2022 10:59:44 -0500 (EST)

branch: elpa/spacemacs-theme
commit 3e1768ec49f0d5e58a66d7a9238a4adb4e9e43b6
Merge: 63ff8476a8 fd3ac0a4be
Author: Nasser Alshammari <designernasser@gmail.com>
Commit: GitHub <noreply@github.com>

    Merge pull request #120 from is-r-not-j/master
    
    Added support to customise bold headings of org levels and priority
---
 spacemacs-common.el | 16 +++++++++++++---
 1 file changed, 13 insertions(+), 3 deletions(-)

diff --git a/spacemacs-common.el b/spacemacs-common.el
index d2d5d76f1d..d0bac75d55 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]