Narrow cursor at end of line?

Narrow cursor at end of line?

[Adam Sjøgren]

XEmacs indicates that point is at the end of a line by making the cursor
slightly less wide. How do I make GNU Emacs do the same?


  Best regards,

    Adam

-- 
 "This is either madness... or brilliance."                   Adam Sjøgren
 "It's remarkable how often those two traits coincide."  asjo@koldfront.dk

Re: Narrow cursor at end of line?

[Pascal J. Bourguignon]

asjo@koldfront.dk (Adam Sjøgren) writes:

> XEmacs indicates that point is at the end of a line by making the cursor
> slightly less wide. How do I make GNU Emacs do the same?

I guess you could change the cursor-type when it's at the end of line.
See the variable: cursor-type


-- 
__Pascal Bourguignon__                     http://www.informatimago.com/

Re: Narrow cursor at end of line?

[Adam Sjøgren]

On Sat, 09 Jan 2010 21:26:02 +0100, Pascal wrote:

> asjo@koldfront.dk (Adam Sjøgren) writes:

>> XEmacs indicates that point is at the end of a line by making the cursor
>> slightly less wide. How do I make GNU Emacs do the same?

> I guess you could change the cursor-type when it's at the end of line.
> See the variable: cursor-type

Ah, nice - thanks for the pointer.

I guess what I want to do is to have cursor-type set to (bar . 6) at the
end of the line and t otherwise. Perhaps something like:

  (defun asjo-indicate-end-of-line ()
    "Change the cursor to a narrow one when at the end of line"
    (if (eq (point) (line-end-position))
        (setq cursor-type '(bar . 6))
      (setq cursor-type t)))

I would need a hook called every time point is moved (or any time it is
moved to/from end of line) or add an advice to something, I guess?

I have looked though the list found with M-x apropos hook, but couldn't
really a good candidate...


  Best regards,

    Adam

-- 
 "I'm a driver, I'm a winner, things are gonna change,        Adam Sjøgren
  I can feel it."                                        asjo@koldfront.dk

Re: Narrow cursor at end of line?

[Pascal J. Bourguignon]

asjo@koldfront.dk (Adam Sjøgren) writes:

> On Sat, 09 Jan 2010 21:26:02 +0100, Pascal wrote:
>
>> asjo@koldfront.dk (Adam Sjøgren) writes:
>
>>> XEmacs indicates that point is at the end of a line by making the cursor
>>> slightly less wide. How do I make GNU Emacs do the same?
>
>> I guess you could change the cursor-type when it's at the end of line.
>> See the variable: cursor-type
>
> Ah, nice - thanks for the pointer.
>
> I guess what I want to do is to have cursor-type set to (bar . 6) at the
> end of the line and t otherwise. Perhaps something like:
>
>   (defun asjo-indicate-end-of-line ()
>     "Change the cursor to a narrow one when at the end of line"
>     (if (eq (point) (line-end-position))
>         (setq cursor-type '(bar . 6))
>       (setq cursor-type t)))
>
> I would need a hook called every time point is moved (or any time it is
> moved to/from end of line) or add an advice to something, I guess?
>
> I have looked though the list found with M-x apropos hook, but couldn't
> really a good candidate...

You can do that after a command is executed: post-command-hook

-- 
__Pascal Bourguignon__                     http://www.informatimago.com/

Re: Narrow cursor at end of line?

[Lennart Borgman]

On Sat, Jan 9, 2010 at 10:04 PM, Adam Sjøgren <asjo@koldfront.dk> wrote:
>
> I would need a hook called every time point is moved (or any time it is
> moved to/from end of line) or add an advice to something, I guess?
>
> I have looked though the list found with M-x apropos hook, but couldn't
> really a good candidate...

post-command-hook?

Re: Narrow cursor at end of line?

[Adam Sjøgren]

On Sun, 10 Jan 2010 03:20:44 +0100, Pascal wrote:

> asjo@koldfront.dk (Adam Sjøgren) writes:

>> I have looked though the list found with M-x apropos hook, but couldn't
>> really a good candidate...

> You can do that after a command is executed: post-command-hook

On Sun, 10 Jan 2010 07:47:12 +0100, Lennart wrote:

> post-command-hook?

Thanks to both of you - that was exactly the help I needed.


  Best wishes,

    Adam

-- 
 "riverrun, past Eve and Adam's, from swerve of shore         Adam Sjøgren
  to bend of bay, brings us by a commodius vicus of      asjo@koldfront.dk
  recirculation back to Howth Castle and Environs."

Re: Narrow cursor at end of line?

[Stefan Monnier]

>     (if (eq (point) (line-end-position))
>         (setq cursor-type '(bar . 6))
>       (setq cursor-type t)))

You mean

     (setq cursor-type (if (eolp) '(bar . 6) t))

> I would need a hook called every time point is moved (or any time it is
> moved to/from end of line) or add an advice to something, I guess?

Actually, it's only every time the cursor is moved (point can be moved
many times internally over the course of a single command).  I.e. at
every redisplay.  There is sadly no hook for that (yet?), but you can
use post-command-hook as a good first approximation.


        Stefan