Richard Riley <rileyrg...@gmail.com> writes:

> Karsten Heymann <karsten.heym...@blue-cable.net> writes:
>
>> Hi Carsten,
>>
>> Carsten Dominik <carsten.domi...@gmail.com> writes:
>>> On Apr 12, 2010, at 3:05 PM, Karsten Heymann wrote:
>>>> does anyone have a solution to combine org-clock-goto with
>>>> org-narrow-to-subtree, so that upon keypress I get a buffer with only
>>>> the currently clocked task in it? Maybe this could even become a
>>>> optional parameter for org-clock-goto?
>>>
>>> (defun my-clock-goto-narrow ()
>>>    (interactive)
>>>    (when (org-clock-is-active)
>>>       (org-clock-goto)
>>>       (org-narrow-to-subtree)))
>>>
>>> (define-key global-map "\C-cc" my-clock-goto-narrow)
>>
>> Thanks, applied. :-)
>
> here is a slight variation I use which lists older clocked tasks if
> there is not one already clocked in. It also restores the window layout.
>
> ,----
> | (defun rgr/org-add-note-to-current-task ()
> |   (interactive)
> |     (save-window-excursion
> |     (if(org-clock-is-active)
> |         (org-clock-goto)
> |       (org-clock-goto t))
> |     (org-narrow-to-subtree)
> |     (org-add-note)))
> | 
> | (define-key global-map "\C-cn" 'rgr/org-add-note-to-current-task)
> `----
>

And another variation...

F11 - calls org-clock-goto (from any buffer, any mode), and goes to the
last clocked task if the clock is not active.

F5 - narrows to subtree and calls org-show-todo-tree to show what there
is to do on that subtree.

I don't combine them into a single key - since I'm used to using F5 and
S-F5 to narrow and widen respectively.

,----
| (global-set-key (kbd "<f5>") 'bh/org-todo)
| (global-set-key (kbd "<S-f5>") 'bh/widen)
| (global-set-key (kbd "<f11>") 'org-clock-goto)
| 
| (defun bh/org-todo ()
|   (interactive)
|   (org-narrow-to-subtree)
|   (org-show-todo-tree nil))
| 
| (defun bh/widen ()
|   (interactive)
|   (widen)
|   (org-reveal))
| 
`----

-Bernt


_______________________________________________
Emacs-orgmode mailing list
Please use `Reply All' to send replies to the list.
Emacs-orgmode@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-orgmode

Reply via email to