Remove the camel-to-snake-case function
string-inflection (soon to be added) already does this for me.
This commit is contained in:
parent
f006617927
commit
2bc338371e
@ -399,31 +399,6 @@ Copied from http://whattheemacsd.com/editing-defuns.el-01.html
|
||||
(indent-for-tab-command))
|
||||
#+END_SRC
|
||||
|
||||
*** Convert ~camelCase~ to ~snake_case~
|
||||
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(defun camel-to-snake-case (arg)
|
||||
"Convert a camelCase word to snake_case.
|
||||
|
||||
If the prefix argument ARG is non-nil, convert the text to uppercase."
|
||||
(interactive "p")
|
||||
(progn
|
||||
(let ((start (region-beginning))
|
||||
(end (region-end))
|
||||
(case-fold-search nil)
|
||||
(had-initial-underscore nil))
|
||||
(goto-char start)
|
||||
(when (looking-at "_") (setq had-initial-underscore t))
|
||||
(while (re-search-forward "\\([A-Z]\\)" end t)
|
||||
(replace-match "_\\1")
|
||||
(setq end (1+ end)))
|
||||
(if arg
|
||||
(upcase-region start end)
|
||||
(downcase-region start end))
|
||||
(goto-char start)
|
||||
(unless had-initial-underscore (delete-char 1)))))
|
||||
#+END_SRC
|
||||
|
||||
*** Insert two spaces after specific characters
|
||||
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
|
Loading…
Reference in New Issue
Block a user