[elpa] externals/transient a7f6c3c23d 191/366: transient-plist-to-alist: New utility function

[Jonas Bernoulli]

branch: externals/transient
commit a7f6c3c23ddaead96507e65bd5d940f7bf8ce671
Author: Jonas Bernoulli <jonas@bernoul.li>
Commit: Jonas Bernoulli <jonas@bernoul.li>

    transient-plist-to-alist: New utility function
---
 lisp/transient.el | 12 ++++++++++++
 1 file changed, 12 insertions(+)

diff --git a/lisp/transient.el b/lisp/transient.el
index d7be4af4ac..15cc1a16e6 100644
--- a/lisp/transient.el
+++ b/lisp/transient.el
@@ -3436,6 +3436,18 @@ we stop there."
       (push (funcall function (car acc) elt) acc))
     (nreverse acc)))
 
+(defun transient-plist-to-alist (plist)
+  (let (alist)
+    (while plist
+      (push (cons (let* ((symbol (pop plist))
+                         (name (symbol-name symbol)))
+                    (if (eq (aref name 0) ?:)
+                        (intern (substring name 1))
+                      symbol))
+                  (pop plist))
+            alist))
+    (nreverse alist)))
+
 ;;; Font-Lock
 
 (defconst transient-font-lock-keywords