mirrors/org-mode
0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-08-25 06:02:53 +00:00
Code Releases Activity

Simplify the calculation of the project end

Browse source
This commit is contained in:
Christian Egli 2010-03-23 15:40:02 +01:00
parent 96c3c0c194
commit 68cb44ccd4
1 changed files with 4 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
lisp/org-taskjuggler.el
View file

@ -367,17 +367,11 @@ specified it is calculated
(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))))
(now (current-time))
(duration
(days-to-time org-export-taskjuggler-default-project-duration))
(time-string
(format-time-string "%Y-%m-%d" (time-add now duration))))
(insert (insert
(concat (format "project %s \"%s\" \"%s\" %s +%sd {\n }\n"
"project " unique-id unique-id headline version start
" \"" headline "\" \"" version "\" " start " - " org-export-taskjuggler-default-project-duration))))
(or end time-string)" {\n }\n"))))
(defun org-taskjuggler-get-attributes (item attributes) (defun org-taskjuggler-get-attributes (item attributes)
"Return all attribute as a single formated string. ITEM is an alist "Return all attribute as a single formated string. ITEM is an alist