[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/pacmacs 19ffa64f7e 230/472: Merge branch 'master' into con
From: |
ELPA Syncer |
Subject: |
[nongnu] elpa/pacmacs 19ffa64f7e 230/472: Merge branch 'master' into connecte-walls |
Date: |
Thu, 6 Jan 2022 21:59:27 -0500 (EST) |
branch: elpa/pacmacs
commit 19ffa64f7e4c850c84ddfcd70c5bf644a8d52a20
Merge: 0546e964b1 98599015bb
Author: rexim <reximkut@gmail.com>
Commit: rexim <reximkut@gmail.com>
Merge branch 'master' into connecte-walls
We need the xbm flip bits hack from the master
---
pacmacs-image.el | 14 +++++++++++---
test/pacmacs-image-test.el | 18 +++++++++++++-----
2 files changed, 24 insertions(+), 8 deletions(-)
diff --git a/pacmacs-image.el b/pacmacs-image.el
index cfcb568712..ca67c29157 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-wall-block (width height color bottom right top left)
(let ((wall-block (make-vector
diff --git a/test/pacmacs-image-test.el b/test/pacmacs-image-test.el
index a66a00d23c..ae5461e277 100644
--- a/test/pacmacs-image-test.el
+++ b/test/pacmacs-image-test.el
@@ -20,11 +20,19 @@
(with-mock
(mock (make-bool-vector height t) => bool-vector-result :times 1)
(mock (make-vector width bool-vector-result) => make-vector-result :times
1)
- (mock (create-image make-vector-result
- 'xbm t
- :width width :height height
- :foreground color
- :background color) => create-image-result :times 1)
+
+ (if (not pacmacs--flip-xbm-bits)
+ (mock (create-image make-vector-result
+ 'xbm t
+ :width width :height height
+ :foreground color
+ :background nil) => create-image-result :times 1)
+ (mock (create-image make-vector-result
+ 'xbm t
+ :width width :height height
+ :foreground nil
+ :background color) => create-image-result :times 1))
+
(should (equal create-image-result
(pacmacs-create-color-block width height color))))))
- [nongnu] elpa/pacmacs 21a99294ad 440/472: Add score sign (#203), (continued)
- [nongnu] elpa/pacmacs 21a99294ad 440/472: Add score sign (#203), ELPA Syncer, 2022/01/06
- [nongnu] elpa/pacmacs 9fd3009e5a 442/472: Merge pull request #206 from codingteam/bug/quit-game-over-with-q-202, ELPA Syncer, 2022/01/06
- [nongnu] elpa/pacmacs 95cce606fd 024/472: Support for Aseprite animation format. Close #16, ELPA Syncer, 2022/01/06
- [nongnu] elpa/pacmacs 09aa49c6b0 065/472: UTs for pacman-image. Close #52, ELPA Syncer, 2022/01/06
- [nongnu] elpa/pacmacs ee893d28bd 180/472: Add module for recording action (#115), ELPA Syncer, 2022/01/06
- [nongnu] elpa/pacmacs 95c046205a 187/472: Compilation warnings as errors (#123), ELPA Syncer, 2022/01/06
- [nongnu] elpa/pacmacs fe40eb20c7 190/472: Merge branch 'coverage-dropped-124' (#124), ELPA Syncer, 2022/01/06
- [nongnu] elpa/pacmacs 8e36b66a6f 199/472: Make object-board contain list of object (#126), ELPA Syncer, 2022/01/06
- [nongnu] elpa/pacmacs 6b43cde65d 223/472: Add big pill game object (#81), ELPA Syncer, 2022/01/06
- [nongnu] elpa/pacmacs 0546e964b1 222/472: Connected walls proof of concept for #131, ELPA Syncer, 2022/01/06
- [nongnu] elpa/pacmacs 19ffa64f7e 230/472: Merge branch 'master' into connecte-walls,
ELPA Syncer <=
- [nongnu] elpa/pacmacs e0856fc881 244/472: Refactor wall tiles functions (#131):, ELPA Syncer, 2022/01/06
- [nongnu] elpa/pacmacs 79aa80e1d2 245/472: Merge branch 'connecte-walls'. Close #131, ELPA Syncer, 2022/01/06
- [nongnu] elpa/pacmacs 2b9811e71b 246/472: Add README for tools, ELPA Syncer, 2022/01/06
- [nongnu] elpa/pacmacs 8e00815b4f 253/472: Disable undo for Pacmacs buffer. Close #143, ELPA Syncer, 2022/01/06
- [nongnu] elpa/pacmacs 8a79a510ea 257/472: Blinking big pill (#81), ELPA Syncer, 2022/01/06
- [nongnu] elpa/pacmacs 93d8b91792 266/472: Merge branch 'automate-sprite-generting-26'., ELPA Syncer, 2022/01/06
- [nongnu] elpa/pacmacs e618da968d 279/472: Add UT for pacmacs--sort-score-table, ELPA Syncer, 2022/01/06
- [nongnu] elpa/pacmacs 9ec0ff9f4d 280/472: Add UT for pacmacs--render-score-table, ELPA Syncer, 2022/01/06
- [nongnu] elpa/pacmacs 612d7ff1dd 297/472: UT for pacmacs--decrease-terrified-timers (#153), ELPA Syncer, 2022/01/06
- [nongnu] elpa/pacmacs 4ab8f5d799 300/472: Unbind replace-game-objects from glob lists (#153), ELPA Syncer, 2022/01/06