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

Log static web file generator.

Browse source
This commit is contained in:
Dominik Pantůček 2023-04-11 20:58:36 +02:00
parent e8bd82ef1e
commit 8abf44b2c8
3 changed files with 9 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/logging.scm
View file

@ -70,12 +70,14 @@
(when (or (not (*log-file*))
(not (log-file)))
(when (not (log-file))
(log-file (open-output-file (*log-file*) #:append)))
(log-file (open-output-file (*log-file*) #:append))
(log-info "Logging started"))
(display (format "~A [~A] ~A"
(format-current-time)
(string-upcase (symbol->string level))
(apply format fmt args))
(log-file))
(newline (log-file))
(flush-output (log-file))))
;; Specific log procedures