[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: scrollbar alternative

From: Zhu, Shenli
Subject: Re: scrollbar alternative
Date: Tue, 16 Mar 2010 14:24:19 +0800
User-agent: Mozilla/5.0 (X11; U; Linux i686; en-US; rv: Gecko/20100227 Thunderbird/3.0.3

On 03/16/2010 12:34 PM, Drew Adams wrote:
I tried to copy your code to my .emacs file, but my mode bar
doesn't change like yours. Shall I change something else?
If your window is not wide enough, it might actually be "showing", but off to
the right, too far for you to see (outside the window).  The mode line can be
truncated at the right, depending on the window width. If you make your window
wider, you might see the indicator.

(That explanation doesn't apply if your Emacs version is 21 - in that case, the
indicator appears just after the buffer name.)

Try this (same code, just tweaked a bit, mainly to avoid wrapping by my mailer).
The last line here moves the indicator to where the size indicator normally is,
just after the buffer name, so you should be able to see it OK.

(defvar sml-len 12)
(defvar sml-begin "[")
(defvar sml-end "]")

(defun sml-create ()
   (let* ((start (window-start))
          (end (window-end))
          (mlength (if (eq (logand sml-len 1) 0) ; Even?
                       (1- sml-len)
           (floor (* (/ (float start)
                        (float (point-max))) mlength)))
          (percentage (/ (float end) (float (point-max))))
          (end (ceiling (* percentage mlength)))
     (if (not (or (<  end mlength) (>  start (point-min))))
       (setq string
             (concat sml-begin
                     (make-string (- (/ mlength 2) 2) 32)
                      "%3d" (round (* percentage 100))) "%%"
                     (make-string (- (/ mlength 2) 2) 32)
             start (+ start (length sml-begin)))
       (when (= start
                (setq end (+ end (length sml-begin))))
         (setq end  (1+ end)))
       (when (and (= (elt string start) 37)
                  (= (elt string end) 37))
         (setq end  (1+ end)))
        start end
        'face `(:background ,(face-foreground 'mode-line)
                :foreground ,(face-background 'mode-line))

(setcar mode-line-position '(:eval (list (sml-create))))

Hi Drew,

The code works well on Emacs23, thanks!


reply via email to

[Prev in Thread] Current Thread [Next in Thread]