brmlab/hackerbase
4
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Add as command-line argument.

Browse source
This commit is contained in:
Dominik Pantůček 2023-04-01 18:15:31 +02:00
parent 76f45b5f7c
commit 10ca5f9289
2 changed files with 8 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

7
src/bbstool.scm
View file

@ -60,6 +60,7 @@ CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
(define -action- (make-parameter #f)) (define -action- (make-parameter #f))
(define -fname- (make-parameter #f)) (define -fname- (make-parameter #f))
(define -run-tests?- (make-parameter #f)) (define -run-tests?- (make-parameter #f))
(define -web-dir- (make-parameter #f))
;; Arguments parsing ;; Arguments parsing
(command-line (command-line
@ -102,6 +103,10 @@ 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))
(-genweb (dir) "Generate static web files"
(-needs-bank- #t)
(-web-dir- dir)
(-action- 'genweb))
) )
;; Run tests ;; Run tests
@ -210,6 +215,8 @@ CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
(print-members-fees-table MB)) (print-members-fees-table MB))
((repl) ((repl)
(repl)) (repl))
((genweb)
(gen-web-static MB (-web-dir-)))
(else (else
(print "Nothing to do.")) (print "Nothing to do."))

2
src/web-static.scm
View file

@ -65,7 +65,7 @@
(lambda () (lambda ()
(let loop ((lines (let loop ((lines
(get-process-output-lines (get-process-output-lines
(sprintf "git -C \"~A\" log \"~A\"" (sprintf "git -C \"~A\" log -p -- \"~A\""
(string-translate* (*members-directory*) (string-translate* (*members-directory*)
'(("\"" "\\\""))) '(("\"" "\\\"")))
(member-file-name mr) (member-file-name mr)