Re: [Denemo-devel] "Go To Next Interior End" Script. Maybe for git?

[Nils Gey]

Please compare the usual GoToEnd with mine with the file attached to this mail.

Interior is a translation of "Binnen" which is a German word for interior in 
the meaning of "Inland navigation/water", "Internal waters" or "Landlocked 
country".

So it means not the final end but a kind of end within the whole system.

You are right, your script is better. The (+i 0) was remaining garbage from my 
trials (and errors). Whats missing is the initial CursorRight, which is needed 
if you want to use this script consecutively. Just try it with and without 
(d-CursorRight)


(d-CursorRight)
(let gotoEnd () (if  (d-NextObject) (gotoEnd)))
(d-RefreshDisplay)


Nils

On Wed, 15 Jul 2009 17:35:44 +0100
Richard Shann <address@hidden> wrote:

> This is great - I didn't know about named let before! When Jeremiah
> started contributing scripts I learnt about (define (proc)...) to avoid
> using (lambda...)
> Now about your script:
> 
> On my system this script just moves the cursor to the end.
> In fact several things puzzle me:
>       (+ i 0)
> is just i
> 
> so couldn't this script be written 
> 
> (let gotoEnd () (if  (d-NextObject) (gotoEnd)))
> (d-RefreshDisplay)
> 
> what did you mean - Interior End ?
> 
> Richard
> 
>  
> On Wed, 2009-07-15 at 16:24 +0200, Nils Gey wrote:
> > I bound that to Crtl+End on my system. Works pretty well.
> > Is this ready for git or is it bad scheme-style? 
> > 
> > I don't think I have write-rights for git.
> > 
> > 
> > ;;;;;Go to next Interior End
> > (d-CursorRight) ;starts with a forced step so the command becomes 
> > repeatable.
> > (let counter ((i 1)) 
> >   (if (d-NextObject)
> >     (counter (+ i 0))
> >    )
> >  )
> > (d-RefreshDisplay) ;Only one time refresh so it feels like a real jump, not 
> > a sequence of steps.
> > 
> > 
> > _______________________________________________
> > Denemo-devel mailing list
> > address@hidden
> > http://lists.gnu.org/mailman/listinfo/denemo-devel
> 


-- 
Nils Gey <address@hidden>

gotoendexample.denemo
Description: Binary data