Re: how to speed up Lisp devel time

[Emanuel Berg <incal@dataswamp.org>]

>> I do not necessarily want them on the same line.
>> Depending on how often or rarely I use that command,
>> I might want labels reminding me what each argument is for.
>
> You got: same line, with labels.

There, at least we solved the problem for my function, now
with an interface setup of 1079 chars :)

Usually it isn't that hard to go from hard-coded individual
case to the general case, well, it isn't as hard as one
thinks anyway. 

Good, because this time - I think it's gonna be pretty hard :)

Zzz

;;; -*- lexical-binding: t -*-
;;
;; this file:
;;   https://dataswamp.org/~incal/emacs-init/iihf.el

(require 'cl-lib)

;; [
;;   end  :d 73     :r 0<            :pa mxd od
;;   step :d end/10 :r 0<  :r 2-10 c
;;   i    :d 0      :r 0<=
;; ]

(defun input-args (&optional do-ps end step i)
  (interactive)
  (let* (( end-def 73)
         (step-def (max 10 (min 2 (/ end-def 10))))
         (   i-def 0)
         (def (list end-def step-def i-def))
         (num-str (format "%s %s %s" (or end end-def) (or step step-def) (or i i-def)))
         (def-str (format "%s %s %s" (nth 0 def) (nth 1 def) (nth 2 def)))
         (str (if do-ps
                  (read-string (format "end step i [RET %s]: " def-str)
                               nil nil def-str)
                num-str))
         (spl (split-string str " "))
         (res (cl-mapcar (lambda (a) (string-to-number a)) spl))
         (all `(,@res ,@(cl-subseq def (length res))))
         (end  (nth 0 all))
         (step (nth 1 all))
         (   i (nth 2 all)))
    (unless (and (<  0  end)
                 (<  0 step)
                 (<= 0    i))
      (error "DNC"))
    (let ((min  2)
          (max 10))
      (setq step (cond ( (< step min)  min )
                       ( (< max  step) max )
                       ( step )))
      (list end step i))))

;; (input-args t)          RET  ; 73 10 0
;; (input-args t)  73 100  RET  ; 73 10 0
;; (input-args t)  73   1  RET  ; 73  2 0
;; (input-args t)  55      RET  ; 55 10 0
;; (input-args nil  1   2    3) ;  1  2 3
;; (input-args nil  1   2)      ;  1  2 0
;; (input-args nil  1)          ;  1 10 0
;; (input-args nil -1)          ;     DNC
;; (input-args nil  1  -1)      ;     DNC
;; (input-args nil  1   1   -1) ;     DNC
;; (input-args nil  1   1    0) ;  1  2 0

(provide 'iihf)

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