about summary refs log tree commit diff
path: root/configs/shared/emacs/.emacs.d/wpc/casing.el
diff options
context:
space:
mode:
authorWilliam Carroll <wpcarro@gmail.com>2019-10-09T11·13+0100
committerWilliam Carroll <wpcarro@gmail.com>2019-12-24T15·21+0000
commit6b456c1b7a4f6899f063a6e65355af51901d9c7a (patch)
treecfc70d74818ae9fabdbbfb0cf16cce092e4c1a09 /configs/shared/emacs/.emacs.d/wpc/casing.el
parenta7c72adb2ebec1e497fc040eaf3551d564d61a5b (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.el46
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