ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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.
This commit is contained in:
David Maus 2011-08-10 08:14:26 +02:00
parent b471e56a3e
commit 7d5fb7ff38
1 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lisp/org-macs.el
View File

@ -386,6 +386,15 @@ The number of levels is controlled by `org-inlinetask-min-level'"
`(eval (list 'let ,environment ',form))) `(eval (list 'let ,environment ',form)))
(put 'org-eval-in-environment 'lisp-indent-function 1) (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) (provide 'org-macs)
;; arch-tag: 7e6a73ce-aac9-4fc0-9b30-ce6f89dc6668 ;; arch-tag: 7e6a73ce-aac9-4fc0-9b30-ce6f89dc6668