diff --git a/WebSetup.hs b/WebSetup.hs index eb75b090e..23a41fe22 100644 --- a/WebSetup.hs +++ b/WebSetup.hs @@ -10,10 +10,9 @@ import Distribution.Simple.LocalBuildInfo(datadir,buildDir,absoluteInstallDirs) {- To test the GF web services, the minibar and the grammar editor, use "cabal install" (or "runhaskell Setup.hs install") to install gf as usual. - Then start the server with the command "gf -server" and - open http://localhost:41296/minibar/minibar.html in your web browser - (Firefox, Safari, Opera or Chrome). The example grammars listed below will - be available in the minibar. + Then start the server with the command "gf -server" and open + http://localhost:41296/ in your web browser (Firefox, Safari, Opera or + Chrome). The example grammars listed below will be available in the minibar. -} example_grammars = -- :: [(pgf, tmp, src)] @@ -45,9 +44,11 @@ setupWeb gf args dest pkg lbi = do putStrLn "setupWeb" mapM_ (createDirectoryIfMissing True) [grammars_dir,cloud_dir] mapM_ build_pgf example_grammars + copyGFLogo where grammars_dir = www_dir > "grammars" cloud_dir = www_dir > "tmp" -- hmm + logo_dir = www_dir > "Logos" www_dir = datadir (absoluteInstallDirs pkg lbi dest) > "www" gfo_dir = buildDir lbi > "gfo" @@ -64,6 +65,12 @@ setupWeb gf args dest pkg lbi = -- " --output-dir="++grammars_dir++ -- has no effect?! " "++src + gf_logo = "gf0.png" + + copyGFLogo = + do createDirectoryIfMissing True logo_dir + copyFile ("doc">"Logos">gf_logo) (logo_dir>gf_logo) + execute command = do putStrLn command e <- system command diff --git a/src/www/gfse/editor.css b/src/www/gfse/editor.css index b2347cb44..ff5554175 100644 --- a/src/www/gfse/editor.css +++ b/src/www/gfse/editor.css @@ -4,6 +4,7 @@ h1,h2,h3,h4,small { font-family: sans-serif;} h1,h2,h3,h4 { color: #303030; text-shadow: rgba(0,0,0,0.25) 3px 3px 5px; } h1:first-child, h2:first-child { margin-top: 0; margin-bottom: 1ex; } +h1 img { float: right; border: 0; max-width: 50%; } #editor { /* This allows the div to grow wider than the window if necessary to diff --git a/src/www/index.html b/src/www/index.html index 440235e1f..499f4be37 100644 --- a/src/www/index.html +++ b/src/www/index.html @@ -7,7 +7,7 @@ -
GF Cloud Service