Manish <mailtomanish.sha...@gmail.com> writes:
> On Sat, Nov 24, 2012 at 12:25 PM, Bernt Hansen wrote:
>> Viktor Rosenfeld writes:
>>
>>> Alan Schmitt wrote:
>>>
>>>> Viktor Rosenfeld writes:
>>>>
>>>> > it's Shift-P and you need to bind the function bh/narrow-to-project to
>>>> > the keycode. See the code blocks in the following two sections:
>>>> >
>>>> > http://doc.norang.ca/org-mode.html#SpeedCommands
>>>> > http://doc.norang.ca/org-mode.html#NarrowToSubtree
>>>>
>>>> I managed to make this work, but if I run the command in the agenda I
>>>> need to refresh it afterwards (using 'g'). Are you seeing the same
>>>> thing?
>>>
>>> Yes, unfortunately. I think I remember that it used to refresh the
>>> agenda automatically. This is above my pay grade, I'm afraid.
>>>
>>> Cheers,
>>> Viktor
>>>
>>>>
>>>> And I also want to say I have learned a lot implementing the suggestions
>>>> in that document.
>>>>
>>>> Alan
>>
>> I have also noticed this in Windows at work and actually toyed with the
>> idea of dropping the commands from the agenda that don't refresh
>> properly anymore ... but quickly found I can't live without that
>> functionality. So I too am doing 'g' to refresh as required ATM.
>>
>> If I figure out a fix I'll post that.
>
> Meanwhile after wasting a couple of hours trying to make it work with
> AutoHotKey, I just recorded an Emacs macro, named and dumped it and tied
> it to a keychord. Following seems to be working well for me:
>
> #+begin_src emacs-lisp
> ;; work around for V not refreshing on Windows
> ;; use when in agenda after F12-SPC
> (global-set-key (kbd "C-<f7>")
> (fset 'my-next-project
> (lambda (&optional arg) "Keyboard macro."
> (interactive "p")
> (kmacro-exec-ring-item (quote ("Vg\274" 0 "%d"))
> arg))))
> #+end_src
This workaround also seems to fix V on windows:
--8<---------------cut here---------------start------------->8---
(defun bh/view-next-project ()
(interactive)
(unless (marker-position org-agenda-restrict-begin)
(goto-char (point-min))
(setq bh/current-view-project (point)))
(bh/widen)
(goto-char bh/current-view-project)
(forward-visible-line 1)
(while (and (< (point) (point-max))
(or (not (org-get-at-bol 'org-hd-marker))
(org-with-point-at (org-get-at-bol 'org-hd-marker)
(or (not (bh/is-project-p))
(bh/is-project-subtree-p)))))
(forward-visible-line 1))
(setq bh/current-view-project (point))
(if (org-get-at-bol 'org-hd-marker)
(progn
(bh/narrow-to-project)
(org-agenda-redo)
(beginning-of-buffer))
(error "All projects viewed.")))
--8<---------------cut here---------------end--------------->8---
I would prefer something that is consistent on linux and windows
though...
Regards,
Bernt
