mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-08-25 08:02:52 +00:00
Add a command to open the project with TaskJugglerUI
This commit is contained in:
parent
0b0ada4beb
commit
01d0aab493
|
@ -175,7 +175,19 @@
|
||||||
(org-taskjuggler-open-task task)
|
(org-taskjuggler-open-task task)
|
||||||
(setq old-level level)))
|
(setq old-level level)))
|
||||||
(org-taskjuggler-close-maybe 1)
|
(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 ()
|
(defun org-taskjuggler-components ()
|
||||||
(let* ((props (org-entry-properties))
|
(let* ((props (org-entry-properties))
|
||||||
|
|
Loading…
Reference in a new issue