suzanne.soy/whalesong
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

adding apple-mobile-specific flags to see if we can get rid of the browser bar. Changing the name of the manifest file to appcache per html5 recommendations

Browse Source
This commit is contained in:
Danny Yoo 2011-09-26 14:15:17 -04:00
parent 0b50152aca
commit 1ecf32896d
2 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
js-assembler/package.rkt
View File

@ -499,6 +499,8 @@ EOF
<html ~a> <html ~a>
<head> <head>
<meta name="viewport" content="initial-scale=1.0, width=device-width, height=device-height, minimum-scale=1.0, maximum-scale=1.0, user-scalable=no" /> <meta name="viewport" content="initial-scale=1.0, width=device-width, height=device-height, minimum-scale=1.0, maximum-scale=1.0, user-scalable=no" />
<meta name="apple-mobile-web-app-capable" content="yes" />
<meta name="apple-mobile-web-app-status-bar-style" content="black" />
<meta charset="utf-8"/> <meta charset="utf-8"/>
<title>~a</title> <title>~a</title>
~a ~a

2
whalesong-helpers.rkt
View File

@ -120,7 +120,7 @@
(build-path (build-path
(regexp-replace #rx"[.](rkt|ss)$" (regexp-replace #rx"[.](rkt|ss)$"
(path->string (file-name-from-path f)) (path->string (file-name-from-path f))
".manifest"))]) ".appcache"))])
(unless (directory-exists? (current-output-dir)) (unless (directory-exists? (current-output-dir))
(fprintf (current-report-port) "Creating destination directory ~s\n" (current-output-dir)) (fprintf (current-report-port) "Creating destination directory ~s\n" (current-output-dir))
(make-directory* (current-output-dir))) (make-directory* (current-output-dir)))