awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-01 12:17:25 -05:00
Code Issues Packages Projects Releases Wiki Activity

Add cond! macro to core-lib

Browse Source 
An anaphoric cond.
This commit is contained in:
Henrik Lissner
2019-07-18 01:20:55 +02:00
parent 854d8ce00a
commit 103612a347
1 changed files with 7 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
core/core-lib.el
View File

@ -181,6 +181,13 @@ The order VALUES is preserved."
elt) elt)
,list))) ,list)))
(defmacro cond! (&rest clauses)
"An anaphoric `cond', which stores the conditional value in `it'."
`(let (it)
(cond ,@(cl-loop for (cond . body) in clauses
collect `((setq it ,cond)
,@body)))))
(defmacro defer-until! (condition &rest body) (defmacro defer-until! (condition &rest body)
"Run BODY when CONDITION is true (checks on `after-load-functions'). Meant to "Run BODY when CONDITION is true (checks on `after-load-functions'). Meant to
serve as a predicated alternative to `after!'." serve as a predicated alternative to `after!'."