[nongnu] elpa/pacmacs b8d1136c3a 014/472: Extract pacman-anim module (#19)

[ELPA Syncer]

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

    Extract pacman-anim module (#19)
---
 pacman-anim.el                               | 18 ++++++++++++++++++
 pacman.el                                    | 20 ++------------------
 test/{pacman-test.el => pacman-anim-test.el} |  3 +--
 test/test-helper.el                          |  2 +-
 4 files changed, 22 insertions(+), 21 deletions(-)

diff --git a/pacman-anim.el b/pacman-anim.el
new file mode 100644
index 0000000000..82418f7204
--- /dev/null
+++ b/pacman-anim.el
@@ -0,0 +1,18 @@
+(defun pacman-anim-get-frame (anim)
+  (let ((frames (plist-get anim :frames))
+        (current-frame (plist-get anim :current-frame)))
+    (nth current-frame frames)))
+
+(defun pacman-anim-next-frame (anim)
+  (let* ((frames (plist-get anim :frames))
+         (current-frame (plist-get anim :current-frame))
+         (new-current-frame (mod (+ current-frame 1)
+                                 (length frames))))
+    (plist-put anim :current-frame new-current-frame)))
+
+(defun pacman-anim-object-next-frame (anim-object)
+  (let ((anim (plist-get anim-object :animation)))
+    (plist-put anim-object :animation
+               (pacman-anim-next-frame anim))))
+
+(provide 'pacman-anim)
diff --git a/pacman.el b/pacman.el
index 464f4ef5e3..ae2475c503 100644
--- a/pacman.el
+++ b/pacman.el
@@ -27,6 +27,8 @@
 ;; CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
 ;; SOFTWARE.
 
+(require 'pacman-anim)
+
 (defconst pacman-buffer-name "*Pacman*")
 
 (defvar pacman-timer nil)
@@ -61,24 +63,6 @@
 (defun pacman-insert-image (resource resource-vector)
   (insert-image resource " " nil resource-vector))
 
-;;;###autoload
-(defun pacman-anim-get-frame (anim)
-  (let ((frames (plist-get anim :frames))
-        (current-frame (plist-get anim :current-frame)))
-    (nth current-frame frames)))
-
-(defun pacman-anim-next-frame (anim)
-  (let* ((frames (plist-get anim :frames))
-         (current-frame (plist-get anim :current-frame))
-         (new-current-frame (mod (+ current-frame 1)
-                                 (length frames))))
-    (plist-put anim :current-frame new-current-frame)))
-
-(defun pacman-anim-object-next-frame (anim-object)
-  (let ((anim (plist-get anim-object :animation)))
-    (plist-put anim-object :animation
-               (pacman-anim-next-frame anim))))
-
 (defun pacman-start ()
   (interactive)
   (switch-to-buffer-other-window pacman-buffer-name)
diff --git a/test/pacman-test.el b/test/pacman-anim-test.el
similarity index 68%
rename from test/pacman-test.el
rename to test/pacman-anim-test.el
index b14ff48281..7e44a77dcb 100644
--- a/test/pacman-test.el
+++ b/test/pacman-anim-test.el
@@ -2,5 +2,4 @@
   (let ((anim (list :frames (number-sequence 1 5)
                     :current-frame 2)))
     (should (equal 3
-                   (pacman-anim-get-frame anim)
-                   ))))
+                   (pacman-anim-get-frame anim)))))
diff --git a/test/test-helper.el b/test/test-helper.el
index 840eac6771..37e1e81a02 100644
--- a/test/test-helper.el
+++ b/test/test-helper.el
@@ -1,4 +1,4 @@
 (require 'el-mock)
 
 (add-to-list 'load-path ".")
-(load "pacman.el")
+(load "pacman-anim.el")