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

Use Fenix web font.

Browse Source
This commit is contained in:
Greg Hendershott 2012-10-26 09:10:16 -04:00
parent 6b48e57c68
commit a70e367ebb
3 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
add-ga.rkt
View File

@ -6,7 +6,10 @@
;; ;;
;; This takes "main.html", adds some GA code, and outputs "index.html". ;; This takes "main.html", adds some GA code, and outputs "index.html".
(define _subst (define web-font
"<link href='http://fonts.googleapis.com/css?family=Fenix' rel='stylesheet' type='text/css'>")
(define ga-code
#<<EOF #<<EOF
<script type="text/javascript"> <script type="text/javascript">
var _gaq = _gaq || []; var _gaq = _gaq || [];
@ -23,7 +26,8 @@ var s = document.getElementsByTagName('script')[0]; s.parentNode.insertBefore(ga
EOF EOF
) )
(define subst (regexp-replace* "\n" _subst "")) ;minify (define all (string-append web-font ga-code))
(define subst (regexp-replace* "\n" all "")) ;minify
(define old (file->string "main.html")) (define old (file->string "main.html"))
(define new (regexp-replace "</head>" old subst)) (define new (regexp-replace "</head>" old subst))

2
gh.css
View File

@ -7,7 +7,7 @@
/* Serif: */ /* Serif: */
.main, .refcontent, .tocview, .tocsub, i { .main, .refcontent, .tocview, .tocsub, i {
font-family: serif; font-family: 'Fenix',serif;
} }
/* Sans-serif: */ /* Sans-serif: */

2
index.html
View File

File diff suppressed because one or more lines are too long