Re: how to speed up Lisp devel time

[Emanuel Berg <incal@dataswamp.org>]

Eduardo Ochs wrote:

>> (interactive [...]
>
> Can you show the complete function?

Sure, see the seven test cases as well.

;; -----------------------------------------------------------------------
;; Scale, `draw-scale'
;; ~~~~~~~~~~~~~~~~~~~
;;
;; (draw-scale)                0......7......14.....21.....28.....35...
;; (draw-scale 10 3)           0..3..6..9.
;; (draw-scale 16 4 1)         1...5...9...13..
;; M-x draw-scale RET          0......7......14.....21.....28.....35...
;; C-u M-x draw-scale RET      0.2.4
;; C-u   1 draw-scale RET      0.
;; C-u 300 M-x draw-scale RET  0.........10........20........30........
;; -----------------------------------------------------------------------

(require 'cl-lib)

(defun draw-scale (&optional end step i)
  (interactive (if (numberp current-prefix-arg)
                   (list current-prefix-arg)
                 current-prefix-arg))
  (unless end
    (setq end 73))
  (unless step
    (setq step (min 10 (max 2 (/ end 10)))))
  (unless i
    (setq i 0))
  (unless (and (numberp i)    (<= 0 i)
               (numberp end)  (<  0 end)
               (numberp step) (<  0 step))
    (error "Bogus indata"))
  (cl-loop
    with cur = i
    for  dig = (format "%s" (if (zerop (% (- cur i) step)) cur "."))
    while (<= cur end) do
      (insert dig)
      (cl-incf cur (length dig))))

-- 
underground experts united
https://dataswamp.org/~incal