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

Use the first resource for default allocations

This commit is contained in:
Christian Egli 2010-03-16 10:27:37 +01:00
parent 21b1713c64
commit 91246da189
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/org-taskjuggler.el
View File

@ -118,10 +118,11 @@
`((("ID" . ,(user-login-name)) `((("ID" . ,(user-login-name))
("headline" . ,user-full-name) ("headline" . ,user-full-name)
("level" . 1))))) ("level" . 1)))))
;; add a default allocation if none was given ;; add a default allocation to the first task if none was given
(unless (assoc "allocate" (car tasks)) (unless (assoc "allocate" (car tasks))
(let ((task (car tasks))) (let ((task (car tasks))
(setcar tasks (push (cons "allocate" (user-login-name)) task)))) (resource-id (cdr (assoc "ID" (car resources)))))
(setcar tasks (push (cons "allocate" resource-id) task))))
;; add a default start date to the first task if none was given ;; add a default start date to the first task if none was given
(unless (assoc "start" (car tasks)) (unless (assoc "start" (car tasks))
(let ((task (car tasks)) (let ((task (car tasks))
@ -159,7 +160,6 @@
(org-taskjuggler-close-maybe 1)))) (org-taskjuggler-close-maybe 1))))
(defun org-taskjuggler-components () (defun org-taskjuggler-components ()
""
(let* ((props (org-entry-properties)) (let* ((props (org-entry-properties))
(components (org-heading-components)) (components (org-heading-components))
(level (car components)) (level (car components))