branch: elpa/pacmacs
commit eac9d47c622df1fa5a336d08479830282a507757
Author: rexim <[email protected]>
Commit: rexim <[email protected]>
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))
