[elpa] externals/spacious-padding e0426881e2 1/2: Use the server-after-make-frame-hook to cover uses of the Emacs daemon

[ELPA Syncer]

branch: externals/spacious-padding
commit e0426881e2914534240cd07d796e495280e84894
Author: Protesilaos Stavrou <i...@protesilaos.com>
Commit: Protesilaos Stavrou <i...@protesilaos.com>

    Use the server-after-make-frame-hook to cover uses of the Emacs daemon
    
    Otherwise, colours are not applied correctly.
    
    Thanks to Lou Woell for reporting the bug in issue 33 and for testing
    my proposed patch: 
<https://github.com/protesilaos/spacious-padding/issues/33>.
---
 README.org          |  6 +++---
 spacious-padding.el | 12 ++++++++++--
 2 files changed, 13 insertions(+), 5 deletions(-)

diff --git a/README.org b/README.org
index 653dc0213e..6dca183ad1 100644
--- a/README.org
+++ b/README.org
@@ -290,9 +290,9 @@ help matters.
   Neo Dim, Ruby Iris Juric.
 
 + Ideas and/or user feedback :: Aronne Raimondi, Damien Cassou, Julian
-  Flake, Lucas Gruss, Nicolas Semrau, Pierre Baille, Stefano
-  Rodighiero, Tobias Tschinkowitz, Tomasz Hołubowicz, domsch1988,
-  tusharhero.
+  Flake, Lou Woell, Lucas Gruss, Nicolas Semrau, Pierre Baille,
+  Stefano Rodighiero, Tobias Tschinkowitz, Tomasz Hołubowicz,
+  domsch1988, tusharhero.
 
 Inspiration for this package comes from Nicolas Rougier's impressive
 designs and Daniel Mendler's ~org-modern~ package:
diff --git a/spacious-padding.el b/spacious-padding.el
index 4221f57e58..664fd875f3 100644
--- a/spacious-padding.el
+++ b/spacious-padding.el
@@ -447,6 +447,12 @@ parameter values."
   (spacious-padding-modify-frame-parameters frame)
   (spacious-padding-set-faces))
 
+;;;###autoload
+(defun spacious-padding-set-parameters-of-selected-frame ()
+  "Use `spacious-padding-set-parameters-of-frame' for the `selected-frame'."
+  (when-let* ((frame (selected-frame)))
+    (spacious-padding-set-parameters-of-frame frame)))
+
 (defun spacious-padding--enable-mode ()
   "Enable `spacious-padding-mode'."
   (spacious-padding--store-default-parameters)
@@ -454,7 +460,8 @@ parameter values."
   (spacious-padding-set-faces)
   (add-hook 'window-divider-mode-hook #'spacious-padding--enable-mode)
   (add-hook 'enable-theme-functions #'spacious-padding-set-faces)
-  (add-hook 'after-make-frame-functions 
#'spacious-padding-set-parameters-of-frame))
+  (add-hook 'after-make-frame-functions 
#'spacious-padding-set-parameters-of-frame)
+  (add-hook 'server-after-make-frame-hook 
#'spacious-padding-set-parameters-of-selected-frame))
 
 (defun spacious-padding--disable-mode ()
   "Disable `spacious-padding-mode'."
@@ -462,7 +469,8 @@ parameter values."
   (spacious-padding-unset-invisible-dividers)
   (remove-hook 'window-divider-mode-hook #'spacious-padding--enable-mode)
   (remove-hook 'enable-theme-functions #'spacious-padding-set-faces)
-  (remove-hook 'after-make-frame-functions 
#'spacious-padding-set-parameters-of-frame))
+  (remove-hook 'after-make-frame-functions 
#'spacious-padding-set-parameters-of-frame)
+  (remove-hook 'server-after-make-frame-hook 
#'spacious-padding-set-parameters-of-selected-frame))
 
 ;;;###autoload
 (define-minor-mode spacious-padding-mode