3c8e6f0cc5
Finally ported my up-to-date emacs configuration here. I was putting this off for a long while, unsure of how to handle all of the work. All it took was my laptop being fried to force me to do this. So... voila!
39 lines
934 B
EmacsLisp
39 lines
934 B
EmacsLisp
;; casing.el --- Helper functions for formatting text -*- lexical-binding: t -*-
|
|
;; Author: William Carroll <wpcarro@gmail.com>
|
|
|
|
;;; Commentary:
|
|
;; These functions are intended to be bound to KBDs for daily use and
|
|
;; refactoring.
|
|
|
|
;;; Code:
|
|
|
|
(require 's)
|
|
(require 'dash)
|
|
|
|
;; todo - grab the string at point and replace it with the output of
|
|
;; each fn
|
|
|
|
(defun caps->kebab (x)
|
|
"Change the casing of X from CAP_CASE to kebab-case."
|
|
(->> x
|
|
s-downcase
|
|
(s-replace "_" "-")))
|
|
|
|
(defun kebab->caps (x)
|
|
"Change the casing of X from CAP_CASE to kebab-case."
|
|
(->> x
|
|
s-upcase
|
|
(s-replace "-" "_")))
|
|
|
|
;;; Tests:
|
|
|
|
(ert-deftest caps->kebab-test ()
|
|
(should (string= (caps->kebab "CAPS_CASE_STRING")
|
|
"caps-case-string")))
|
|
|
|
(ert-deftest kebab->caps-test ()
|
|
(should (string= (kebab->caps "kebab-case-string")
|
|
"KEBAB_CASE_STRING")))
|
|
|
|
(provide 'casing)
|
|
;;; casing.el ends here
|