diff --git a/ha-config.org b/ha-config.org
index e0e5556..1febe6d 100644
--- a/ha-config.org
+++ b/ha-config.org
@@ -623,24 +623,24 @@ While we are at it, let’s readd, and relabel the ~z~ command functions:
              "z Q" '("unfill para" . unfill-paragraph)
              "z p" '("unfill para" . unfill-paragraph)
 
-             "z z" '("scroll to center" . evil-scroll-line-to-center)
+             "z m" '("scroll to center" . evil-scroll-line-to-center)
              "z t" '("scroll to top" . evil-scroll-line-to-top)
              "z b" '("scroll to bottom" . evil-scroll-line-to-bottom)
              (kbd "z <left>") '("scroll left" . evil-scroll-column-left)
              (kbd "z <right>") '("scroll right" . evil-scroll-column-right)
 
              "z a" '("toggle fold" . evil-toggle-fold)
-             "z c" '("close fold" . evil-close-fold)
+             "z f" '("close fold" . evil-close-fold)
              "z o" '("open fold" . evil-open-fold)
-             "z m" '("close all folds" . evil-close-folds)
-             "z r" '("open all folds" . evil-open-folds)
+             "z F" '("close all folds" . evil-close-folds)
+             "z O" '("open all folds" . evil-open-folds)
              ;; Open a fold at point recursively? Never see a need:
-             "z O" nil ; evil-open-fold-rec
 
              ;; Since I have overridden z-l, why have z-h?
              "z e" nil   ; evil-scroll-end-column
              "z h" nil   ; evil-scroll-column-left
              "z l" nil   ; evil-scroll-column-right
+             "z r" nil
              "z s" nil   ; evil-scroll-start-column
              "z ^" nil   ; evil-scroll-top-line-to-bottom
              "z +" nil   ; evil-scroll-bottom-line-to-top
diff --git a/ha-programming.org b/ha-programming.org
index 9cffb67..34cee59 100644
--- a/ha-programming.org
+++ b/ha-programming.org
@@ -558,65 +558,23 @@ While there are language-specific ways to rename variables and functions, [[http
     (ha-leader "s e" '("iedit" . iedit-mode)))
 #+end_src
 ** Case Conversion
-Sure we can upper– and lower–case stuff, but can we change from Camel to Snake case and back? For instance, =fooBarBaz=, would with ~z s~ keybinding, change to =foo_bar_baz= (and repeating that sequence would return it to =fooBarBaz=).
-
+The [[https://github.com/akicho8/string-inflection][string-inflection]] project (see [[http://sodaware.sdf.org/notes/converting-to-snake-case-in-emacs/][this overview]]) converts symbol variables to /appropriate format/ for the mode. This replaces my home-brewed functions.
 #+begin_src emacs-lisp
-  (defun get-bounds-of-symbol ()
-    "Return a list of the start and end of the current symbol at point.
-  Return the start and end of region, if the region is active."
-   (if (region-active-p)
-        (cons (region-beginning) (region-end))
-     (bounds-of-thing-at-point 'symbol)))
-
-  (defun camel-to-snake-case ()
-    "Convert the active region or current symbol to snake case.
-  For instance, fooBarBaz will be foo_bar_baz."
-    (interactive)
-    (cl-destructuring-bind (start . end) (get-bounds-of-symbol)
-      (save-excursion
-        (goto-char start)
-        (narrow-to-region start end)
-        (let ((case-fold-search nil))
-          (while (re-search-forward (rx (group (one-or-more upper))) nil t)
-            (replace-match (concat "_" (downcase (match-string 1))) t nil)))
-        (widen))))
-
-  (defun snake-to-camel-case ()
-    "Convert the active region or current symbol to camel case.
-  For instance, foo_bar_baz will be fooBarBaz."
-    (interactive)
-    (cl-destructuring-bind (start . end) (get-bounds-of-symbol)
-      (save-excursion
-        (goto-char start)
-        (narrow-to-region start end)
-        (let ((case-fold-search nil))
-          (while (re-search-forward (rx "_" (group  alpha)) nil t)
-            (replace-match (upcase (match-string 1)) t nil)))
-        (widen))))
-
-  (defun toggle-snake-to-camel-case ()
-    "Toggle current symbol from snake to camel, and visa-versa."
-    (interactive)
-    (cl-destructuring-bind (start . end) (get-bounds-of-symbol)
-      (save-excursion
-        (goto-char start)
-        (if (looking-at (rx (zero-or-more alphanumeric) "_"))
-            (snake-to-camel-case)
-          (camel-to-snake-case)))))
-#+end_src
-And we can put this on the ~z~ keybinding:
-#+begin_src emacs-lisp
-  (use-package evil
+  (use-package string-inflection
     :general
     (:states '(normal visual motion operator)
-             "z s" '("toggle snake/camel" . toggle-snake-to-camel-case)
-             "z S" '("to snake case" . camel-to-snake-case)
-             "z C" '("to camel case" . snake-to-camel-case)))
+             "z s" '("to snake case" . string-inflection-underscore)
+             "z S" '("to Snake Case" . string-inflection-upcase)
+             "z c" '("to camelCase" . string-inflection-lower-camelcase)
+             "z C" '("to CamelCase" . string-inflection-camelcase)
+             "z -" '("to kebab case" . string-inflection-kebab-case)
+             "z z" '("toggle snake/camel" . string-inflection-all-cycle)))
 #+end_src
 I would like to have this bound on the ~g~ sequence, but that is crowded.
+
+Note that ~g u~ (for lower-casing stuff), and  ~g U~ (for up-casing) requires /something/, for instance ~g U i o~ upper-cases the symbol at point. These functions, however, only work with a symbol (which is the typical case).
 ** Commenting
 I like =comment-dwim= (~M-;~), and I like =comment-box=, but I have an odd personal style that I like to codify:
-
 #+begin_src emacs-lisp
   (defun ha-comment-line (&optional start end)
     "Comment a line or region with a block-level format.