From mboxrd@z Thu Jan 1 00:00:00 1970 From: Carsten Dominik Subject: Re: Idea - adds new TODO item for specific time and task-group Date: Mon, 2 Jul 2007 12:54:22 +0200 Message-ID: References: <471D9CD7-BE8F-4BF6-8551-6426D54E7397@email.cz> Mime-Version: 1.0 (Apple Message framework v624) Content-Type: text/plain; charset=US-ASCII; format=flowed Content-Transfer-Encoding: 7bit Return-path: Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1I5JY0-0006dC-Qn for emacs-orgmode@gnu.org; Mon, 02 Jul 2007 06:54:24 -0400 Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1I5JXz-0006cd-5K for emacs-orgmode@gnu.org; Mon, 02 Jul 2007 06:54:24 -0400 Received: from [199.232.76.173] (helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1I5JXy-0006cX-Uh for emacs-orgmode@gnu.org; Mon, 02 Jul 2007 06:54:23 -0400 Received: from korteweg.uva.nl ([146.50.98.70]) by monty-python.gnu.org with esmtp (Exim 4.60) (envelope-from ) id 1I5JXy-0004Ft-Aw for emacs-orgmode@gnu.org; Mon, 02 Jul 2007 06:54:22 -0400 In-Reply-To: <471D9CD7-BE8F-4BF6-8551-6426D54E7397@email.cz> List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: Juraj Kubelka Cc: emacs-orgmode Hi Juraj, this is useful functionality, but you can do the same already using remember templates. Just define templates that do not contain a link to the current location, and specify file in which, and headline under which the new item should be filed. For example: (setq org-remember-templates '((?s "* TODO %?\n %i" "~/Org/main.org.txt" "Small Tasks of project 1") (?h "* TODO %?\n %i" "~/Org/main.org.txt" "Small tasks at home"))) You can also insert deadline, scheduling etc in this way. It would not take the date from the agenda date, but for the rest it supports everything you are suggesting. - Carsten On Jun 17, 2007, at 19:56, Juraj Kubelka wrote: > Hi, > > I tried to implement function for adding a new todo item to an > org-file. > > Let's say there is a org-file: > > ===== > * Project 1 > ** Small Tasks of project 1 > ###-PROJECT1-### > *** a task no.1 > DEADLINE:.... > ... > ===== > > If I am in agenda-view and press "I" key, it will insert new task > after the "###-PROJECT1-###" string with deadline or schedule for > given day: > > ===== > * Project 1 > ** Small Tasks of project 1 > ###-PROJECT1-### > *** TODO (cursor here) > DEADLINE: .... > *** a task no.1 > DEADLINE:.... > ... > ===== > > It is similar for "i" key (org-self-insert-command). So, after > pressing of "I" key, it will ask for schedule or deadline and > afterwards for task-group according to a configuration (see > attachment). > > Am not so familiar with org-mode, so this is just pilot version with > lot of drawbacks. For example it will not insert new task, if file is > in OVERVIEW presentation. > > If some find it useful, I advice to add it to official package. But > of course with better implementation. Can you have a look and explain > me how to do it better? > > Thank you in advance, > Juraj > > ============ code ============ > (require 'org) > > (defcustom myorg-tasks > '((?s "Project1" "###-PROJECT1-###" "~/Org/main.org.txt") > (?h "Home" "###-HOME-###" "~/Org/main.org.txt")) > "*Tasks list. > > (key description search-string file-name) > ") > > (defun myorg-insert-task (search-string what time file) > "Add new TODO item in orgmode file after search-string string. > > what = SCHEDULED or DEADLINE (see org-add-planning-info). > " > (let (point) > (find-file-other-window (substitute-in-file-name file)) > (when (setq point (save-excursion > (goto-char (point-min)) > (search-forward search-string nil t))) > (goto-char point) > (org-insert-heading) > (org-do-demote) > (org-todo 'right) > (org-add-planning-info what time 'closed)))) > > > (defun myorg-agenda-insert-task () > "Make a task." > (interactive) > (org-agenda-check-type t 'agenda 'timeline) > (require 'diary-lib) > (let* ((char (progn > (message "Choose [d]eadline [s]chedule") > (read-char-exclusive))) > (type (cdr (assoc char > '((?d . deadline) > (?s . scheduled))))) > (point (point)) > (calendar-date-display-form '(year "-" month "-" day)) > task) > (unless type > (error "No task type associated with <%c>" char)) > (unless (setq time (get-text-property point 'day)) > (error "Don't know which date to use for task entry")) > > (unless (setq task (myorg-ask-for-task-type)) > (error "No tasks selected.")) > (myorg-insert-task (caddr task) type > (org-read-date nil 'to-time > (calendar-date-string > > (calendar-gregorian-from-absolute > (get-text-property point > 'day)))) > (cadddr task)))) > > > (defun myorg-ask-for-task-type () > (unless myorg-tasks > (error "No tasks defined. See myorg-tasks custom variable.")) > (let* (tmp > (tasks (dolist (task myorg-tasks tmp) > (setq tmp > (concat tmp > " " > (cadr task) > "[" > (char-to-string (car task)) > "]" > )))) > (char (progn > (message "Choose %s" tasks) > (read-char-exclusive))) > (selected (car (member* char myorg-tasks :key #'car :test > #'eql)))) > selected)) > > > (org-defkey org-agenda-mode-map "I" 'myorg-agenda-insert-task) > > > > _______________________________________________ > Emacs-orgmode mailing list > Emacs-orgmode@gnu.org > http://lists.gnu.org/mailman/listinfo/emacs-orgmode > > -- Carsten Dominik Sterrenkundig Instituut "Anton Pannekoek" Universiteit van Amsterdam Kruislaan 403 NL-1098SJ Amsterdam phone: +31 20 525 7477