suzanne.soy/fear-of-macros
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Add <meta> tags.

Browse Source
This commit is contained in:
Greg Hendershott 2012-10-27 19:21:01 -04:00
parent 3ac5c1cc40
commit b05abb9f98
1 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
add-to-head.rkt
View File

@ -26,9 +26,19 @@ var s = document.getElementsByTagName('script')[0]; s.parentNode.insertBefore(ga
EOF EOF
) )
(define (meta k v)
(format "<meta name=\"~a\" content=\"~a\">" k v))
(define metas
(string-append
(meta "keywords" "Racket,macros,Scheme")
(meta "description" "Practical Racket macros")
(meta "author" "Greg Hendershott")
(meta "charset" "utf-8")))
(define </head> "</head>") (define </head> "</head>")
(define all (string-append web-font ga-code </head>)) (define all (string-append metas web-font ga-code </head>))
(define subst (regexp-replace* "\n" all "")) ;minify (define subst (regexp-replace* "\n" all "")) ;minify
(define old (file->string "main.html")) (define old (file->string "main.html"))