[nongnu] elpa/pacmacs 10705b45c5 376/472: Rename bits-to-xpm to wall-tile-to-xpm (#138)

[ELPA Syncer]

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

    Rename bits-to-xpm to wall-tile-to-xpm (#138)
---
 pacmacs-image.el           |  6 +++---
 test/pacmacs-image-test.el | 12 ++++++------
 2 files changed, 9 insertions(+), 9 deletions(-)

diff --git a/pacmacs-image.el b/pacmacs-image.el
index 06d901ecce..7000c1b152 100644
--- a/pacmacs-image.el
+++ b/pacmacs-image.el
@@ -92,7 +92,7 @@
          (color-name-to-rgb stop)
          step-number)))
 
-(defun pacmacs--bits-to-xpm (bits width height palette)
+(defun pacmacs--wall-tile-to-xpm (wall-tile width height palette)
   (concat
    "/* XPM */\n"
    "static char *tile[] = {\n"
@@ -107,7 +107,7 @@
               (mapconcat (-lambda (bit)
                            (if bit (format "%c" (+ bit ?a)) " "))
                          row "")))
-    bits
+    wall-tile
     ",\n")
    "\n};"))
 
@@ -229,7 +229,7 @@
                  (pacmacs--put-bars wall-tile width height 
pacmacs--wall-weight wall-bits)
                  (pacmacs--put-outer-corners wall-tile width height 
pacmacs--wall-weight wall-bits)
 
-                 (create-image (pacmacs--bits-to-xpm wall-tile width height 
palette)
+                 (create-image (pacmacs--wall-tile-to-xpm wall-tile width 
height palette)
                                'xpm t))
                pacmacs--wall-tiles-cache))))
 
diff --git a/test/pacmacs-image-test.el b/test/pacmacs-image-test.el
index 9937f17bcc..fe000e8720 100644
--- a/test/pacmacs-image-test.el
+++ b/test/pacmacs-image-test.el
@@ -66,15 +66,15 @@
    (mock (gethash * *) => nil)
    (mock (puthash * * *) => nil)
    (mock (create-image * * *) => nil)
-   (mock (pacmacs--bits-to-xpm [[nil t   t   t]
-                                [t   t   t   t]
-                                [t   t   t   t]
-                                [t   t   t   t]]
-                               4 4))
+   (mock (pacmacs--wall-tile-to-xpm [[nil t   t   t]
+                                     [t   t   t   t]
+                                     [t   t   t   t]
+                                     [t   t   t   t]]
+                                    4 4))
    (pacmacs--create-wall-tile 4 4 t t nil nil
                               nil nil nil nil)))
 
-(ert-deftest pacmacs--bits-to-xpm-test ()
+(ert-deftest pacmacs--wall-tile-to-xpm-test ()
   (should (string= (concat "/* XPM */\n"
                            "static char *tile[] = {\n"
                            "/**/\n\"2 2 2 1\",\n"