[nongnu] elpa/pacmacs 5492ed0a87 118/472: Refactor pacmacs-render-state (#74)

[ELPA Syncer]

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

    Refactor pacmacs-render-state (#74)
---
 pacmacs.el | 15 ++++++++-------
 1 file changed, 8 insertions(+), 7 deletions(-)

diff --git a/pacmacs.el b/pacmacs.el
index 825d160043..a53d1ea9c5 100644
--- a/pacmacs.el
+++ b/pacmacs.el
@@ -52,8 +52,6 @@
 (defvar pacmacs-board-height 10)
 (defvar pacmacs-score 0)
 
-
-
 (defvar pacmacs-inversed-direction-table nil)
 (setq pacmacs-inversed-direction-table
       (list (cons (cons -1 0) 'left)
@@ -327,11 +325,14 @@
   (dolist (wall pacmacs-wall-cells)
     (pacmacs--put-object wall))
 
-  (dotimes (row pacmacs-board-height)
-    (dotimes (column pacmacs-board-width)
-      (let ((anim-object (aref (aref pacmacs-board row) column)))
-        (pacmacs-render-object anim-object)))
-    (insert "\n")))
+  (plist-bind ((width :width)
+               (height :height))
+      pacmacs-board
+    (dotimes (row height)
+      (dotimes (column width)
+        (let ((anim-object (pacmacs--cell-get pacmacs-board row column)))
+          (pacmacs-render-object anim-object)))
+      (insert "\n"))))
 
 (defun pacmacs-up ()
   (interactive)