tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

Fix the id generation of a project

This commit is contained in:
Christian Egli 2010-03-17 15:05:10 +01:00
parent e0e433f1d7
commit d0556719b9
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/org-taskjuggler.el
View File

@ -266,15 +266,14 @@
(and id (replace-regexp-in-string "[^a-zA-Z0-9_]" "_" id)))
(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)))
(version (cdr (assoc "version" project)))
(start (cdr (assoc "start" project)))
(end (cdr (assoc "end" project))))
(insert
(concat
"project "
(or id "FIXME")
"project " unique-id
" \"" headline "\" \"" version "\" " start " - " end " {\n " "}\n"))))
(defun org-taskjuggler-open-resource (resource)