[nongnu] elpa/pacmacs b8cd22229d 142/472: Introduce pacmacs--anim-object-list-next-frame

[ELPA Syncer]

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

    Introduce pacmacs--anim-object-list-next-frame
---
 pacmacs-anim.el           |  7 ++++++-
 pacmacs.el                | 12 +++++-------
 test/pacmacs-anim-test.el |  4 ++--
 3 files changed, 13 insertions(+), 10 deletions(-)

diff --git a/pacmacs-anim.el b/pacmacs-anim.el
index ac4fc718b8..e33f7dcf83 100644
--- a/pacmacs-anim.el
+++ b/pacmacs-anim.el
@@ -97,11 +97,16 @@
             (plist-put anim :current-frame new-current-frame))
         (plist-put anim :duration-counter (+ duration-counter time))))))
 
-(defun pacmacs-anim-object-next-frame (anim-object time)
+(defun pacmacs--anim-object-next-frame (anim-object time)
   (plist-map anim-object :current-animation
              #'(lambda (anim)
                  (pacmacs-anim-next-frame anim time))))
 
+(defun pacmacs--anim-object-list-next-frame (anim-object-list time)
+  (-each anim-object-list
+    #'(lambda (anim-object)
+        (pacmacs--anim-object-next-frame anim-object time))))
+
 (provide 'pacmacs-anim)
 
 ;;; pacmacs-anim.el ends here
diff --git a/pacmacs.el b/pacmacs.el
index 1fb313b1ec..700d2d4637 100644
--- a/pacmacs.el
+++ b/pacmacs.el
@@ -314,11 +314,9 @@
     (pacmacs--ghost-at-p row column)))
 
 (defun pacmacs-play-state-logic ()
-  (pacmacs-anim-object-next-frame pacmacs-player-state 
pacmacs-tick-duration-ms)
-  (dolist (ghost pacmacs-ghosts)
-    (pacmacs-anim-object-next-frame ghost pacmacs-tick-duration-ms))
-  (dolist (pill pacmacs-pills)
-    (pacmacs-anim-object-next-frame pill pacmacs-tick-duration-ms))
+  (pacmacs--anim-object-next-frame pacmacs-player-state 
pacmacs-tick-duration-ms)
+  (pacmacs--anim-object-list-next-frame pacmacs-ghosts 
pacmacs-tick-duration-ms)
+  (pacmacs--anim-object-list-next-frame pacmacs-pills pacmacs-tick-duration-ms)
 
   (pacmacs--recalc-track-board)
   (if pacmacs-pills
@@ -332,8 +330,8 @@
     (pacmacs--switch-to-level-beaten-state)))
 
 (defun pacmacs-death-state-logic ()
-  (pacmacs-anim-object-next-frame pacmacs-player-state
-                                  pacmacs-tick-duration-ms)
+  (pacmacs--anim-object-next-frame pacmacs-player-state
+                                   pacmacs-tick-duration-ms)
   
   (when (= 0 (plist-get
               (plist-get pacmacs-player-state
diff --git a/test/pacmacs-anim-test.el b/test/pacmacs-anim-test.el
index abc7125e72..4e08f0fdea 100644
--- a/test/pacmacs-anim-test.el
+++ b/test/pacmacs-anim-test.el
@@ -25,11 +25,11 @@
     (pacmacs-anim-next-frame anim 100)
     (should (equal 0 (plist-get anim :current-frame)))))
 
-(ert-deftest pacmacs-anim-object-next-frame-test ()
+(ert-deftest pacmacs--anim-object-next-frame-test ()
   (with-mock
    (stub pacmacs-anim-next-frame => 42)
    (let ((anim-object '(:current-animation 41)))
-     (pacmacs-anim-object-next-frame anim-object 100)
+     (pacmacs--anim-object-next-frame anim-object 100)
      (should (equal '(:current-animation 42)
                     anim-object)))))