From mboxrd@z Thu Jan 1 00:00:00 1970 From: David Maus Subject: [PATCH 2/7] New macro: Evaluate FORM in ENVIRONMENT Date: Tue, 2 Aug 2011 11:23:35 +0200 Message-ID: <1312277020-7888-3-git-send-email-dmaus@ictsoc.de> References: <1312277020-7888-1-git-send-email-dmaus@ictsoc.de> Return-path: Received: from eggs.gnu.org ([140.186.70.92]:53278) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1QoBCn-00089K-8K for emacs-orgmode@gnu.org; Tue, 02 Aug 2011 05:24:06 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1QoBCm-0000GC-6k for emacs-orgmode@gnu.org; Tue, 02 Aug 2011 05:24:05 -0400 Received: from app1b.xlhost.de ([213.202.242.162]:59919) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1QoBCm-0000G3-21 for emacs-orgmode@gnu.org; Tue, 02 Aug 2011 05:24:04 -0400 In-Reply-To: <1312277020-7888-1-git-send-email-dmaus@ictsoc.de> List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: emacs-orgmode@gnu.org Cc: David Maus * org-macs.el (org-eval-in-environment): New macro. Evaluate FORM in ENVIRONMENT. (org-with-uninterned): Move to top of file. --- lisp/org-macs.el | 23 ++++++++++++++++++----- 1 files changed, 18 insertions(+), 5 deletions(-) diff --git a/lisp/org-macs.el b/lisp/org-macs.el index 53c60e5..7a0cc60 100644 --- a/lisp/org-macs.el +++ b/lisp/org-macs.el @@ -47,6 +47,12 @@ (declare-function org-add-props "org-compat" (string plist &rest props)) (declare-function org-string-match-p "org-compat" (&rest args)) +(defmacro org-with-uninterned (symbols &rest body) + `(let ,(mapcar (lambda (s) + `(,s (make-symbol (symbol-name ',s)))) symbols) + ,@body)) +(put 'org-with-uninterned 'lisp-indent-function 1) + (defmacro org-called-interactively-p (&optional kind) (if (featurep 'xemacs) `(interactive-p) @@ -370,11 +376,18 @@ The number of levels is controlled by `org-inlinetask-min-level'" (format-seconds string seconds) (format-time-string string (seconds-to-time seconds)))) -(defmacro org-with-uninterned (symbols &rest body) - `(let ,(mapcar (lambda (s) - `(,s (make-symbol (symbol-name ',s)))) symbols) - ,@body)) -(put 'org-with-uninterned '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))))) + +(defmacro org-eval-in-environment (environment form) + `(eval '(let ,environment ,form))) +(put 'org-eval-in-environment 'lisp-indent-function 1) (provide 'org-macs) -- 1.7.2.5