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

Delete unused web font. Re-org the code.

Browse Source
This commit is contained in:
Greg Hendershott 2012-10-26 16:37:59 -04:00
parent fdb06cfc11
commit b97caf7973
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
add-to-head.rkt
View File

@ -4,7 +4,8 @@
;; ;;
;; AFIK no way via Scribble to put something into the <head> section. ;; AFIK no way via Scribble to put something into the <head> section.
;; ;;
;; This takes "main.html", adds some GA code, and outputs "index.html". ;; This reads "main.html", injects some stuff immediately before the
;; </head> closing tag, writes to "index.html".
(define web-font (define web-font
"<link href='http://fonts.googleapis.com/css?family=Fenix' rel='stylesheet' type='text/css'>") "<link href='http://fonts.googleapis.com/css?family=Fenix' rel='stylesheet' type='text/css'>")
@ -22,11 +23,12 @@ ga.src = ('https:' == document.location.protocol ? 'https://ssl' : 'http://www')
var s = document.getElementsByTagName('script')[0]; s.parentNode.insertBefore(ga, s); var s = document.getElementsByTagName('script')[0]; s.parentNode.insertBefore(ga, s);
})(); })();
</script> </script>
</head>
EOF EOF
) )
(define all (string-append web-font ga-code)) (define </head> "</head>")
(define all (string-append 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"))