emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

feat(lib): add versionp! macro

Browse source 
A convenience macro for Emacs' version API, for performing compound
version checks in less code.
This commit is contained in:
Henrik Lissner 2022-09-12 15:58:24 +02:00
parent dde728d847
commit f49953ab56
No known key found for this signature in database
GPG key ID: B60957CA074D39A3
1 changed files with 32 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

32
lisp/doom-lib.el
View file

@ -357,6 +357,38 @@ this macro's BODY will only be evaluated during byte-compilation."
(when (bound-and-true-p byte-compile-current-file) (when (bound-and-true-p byte-compile-current-file)
(ignore (eval (macroexp-progn body) t)))) (ignore (eval (macroexp-progn body) t))))
(defmacro versionp! (v1 comp v2 &rest comps)
"Perform compound version checks.
Compares V1 and V2 with COMP (a math comparison operator: <, <=, =, /=, >=, >).
Can chain these comparisons by adding more (COMPn Vn) pairs afterwards.
\(fn V1 COMP V2 [COMPn Vn]...)"
(let ((forms t))
(push v2 comps)
(push comp comps)
`(let ((v2 (version-to-list ,v1)))
,(progn
(cl-loop for (v op) on (nreverse comps) by #'cddr
for not? = (not (memq op '(> >= /=)))
for fn = (or (get 'versionp! op)
(error "Invalid comparator %s" op))
for form = `(,fn v1 v2)
do (if not? (setq form `(not ,form)))
do (setq v1 'v2
v2 `(version-to-list ,v)
forms `(let ((v1 ,v1)
(v2 ,v2))
(and (not ,form) ,forms))))
forms))))
;; PERF: Store in symbol plist for ultra-fast lookups at this scale.
(setplist 'versionp! '(> version-list-<
>= version-list-<=
< version-list-<
<= version-list-<=
= version-list-=
/= version-list-=))
;;; Closure factories ;;; Closure factories
(defmacro lambda! (arglist &rest body) (defmacro lambda! (arglist &rest body)
"Returns (cl-function (lambda ARGLIST BODY...)) "Returns (cl-function (lambda ARGLIST BODY...))