Re: Speed commands

From: Stephan Schmitt <drmabuse@cs.tu-berlin.de>
To: e.fraga@ucl.ac.uk
Cc: emacs-orgmode@gnu.org, Carsten Dominik <carsten.dominik@gmail.com>
Subject: Re: Speed commands
Date: Fri, 20 Nov 2009 19:13:11 +0100	[thread overview]
Message-ID: <4B06DC37.2020107@cs.tu-berlin.de> (raw)
In-Reply-To: <87lji16s33.wl%ucecesf@ucl.ac.uk>

Hi Eric,

try this:

(progn
  (org-cycle-agenda-files)
       (when (not (and (bolp) (org-on-heading-p)))
	 (outline-previous-visible-heading 1)
	 (or (and (bolp) (org-on-heading-p))
	     (outline-next-visible-heading 1))))

Greetings,
	Stephan

Also sprach Eric S Fraga:
> At Fri, 20 Nov 2009 15:57:09 +0100,
> Carsten Dominik wrote:
>> This is nice, but I guess you want to stay in fast-key space.
>> So
>>
>>    ("," . (progn (org-cycle-agenda-files)
>>                  (or (and (bolp) (org-on-heading-p))
>>                      (outline-next-visible-heading 1))))
> 
> This is really nice and works like a charm... *except* in a very
> extreme case: one of my agenda files is typically empty other than a
> single top level heading.  When I cycle through the agenda files, when
> I land in this file, I am typically placed at the end of the file
> (emacs remembers my last location).  When this happens, speed keys are
> no longer active and, before I know it, I have a number of ',' added
> to the end of this file!  
> 
> Actually, I guess this problem generalises so that it would appear
> whenever the cycling takes you to a file where the current point is at
> the end (or near the end) of the file so there is actually no "next"
> heading?  Maybe the or statement above needs another clause (which I
> unfortunately cannot suggest; sorry!).
> 
> 
> _______________________________________________
> Emacs-orgmode mailing list
> Remember: use `Reply All' to send replies to the list.
> Emacs-orgmode@gnu.org
> http://lists.gnu.org/mailman/listinfo/emacs-orgmode