about summary refs log tree commit diff
path: root/configs/shared/emacs/.emacs.d/wpc/string-functions.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/string-functions.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/string-functions.el')
-rw-r--r--configs/shared/emacs/.emacs.d/wpc/string-functions.el48
1 files changed, 0 insertions, 48 deletions
diff --git a/configs/shared/emacs/.emacs.d/wpc/string-functions.el b/configs/shared/emacs/.emacs.d/wpc/string-functions.el
deleted file mode 100644
index 2ddd22b223c4..000000000000
--- a/configs/shared/emacs/.emacs.d/wpc/string-functions.el
+++ /dev/null
@@ -1,48 +0,0 @@
-;; functions.el --- String helper functions for my Emacs development -*- lexical-binding: t -*-
-;; Author: William Carroll <wpcarro@gmail.com>
-
-;;; Commentary:
-;; String & Symbol helpers!
-
-;;; Code:
-
-;; Strings
-(defun string/hookify (x)
-  "Append \"-hook\" to X."
-  (s-append "-hook" x))
-
-(defun symbol->string (symbol)
-  "Alias for `symbol-name' with SYMBOL, since I can never remember that
-function's name."
-  (symbol-name symbol))
-
-(defun string->symbol (string)
-  "Alias for `intern' for STRING since I can never remember that function's
-  name."
-  (intern string))
-
-(defun string/ensure-hookified (x)
-  "Ensure that X has \"-hook\" appended to it."
-  (if (s-ends-with? "-hook" x)
-      x
-    (string/hookify x)))
-
-;; Symbols
-(defun symbol/as-string (callback x)
-  "Treat the symbol, X, as a string while applying CALLBACK to it.
-Coerce back to a symbol on the way out."
-  (->> x
-       symbol-name
-       callback
-       intern))
-
-(defun symbol/hookify (x)
-  "Append \"-hook\" to X when X is a symbol."
-  (symbol/as-string #'string/hookify x))
-
-(defun symbol/ensure-hookified (x)
-  "Ensure that X has \"-hook\" appended to it when X is a symbol."
-  (symbol/as-string #'string/ensure-hookified x))
-
-(provide 'string-functions)
-;;; string-functions.el ends here