From 7d5fb7ff3859b691443031c406f5202154b76689 Mon Sep 17 00:00:00 2001 From: David Maus Date: Wed, 10 Aug 2011 08:14:26 +0200 Subject: [PATCH] New function: Return alist based on flat list * org-macs.el (org-make-parameter-alist): New function. Turn flat list of alternating symbol names and values into an alist with symbol name in car and value in cdr. --- lisp/org-macs.el | 9 +++++++++ 1 file changed, 9 insertions(+) diff --git a/lisp/org-macs.el b/lisp/org-macs.el index beb1f9973..a4db2a147 100644 --- a/lisp/org-macs.el +++ b/lisp/org-macs.el @@ -386,6 +386,15 @@ The number of levels is controlled by `org-inlinetask-min-level'" `(eval (list 'let ,environment ',form))) (put 'org-eval-in-environment 'lisp-indent-function 1) +(defun org-make-parameter-alist (flat) + "Return alist based on FLAT. +FLAT is a list with alternating symbol names and values. The +returned alist is a list of lists with the symbol name in car and +the value in cdr." + (when flat + (cons (list (car flat) (cadr flat)) + (org-make-parameter-alist (cddr flat))))) + (provide 'org-macs) ;; arch-tag: 7e6a73ce-aac9-4fc0-9b30-ce6f89dc6668 -- 2.11.4.GIT