mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-08-25 06:02:53 +00:00
Simplify the calculation of the project end
This commit is contained in:
parent
96c3c0c194
commit
68cb44ccd4
|
@ -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
|
||||||
|
|
Loading…
Reference in a new issue