[nongnu] elpa/pacmacs c20aa8089c 058/472: Implement plist-bind macro. Close #47

[ELPA Syncer]

branch: elpa/pacmacs
commit c20aa8089ce7f396f225f581f75b8c8998363a87
Author: rexim <reximkut@gmail.com>
Commit: rexim <reximkut@gmail.com>

    Implement plist-bind macro. Close #47
---
 pacman-utils.el | 12 ++++++++++++
 1 file changed, 12 insertions(+)

diff --git a/pacman-utils.el b/pacman-utils.el
new file mode 100644
index 0000000000..42630b2184
--- /dev/null
+++ b/pacman-utils.el
@@ -0,0 +1,12 @@
+
+(defmacro plist-bind (keys expr &rest body)
+  (declare (indent 2) (debug t))
+  (let ((expr-name (gensym)))
+    `(let* ((,expr-name ,expr)
+            ,@(mapcar '(lambda (key)
+                         (cons (car key)
+                               `((plist-get ,expr-name ,(cadr key)))))
+                      keys))
+       ,@body)))
+
+(provide 'pacman-utils)