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

2
src/web-static.scm
View file

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