diff options
author | William Carroll <wpcarro@gmail.com> | 2019-10-09T11·13+0100 |
---|---|---|
committer | William Carroll <wpcarro@gmail.com> | 2019-12-24T15·21+0000 |
commit | 6b456c1b7a4f6899f063a6e65355af51901d9c7a (patch) | |
tree | cfc70d74818ae9fabdbbfb0cf16cce092e4c1a09 /configs/shared/emacs/.emacs.d/wpc/casing.el | |
parent | a7c72adb2ebec1e497fc040eaf3551d564d61a5b (diff) |
Massive configuration overhaul
Currently paying the price of months of non-diligent git usage. Here's what has changed. - Theming support in Gvcci and wpgtk - Dropping support for i3 - Supporting EXWM - Many Elisp modules - Collapsed redundant directories in ./configs
Diffstat (limited to 'configs/shared/emacs/.emacs.d/wpc/casing.el')
-rw-r--r-- | configs/shared/emacs/.emacs.d/wpc/casing.el | 46 |
1 files changed, 0 insertions, 46 deletions
diff --git a/configs/shared/emacs/.emacs.d/wpc/casing.el b/configs/shared/emacs/.emacs.d/wpc/casing.el deleted file mode 100644 index 9f8e8a231851..000000000000 --- a/configs/shared/emacs/.emacs.d/wpc/casing.el +++ /dev/null @@ -1,46 +0,0 @@ -;; 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: - -;; 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 "-" "_"))) - -(defun lower->caps (x) - "Change the casing of X from lowercase to CAPS_CASE." - (->> x - s-upcase - (s-replace " " "_"))) - -(defun lower->kebab (x) - "Change the casing of X from lowercase to kebab-case" - (s-replace " " "-" x)) - -;;; 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 |