mirrors/org-mode
0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-07-16 15:46:27 +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)))
(version (cdr (assoc "version" project)))
(start (cdr (assoc "start" 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))))
(end (cdr (assoc "end" project))))
(insert
(concat
"project " unique-id
" \"" headline "\" \"" version "\" " start " - "
(or end time-string)" {\n }\n"))))
(format "project %s \"%s\" \"%s\" %s +%sd {\n }\n"
unique-id headline version start
org-export-taskjuggler-default-project-duration))))
(defun org-taskjuggler-get-attributes (item attributes)
"Return all attribute as a single formated string. ITEM is an alist