Work on member web static file generator.
This commit is contained in:
parent
b3bb37cbce
commit
52a2108b4f
5 changed files with 42 additions and 3 deletions
|
@ -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))
|
||||
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue