Re: Emacs scale generator?

[Emanuel Berg]

Dan Espen <despen@verizon.net> writes:

> Wow, never saw that before.
>
> Nope, I'm actually looking for something that puts
> the text in the buffer.

Try this:

    (defun scale (end step &optional current)
      (unless current (setq current 0))
      (if (<= current end)
          (progn
            (if (= (% current step) 0)
                (progn
                  (let*((digit-str      (format "%s" current))
                        (digit-str-len  (length digit-str)) )
                    (insert digit-str)
                    (setq current (+ digit-str-len current))))
              (progn
                (insert ".")
                (setq current (1+ current)) ))
            (scale end step current) )))

    (scale 100 10)

-- 
underground experts united