From b3bb37cbce876e460204be2ca980cb4745ece32a Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?= Date: Sat, 1 Apr 2023 17:45:56 +0200 Subject: [PATCH] Output member file to nick.misc in web output. --- src/member-record.scm | 5 +++++ src/members-print.scm | 2 +- src/web-static.scm | 6 ++++++ 3 files changed, 12 insertions(+), 1 deletion(-) diff --git a/src/member-record.scm b/src/member-record.scm index cf6d3f9..571421c 100644 --- a/src/member-record.scm +++ b/src/member-record.scm @@ -42,6 +42,7 @@ member-record-sub-has-key? member-record-sub-ensure + member-source member-record-info member-missing-keys member-has-highlights? @@ -196,6 +197,10 @@ sd (dict-set sd key val)))))))) + ;; Returns source lines + (define (member-source mr) + (dict-ref mr 'source '())) + ;; Returns member info key value (define (member-record-info mr key . defaults) (let ((info (dict-ref mr 'info))) diff --git a/src/members-print.scm b/src/members-print.scm index 5c0a6dc..119aa05 100644 --- a/src/members-print.scm +++ b/src/members-print.scm @@ -151,7 +151,7 @@ ;; Nicely prints the member source with any errors recorded. (define (print-member-source mr) - (let* ((lines (dict-ref mr 'source mr)) + (let* ((lines (member-source mr)) (file-name (dict-ref mr 'file-name)) (hls (dict-ref mr 'highlights '()))) (print file-name ":") diff --git a/src/web-static.scm b/src/web-static.scm index 6563f12..4f9cf58 100644 --- a/src/web-static.scm +++ b/src/web-static.scm @@ -47,6 +47,12 @@ (with-output-to-file (sprintf "~A.balance" nick) (lambda () (print (member-total-balance mr)))) + (with-output-to-file (sprintf "~A.misc" nick) + (lambda () + (let loop ((lines (member-source mr))) + (when (not (null? lines)) + (print (car lines)) + (loop (cdr lines)))))) )) )