[nongnu] elpa/pacmacs b0561eb59f 111/472: Refactor pacmacs--cell-tracked-p (#74)

[ELPA Syncer]

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

    Refactor pacmacs--cell-tracked-p (#74)
---
 pacmacs.el           |  3 +--
 test/pacmacs-test.el | 10 ++++------
 2 files changed, 5 insertions(+), 8 deletions(-)

diff --git a/pacmacs.el b/pacmacs.el
index 88c83eb543..5186c7695c 100644
--- a/pacmacs.el
+++ b/pacmacs.el
@@ -158,8 +158,7 @@
     (pacmacs--kill-buffer-and-its-window pacmacs-buffer-name)))
 
 (defun pacmacs--cell-tracked-p (row column)
-  (aref (aref pacmacs-track-board (mod row pacmacs-board-height))
-        (mod column pacmacs-board-width)))
+  (pacmacs--cell-get pacmacs-track-board row column))
 
 (defun pacmacs--switch-direction (game-object direction)
   (plist-bind ((direction-animations :direction-animations))
diff --git a/test/pacmacs-test.el b/test/pacmacs-test.el
index 3ef8e9bd37..58c61a2d55 100644
--- a/test/pacmacs-test.el
+++ b/test/pacmacs-test.el
@@ -8,13 +8,11 @@
     (should (equal expected-board
                    input-board))))
 
-
-
 (ert-deftest pacmacs--cell-tracked-p-test ()
-  (let ((pacmacs-board-width 2)
-        (pacmacs-board-height 2)
-        (pacmacs-track-board [[nil nil]
-                              ['left 'right]]))
+  (let ((pacmacs-track-board (list :width 2
+                                   :height 2
+                                   :data [[nil nil]
+                                          ['left 'right]])))
     (should (not (pacmacs--cell-tracked-p 0 0)))
     (should (pacmacs--cell-tracked-p 1 0))))