mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-11-22 07:09:47 +00:00
Code

ox-taskjuggler: Fix checkdoc warnings

Browse Source 
* ox-taskjuggler.el (org-taskjuggler-assign-task-ids,
org-taskjuggler-assign-resource-ids, org-taskjuggler-get-id,
org-taskjuggler-project-plan):  Fix checkdoc warnings.
This commit is contained in:
Christian Egli 2013-04-17 17:43:46 +02:00
parent c1c4fcdb0c
commit 2ba19bb803
1 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
contrib/lisp/ox-taskjuggler.el
View File

@ -317,7 +317,8 @@ This hook is run with the name of the file as argument.")
(defun org-taskjuggler-assign-task-ids (tasks info)
"Assign a unique ID to each task in TASKS.
TASKS is a list of headlines. Return value is an alist between
TASKS is a list of headlines. INFO is a plist used as a
communication channel. Return value is an alist between
headlines and their associated ID. IDs are hierarchical, which
means they only need to be unique among the task siblings."
(let* (alist
@ -335,8 +336,9 @@ means they only need to be unique among the task siblings."
(defun org-taskjuggler-assign-resource-ids (resources info)
"Assign a unique ID to each resource within RESOURCES.
RESOURCES is a list of headlines. Return value is an alist
between headlines and their associated ID."
RESOURCES is a list of headlines. INFO is a plist used as a
communication channel. Return value is an alist between
headlines and their associated ID."
(let (ids)
(org-element-map resources 'headline
(lambda (resource)
@ -365,7 +367,8 @@ If there is no headline at all, return nil."
(defun org-taskjuggler-get-id (item info)
"Return id for task or resource ITEM.
ITEM is a headline. Return value is a string."
ITEM is a headline. INFO is a plist used as a communication
channel. Return value is a string."
(cdr (assq item (plist-get info :taskjuggler-unique-ids))))
(defun org-taskjuggler-get-name (item)
@ -527,7 +530,7 @@ doesn't include leading \"depends\"."
(defun org-taskjuggler-project-plan (contents info)
"Build TaskJuggler project plan.
CONTENTS is ignored. INFO is a plist holding export options.
CONTENTS is ignored. INFO is a plist holding export options.
Return complete project plan as a string in TaskJuggler syntax."
(let* ((tree (plist-get info :parse-tree))
(project (or (org-taskjuggler-get-project info)