diff options
Diffstat (limited to 'configs/shared/.emacs.d/wpc/symbol.el')
-rw-r--r-- | configs/shared/.emacs.d/wpc/symbol.el | 43 |
1 files changed, 0 insertions, 43 deletions
diff --git a/configs/shared/.emacs.d/wpc/symbol.el b/configs/shared/.emacs.d/wpc/symbol.el deleted file mode 100644 index 9119b29470fd..000000000000 --- a/configs/shared/.emacs.d/wpc/symbol.el +++ /dev/null @@ -1,43 +0,0 @@ -;; symbol.el --- Library for working with symbols. -*- lexical-binding: t -*- -;; Author: William Carroll <wpcarro@gmail.com> - -;;; Commentary: -;; Library for working with symbols. - -;;; Code: - -;; TODO: Why is ivy mode map everywhere? - -(require 'string) - -;; 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/to-string (x) - "Map `X' into a string." - (string/<-symbol x)) - -(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)) - -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -;; Predicates -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; - -(defun symbol/instance? (x) - "Return t if X is a symbol." - (symbolp x)) - -(provide 'symbol) -;;; symbol.el ends here |