Re: how to speed up Lisp devel time

[Emanuel Berg <incal@dataswamp.org>]

Yuri Khan wrote:

> 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.

;;; -*- 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 num-str)
  (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))
         (def-str (format "%s %s %s" (nth 0 def) (nth 1 def) (nth 2 def)))
         (str (or num-str
                  (read-string (format "1-3 numbers [RET %s]: " def-str)
                               nil nil def-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) RET        ; 73 10 0
;; (input-args) 73 100 RET ; 73 10 0
;; (input-args) 73 1 RET   ; 73  2 0
;; (input-args) 55 RET     ; 55 10 0
;; (input-args "1 2 3")    ;  1  2 3
;; (input-args "1 2")      ;  1  2 0
;; (input-args "1")        ;  1 10 0
;; (input-args "-1")       ;     DNC
;; (input-args "1 -1")     ;     DNC
;; (input-args "1 1 0")    ;   1 2 0
;; (input-args "1 1 -1")   ;     DNC

(provide 'iihf)

> Do a query-replace. Then invoke it again and press M-p.
> The last search string and replacement string are recalled
> to the prompt at the same time, separated with an intangible
> arrow label.

Yes, I see. I am good at → it :)

>> That is, of course, possible. What information would you
>> like outputted, and how, for three integers with default
>> values and some tests to validate?
>
> If defaults are reasonable and I rarely need to stray from
> them (alternatively, if the last used value gets saved in
> history and automatically reused), I would like not to enter
> them at all, and not even a RET to acknowledge the default.
> When I do need to change them, I'd see that option at the
> transient screen, type the corresponding key and type the
> new value, and press RET. At that point, validation can be
> performed, as long as C-g returns me to the transient with
> the value reverted to its previous valid value (rather than
> canceling the whole command).
>
> Have you used Magit? Do a diff or log, see all the options
> they offer.

I'm not familiar with transient and Magit, but default values
and validation are all solved above.

But do tell exactly what interface you like, after you try it.

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