Re: [O] Question re. Bernt's agenda setup

[Bernt Hansen]

Manish <address@hidden> 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