diff options
Diffstat (limited to '')
-rw-r--r-- | users/wpcarro/emacs/pkgs/string/string.el (renamed from users/wpcarro/emacs/.emacs.d/wpc/string.el) | 26 |
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 |