[nongnu] elpa/pacmacs 7a8db8e06c 228/472: Merge branch 'xbm-flip-bit-hack-133'. Close #133

[ELPA Syncer]

branch: elpa/pacmacs
commit 7a8db8e06c318011dfcd80a052469ce320f2096a
Merge: ed46a4b500 ce03d91967
Author: rexim <reximkut@gmail.com>
Commit: rexim <reximkut@gmail.com>

    Merge branch 'xbm-flip-bit-hack-133'. Close #133
---
 pacmacs-image.el | 14 +++++++++++---
 1 file changed, 11 insertions(+), 3 deletions(-)

diff --git a/pacmacs-image.el b/pacmacs-image.el
index 25c30034a3..3a92838007 100644
--- a/pacmacs-image.el
+++ b/pacmacs-image.el
@@ -32,6 +32,8 @@
 
 ;;; Code:
 
+(defconst pacmacs--flip-xbm-bits (eq system-type 'windows-nt))
+
 (defun pacmacs-load-image (filename)
   (create-image filename 'xpm nil :heuristic-mask t))
 
@@ -39,12 +41,18 @@
   (insert-image resource " " nil resource-vector))
 
 (defun pacmacs-create-color-block (width height color)
-  (create-image
+  (apply
+   #'create-image
    (make-vector
     width (make-bool-vector height t))
    'xbm t :width width :height height
-   :foreground color
-   :background color))
+   (if (not pacmacs--flip-xbm-bits)
+       (list
+        :foreground color
+        :background nil)
+     (list
+      :foreground nil
+      :background color))))
 
 (defun pacmacs-create-transparent-block (width height)
   (create-image