From 01d0aab493978d858e8ccffa2cce4bfee342a1fe Mon Sep 17 00:00:00 2001 From: Christian Egli Date: Tue, 16 Mar 2010 14:41:24 +0100 Subject: [PATCH] Add a command to open the project with TaskJugglerUI --- lisp/org-taskjuggler.el | 14 +++++++++++++- 1 file changed, 13 insertions(+), 1 deletion(-) diff --git a/lisp/org-taskjuggler.el b/lisp/org-taskjuggler.el index 5249de4ae..69b67df8d 100644 --- a/lisp/org-taskjuggler.el +++ b/lisp/org-taskjuggler.el @@ -175,7 +175,19 @@ (org-taskjuggler-open-task task) (setq old-level level))) (org-taskjuggler-close-maybe 1) - (org-taskjuggler-insert-reports)))) + (org-taskjuggler-insert-reports) + (save-buffer) + (or (org-export-push-to-kill-ring "TaskJuggler") + (message "Exporting... done")) + (current-buffer)))) + +;;;###autoload +(defun org-export-as-taskjuggler-and-open () + "Export the current buffer as a TaskJuggler file and open it with the TaskJuggler GUI." + (interactive) + (let ((file-name (buffer-file-name (org-export-as-taskjuggler))) + (command "TaskJugglerUI")) + (start-process-shell-command command nil command file-name))) (defun org-taskjuggler-components () (let* ((props (org-entry-properties))