Use editor.
This commit is contained in:
parent
1e1422fc77
commit
f1d3a0e318
2 changed files with 11 additions and 2 deletions
|
@ -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."))
|
||||||
|
|
||||||
|
|
|
@ -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)
|
||||||
|
|
||||||
)
|
)
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue