haskal
/
chomp
2
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

sass time

This commit is contained in:
xenia 2020-05-15 15:56:54 -04:00
parent 14fc346705
commit 26e803b051
2 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
private/rules.rkt
View File

@ -7,6 +7,7 @@
markdown markdown
markdown/toc markdown/toc
racket/fasl racket/fasl
(only-in sass [compile/string sass-compile/string])
"compile.rkt" "compile.rkt"
"prefs.rkt") "prefs.rkt")
@ -184,11 +185,17 @@
(write-bytes (s-exp->fasl (for/hash ([(k v) (in-hash index)]) (write-bytes (s-exp->fasl (for/hash ([(k v) (in-hash index)])
(values k (set->list v)))) out))))) (values k (set->list v)))) out)))))
(define compile-css
(rule '("src/style.sass") "public/style.css"
(lambda (in out)
(define str (port->string (hash-ref in "src/style.sass")))
(write-string (sass-compile/string str #t) out))))
(define compiler-rules (define compiler-rules
(set-union (set-union
(generate-post-render-rules) (generate-post-render-rules)
(set compile-index-json (set compile-css
compile-index-json
compile-webfinger))) compile-webfinger)))
(define ops (generate-operations compiler-rules)) (define ops (generate-operations compiler-rules))

2
scripts/init
View File

@ -54,7 +54,7 @@
(write-string "this section left intentionally blank") (write-string "this section left intentionally blank")
(void))) (void)))
(with-output-to-file "src/style.sass" (with-output-to-file "src/style.sass"
(lambda () (write-string "// styles go here :P") (void))) (lambda () (write-string "// styles go here :P\n") (void)))
(make-directory "src/posts") (make-directory "src/posts")
(make-directory "src/drafts") (make-directory "src/drafts")