feat(wpcarro/emacs): Package symbol.el
Not sure how useful this package is, *but* I'm packaging everything I have now, and then in a separate CL I can refactor and remove various libs. Change-Id: Id106539b19244ea1586198992c7ce0d65a0a242b Reviewed-on: https://cl.tvl.fyi/c/depot/+/6014 Reviewed-by: wpcarro <wpcarro@gmail.com> Autosubmit: wpcarro <wpcarro@gmail.com> Tested-by: BuildkiteCI
This commit is contained in:
parent
77aeb57c64
commit
a004be56b3
4 changed files with 61 additions and 24 deletions
|
|
@ -1,48 +0,0 @@
|
|||
;;; symbol.el --- Library for working with symbols -*- lexical-binding: t -*-
|
||||
|
||||
;; Author: William Carroll <wpcarro@gmail.com>
|
||||
;; Version: 0.0.1
|
||||
;; Package-Requires: ((emacs "24"))
|
||||
|
||||
;;; Commentary:
|
||||
;; Library for working with symbols.
|
||||
|
||||
;;; Code:
|
||||
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
;; Dependencies
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
|
||||
(require 'string)
|
||||
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
;; Library
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
|
||||
;; 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))
|
||||
|
||||
(defun symbol-instance? (x)
|
||||
"Return t if X is a symbol."
|
||||
(symbolp x))
|
||||
|
||||
(provide 'symbol)
|
||||
;;; symbol.el ends here
|
||||
Loading…
Add table
Add a link
Reference in a new issue