[nongnu] elpa/pacmacs 02c5a40cd3 193/472: Rename cell get/set as wrapped operations (#105)

[ELPA Syncer]

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

    Rename cell get/set as wrapped operations (#105)
---
 pacmacs-board.el           |  4 ++--
 pacmacs-render.el          |  2 +-
 pacmacs.el                 | 12 ++++++------
 test/pacmacs-board-test.el |  8 ++++----
 4 files changed, 13 insertions(+), 13 deletions(-)

diff --git a/pacmacs-board.el b/pacmacs-board.el
index 6b6242aabf..f00c47b2d0 100644
--- a/pacmacs-board.el
+++ b/pacmacs-board.el
@@ -42,7 +42,7 @@
           :height height
           :data board)))
 
-(defun pacmacs--cell-get (board row column)
+(defun pacmacs--cell-wrapped-get (board row column)
   (plist-bind ((width :width)
                (height :height)
                (data :data))
@@ -50,7 +50,7 @@
     (aref (aref data (mod row height))
           (mod column width))))
 
-(defun pacmacs--cell-set (board row column value)
+(defun pacmacs--cell-wrapped-set (board row column value)
   (plist-bind ((width :width)
                (height :height)
                (data :data))
diff --git a/pacmacs-render.el b/pacmacs-render.el
index c5966607ae..0a7e6f4bad 100644
--- a/pacmacs-render.el
+++ b/pacmacs-render.el
@@ -68,7 +68,7 @@
       track-board
     (dotimes (row height)
       (dotimes (column width)
-        (let ((x (pacmacs--cell-get track-board row column)))
+        (let ((x (pacmacs--cell-wrapped-get track-board row column)))
           (cond
            ((null x)
             (insert "."))
diff --git a/pacmacs.el b/pacmacs.el
index bbc5b2fca2..60559f78a5 100644
--- a/pacmacs.el
+++ b/pacmacs.el
@@ -207,7 +207,7 @@
     (pacmacs--kill-buffer-and-its-window pacmacs-buffer-name)))
 
 (defun pacmacs--cell-tracked-p (row column)
-  (pacmacs--cell-get pacmacs--track-buffer row column))
+  (pacmacs--cell-wrapped-get pacmacs--track-buffer row column))
 
 (defun pacmacs--switch-direction (game-object direction)
   (plist-bind ((direction-animations :direction-animations))
@@ -256,7 +256,7 @@
          (d-row (- end-row start-row))
          (d-column (- end-column start-column)))
     
-    (pacmacs--cell-set pacmacs--track-buffer
+    (pacmacs--cell-wrapped-set pacmacs--track-buffer
                        start-row start-column
                        (pacmacs--direction-name (cons d-row d-column)))))
 
@@ -284,7 +284,7 @@
   (plist-bind ((row :row)
                (column :column))
       game-object
-    (let ((direction (pacmacs--cell-get pacmacs--track-buffer row column)))
+    (let ((direction (pacmacs--cell-wrapped-get pacmacs--track-buffer row 
column)))
       (pacmacs--switch-direction game-object direction))))
 
 (defun pacmacs-tick ()
@@ -376,7 +376,7 @@
     (plist-bind ((row :row)
                  (column :column))
         anim-object
-      (pacmacs--cell-set pacmacs--render-buffer row column anim-object))))
+      (pacmacs--cell-wrapped-set pacmacs--render-buffer row column 
anim-object))))
 
 (defun pacmacs--switch-to-death-state ()
   (setq pacmacs-game-state 'death)
@@ -430,13 +430,13 @@
       
       (dolist (wall pacmacs-wall-cells)
         (pacmacs--put-object wall))
-
+      
       (plist-bind ((width :width)
                    (height :height))
           pacmacs--render-buffer
         (dotimes (row height)
           (dotimes (column width)
-            (let ((anim-object (pacmacs--cell-get pacmacs--render-buffer row 
column)))
+            (let ((anim-object (pacmacs--cell-wrapped-get 
pacmacs--render-buffer row column)))
               (pacmacs--render-object anim-object)))
           (insert "\n")))
       (insert "\n")
diff --git a/test/pacmacs-board-test.el b/test/pacmacs-board-test.el
index 61a850ccc3..9eabe6e059 100644
--- a/test/pacmacs-board-test.el
+++ b/test/pacmacs-board-test.el
@@ -10,14 +10,14 @@
     (should (equal expected-board
                    (pacmacs--make-board width height)))))
 
-(ert-deftest pacmacs--cell-get-test ()
+(ert-deftest pacmacs--cell-wrapped-get-test ()
   (let ((input-board (list :width 3
                            :height 2
                            :data [[nil nil nil]
                                   [nil 42 nil]])))
-    (should (equal 42 (pacmacs--cell-get input-board 1 1)))))
+    (should (equal 42 (pacmacs--cell-wrapped-get input-board 1 1)))))
 
-(ert-deftest pacmacs--cell-set-test ()
+(ert-deftest pacmacs--cell-wrapped-set-test ()
   (let ((input-board (list :width 3
                            :height 2
                            :data [[nil nil nil]
@@ -26,7 +26,7 @@
                               :height 2
                               :data [[nil nil nil]
                                      [nil 42 nil]])))
-    (pacmacs--cell-set input-board 1 1 42)
+    (pacmacs--cell-wrapped-set input-board 1 1 42)
     (should (equal expected-board
                    input-board))))