On Jun 16, 2008, at 5:44 AM, Richard G Riley wrote:
Manish <[EMAIL PROTECTED]> writes:
May be I misunderstood but it seems following setup
does all that you want (and more).
Please see below.
,----[ Relevant setup ]
| (defun my-start-clock-if-needed ()
| (save-excursion
| (goto-char (point-min))
| (when (re-search-forward ":CLOCK-IN:" nil t)
| (replace-match "")
| (org-clock-in))))
|
| (setq org-remember-templates
| (quote
| (
| ("Client1 Task" ?g "* NEWTASK %? %^g %&\n SCHEDULED: %t\n
:CLOCK-IN:\n CREATED: %U\n" "~/org.git/client1.org" "Unprocessed
Tasks")
| ("Client2 Task" ?G "* NEWTASK %? %^g %& \n SCHEDULED: %t\n
:CLOCK-IN:\n CREATED: %U\n" "~/org.git/client2.org" "Unprocessed
Tasks")
| ("Personal Tasks" ?p "* NEWTASK %? %& \n SCHEDULED: %t\n
:CLOCK-IN:\n CREATED: %U\n" "~/org.git/personal.org" "Unprocessed
Tasks")
| ("Appointment @ Client1" ?a "* APPT %? %& \n SCHEDULED: %^{At:
}T\n :CLOCK-IN:\n CREATED: %U\n" "~/org.git/client1.org" "New
Appointments")
| ("Appointment @ Client2" ?A "* APPT %? %& \n SCHEDULED:
%^T{At:
}\n :CLOCK-IN:\n CREATED: %U\n" "~/org.git/client2.org" "New
Appointments")
| ("Notes" ?n "* %?\n %a\n CREATED: %U\n" "~/org.git/
notes.org" "Notes")
| ("Journal" 106 "\n* JOURNAL Entry at %U\n %?"
"~/org.git/journal.org" "Journal")
| )))
`----
This setup:
- schedules the task by default for today (%t)
The Agenda insert should set the date and time to the date and time
under the cursor so I dont think this is the same thing being
requested.
I will have code for this in the next push, as soon as repo.or.cz is
up again.
- Carsten
_______________________________________________
Emacs-orgmode mailing list
Remember: use `Reply All' to send replies to the list.
Emacs-orgmode@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-orgmode
