emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/pacmacs 7729f08230 196/472: Rename render-board to object-


From: ELPA Syncer
Subject: [nongnu] elpa/pacmacs 7729f08230 196/472: Rename render-board to object-board (#126)
Date: Thu, 6 Jan 2022 21:59:24 -0500 (EST)

branch: elpa/pacmacs
commit 7729f08230faf023a15b2ac18832ea9ad2bbaa2b
Author: rexim <reximkut@gmail.com>
Commit: rexim <reximkut@gmail.com>

    Rename render-board to object-board (#126)
---
 pacmacs.el           | 20 ++++++++++----------
 test/pacmacs-test.el |  4 ++--
 2 files changed, 12 insertions(+), 12 deletions(-)

diff --git a/pacmacs.el b/pacmacs.el
index 312f7f5aa1..8e2bd98b66 100644
--- a/pacmacs.el
+++ b/pacmacs.el
@@ -63,7 +63,7 @@
 (defvar pacmacs-wall-cells nil)
 (defvar pacmacs-pills nil)
 
-(defvar pacmacs--render-board nil)
+(defvar pacmacs--object-board nil)
 (defvar pacmacs--track-board nil)
 
 (defvar pacmacs-play-pause nil)
@@ -187,17 +187,17 @@
       (kill-buffer buffer-or-name))))
 
 (defun pacmacs--wall-at-p (row column)
-  (pacmacs--object-at-p pacmacs--render-board
+  (pacmacs--object-at-p pacmacs--object-board
                         row column
                         pacmacs-wall-cells))
 
 (defun pacmacs--pill-at-p (row column)
-  (pacmacs--object-at-p pacmacs--render-board
+  (pacmacs--object-at-p pacmacs--object-board
                         row column
                         pacmacs-pills))
 
 (defun pacmacs--ghost-at-p (row column)
-  (pacmacs--object-at-p pacmacs--render-board
+  (pacmacs--object-at-p pacmacs--object-board
                         row column
                         pacmacs--ghosts))
 
@@ -225,7 +225,7 @@
     (plist-put game-object :prev-row row)
     (plist-put game-object :prev-column column)
     (if (zerop speed-counter)
-        (let* ((new-point (pacmacs--step-point pacmacs--render-board row 
column direction))
+        (let* ((new-point (pacmacs--step-point pacmacs--object-board row 
column direction))
                (new-row (car new-point))
                (new-column (cdr new-point)))
           (plist-put game-object :speed-counter speed)
@@ -376,7 +376,7 @@
     (plist-bind ((row :row)
                  (column :column))
         anim-object
-      (pacmacs--cell-wrapped-set pacmacs--render-board row column 
anim-object))))
+      (pacmacs--cell-wrapped-set pacmacs--object-board row column 
anim-object))))
 
 (defun pacmacs--switch-to-death-state ()
   (setq pacmacs-game-state 'death)
@@ -418,7 +418,7 @@
       (when pacmacs-debug-output
         (pacmacs--render-track-board pacmacs--track-board))
 
-      (pacmacs--fill-board pacmacs--render-board nil)
+      (pacmacs--fill-board pacmacs--object-board nil)
 
       (dolist (pill pacmacs-pills)
         (pacmacs--put-object pill))
@@ -433,10 +433,10 @@
       
       (plist-bind ((width :width)
                    (height :height))
-          pacmacs--render-board
+          pacmacs--object-board
         (dotimes (row height)
           (dotimes (column width)
-            (let ((anim-object (pacmacs--cell-wrapped-get 
pacmacs--render-board row column)))
+            (let ((anim-object (pacmacs--cell-wrapped-get 
pacmacs--object-board row column)))
               (pacmacs--render-object anim-object)))
           (insert "\n")))
       (insert "\n")
@@ -497,7 +497,7 @@
     (setq pacmacs-board-width board-width)
     (setq pacmacs-board-height board-height)
 
-    (setq pacmacs--render-board (pacmacs--make-board pacmacs-board-width
+    (setq pacmacs--object-board (pacmacs--make-board pacmacs-board-width
                                                      pacmacs-board-height))
     (setq pacmacs--track-board (pacmacs--make-board pacmacs-board-width
                                                     pacmacs-board-height))
diff --git a/test/pacmacs-test.el b/test/pacmacs-test.el
index 745abeec26..408551422f 100644
--- a/test/pacmacs-test.el
+++ b/test/pacmacs-test.el
@@ -33,7 +33,7 @@
      (pacmacs--track-object game-object))))
 
 (ert-deftest pacmacs--put-object-test ()
-  (let ((pacmacs--render-board (list :width 2
+  (let ((pacmacs--object-board (list :width 2
                                       :height 2
                                       :data [[nil nil]
                                              [nil nil]]))
@@ -43,4 +43,4 @@
                          :height 2
                          :data [[nil (:row 0 :column 1)]
                                 [nil nil]])
-                   pacmacs--render-board))))
+                   pacmacs--object-board))))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]