about summary refs log tree commit diff
path: root/emacs.d/wpc/string-functions.el
diff options
context:
space:
mode:
authorWilliam Carroll <wpcarro@gmail.com>2018-04-25T17·26-0400
committerWilliam Carroll <wpcarro@gmail.com>2018-07-19T16·00-0400
commit3c8e6f0cc5eac51e369b8ffbd0441366cdc6da40 (patch)
treee1c98f5b22dd258e4ae331c0591e0527fe5233a1 /emacs.d/wpc/string-functions.el
parent56a7b9fa41c6edbb960686ccffb7a8949d242eab (diff)
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!
Diffstat (limited to 'emacs.d/wpc/string-functions.el')
-rw-r--r--emacs.d/wpc/string-functions.el41
1 files changed, 41 insertions, 0 deletions
diff --git a/emacs.d/wpc/string-functions.el b/emacs.d/wpc/string-functions.el
new file mode 100644
index 000000000000..91b46b5b409e
--- /dev/null
+++ b/emacs.d/wpc/string-functions.el
@@ -0,0 +1,41 @@
+;; functions.el --- String helper functions for my Emacs development -*- lexical-binding: t -*-
+;; Author: William Carroll <wpcarro@gmail.com>
+
+;;; Commentary:
+;; String & Symbol helpers!
+
+;;; Code:
+
+(require 'dash)
+(require 's)
+
+;; Strings
+(defun string/hookify (x)
+  "Append \"-hook\" to X."
+  (s-append "-hook" x))
+
+(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