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

[Richard Shann]

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