[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/pacmacs ce03d91967 227/472: Introduce xbm flip bit hack (#
From: |
ELPA Syncer |
Subject: |
[nongnu] elpa/pacmacs ce03d91967 227/472: Introduce xbm flip bit hack (#133) |
Date: |
Thu, 6 Jan 2022 21:59:27 -0500 (EST) |
branch: elpa/pacmacs
commit ce03d91967d33e1b7eda496ffcea2b58203f715b
Author: rexim <reximkut@gmail.com>
Commit: rexim <reximkut@gmail.com>
Introduce xbm flip bit hack (#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
- [nongnu] elpa/pacmacs 43cc1205c6 066/472: Try to fix pacman-image UTs after #52, (continued)
- [nongnu] elpa/pacmacs 43cc1205c6 066/472: Try to fix pacman-image UTs after #52, ELPA Syncer, 2022/01/06
- [nongnu] elpa/pacmacs e44bade6bf 087/472: Fix lambda expressions (#68), ELPA Syncer, 2022/01/06
- [nongnu] elpa/pacmacs 2dac90bc61 092/472: Merge branch 'entire-code-coverage-70'. Close #70, ELPA Syncer, 2022/01/06
- [nongnu] elpa/pacmacs 2fdeb1dbdf 188/472: Try to remove compilation step (#124), ELPA Syncer, 2022/01/06
- [nongnu] elpa/pacmacs a8bbb61bf8 189/472: Try to remove elcs after the compilation (#124), ELPA Syncer, 2022/01/06
- [nongnu] elpa/pacmacs 7729f08230 196/472: Rename render-board to object-board (#126), ELPA Syncer, 2022/01/06
- [nongnu] elpa/pacmacs cede2ffb48 202/472: Optimize object look up (#126):, ELPA Syncer, 2022/01/06
- [nongnu] elpa/pacmacs 9e29a7aa19 207/472: Add information about cask install., ELPA Syncer, 2022/01/06
- [nongnu] elpa/pacmacs c6ddeab3f2 215/472: Roughly implement it replayer (#122), ELPA Syncer, 2022/01/06
- [nongnu] elpa/pacmacs 17a82dffec 205/472: Add UT for object-type-at-p, ELPA Syncer, 2022/01/06
- [nongnu] elpa/pacmacs ce03d91967 227/472: Introduce xbm flip bit hack (#133),
ELPA Syncer <=
- [nongnu] elpa/pacmacs b0bc866a7b 218/472: Measure tick time during replay (#122), ELPA Syncer, 2022/01/06
- [nongnu] elpa/pacmacs 6f55a2df10 236/472: Add UT for pacmacs--put-bits-dot function (#131), ELPA Syncer, 2022/01/06
- [nongnu] elpa/pacmacs 48dacba354 238/472: Refactor wall generator with bar functions (#131), ELPA Syncer, 2022/01/06
- [nongnu] elpa/pacmacs 62bcd78913 243/472: Refactor possible ways functions (#131):, ELPA Syncer, 2022/01/06
- [nongnu] elpa/pacmacs c2303269c0 249/472: Drop XBM support for empty cells (#141), ELPA Syncer, 2022/01/06
- [nongnu] elpa/pacmacs 0f403095f0 265/472: Update README after repo transferring (#140), ELPA Syncer, 2022/01/06
- [nongnu] elpa/pacmacs 169cd54064 269/472: Add UT for pacmacs--bit-list-to-integer, ELPA Syncer, 2022/01/06
- [nongnu] elpa/pacmacs 769414fae0 274/472: Extend pacmacs--normalize-wall-bits UT, ELPA Syncer, 2022/01/06
- [nongnu] elpa/pacmacs d8a7998192 277/472: Extract `cask install` to separate step in README, ELPA Syncer, 2022/01/06
- [nongnu] elpa/pacmacs 614a98ccc7 278/472: Cleanup README, ELPA Syncer, 2022/01/06