[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: use of symbolic display elements in ruler-mode
From: |
Kim F. Storm |
Subject: |
Re: use of symbolic display elements in ruler-mode |
Date: |
19 Mar 2004 02:50:37 +0100 |
User-agent: |
Gnus/5.09 (Gnus v5.9.0) Emacs/21.3.50 |
David PONCE <address@hidden> 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 <address@hidden> http://www.cua.dk