Work on member web static file generator.

This commit is contained in:
Dominik Pantůček 2023-04-01 18:02:44 +02:00
parent b3bb37cbce
commit 52a2108b4f
5 changed files with 42 additions and 3 deletions

View file

@ -31,6 +31,7 @@
(
make-member-record
member-file-name
member-file-path
member-record-input-file
@ -128,7 +129,11 @@
(cadr args))
pairs)))))))
;; Convenience accessor
;; File name without directory
(define (member-file-name mr)
(dict-ref mr 'file-name))
;; Convenience accessor for file name with directory
(define (member-file-path mr)
(dict-ref mr 'file-path))