mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-11-29 07:58:21 +00:00
Code

Add a command to open the project with TaskJugglerUI

Browse Source
This commit is contained in:
Christian Egli 2010-03-16 14:41:24 +01:00
parent 0b0ada4beb
commit 01d0aab493
1 changed files with 13 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
lisp/org-taskjuggler.el
View File

@ -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))