[nongnu] elpa/pacmacs 4ab8f5d799 300/472: Unbind replace-game-objects from glob lists (#153)

[ELPA Syncer]

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

    Unbind replace-game-objects from glob lists (#153)
    
    It makes it easier to unit test
---
 pacmacs.el | 15 ++++++++-------
 1 file changed, 8 insertions(+), 7 deletions(-)

diff --git a/pacmacs.el b/pacmacs.el
index 8c4369139e..0b3373fd32 100644
--- a/pacmacs.el
+++ b/pacmacs.el
@@ -424,18 +424,19 @@
       (pacmacs--remove-object game-object))
     (set list-name (-remove predicate game-objects))))
 
-(defun pacmacs--replace-game-objects (list-name replacing-constructor)
-  (dolist (game-object (symbol-value list-name))
+(defun pacmacs--replace-game-objects (game-objects new-constructor 
old-destructor)
+  (dolist (game-object game-objects)
     (plist-bind ((row :row)
                  (column :column))
         game-object
-      (funcall replacing-constructor row column))
-    (pacmacs--remove-object game-object))
-  (set list-name nil))
+      (funcall new-constructor row column))
+    (funcall old-destructor game-object)))
 
 (defun pacmacs--terrify-all-ghosts ()
-  (pacmacs--replace-game-objects 'pacmacs--ghosts
-                                 #'pacmacs--create-terrified-ghost))
+  (pacmacs--replace-game-objects pacmacs--ghosts
+                                 #'pacmacs--create-terrified-ghost
+                                 #'pacmacs--remove-object)
+  (setq pacmacs--ghosts nil))
 
 (defun pacmacs--unterrify-timed-out-ghosts ()
   (pacmacs--replace-filtered-game-objects