Re: use of symbolic display elements in ruler-mode

[no-spam@cua.dk (Kim F. Storm)]

David PONCE <david.ponce@wanadoo.fr> writes:

> Hi Stefan,
> 
> > Why not just:
> > 
> > (defvar ruler-mode-ruler-function 'ruler-mode-ruler
> >   "Function to call to return ruler string.")
> > (defconst ruler-mode-header-line-format
> >   '(:eval (funcall ruler-mode-ruler-function))
> >    "`header-line-format' used in ruler mode.")
> 
> Of course!  Here is a new patch.

I just installed some changes to the :align-to and :width space
display properties.  And added support for non-window systems.

Specifically, (scroll-bar . x) and (*-fringe . x) no longer exists.
Instead, you have to include scroll-bar and *-fringe in the
proper spots yourself.

Note that you can include nil in the header-line-format list,
as long as the first element of the list is a string (just put ""
there).

Something like:

   Replace lsb and rsb by:

          (sb (ruler-mode-space 'scroll-bar
                                 'face 'ruler-mode-pad-face))

   and use

     (if (nth 2 (window-fringes))
         ;; fringes outside margins.
         (list "" (and (eq scroll-bar-mode 'left) sb) lf lm
               ruler rm rf (and (eq scroll-bar-mode 'right) sb))
       ;; fringes inside margins.
       (list "" (and (eq scroll-bar-mode 'left) sb) lm lf 
             ruler rf rm (and (eq scroll-bar-mode 'right) sb)))))


-- 
Kim F. Storm <storm@cua.dk> http://www.cua.dk