schemeorg-community
/
registry.scheme.org
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Refactor

This commit is contained in:
Lassi Kortela 2020-08-05 12:51:41 +03:00
parent 1275bc5a7c
commit 67f2c64888
1 changed files with 16 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
generate.scm
View File

@ -90,7 +90,7 @@
`((code ,(symbol->string (assoc1 'id entry))) `((code ,(symbol->string (assoc1 'id entry)))
,(assoc1 'description entry) ,(assoc1 'description entry)
,(assoc1 'contact entry)))) ,(assoc1 'contact entry))))
(group-file 'id "scheme-id.scm"))))) (sort-by-id (group-file 'id "scheme-id.scm"))))))
(define (operating-system) (define (operating-system)
`((h2 "Operating systems") `((h2 "Operating systems")
@ -100,7 +100,7 @@
(cons #f (cons #f
`((code ,(symbol->string (assoc1 'id entry))) `((code ,(symbol->string (assoc1 'id entry)))
,(assoc1 'description entry)))) ,(assoc1 'description entry))))
(group-file 'id "operating-system.scm"))))) (sort-by-id (group-file 'id "operating-system.scm"))))))
(define (machine) (define (machine)
`((h2 "Machines") `((h2 "Machines")
@ -110,13 +110,16 @@
(cons #f (cons #f
`((code ,(symbol->string (assoc1 'id entry))) `((code ,(symbol->string (assoc1 'id entry)))
,(assoc1 'description entry)))) ,(assoc1 'description entry))))
(group-file 'id "machine.scm"))))) (sort-by-id (group-file 'id "machine.scm"))))))
(define (splice-implementations) (define (splice-implementations)
(map (lambda (entry) (classify "red" (group-file 'id "scheme-id.scm")))
`((id ,(assoc1 'id entry))
(description ,(assoc1 'description entry)))) (define (splice-operating-systems)
(group-file 'id "scheme-id.scm"))) (classify "green" (group-file 'id "operating-system.scm")))
(define (splice-machines)
(classify "blue" (group-file 'id "machine.scm")))
(define (feature) (define (feature)
`((h2 "Feature identifiers") `((h2 "Feature identifiers")
@ -128,12 +131,9 @@
,(assoc1 'description entry)))) ,(assoc1 'description entry))))
(sort-by-id (sort-by-id
(append (group-file 'id "features.scm") (append (group-file 'id "features.scm")
(classify "red" (splice-implementations)
(splice-implementations)) (splice-operating-systems)
(classify "green" (splice-machines)))))))
(group-file 'id "operating-system.scm"))
(classify "blue"
(group-file 'id "machine.scm"))))))))
(define (library-name) (define (library-name)
`((h2 "Library name prefixes") `((h2 "Library name prefixes")
@ -145,7 +145,7 @@
,(assoc1 'description entry)))) ,(assoc1 'description entry))))
(sort-by-id (sort-by-id
(append (group-file 'id "library-name.scm") (append (group-file 'id "library-name.scm")
(classify "red" (splice-implementations)))))))) (splice-implementations)))))))
(define (reader-directive) (define (reader-directive)
`((h2 "Reader directives") `((h2 "Reader directives")
@ -156,8 +156,7 @@
`((code ,(symbol->string (assoc1 'id entry))) `((code ,(symbol->string (assoc1 'id entry)))
,(assoc1 'description entry) ,(assoc1 'description entry)
(code ,(assoc1 'prefixes entry))))) (code ,(assoc1 'prefixes entry)))))
(sort-by-id (sort-by-id (group-file 'id "reader-directive.scm"))))))
(append (group-file 'id "reader-directive.scm")))))))
(define (foreign-status-set) (define (foreign-status-set)
`((h2 "Foreign status sets") `((h2 "Foreign status sets")
@ -167,7 +166,7 @@
(cons #f (cons #f
`((code ,(symbol->string (assoc1 'id entry))) `((code ,(symbol->string (assoc1 'id entry)))
,(assoc1 'description entry)))) ,(assoc1 'description entry))))
(group-file 'id "foreign-status-set.scm"))))) (sort-by-id (group-file 'id "foreign-status-set.scm"))))))
(define (foreign-status-property) (define (foreign-status-property)
`((h2 "Foreign status properties") `((h2 "Foreign status properties")