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

Rename initial accessors.

Browse source
This commit is contained in:
Dominik Pantůček 2023-04-11 22:00:04 +02:00
parent c854fed99d
commit 5afdd8fb44
5 changed files with 11 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

12
src/brmember.scm
View file

@ -31,9 +31,9 @@
( (
make-brmember make-brmember
member-file-name brmember-file-name
member-file-path brmember-file-path
member-record-input-file brmember-input-file
member-record-set member-record-set
member-record-add-highlight member-record-add-highlight
@ -130,15 +130,15 @@
pairs))))))) pairs)))))))
;; File name without directory ;; File name without directory
(define (member-file-name mr) (define (brmember-file-name mr)
(ldict-ref mr 'file-name)) (ldict-ref mr 'file-name))
;; Convenience accessor for file name with directory ;; Convenience accessor for file name with directory
(define (member-file-path mr) (define (brmember-file-path mr)
(ldict-ref mr 'file-path)) (ldict-ref mr 'file-path))
;; Returns opened input file for this record (used by parser). ;; Returns opened input file for this record (used by parser).
(define (member-record-input-file mr) (define (brmember-input-file mr)
(open-input-file (open-input-file
(ldict-ref mr 'file-path))) (ldict-ref mr 'file-path)))

2
src/hackerbase.scm
View file

@ -297,7 +297,7 @@
(gen-web-static MB (-web-dir-))) (gen-web-static MB (-web-dir-)))
((edit) ((edit)
(if mr (if mr
(edit-file (member-file-path mr)) (edit-file (brmember-file-path mr))
(print "No member to edit."))) (print "No member to edit.")))
((no-op) (void)) ((no-op) (void))
((unpaired) ((unpaired)

2
src/member-parser.scm
View file

@ -222,7 +222,7 @@
;; Loads member file source. Performs passes 0, 1 and 2. ;; Loads member file source. Performs passes 0, 1 and 2.
(define (load-member-file mr) (define (load-member-file mr)
(let* ((mrif (member-record-input-file mr)) (let* ((mrif (brmember-input-file mr))
(source (read-lines mrif)) (source (read-lines mrif))
(mrp (parse-member-lines mr source))) (mrp (parse-member-lines mr source)))
(member-schema-finalize (member-schema-finalize

4
src/members-print.scm
View file

@ -288,7 +288,7 @@
(newline) (newline)
(print "Member files with errors (" (length pmrs) "): " (print "Member files with errors (" (length pmrs) "): "
(string-intersperse (string-intersperse
(map member-file-path pmrs) (map brmember-file-path pmrs)
", ")))) ", "))))
(let ((pmrs (filter-members-by-predicate mb (lambda (mr) (let ((pmrs (filter-members-by-predicate mb (lambda (mr)
(and (member-has-highlights? mr) (and (member-has-highlights? mr)
@ -297,7 +297,7 @@
(newline) (newline)
(print "Member files with issues: " (print "Member files with issues: "
(string-intersperse (string-intersperse
(map member-file-path pmrs) (map brmember-file-path pmrs)
", "))))) ", ")))))
;; Prints the stats in format used by gnuplot. ;; Prints the stats in format used by gnuplot.

2
src/web-static.scm
View file

@ -74,7 +74,7 @@
(sprintf "git -C \"~A\" log -p -- \"~A\"" (sprintf "git -C \"~A\" log -p -- \"~A\""
(string-translate* (*members-directory*) (string-translate* (*members-directory*)
'(("\"" . "\\\""))) '(("\"" . "\\\"")))
(member-file-name mr) (brmember-file-name mr)
)))) ))))
(when (not (null? lines)) (when (not (null? lines))
(print (car lines)) (print (car lines))