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

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

[nongnu] elpa/monokai-theme 72cb218 187/207: Add fallback option for doc


From: ELPA Syncer
Subject: [nongnu] elpa/monokai-theme 72cb218 187/207: Add fallback option for doc face
Date: Thu, 21 Oct 2021 18:07:59 -0400 (EDT)

branch: elpa/monokai-theme
commit 72cb218c90fe00236da0a9ef19cf129288a41fe8
Author: Etienne <notetiene@users.noreply.github.com>
Commit: Etienne <notetiene@users.noreply.github.com>

    Add fallback option for doc face
    
    * monokai-theme.el (monokai-doc-face-as-comment): Add new
      customization to allow treating `font-lock-doc-face' as a comment.
      This was the previous behavior.
---
 monokai-theme.el | 13 +++++++++++--
 1 file changed, 11 insertions(+), 2 deletions(-)

diff --git a/monokai-theme.el b/monokai-theme.el
index 71a7d52..7de4049 100644
--- a/monokai-theme.el
+++ b/monokai-theme.el
@@ -68,6 +68,11 @@ Also affects 'linum-mode' background."
   :type 'boolean
   :group 'monokai)
 
+(defcustom monokai-doc-face-as-comment nil
+  "Consider `font-lock-doc-face' as comment instead of a string."
+  :type 'boolean
+  :group 'monokai)
+
 (defcustom monokai-height-minus-1 0.8
   "Font size -1."
   :type 'number
@@ -322,8 +327,12 @@ Also affects 'linum-mode' background."
       (,monokai-256-class (:foreground ,monokai-256-violet))))
 
    `(font-lock-doc-face
-     ((,monokai-class (:foreground ,monokai-yellow))
-      (,monokai-256-class (:foreground ,monokai-256-yellow))))
+     ((,monokai-class (:foreground ,(if monokai-doc-face-as-comment
+                                        monokai-comments
+                                      monokai-yellow)))
+      (,monokai-256-class (:foreground ,(if monokai-doc-face-as-comment
+                                            monokai-256-comments
+                                          monokai-256-yellow)))))
 
    `(font-lock-function-name-face
      ((,monokai-class (:foreground ,monokai-green))



reply via email to

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