mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-08-25 05:32:51 +00:00
Fix the id generation of a project
This commit is contained in:
parent
e0e433f1d7
commit
d0556719b9
|
@ -266,15 +266,14 @@
|
||||||
(and id (replace-regexp-in-string "[^a-zA-Z0-9_]" "_" id)))
|
(and id (replace-regexp-in-string "[^a-zA-Z0-9_]" "_" id)))
|
||||||
|
|
||||||
(defun org-taskjuggler-open-project (project)
|
(defun org-taskjuggler-open-project (project)
|
||||||
(let ((id (org-taskjuggler-clean-id (cdr (assoc "ID" project))))
|
(let ((unique-id (cdr (assoc "unique-id" project)))
|
||||||
(headline (cdr (assoc "headline" project)))
|
(headline (cdr (assoc "headline" project)))
|
||||||
(version (cdr (assoc "version" project)))
|
(version (cdr (assoc "version" project)))
|
||||||
(start (cdr (assoc "start" project)))
|
(start (cdr (assoc "start" project)))
|
||||||
(end (cdr (assoc "end" project))))
|
(end (cdr (assoc "end" project))))
|
||||||
(insert
|
(insert
|
||||||
(concat
|
(concat
|
||||||
"project "
|
"project " unique-id
|
||||||
(or id "FIXME")
|
|
||||||
" \"" headline "\" \"" version "\" " start " - " end " {\n " "}\n"))))
|
" \"" headline "\" \"" version "\" " start " - " end " {\n " "}\n"))))
|
||||||
|
|
||||||
(defun org-taskjuggler-open-resource (resource)
|
(defun org-taskjuggler-open-resource (resource)
|
||||||
|
|
Loading…
Reference in a new issue