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

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

[nongnu] elpa/pacmacs 5f12be8d33 450/472: Move render-object-board to pa


From: ELPA Syncer
Subject: [nongnu] elpa/pacmacs 5f12be8d33 450/472: Move render-object-board to pacmacs-render module
Date: Thu, 6 Jan 2022 21:59:48 -0500 (EST)

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

    Move render-object-board to pacmacs-render module
    
    (#203)
---
 pacmacs-render.el | 12 ++++++++++++
 pacmacs.el        | 12 ------------
 2 files changed, 12 insertions(+), 12 deletions(-)

diff --git a/pacmacs-render.el b/pacmacs-render.el
index 274a16a1d6..dde594c20e 100644
--- a/pacmacs-render.el
+++ b/pacmacs-render.el
@@ -75,6 +75,18 @@
             (insert "."))))
       (insert "\n"))))
 
+(defun pacmacs--render-object-board ()
+  (plist-bind ((width :width)
+               (height :height))
+      pacmacs--object-board
+    (dotimes (row height)
+      (dotimes (column width)
+        (let ((anim-object (car (pacmacs--cell-wrapped-get 
pacmacs--object-board
+                                                           row column))))
+          (pacmacs--render-object anim-object)))
+      (insert "\n")))
+  (insert "\n"))
+
 (provide 'pacmacs-render)
 
 ;;; pacmacs-render.el ends here
diff --git a/pacmacs.el b/pacmacs.el
index 0504ea431e..a0db2ce278 100644
--- a/pacmacs.el
+++ b/pacmacs.el
@@ -671,18 +671,6 @@
   (dolist (wall pacmacs--wall-cells)
     (pacmacs--put-object wall)))
 
-(defun pacmacs--render-object-board ()
-  (plist-bind ((width :width)
-               (height :height))
-      pacmacs--object-board
-    (dotimes (row height)
-      (dotimes (column width)
-        (let ((anim-object (car (pacmacs--cell-wrapped-get 
pacmacs--object-board
-                                                           row column))))
-          (pacmacs--render-object anim-object)))
-      (insert "\n")))
-  (insert "\n"))
-
 (defun pacmacs--render-state ()
   (insert (format "Score: %d\n\n" pacmacs-score))
 



reply via email to

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