[nongnu] elpa/pacmacs eac9d47c62 117/472: Refactor pacmacs-render-track-board (#74)

[ELPA Syncer]

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

    Refactor pacmacs-render-track-board (#74)
---
 pacmacs.el | 33 ++++++++++++++++++---------------
 1 file changed, 18 insertions(+), 15 deletions(-)

diff --git a/pacmacs.el b/pacmacs.el
index e2453a8ce3..825d160043 100644
--- a/pacmacs.el
+++ b/pacmacs.el
@@ -289,21 +289,24 @@
     (pacmacs--cell-set pacmacs-board row column anim-object)))
 
 (defun pacmacs-render-track-board ()
-  (dotimes (row pacmacs-board-height)
-    (dotimes (column pacmacs-board-width)
-      (let ((x (aref (aref pacmacs-track-board row) column)))
-        (cond
-         ((null x)
-          (insert "."))
-         ((equal x 'left)
-          (insert "<"))
-         ((equal x 'right)
-          (insert ">"))
-         ((equal x 'up)
-          (insert "^"))
-         ((equal x 'down)
-          (insert "v")))))
-    (insert "\n")))
+  (plist-bind ((width :width)
+               (height :height))
+      pacmacs-board
+    (dotimes (row height)
+      (dotimes (column width)
+        (let ((x (pacmacs--cell-get pacmacs-track-board row column)))
+          (cond
+           ((null x)
+            (insert "."))
+           ((equal x 'left)
+            (insert "<"))
+           ((equal x 'right)
+            (insert ">"))
+           ((equal x 'up)
+            (insert "^"))
+           ((equal x 'down)
+            (insert "v")))))
+      (insert "\n"))))
 
 (defun pacmacs-render-state ()
   (insert (format "Score: %d\n" pacmacs-score))