diff options
author | William Carroll <wpcarro@gmail.com> | 2020-08-31T14·06+0100 |
---|---|---|
committer | William Carroll <wpcarro@gmail.com> | 2020-08-31T14·06+0100 |
commit | 69a14dd37f5927b428ff2fa9659abc64f47c17e0 (patch) | |
tree | e5773cb5b652446998dcd4e35a72e171e25a5ac2 /emacs/.emacs.d/wpc/monoid.el | |
parent | a35f723d9271c081318fe463cd6fc51757d8cb0f (diff) |
Delete unused Elisp modules
It is striking how much Elisp I wrote after switching to EXWM... I think I'm finally coming down from that high.
Diffstat (limited to 'emacs/.emacs.d/wpc/monoid.el')
-rw-r--r-- | emacs/.emacs.d/wpc/monoid.el | 30 |
1 files changed, 0 insertions, 30 deletions
diff --git a/emacs/.emacs.d/wpc/monoid.el b/emacs/.emacs.d/wpc/monoid.el deleted file mode 100644 index 401d63c41728..000000000000 --- a/emacs/.emacs.d/wpc/monoid.el +++ /dev/null @@ -1,30 +0,0 @@ -;;; monoid.el --- Working with Monoids in Elisp -*- lexical-binding: t -*- -;; Author: William Carroll <wpcarro@gmail.com> - -;;; Commentary: -;; The day has finally arrived where I'm using Monoids in Elisp. -;; -;; The monoid typeclass is as follows: -;; - empty :: a -;; - concat :: (list a) -> a - -;;; Code: - -;; TODO: Consider a prelude version that works for all Elisp types. -(defun monoid/classify (xs) - "Return the type of `XS'." - (cond - ((listp xs) 'list) - ((vectorp xs) 'vector) - ((stringp xs) 'string))) - - -(defun monoid/empty (xs) - "Return the empty monoid for the type `XS'." - (pcase (monoid/classify xs) - ('list '()) - ('vector []) - ('string ""))) - -(provide 'monoid) -;;; monoid.el ends here |