howard/hamacs
howard/hamacs
1
1
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix case conversion, e.g. Snake to Camel to Kebab

Browse source 
Using the string-inflection project. This also cleans up the `z` keybindings.
This commit is contained in:
Howard Abrams 2023-07-11 10:10:58 -07:00
parent 5e52a69e32
commit fb1df1a8f0
2 changed files with 15 additions and 57 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
ha-config.org
View file

@ -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

62
ha-programming.org
View file

@ -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.