[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

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

From: Bernt Hansen
Subject: Re: [O] Question re. Bernt's agenda setup
Date: Sun, 25 Nov 2012 19:45:23 -0500
User-agent: Gnus/5.13 (Gnus v5.13) Emacs/23.2 (gnu/linux)

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 ()
  (unless (marker-position org-agenda-restrict-begin)
    (goto-char (point-min))
    (setq bh/current-view-project (point)))
  (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))
    (forward-visible-line 1))
  (setq bh/current-view-project (point))
  (if (org-get-at-bol 'org-hd-marker)
    (error "All projects viewed.")))
--8<---------------cut here---------------end--------------->8---

I would prefer something that is consistent on linux and windows


reply via email to

[Prev in Thread] Current Thread [Next in Thread]