feat: Progress towards comfortable Lisp editing

users/crumb/programs/emacs/lib/clj-lib.el

@@ -0,0 +1,15 @@
+;;; clj-lib.el -*- lexical-binding: t; -*-
+
+(require 'dash)
+
+(defmacro clj-condp (pred expr &rest clauses)
+  "TODO: Very unfinished."
+  (declare (indent defun))
+  (unless (symbolp pred)
+    (signal 'wrong-type-argument `(symbolp ,pred)))
+  (let ((expr* (gensym "expr")))
+    `(let ((,expr* ,expr))
+       (cond ,@(mapcar (lambda (x) `((,pred ,expr ,(car x)) ,(nth 1 x)))
+                       clauses)))))
+
+(provide 'clj-lib)