Hello,
sorry for delay, i am sending code Olaf was asking for.
Best regards,
Razzy.
: (pretty rdeb)
(NIL (println "q quit | d (d) | e safe-eval | unbug-all")
(case (key)
("d" (d))
("e" (unless (fork) (msg (e)) (bye)))
("q" NIL) ) )
: (pretty f)
(NIL
(let? A (pipe (call 'sh "-c" "cat ../.pilrc | fzf") (read))
(pretty A)
(println)
(println "q,d quit | w eval | e safe-eval | r in-hist")
(case (key)
("q" NIL)
("w" (eval A))
("e" (unless (fork) (msg (A)) (bye)))
("r"
(nil
(let? B (history)
(history (append B (list (sym A)))) ) ) )
("d" NIL) ) ) )
