[elpa] externals/modus-vivendi-theme 695f459 24/35: Expand README with demo for custom colour values

[Stefan Monnier]

branch: externals/modus-vivendi-theme
commit 695f459e451c6b8e3b6fb9e5554de344a23d15e7
Author: Protesilaos Stavrou <info@protesilaos.com>
Commit: Protesilaos Stavrou <info@protesilaos.com>

    Expand README with demo for custom colour values
    
    This is a reference to issue 45:
    https://gitlab.com/protesilaos/modus-themes/-/issues/45
---
 README.org | 65 +++++++++++++++++++++++++++++++++++++++++++++++++-------------
 1 file changed, 52 insertions(+), 13 deletions(-)

diff --git a/README.org b/README.org
index ed883b1..942151a 100644
--- a/README.org
+++ b/README.org
@@ -504,6 +504,56 @@ Example:
         ("magenta-alt-other" . "#bbaaff")))
 #+end_src
 
+You can then use this as a basis for creating a spin-off theme, such as
+what [[https://gitlab.com/protesilaos/modus-themes/-/issues/45][Vincent Foley 
did in issue 45]].  The customisations were used to
+emulate the aesthetic of Vincent's [[https://github.com/gnuvince/purp][purp 
theme]].
+
+Excerpt of what was used in issue 45:
+
+#+begin_src emacs-lisp
+(use-package modus-operandi-theme
+  :ensure t
+  :config
+  (defun customize-modus-operandi ()
+    (when (member 'modus-operandi custom-enabled-themes)
+      (setq modus-operandi-theme-override-colors-alist
+            '(("magenta" . "#ff00ff"))) ; Redefine the value of the `magenta' 
variable
+      (modus-operandi-theme-with-color-variables
+        (custom-theme-set-faces
+         'modus-operandi
+         `(font-lock-builtin-face              ((t (:background ,bg-main 
:foreground ,fg-main))))
+         `(font-lock-comment-delimiter-face    ((t (:background ,bg-main 
:foreground ,green))))
+         `(font-lock-comment-face              ((t (:background ,bg-main 
:foreground ,green))))
+         `(font-lock-constant-face             ((t (:background ,bg-main 
:foreground ,fg-main))))
+         `(font-lock-doc-face                  ((t (:background ,bg-main 
:foreground ,green))))
+         `(font-lock-function-name-face        ((t (:background ,bg-main 
:foreground ,magenta)))) ; gets the value from the above alist
+         `(font-lock-keyword-face              ((t (:background ,bg-main 
:foreground ,fg-main))))
+         `(font-lock-negation-char-face        ((t (:background ,bg-main 
:foreground ,fg-main))))
+         `(font-lock-preprocessor-face         ((t (:background ,bg-main 
:foreground ,fg-main))))
+         `(font-lock-regexp-grouping-backslash ((t (:background ,bg-main 
:foreground ,fg-main))))
+         `(font-lock-regexp-grouping-construct ((t (:background ,bg-main 
:foreground ,fg-main))))
+         `(font-lock-string-face               ((t (:background ,bg-main 
:foreground ,yellow))))
+         `(font-lock-type-face                 ((t (:background ,bg-main 
:foreground ,fg-main))))
+         `(font-lock-variable-name-face        ((t (:background ,bg-main 
:foreground ,fg-main))))
+         `(font-lock-warning-face              ((t (:weight bold :background 
,bg-main :foreground ,red))))
+         ))))
+  (add-hook 'after-load-theme-hook 'customize-modus-operandi))
+#+end_src
+
+The code for the bespoke =after-load-theme-hook= could be something like
+the following (courtesy of the 
[[https://github.com/seagle0128/.emacs.d/blob/master/lisp/init-funcs.el][Centaur
 Emacs project]]):
+
+#+begin_src emacs-lisp
+(defvar after-load-theme-hook nil
+  "Hook run after a color theme is loaded using `load-theme'.")
+
+(defun run-after-load-theme-hook (&rest _)
+  "Run `after-load-theme-hook'."
+  (run-hooks 'after-load-theme-hook))
+
+(advice-add #'load-theme :after #'run-after-load-theme-hook)
+#+end_src
+
 *** Option 2 to apply colour variables to faces
     :PROPERTIES:
     :CUSTOM_ID: h:9754abfd-c890-4af3-91a8-1a2cb2b5be44
@@ -574,19 +624,8 @@ Perhaps you want something simpler, such as a nice style 
for the cursor:
    `(cursor ((t (:background ,green-alt))))))
 #+end_src
 
-The code for the bespoke =after-load-theme-hook= could be something like
-the following (courtesy of the 
[[https://github.com/seagle0128/.emacs.d/blob/master/lisp/init-funcs.el][Centaur
 Emacs project]]):
-
-#+begin_src emacs-lisp
-(defvar after-load-theme-hook nil
-  "Hook run after a color theme is loaded using `load-theme'.")
-
-(defun run-after-load-theme-hook (&rest _)
-  "Run `after-load-theme-hook'."
-  (run-hooks 'after-load-theme-hook))
-
-(advice-add #'load-theme :after #'run-after-load-theme-hook)
-#+end_src
+Remember that the =after-load-theme-hook= is not built into Emacs.  The
+code for it was shown under heading 
[[#h:149e23b6-ada1-480f-95cd-c56fb40999b5][Option 1 to redefine colour values]].
 
 If you need more ideas check how I configure the themes in 
[[https://gitlab.com/protesilaos/dotemacs][my dotemacs]].
 If something is not clear or not working as intended, please let me