Here is a totally hackish way to split a task onto a separate plan
page. Call roxy/planner-split-task while point is on the task, and
specify a page to split the task onto. Thanks to roxy_ for the
suggestion. planner-id _should_ keep it relatively safe from changes
in the task description, but I haven't quite figured out yet how to
search for the task ID if the task has been moved. If all else fails,
do a grep.
Task on TaskPool:
#A _ Foo bar
After roxy/planner-split-task to FooBar:
Original task:
#A _ Foo bar {{Tasks:1}} Split:FooBar
FooBar:
Foo bar {{Tasks:1}} Split:FooBar
#parent-task 1 (TaskPool) Complete project
After roxy/planner-complete-project on FooBar
#A X Foo bar {{Tasks:1}} Split:FooBar
(require 'planner-id)
(defun roxy/planner-split-task (page)
"Split the current task into a separate project PAGE."
(interactive (list (planner-read-non-date-page (planner-file-alist))))
(unless (planner-current-task-info) (error "Not on task"))
(unless page (error "Specify page to split to"))
(planner-id-add-task-id)
(planner-edit-task-description
(concat
(planner-task-description (planner-current-task-info))
" Split:" (planner-make-link page)))
(let* ((info (planner-current-task-info))
(description (planner-task-description info))
(id (planner-id-get-id-from-string description "Tasks"))
(plan (or (planner-task-plan info)
(planner-page-name))))
(unless id (error "Could not determine task ID"))
(planner-find-file page)
(goto-char (point-min))
(insert (format "%s\n#parent-task %s (%s) %s\n\n"
description
(cdr id)
(planner-make-link plan)
(if (featurep 'planner-lisp)
"[[lisp://(roxy/planner-complete-project)][Complete
project]]"
"")))))
(defun roxy/planner-complete-project ()
"Mark current project page as completed, updating the parent task."
(interactive)
(goto-char (line-beginning-position))
(when (or (looking-at "^#parent-task \\([0-9]+\\) (\\(.*?\\))")
(progn
(goto-char (point-min))
(re-search-forward "^#parent-task \\([0-9]+\\) (\\(.*?\\))")))
(let ((id (match-string-no-properties 1))
(link (match-string-no-properties 2)))
(planner-find-file (planner-link-target link))
(planner-id-find-task id)
(planner-task-done))))
--------------------------------------------------------------------------------
It will also need the following patch, which is generally useful and
might be nice to fold into the main tree.
* looking for [EMAIL PROTECTED]/planner-muse--mwolson--1.0--patch-95 to compare
with
* comparing to [EMAIL PROTECTED]/planner-muse--mwolson--1.0--patch-95
M planner-multi.el
M planner-id.el
M planner.el
* modified files
--- orig/planner-id.el
+++ mod/planner-id.el
@@ -70,9 +70,13 @@
(defvar planner-id-regexp "{{\\([^:]+\\):\\([0-9]+\\)}}"
"Regexp matching planner IDs.")
-(defun planner-id-get-id-from-string (string)
- "Return the planner ID in STRING as (identifier number)."
- (when (string-match planner-id-regexp string)
+(defun planner-id-get-id-from-string (string &optional key)
+ "Return the planner ID in STRING as (identifier number).
+If KEY is specified, match against that."
+ (when (string-match
+ (concat "{{\\("
+ (or key "[^:]+")
+ "\\):\\([0-9]+\\)}}") string)
(cons (planner-match-string-no-properties 1 string)
(planner-match-string-no-properties 2 string))))
@@ -87,14 +91,24 @@
(concat "{{" (car id) ":" (cdr id) "}}"))
;;;###autoload
+
(defun planner-id-find-task (task-info &optional point)
"Find task described by TASK-INFO. If POINT is non-nil, start from there.
If task is found, move point to line beginning and return non-nil.
If task is not found, leave point at POINT or the start of the buffer
and return nil."
(goto-char (or point (point-min)))
- (let ((task-id (planner-id-get-id-from-string
- (planner-task-description task-info)))
+ (let ((task-id
+ (cond
+ ;; Task ID
+ ((listp task-info)
+ (planner-id-get-id-from-string
+ (planner-task-description task-info)))
+ ;; Just the ID
+ ((numberp task-info)
+ (cons "Tasks" (number-to-string task-info)))
+ ;; ID as string
+ ((stringp task-info) (cons "Tasks" task-info))))
(found nil))
(when (re-search-forward
(concat planner-task-regexp ".*"
--- orig/planner-multi.el
+++ mod/planner-multi.el
@@ -169,6 +169,7 @@
(if (listp (nth 5 info))
(nth 5 info)
(list (nth 5 info))))
+(defalias 'planner-task-link-as-list 'planner-multi-task-link-as-list)
(defun planner-multi-task-xref (page)
"Copy the current task to PAGE."
--- orig/planner.el
+++ mod/planner.el
@@ -1868,6 +1868,9 @@
"Return the planner page of a task given INFO." (nth 7 info))
(defun planner-task-date (info)
"Return the planner date of a task given INFO." (nth 8 info))
+(defun planner-task-links-as-list (info)
+ "Return a list of all the pages this task is on."
+ (delq nil (list (nth 7 info) (nth 8 info))))
;;;_ + Creation
----------------------------------------------------------------
Time data:
i 2005/11/12 15:38:19 : Split tasks for roxy {{Tasks:40}}
o 2005/11/12 16:22:07
--
Sacha Chua <[EMAIL PROTECTED]> - open source, free software geekette
http://sacha.free.net.ph/ - PGP Key ID: 0xE7FDF77C
interests: emacs, gnu/linux, personal information management, public speaking
sachac on irc.freenode.net#emacs . YM: sachachua83
_______________________________________________
emacs-wiki-discuss mailing list
emacs-wiki-discuss@nongnu.org
http://lists.nongnu.org/mailman/listinfo/emacs-wiki-discuss
