Use editor.

This commit is contained in:
Dominik Pantůček 2023-04-04 14:18:23 +02:00
parent 1e1422fc77
commit f1d3a0e318
2 changed files with 11 additions and 2 deletions

View file

@ -46,7 +46,8 @@ CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
members-dir members-dir
csv-simple csv-simple
members-payments members-payments
web-static) web-static
environment)
;; Print banner ;; Print banner
(print "bbstool 0.9 (c) 2023 Brmlab, z.s.") (print "bbstool 0.9 (c) 2023 Brmlab, z.s.")
@ -121,6 +122,8 @@ CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
(-repl () "Start REPL with everything loaded" (-repl () "Start REPL with everything loaded"
(-needs-bank- #t) (-needs-bank- #t)
(-action- 'repl)) (-action- 'repl))
(-edit () "Edit selected user"
(-action- 'edit))
) )
;; Run tests ;; Run tests
@ -228,6 +231,10 @@ CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
(repl)) (repl))
((genweb) ((genweb)
(gen-web-static MB (-web-dir-))) (gen-web-static MB (-web-dir-)))
((edit)
(if mr
(edit-file (member-file-path mr))
(print "No member to edit.")))
(else (else
(print "Nothing to do.")) (print "Nothing to do."))

View file

@ -31,9 +31,11 @@
edit-file edit-file
) )
(import scheme) (import scheme
(chicken base))
(define (edit-file file-path) (define (edit-file file-path)
(print "Editing...")
#f) #f)
) )