{{{  comments
; macro that can be bound to mouse-keys to jump to the clicked position
}}}
@if-using not(GMP)
   @use (GMP)
   {{{  go-mouse-position
   ( deffun go-mouse-position
      ( if not(in-prompt)
         {{{  do the move
         ( while counter>0 mouse-go-y
            ( set-counter mouse-go-y -(mouse-go-y 1)
              next-line
            )
           set-counter mouse-go-y -(0 mouse-go-y)
           while counter>0 mouse-go-y
            ( set-counter mouse-go-y -(mouse-go-y 1)
              previous-line
            )
           goto-counter mouse-x
         )
         }}}
        fi
      )
   )
   }}}
@fi
