Support updated emacs
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!
This commit is contained in:
parent
56a7b9fa41
commit
3c8e6f0cc5
51 changed files with 3186 additions and 0 deletions
39
emacs.d/wpc/casing.el
Normal file
39
emacs.d/wpc/casing.el
Normal file
|
|
@ -0,0 +1,39 @@
|
|||
;; 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
|
||||
Loading…
Add table
Add a link
Reference in a new issue