[elpa] externals/face-shift a2e9d00568 31/50: Add face-shift-shift-foreground option

[ELPA Syncer]

branch: externals/face-shift
commit a2e9d005683e0cd979731d56791f6aa547aa0a08
Author: Philip Kaludercic <phil...@posteo.net>
Commit: Philip Kaludercic <phil...@posteo.net>

    Add face-shift-shift-foreground option
---
 face-shift.el | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/face-shift.el b/face-shift.el
index 98725f169c..b1d2ea522a 100644
--- a/face-shift.el
+++ b/face-shift.el
@@ -81,6 +81,10 @@ See info node `(emacs) Colors' or `color-name-to-rgb' for 
more
 information."
   :type '(alist :key-type face :value-type string))
 
+(defcustom face-shift-shift-foreground nil
+  "Non-nil means shift the forground color too."
+  :type 'boolean)
+
 (defvar-local face-shift--cookies nil
   "List of remapped faces in a single buffer.")
 
@@ -113,7 +117,9 @@ If BUFFER is nil, use current buffer."
            (col-rgb (and colour (color-name-to-rgb colour))))
       (when colour
         (dolist (face face-shift-faces)
-          (dolist (prop '(:foreground :background))
+          (dolist (prop (if face-shift-shift-foreground
+                            '(:background :foreground)
+                          '(:background)))
             (let* ((attr (face-attribute face prop))
                    (rgb (and attr (color-name-to-rgb attr)))
                    (shift (and rgb (face-shift--interpolate col-rgb rgb)))