1 files changed, 7 insertions, 19 deletions
diff --git a/users/wpcarro/emacs/.emacs.d/wpc/string.el b/users/wpcarro/emacs/pkgs/string/string.el
index 7e3f10c75adf..30da1805e83f 100644
--- a/users/wpcarro/emacs/.emacs.d/wpc/string.el
+++ b/users/wpcarro/emacs/pkgs/string/string.el
@@ -5,7 +5,7 @@
 ;; Package-Requires: ((emacs "24"))
 
 ;;; Commentary:
-;; Library for working with string.
+;; Library for working with strings.
 
 ;;; Code:
 
@@ -15,31 +15,15 @@
 
 (require 's)
 (require 'dash)
-;; TODO: Resolve the circular dependency that this introduces.
-;; (require 'prelude)
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; Library
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
-(defun string-contains? (c x)
-  "Return t if X is in C."
-  (s-contains? c x))
-
-(defun string-hookify (x)
-  "Append \"-hook\" to X."
-  (s-append "-hook" x))
-
 (defun string-split (y x)
   "Map string X into a list of strings that were separated by Y."
   (s-split y x))
 
-(defun string-ensure-hookified (x)
-  "Ensure that X has \"-hook\" appended to it."
-  (if (s-ends-with? "-hook" x)
-      x
-    (string-hookify x)))
-
 (defun string-format (x &rest args)
   "Format template string X with ARGS."
   (apply #'format (cons x args)))
@@ -48,11 +32,11 @@
   "Joins `STRINGS' into onto string."
   (apply #'s-concat strings))
 
-(defun string-->symbol (string)
+(defun string-to-symbol (string)
   "Maps `STRING' to a symbol."
   (intern string))
 
-(defun string-<-symbol (symbol)
+(defun string-from-symbol (symbol)
   "Maps `SYMBOL' into a string."
   (symbol-name symbol))
 
@@ -106,5 +90,9 @@
   "Return t if X is a string."
   (stringp x))
 
+(defun string-contains? (c x)
+  "Return t if X is in C."
+  (s-contains? c x))
+
 (provide 'string)
 ;;; string.el ends here