Re: scrollbar alternative

["Zhu, Shenli" <zhushenli2@gmail.com>]

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)
>                      sml-len))
>           (start
>            (floor (* (/ (float start)
>                         (float (point-max))) mlength)))
>           (percentage (/ (float end) (float (point-max))))
>           (end (ceiling (* percentage mlength)))
>           string)
>      (if (not (or (<  end mlength) (>  start (point-min))))
>          ""
>        (setq string
>              (concat sml-begin
>                      (make-string (- (/ mlength 2) 2) 32)
>                      (format
>                       "%3d" (round (* percentage 100))) "%%"
>                      (make-string (- (/ mlength 2) 2) 32)
>                      sml-end)
>              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)))
>        (put-text-property
>         start end
>         'face `(:background ,(face-foreground 'mode-line)
>                 :foreground ,(face-background 'mode-line))
>         string)
>        string)))
>
> (setcar mode-line-position '(:eval (list (sml-create))))
>
>    
Hi Drew,

The code works well on Emacs23, thanks!

Shenli