about summary refs log tree commit diff
path: root/emacs/.emacs.d/wpc/symbol.el
diff options
context:
space:
mode:
Diffstat (limited to 'emacs/.emacs.d/wpc/symbol.el')
-rw-r--r--emacs/.emacs.d/wpc/symbol.el32
1 files changed, 19 insertions, 13 deletions
diff --git a/emacs/.emacs.d/wpc/symbol.el b/emacs/.emacs.d/wpc/symbol.el
index 9119b29470fd..fac182090a73 100644
--- a/emacs/.emacs.d/wpc/symbol.el
+++ b/emacs/.emacs.d/wpc/symbol.el
@@ -1,17 +1,27 @@
 ;; symbol.el --- Library for working with symbols. -*- lexical-binding: t -*-
+
 ;; Author: William Carroll <wpcarro@gmail.com>
+;; Version: 0.0.1
+;; URL: https://git.wpcarro.dev/wpcarro/briefcase
+;; Package-Requires: ((emacs "24"))
 
 ;;; Commentary:
 ;; Library for working with symbols.
 
 ;;; Code:
 
-;; TODO: Why is ivy mode map everywhere?
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;; Dependencies
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
 (require 'string)
 
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;; Library
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
 ;; Symbols
-(defun symbol/as-string (callback x)
+(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
@@ -19,23 +29,19 @@ Coerce back to a symbol on the way out."
        callback
        #'intern))
 
-(defun symbol/to-string (x)
+(defun symbol-to-string (x)
   "Map `X' into a string."
-  (string/<-symbol x))
+  (string-<-symbol x))
 
-(defun symbol/hookify (x)
+(defun symbol-hookify (x)
   "Append \"-hook\" to X when X is a symbol."
-  (symbol/as-string #'string/hookify x))
+  (symbol-as-string #'string-hookify x))
 
-(defun symbol/ensure-hookified (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
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+  (symbol-as-string #'string-ensure-hookified x))
 
-(defun symbol/instance? (x)
+(defun symbol-instance? (x)
   "Return t if X is a symbol."
   (symbolp x))