diff --git a/src/bbstool.scm b/src/bbstool.scm index 31608e2..6112717 100644 --- a/src/bbstool.scm +++ b/src/bbstool.scm @@ -46,7 +46,8 @@ CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. members-dir csv-simple members-payments - web-static) + web-static + environment) ;; Print banner (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" (-needs-bank- #t) (-action- 'repl)) + (-edit () "Edit selected user" + (-action- 'edit)) ) ;; Run tests @@ -228,6 +231,10 @@ CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. (repl)) ((genweb) (gen-web-static MB (-web-dir-))) + ((edit) + (if mr + (edit-file (member-file-path mr)) + (print "No member to edit."))) (else (print "Nothing to do.")) diff --git a/src/environment.scm b/src/environment.scm index af2ff69..c45cb62 100644 --- a/src/environment.scm +++ b/src/environment.scm @@ -31,9 +31,11 @@ edit-file ) - (import scheme) + (import scheme + (chicken base)) (define (edit-file file-path) + (print "Editing...") #f) )