maurice/snix
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Support Vim, Tmux, Emacs with Stow

Browse source 
After moving off of Meta, Dotfiles has a greater responsibility to
manage configs. Vim, Tmux, and Emacs are now within Stow's purview.
This commit is contained in:
William Carroll 2018-09-10 14:51:14 -04:00
parent 8b2fadf477
commit 17ee0e400b
1338 changed files with 330350 additions and 24 deletions
Download patch file Download diff file Expand all files Collapse all files

49
emacs.d/wpc/casing.el
View file

@ -1,49 +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:
(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 "-" "_")))
(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