I had been meaning to ask this same question myself (and thanks to dave
for bringing it up). I wrote a quick launcher namely for the console,
it uses rotate to select options and settings, that changes the options
list "in place" and worked really well actually, I like the effect.
Then I wanted to insert INTO the options list using command line
switches, and there I was stumped at first, wondering what is
destructive, what is not and so forth (or what that even IS), finally
returned a rebuilt options list to an assignment, but thinking all
along that "there must be a better way".
So made some changes using your suggestion with set and nth:
Replaced this:
#(de insert_opt (Id X)
# (setq *opts
# (make
# (for L *opts
# (if (= Id (car L))
# (link (place 4 L (cons X (last L))))
# (link L) ) ) ) ) )
with this:
(de insert_opt (Id X)
(let L (nth (assoc Id *opts) 4)
(set L (cons X (car L))) ) )
(this uses a let because I couldn't get a @ or @@ working...)
Usage:
By the way, if you fire up ez_opts (its fun), use j and k to select
options, h and l to rotate presets (the car in a presets list is the
active setting), and if the car is itself a list, you can rotate it with
the i key. That's it! The opts menu here is for (what else!) a
flashcard-like program, but could be anything.
***
#!/usr/bin/picolisp /usr/lib/picolisp/lib.l
(setq
*ed2 "^[[2J" *cud3i "^[[3B " *cr "^M" *esc "^["
*ezkeys '("h" "j" "k" "l" "i") )
(de cupyx (Y X)
(pack "^[[" Y ";" X "H") )
(de rotl (L)
(do (- (length L) 1) (rot L)) )
(de gopt (X)
(car (last (assoc X *opts))) )
(de ez_opts ()
(loop
(prin *ed2 (cupyx 2 3) *title)
(for L (reverse *opts)
(prin (cupyx (cadr L) 3) (caddr L))
(print (last L)) )
(prin *cr)
(T (not (member (setq K (key)) *ezkeys)) K)
(case K
("j" (rotl *opts))
("k" (rot *opts))
("l" (rot (last (car *opts))))
("h" (rotl (last (car *opts))))
("i" (rot (car (last (car *opts))))) ) ) )
#(de insert_opt (Id X)
# (setq *opts
# (make
# (for L *opts
# (if (= Id (car L))
# (link (place 4 L (cons X (last L))))
# (link L) ) ) ) ) )
(de insert_opt (Id X)
(let L (nth (assoc Id *opts) 4)
(set L (cons X (car L))) ) )
(de l ()
(let X (any (opt))
(when (info X) (load X)) ) )
### end of "lib-able" ez_opts, start of cards ###
(setq *title "CARDS: ")
(setq *opts '(
(hst 4 "hosts: " (pc fb))
(fil 6 "files: " (de dgs paz saz))
(sel 8 "limit: " (5 10 20 50))
(dsp 10 "views: " ((1 2) (d_ de) (p de) (sp 1) (v de)))
(sec 12 "times: " ((-1 2) (-1 -1) (3 2) (1 1)))
(duh 14 "lkeys: " ((l) (l NIL)))
(dia 16 "sshow: " (1 2 5)) ))
(de main NIL
(seed (time))
(while (<> (ez_opts) *esc) )
# cards program code removed - exit with ESC! #
(prin *ed2 "^[[1;1H")
(raw NIL) )
# usage: -v "4 5" (adds (4 5) to views presets)
(de v ()
(let X (str (opt))
(when (lst? X) (insert_opt 'dsp X) ) ) )
# usage: -f xxx (file must exist, adds to presets)
(de f ()
(let X (any (opt))
(when (info X) (insert_opt 'fil X) ) ) )
(load T)
(main)
(bye)
--
UNSUBSCRIBE: mailto:picolisp@software-lab.de?subject=Unsubscribe
