Hi, and happy new year to all !
I've just committed a patch to 21.2 that (re)implements the modeline
horizontal scrolling facility. The lisp interface to the feature is composed
of two functions: [set-]modeline-hscroll.
One remaining issue is a possible user interface to the feature. Just
to remind you of the discussion we had some time ago: I'd originally enabled
clicking on the modeline and dragging it horizontally to scroll it. There were
a debate on the sense the modeline should scroll:
- the team who sees it as dragging the modeline itself: moving the mouse left
shoud move the text left,
- the team who sees it as dragging the viewport, or giving the direction text
should appear (a la gv): moving the mouse left should move the text right.
Obvioulsy, it is also possible to let people choose, to add arrows at
both ends of the modeline (but the debate on the scrolling sense will still
occur), and finally, people objected that it is not very practical to scroll
the modeline with the mouse, as it also might resize the window if you move
the mouse vertically.
My current feeling is that simple key bindings should do it :-) Here's
what I have right now in my init.el. We could provide similar functions in
modeline.el.
(global-set-key [(shift left)]
(lambda ()
(interactive)
(let ((w (selected-window)))
(set-modeline-hscroll w (- (modeline-hscroll w) 1)))))
(global-set-key [(shift right)]
(lambda ()
(interactive)
(let ((w (selected-window)))
(set-modeline-hscroll w (+ (modeline-hscroll w) 1)))))
--
/ / _ _ Didier Verna
http://www.inf.enst.fr/~verna/
- / / - / / /_/ / EPITA / LRDE mailto:didier@epita.fr
/_/ / /_/ / /__ / 14-16 rue Voltaire Tel. +33 (1) 44 08 01 77
94276 Kremlin-Bicêtre cedex Fax. +33 (1) 44 08 01 99