Compare commits
8 commits
2d5cb45beb
...
1e24fcf466
Author | SHA1 | Date | |
---|---|---|---|
1e24fcf466 | |||
9b949230dd | |||
7ec9a8f10e | |||
53d405d386 | |||
315accc42e | |||
f574c9cebf | |||
87c5681d2e | |||
97aa05b2d7 |
8
.gitignore
vendored
|
@ -28,3 +28,11 @@ cabal.project.local~
|
||||||
result
|
result
|
||||||
result-*
|
result-*
|
||||||
|
|
||||||
|
# ---> Yesod
|
||||||
|
*.sqlite3
|
||||||
|
*.sqlite3-shm
|
||||||
|
*.sqlite3-wal
|
||||||
|
static/tmp/
|
||||||
|
|
||||||
|
# ---> Editor
|
||||||
|
tags
|
||||||
|
|
210
OwOpointTracker.cabal
Normal file
|
@ -0,0 +1,210 @@
|
||||||
|
cabal-version: 1.12
|
||||||
|
|
||||||
|
-- This file has been generated from package.yaml by hpack version 0.35.2.
|
||||||
|
--
|
||||||
|
-- see: https://github.com/sol/hpack
|
||||||
|
|
||||||
|
name: OwOpointTracker
|
||||||
|
version: 0.0.0
|
||||||
|
build-type: Simple
|
||||||
|
data-files: config/models.persistentmodels
|
||||||
|
, config/favicon.ico
|
||||||
|
, config/settings.yml
|
||||||
|
, config/test-settings.yml
|
||||||
|
, config/robots.txt
|
||||||
|
, config/routes.yesodroutes
|
||||||
|
, static/css/bootstrap.css
|
||||||
|
, static/fonts/glyphicons-halflings-regular.eot
|
||||||
|
, static/fonts/glyphicons-halflings-regular.svg
|
||||||
|
, static/fonts/glyphicons-halflings-regular.ttf
|
||||||
|
, static/fonts/glyphicons-halflings-regular.woff
|
||||||
|
, templates/*.hamlet
|
||||||
|
-- , templates/*.julius
|
||||||
|
, templates/*.lucius
|
||||||
|
|
||||||
|
flag dev
|
||||||
|
description: Turn on development settings, like auto-reload templates.
|
||||||
|
manual: False
|
||||||
|
default: False
|
||||||
|
|
||||||
|
flag library-only
|
||||||
|
description: Build for use with "yesod devel"
|
||||||
|
manual: False
|
||||||
|
default: False
|
||||||
|
|
||||||
|
library
|
||||||
|
exposed-modules:
|
||||||
|
Application
|
||||||
|
Foundation
|
||||||
|
Handler.Common
|
||||||
|
Handler.Home
|
||||||
|
Handler.Station
|
||||||
|
Handler.Ad
|
||||||
|
Import
|
||||||
|
Import.NoFoundation
|
||||||
|
Model
|
||||||
|
Settings
|
||||||
|
Settings.StaticFiles
|
||||||
|
Json
|
||||||
|
other-modules:
|
||||||
|
Paths_OwOpointTracker
|
||||||
|
hs-source-dirs:
|
||||||
|
src
|
||||||
|
build-depends:
|
||||||
|
aeson >=1.4 && <2.2
|
||||||
|
, base >=4.9.1.0 && <5
|
||||||
|
, bytestring >=0.10 && <0.12
|
||||||
|
, case-insensitive
|
||||||
|
, classy-prelude ==1.5.*
|
||||||
|
, classy-prelude-conduit ==1.5.*
|
||||||
|
, classy-prelude-yesod ==1.5.*
|
||||||
|
, conduit >=1.0 && <2.0
|
||||||
|
, containers
|
||||||
|
, data-default
|
||||||
|
, directory >=1.1 && <1.4
|
||||||
|
, fast-logger >=2.2 && <3.3
|
||||||
|
, file-embed
|
||||||
|
, foreign-store
|
||||||
|
, hjsmin >=0.1 && <0.3
|
||||||
|
, http-client-tls ==0.3.*
|
||||||
|
, http-conduit ==2.3.*
|
||||||
|
, monad-control >=0.3 && <1.1
|
||||||
|
, monad-logger ==0.3.*
|
||||||
|
, persistent >=2.9 && <2.15
|
||||||
|
, persistent-sqlite >=2.9 && <2.14
|
||||||
|
, persistent-template >=2.5 && <2.14
|
||||||
|
, random
|
||||||
|
, safe
|
||||||
|
, shakespeare >=2.0 && <2.2
|
||||||
|
, template-haskell
|
||||||
|
, text >=0.11 && <2.1
|
||||||
|
, time
|
||||||
|
, tomland
|
||||||
|
, unordered-containers
|
||||||
|
, vector
|
||||||
|
, wai
|
||||||
|
, wai-extra >=3.0 && <3.2
|
||||||
|
, wai-logger >=2.2 && <2.5
|
||||||
|
, warp >=3.0 && <3.4
|
||||||
|
, yaml ==0.11.*
|
||||||
|
, yesod ==1.6.*
|
||||||
|
, yesod-auth ==1.6.*
|
||||||
|
, yesod-core ==1.6.*
|
||||||
|
, yesod-form >=1.6 && <1.8
|
||||||
|
, yesod-static ==1.6.*
|
||||||
|
default-language: Haskell2010
|
||||||
|
if (flag(dev)) || (flag(library-only))
|
||||||
|
ghc-options: -Wall -fwarn-tabs -O0
|
||||||
|
cpp-options: -DDEVELOPMENT
|
||||||
|
else
|
||||||
|
ghc-options: -Wall -fwarn-tabs -O1
|
||||||
|
|
||||||
|
executable OwOpointTracker
|
||||||
|
main-is: main.hs
|
||||||
|
other-modules:
|
||||||
|
DevelMain
|
||||||
|
Paths_OwOpointTracker
|
||||||
|
hs-source-dirs:
|
||||||
|
app
|
||||||
|
ghc-options: -threaded -rtsopts -with-rtsopts=-N
|
||||||
|
build-depends:
|
||||||
|
OwOpointTracker
|
||||||
|
, aeson >=1.4 && <2.2
|
||||||
|
, base >=4.9.1.0 && <5
|
||||||
|
, bytestring >=0.10 && <0.12
|
||||||
|
, case-insensitive
|
||||||
|
, classy-prelude ==1.5.*
|
||||||
|
, classy-prelude-conduit ==1.5.*
|
||||||
|
, classy-prelude-yesod ==1.5.*
|
||||||
|
, conduit >=1.0 && <2.0
|
||||||
|
, containers
|
||||||
|
, data-default
|
||||||
|
, directory >=1.1 && <1.4
|
||||||
|
, fast-logger >=2.2 && <3.3
|
||||||
|
, file-embed
|
||||||
|
, foreign-store
|
||||||
|
, hjsmin >=0.1 && <0.3
|
||||||
|
, http-client-tls ==0.3.*
|
||||||
|
, http-conduit ==2.3.*
|
||||||
|
, monad-control >=0.3 && <1.1
|
||||||
|
, monad-logger ==0.3.*
|
||||||
|
, persistent >=2.9 && <2.15
|
||||||
|
, persistent-sqlite >=2.9 && <2.14
|
||||||
|
, persistent-template >=2.5 && <2.14
|
||||||
|
, safe
|
||||||
|
, shakespeare >=2.0 && <2.2
|
||||||
|
, template-haskell
|
||||||
|
, text >=0.11 && <2.1
|
||||||
|
, time
|
||||||
|
, unordered-containers
|
||||||
|
, vector
|
||||||
|
, wai
|
||||||
|
, wai-extra >=3.0 && <3.2
|
||||||
|
, wai-logger >=2.2 && <2.5
|
||||||
|
, warp >=3.0 && <3.4
|
||||||
|
, yaml ==0.11.*
|
||||||
|
, yesod ==1.6.*
|
||||||
|
, yesod-auth ==1.6.*
|
||||||
|
, yesod-core ==1.6.*
|
||||||
|
, yesod-form >=1.6 && <1.8
|
||||||
|
, yesod-static ==1.6.*
|
||||||
|
default-language: Haskell2010
|
||||||
|
if flag(library-only)
|
||||||
|
buildable: False
|
||||||
|
|
||||||
|
test-suite OwOpointTracker-test
|
||||||
|
type: exitcode-stdio-1.0
|
||||||
|
main-is: Spec.hs
|
||||||
|
other-modules:
|
||||||
|
Handler.CommonSpec
|
||||||
|
Handler.HomeSpec
|
||||||
|
TestImport
|
||||||
|
Paths_OwOpointTracker
|
||||||
|
hs-source-dirs:
|
||||||
|
test
|
||||||
|
ghc-options: -Wall
|
||||||
|
build-depends:
|
||||||
|
OwOpointTracker
|
||||||
|
, aeson >=1.4 && <2.2
|
||||||
|
, base >=4.9.1.0 && <5
|
||||||
|
, bytestring >=0.10 && <0.12
|
||||||
|
, case-insensitive
|
||||||
|
, classy-prelude ==1.5.*
|
||||||
|
, classy-prelude-conduit ==1.5.*
|
||||||
|
, classy-prelude-yesod ==1.5.*
|
||||||
|
, conduit >=1.0 && <2.0
|
||||||
|
, containers
|
||||||
|
, data-default
|
||||||
|
, directory >=1.1 && <1.4
|
||||||
|
, fast-logger >=2.2 && <3.3
|
||||||
|
, file-embed
|
||||||
|
, foreign-store
|
||||||
|
, hjsmin >=0.1 && <0.3
|
||||||
|
, hspec >=2.0.0
|
||||||
|
, http-client-tls ==0.3.*
|
||||||
|
, http-conduit ==2.3.*
|
||||||
|
, microlens
|
||||||
|
, monad-control >=0.3 && <1.1
|
||||||
|
, monad-logger ==0.3.*
|
||||||
|
, persistent >=2.9 && <2.15
|
||||||
|
, persistent-sqlite >=2.9 && <2.14
|
||||||
|
, persistent-template >=2.5 && <2.14
|
||||||
|
, safe
|
||||||
|
, shakespeare >=2.0 && <2.2
|
||||||
|
, template-haskell
|
||||||
|
, text >=0.11 && <2.1
|
||||||
|
, time
|
||||||
|
, unordered-containers
|
||||||
|
, vector
|
||||||
|
, wai
|
||||||
|
, wai-extra >=3.0 && <3.2
|
||||||
|
, wai-logger >=2.2 && <2.5
|
||||||
|
, warp >=3.0 && <3.4
|
||||||
|
, yaml ==0.11.*
|
||||||
|
, yesod ==1.6.*
|
||||||
|
, yesod-auth ==1.6.*
|
||||||
|
, yesod-core ==1.6.*
|
||||||
|
, yesod-form >=1.6 && <1.8
|
||||||
|
, yesod-static ==1.6.*
|
||||||
|
, yesod-test
|
||||||
|
default-language: Haskell2010
|
43
README.md
|
@ -1,2 +1,43 @@
|
||||||
# haskellTemplate
|
## Haskell Setup
|
||||||
|
|
||||||
|
1. If you haven't already, [install Stack](https://haskell-lang.org/get-started)
|
||||||
|
* On POSIX systems, this is usually `curl -sSL https://get.haskellstack.org/ | sh`
|
||||||
|
2. Install the `yesod` command line tool: `stack install yesod-bin --install-ghc`
|
||||||
|
3. Build libraries: `stack build`
|
||||||
|
|
||||||
|
If you have trouble, refer to the [Yesod Quickstart guide](https://www.yesodweb.com/page/quickstart) for additional detail.
|
||||||
|
|
||||||
|
## Development
|
||||||
|
|
||||||
|
Start a development server with:
|
||||||
|
|
||||||
|
```
|
||||||
|
stack exec -- yesod devel
|
||||||
|
```
|
||||||
|
|
||||||
|
As your code changes, your site will be automatically recompiled and redeployed to localhost.
|
||||||
|
|
||||||
|
## Tests
|
||||||
|
|
||||||
|
```
|
||||||
|
stack test --flag OwOpointTracker:library-only --flag OwOpointTracker:dev
|
||||||
|
```
|
||||||
|
|
||||||
|
(Because `yesod devel` passes the `library-only` and `dev` flags, matching those flags means you don't need to recompile between tests and development, and it disables optimization to speed up your test compile times).
|
||||||
|
|
||||||
|
## Documentation
|
||||||
|
|
||||||
|
* Read the [Yesod Book](https://www.yesodweb.com/book) online for free
|
||||||
|
* Check [Stackage](http://stackage.org/) for documentation on the packages in your LTS Haskell version, or [search it using Hoogle](https://www.stackage.org/lts/hoogle?q=). Tip: Your LTS version is in your `stack.yaml` file.
|
||||||
|
* For local documentation, use:
|
||||||
|
* `stack haddock --open` to generate Haddock documentation for your dependencies, and open that documentation in a browser
|
||||||
|
* `stack hoogle <function, module or type signature>` to generate a Hoogle database and search for your query
|
||||||
|
* The [Yesod cookbook](https://github.com/yesodweb/yesod-cookbook) has sample code for various needs
|
||||||
|
|
||||||
|
## Getting Help
|
||||||
|
|
||||||
|
* Ask questions on [Stack Overflow, using the Yesod or Haskell tags](https://stackoverflow.com/questions/tagged/yesod+haskell)
|
||||||
|
* Ask the [Yesod Google Group](https://groups.google.com/forum/#!forum/yesodweb)
|
||||||
|
* There are several chatrooms you can ask for help:
|
||||||
|
* For IRC, try Freenode#yesod and Freenode#haskell
|
||||||
|
* [Functional Programming Slack](https://fpchat-invite.herokuapp.com/), in the #haskell, #haskell-beginners, or #yesod channels.
|
||||||
|
|
BIN
ads/image0.png
Normal file
After Width: | Height: | Size: 511 KiB |
BIN
ads/image1.png
Normal file
After Width: | Height: | Size: 1.7 MiB |
BIN
ads/image2.png
Normal file
After Width: | Height: | Size: 1.8 MiB |
BIN
ads/image3.png
Normal file
After Width: | Height: | Size: 1.8 MiB |
BIN
ads/image4.png
Normal file
After Width: | Height: | Size: 440 KiB |
105
app/DevelMain.hs
Normal file
|
@ -0,0 +1,105 @@
|
||||||
|
-- | Running your app inside GHCi.
|
||||||
|
--
|
||||||
|
-- This option provides significantly faster code reload compared to
|
||||||
|
-- @yesod devel@. However, you do not get automatic code reload
|
||||||
|
-- (which may be a benefit, depending on your perspective). To use this:
|
||||||
|
--
|
||||||
|
-- 1. Start up GHCi
|
||||||
|
--
|
||||||
|
-- $ stack ghci OwOpointTracker:lib --no-load --work-dir .stack-work-devel
|
||||||
|
--
|
||||||
|
-- 2. Load this module
|
||||||
|
--
|
||||||
|
-- > :l app/DevelMain.hs
|
||||||
|
--
|
||||||
|
-- 3. Run @update@
|
||||||
|
--
|
||||||
|
-- > DevelMain.update
|
||||||
|
--
|
||||||
|
-- 4. Your app should now be running, you can connect at http://localhost:3000
|
||||||
|
--
|
||||||
|
-- 5. Make changes to your code
|
||||||
|
--
|
||||||
|
-- 6. After saving your changes, reload by running:
|
||||||
|
--
|
||||||
|
-- > :r
|
||||||
|
-- > DevelMain.update
|
||||||
|
--
|
||||||
|
-- You can also call @DevelMain.shutdown@ to stop the app
|
||||||
|
--
|
||||||
|
-- There is more information about this approach,
|
||||||
|
-- on the wiki: https://github.com/yesodweb/yesod/wiki/ghci
|
||||||
|
--
|
||||||
|
-- WARNING: GHCi does not notice changes made to your template files.
|
||||||
|
-- If you change a template, you'll need to either exit GHCi and reload,
|
||||||
|
-- or manually @touch@ another Haskell module.
|
||||||
|
|
||||||
|
module DevelMain where
|
||||||
|
|
||||||
|
import Prelude
|
||||||
|
import Application (getApplicationRepl, shutdownApp)
|
||||||
|
|
||||||
|
import Control.Monad ((>=>))
|
||||||
|
import Control.Concurrent
|
||||||
|
import Data.IORef
|
||||||
|
import Foreign.Store
|
||||||
|
import Network.Wai.Handler.Warp
|
||||||
|
import GHC.Word
|
||||||
|
|
||||||
|
-- | Start or restart the server.
|
||||||
|
-- newStore is from foreign-store.
|
||||||
|
-- A Store holds onto some data across ghci reloads
|
||||||
|
update :: IO ()
|
||||||
|
update = do
|
||||||
|
mtidStore <- lookupStore tidStoreNum
|
||||||
|
case mtidStore of
|
||||||
|
-- no server running
|
||||||
|
Nothing -> do
|
||||||
|
done <- storeAction doneStore newEmptyMVar
|
||||||
|
tid <- start done
|
||||||
|
_ <- storeAction (Store tidStoreNum) (newIORef tid)
|
||||||
|
return ()
|
||||||
|
-- server is already running
|
||||||
|
Just tidStore -> restartAppInNewThread tidStore
|
||||||
|
where
|
||||||
|
doneStore :: Store (MVar ())
|
||||||
|
doneStore = Store 0
|
||||||
|
|
||||||
|
-- shut the server down with killThread and wait for the done signal
|
||||||
|
restartAppInNewThread :: Store (IORef ThreadId) -> IO ()
|
||||||
|
restartAppInNewThread tidStore = modifyStoredIORef tidStore $ \tid -> do
|
||||||
|
killThread tid
|
||||||
|
withStore doneStore takeMVar
|
||||||
|
readStore doneStore >>= start
|
||||||
|
|
||||||
|
|
||||||
|
-- | Start the server in a separate thread.
|
||||||
|
start :: MVar () -- ^ Written to when the thread is killed.
|
||||||
|
-> IO ThreadId
|
||||||
|
start done = do
|
||||||
|
(port, site, app) <- getApplicationRepl
|
||||||
|
forkFinally
|
||||||
|
(runSettings (setPort port defaultSettings) app)
|
||||||
|
-- Note that this implies concurrency
|
||||||
|
-- between shutdownApp and the next app that is starting.
|
||||||
|
-- Normally this should be fine
|
||||||
|
(\_ -> putMVar done () >> shutdownApp site)
|
||||||
|
|
||||||
|
-- | kill the server
|
||||||
|
shutdown :: IO ()
|
||||||
|
shutdown = do
|
||||||
|
mtidStore <- lookupStore tidStoreNum
|
||||||
|
case mtidStore of
|
||||||
|
-- no server running
|
||||||
|
Nothing -> putStrLn "no Yesod app running"
|
||||||
|
Just tidStore -> do
|
||||||
|
withStore tidStore $ readIORef >=> killThread
|
||||||
|
putStrLn "Yesod app is shutdown"
|
||||||
|
|
||||||
|
tidStoreNum :: Word32
|
||||||
|
tidStoreNum = 1
|
||||||
|
|
||||||
|
modifyStoredIORef :: Store (IORef a) -> (a -> IO a) -> IO ()
|
||||||
|
modifyStoredIORef store f = withStore store $ \ref -> do
|
||||||
|
v <- readIORef ref
|
||||||
|
f v >>= writeIORef ref
|
6
app/devel.hs
Normal file
|
@ -0,0 +1,6 @@
|
||||||
|
{-# LANGUAGE PackageImports #-}
|
||||||
|
import "OwOpointTracker" Application (develMain)
|
||||||
|
import Prelude (IO)
|
||||||
|
|
||||||
|
main :: IO ()
|
||||||
|
main = develMain
|
5
app/main.hs
Normal file
|
@ -0,0 +1,5 @@
|
||||||
|
import Prelude (IO)
|
||||||
|
import Application (appMain)
|
||||||
|
|
||||||
|
main :: IO ()
|
||||||
|
main = appMain
|
3
config/client_session_key.aes
Normal file
|
@ -0,0 +1,3 @@
|
||||||
|
Ú~ąl
|
||||||
|
=;uďUĄ‡voďÔmýn*‘šâ6‚ř}Ă(΋¤±WŐĺîĄ$H?¦—u(˛Ňiʶ\ś›‚Ôż|&öďŁh{}$ôżE‚{¦˝úx
|
||||||
|
547:°5ě‘]Ű°wIw
|
BIN
config/favicon.ico
Normal file
After Width: | Height: | Size: 15 KiB |
73
config/keter.yml
Normal file
|
@ -0,0 +1,73 @@
|
||||||
|
# After you've edited this file, remove the following line to allow
|
||||||
|
# `yesod keter` to build your bundle.
|
||||||
|
#
|
||||||
|
# Also, please make sure that `port` value on `config/settings.yaml` is set to
|
||||||
|
# use `PORT` env variable.
|
||||||
|
user-edited: false
|
||||||
|
|
||||||
|
# A Keter app is composed of 1 or more stanzas. The main stanza will define our
|
||||||
|
# web application. See the Keter documentation for more information on
|
||||||
|
# available stanzas.
|
||||||
|
stanzas:
|
||||||
|
|
||||||
|
# Your Yesod application.
|
||||||
|
- type: webapp
|
||||||
|
|
||||||
|
# Name of your executable. You are unlikely to need to change this.
|
||||||
|
# Note that all file paths are relative to the keter.yml file.
|
||||||
|
#
|
||||||
|
# The path given is for Stack projects. If you're still using cabal, change
|
||||||
|
# to
|
||||||
|
# exec: ../dist/build/OwOpointTracker/OwOpointTracker
|
||||||
|
exec: ../dist/bin/OwOpointTracker
|
||||||
|
|
||||||
|
# Command line options passed to your application.
|
||||||
|
args: []
|
||||||
|
|
||||||
|
hosts:
|
||||||
|
# You can specify one or more hostnames for your application to respond
|
||||||
|
# to. The primary hostname will be used for generating your application
|
||||||
|
# root.
|
||||||
|
- www.OwOpointTracker.com
|
||||||
|
|
||||||
|
# Enable to force Keter to redirect to https
|
||||||
|
# Can be added to any stanza
|
||||||
|
requires-secure: false
|
||||||
|
|
||||||
|
# Static files.
|
||||||
|
- type: static-files
|
||||||
|
hosts:
|
||||||
|
- static.OwOpointTracker.com
|
||||||
|
root: ../static
|
||||||
|
|
||||||
|
# Uncomment to turn on directory listings.
|
||||||
|
# directory-listing: true
|
||||||
|
|
||||||
|
# Redirect plain domain name to www.
|
||||||
|
- type: redirect
|
||||||
|
|
||||||
|
hosts:
|
||||||
|
- OwOpointTracker.com
|
||||||
|
actions:
|
||||||
|
- host: www.OwOpointTracker.com
|
||||||
|
# secure: false
|
||||||
|
# port: 80
|
||||||
|
|
||||||
|
# Uncomment to switch to a non-permanent redirect.
|
||||||
|
# status: 303
|
||||||
|
|
||||||
|
# Use the following to automatically copy your bundle upon creation via `yesod
|
||||||
|
# keter`. Uses `scp` internally, so you can set it to a remote destination
|
||||||
|
# copy-to: user@host:/opt/keter/incoming/
|
||||||
|
|
||||||
|
# You can pass arguments to `scp` used above. This example limits bandwidth to
|
||||||
|
# 1024 Kbit/s and uses port 2222 instead of the default 22
|
||||||
|
# copy-to-args:
|
||||||
|
# - "-l 1024"
|
||||||
|
# - "-P 2222"
|
||||||
|
|
||||||
|
# If you would like to have Keter automatically create a PostgreSQL database
|
||||||
|
# and set appropriate environment variables for it to be discovered, uncomment
|
||||||
|
# the following line.
|
||||||
|
# plugins:
|
||||||
|
# postgres: true
|
25
config/models.persistentmodels
Normal file
|
@ -0,0 +1,25 @@
|
||||||
|
-- By default this file is used by `persistFileWith` in Model.hs (which is imported by Foundation.hs)
|
||||||
|
-- Syntax for this file here: https://github.com/yesodweb/persistent/blob/master/docs/Persistent-entity-syntax.md
|
||||||
|
|
||||||
|
Round
|
||||||
|
stationId Text
|
||||||
|
tutorPoints Int
|
||||||
|
erstiePoints Int
|
||||||
|
number Int
|
||||||
|
UniqueRoundStation number stationId
|
||||||
|
|
||||||
|
--User
|
||||||
|
-- ident Text
|
||||||
|
-- password Text Maybe
|
||||||
|
-- UniqueUser ident
|
||||||
|
-- deriving Typeable
|
||||||
|
--Email
|
||||||
|
-- email Text
|
||||||
|
-- userId UserId Maybe
|
||||||
|
-- verkey Text Maybe
|
||||||
|
-- UniqueEmail email
|
||||||
|
--Comment json -- Adding "json" causes ToJSON and FromJSON instances to be derived.
|
||||||
|
-- message Text
|
||||||
|
-- userId UserId Maybe
|
||||||
|
-- deriving Eq
|
||||||
|
-- deriving Show
|
1
config/robots.txt
Normal file
|
@ -0,0 +1 @@
|
||||||
|
User-agent: *
|
23
config/routes.yesodroutes
Normal file
|
@ -0,0 +1,23 @@
|
||||||
|
-- By default this file is used by `parseRoutesFile` in Foundation.hs
|
||||||
|
-- Syntax for this file here: https://www.yesodweb.com/book/routing-and-handlers
|
||||||
|
|
||||||
|
/static StaticR Static appStatic
|
||||||
|
-- /auth AuthR Auth getAuth
|
||||||
|
|
||||||
|
/favicon.ico FaviconR GET
|
||||||
|
/robots.txt RobotsR GET
|
||||||
|
|
||||||
|
/ HomeR GET
|
||||||
|
|
||||||
|
-- stationName
|
||||||
|
/station/#Text StationR GET
|
||||||
|
|
||||||
|
-- stationName/roundNumber
|
||||||
|
/station/#Text/#Int StationRoundR GET POST
|
||||||
|
|
||||||
|
/ad/ AdR GET
|
||||||
|
|
||||||
|
|
||||||
|
-- /comments CommentR POST
|
||||||
|
|
||||||
|
-- /profile ProfileR GET
|
45
config/settings.yml
Normal file
|
@ -0,0 +1,45 @@
|
||||||
|
# Values formatted like "_env:YESOD_ENV_VAR_NAME:default_value" can be overridden by the specified environment variable.
|
||||||
|
# See https://github.com/yesodweb/yesod/wiki/Configuration#overriding-configuration-values-with-environment-variables
|
||||||
|
|
||||||
|
static-dir: "_env:YESOD_STATIC_DIR:static"
|
||||||
|
host: "_env:YESOD_HOST:*4" # any IPv4 host
|
||||||
|
port: "_env:YESOD_PORT:3000" # NB: The port `yesod devel` uses is distinct from this value. Set the `yesod devel` port from the command line.
|
||||||
|
# For `keter` user, enable the follwing line, and comment out previous one.
|
||||||
|
#port: "_env:PORT:3000" # `keter` uses `PORT` env var name
|
||||||
|
|
||||||
|
ip-from-header: "_env:YESOD_IP_FROM_HEADER:false"
|
||||||
|
|
||||||
|
# Default behavior: determine the application root from the request headers.
|
||||||
|
# Uncomment to set an explicit approot
|
||||||
|
#approot: "_env:YESOD_APPROOT:http://localhost:3000"
|
||||||
|
|
||||||
|
# By default, `yesod devel` runs in development, and built executables use
|
||||||
|
# production settings (see below). To override this, use the following:
|
||||||
|
#
|
||||||
|
# development: false
|
||||||
|
|
||||||
|
# Optional values with the following production defaults.
|
||||||
|
# In development, they default to the inverse.
|
||||||
|
#
|
||||||
|
# detailed-logging: false
|
||||||
|
# should-log-all: false
|
||||||
|
# reload-templates: false
|
||||||
|
# mutable-static: false
|
||||||
|
# skip-combining: false
|
||||||
|
# auth-dummy-login : false
|
||||||
|
|
||||||
|
# NB: If you need a numeric value (e.g. 123) to parse as a String, wrap it in single quotes (e.g. "_env:YESOD_PGPASS:'123'")
|
||||||
|
# See https://github.com/yesodweb/yesod/wiki/Configuration#parsing-numeric-values-as-strings
|
||||||
|
|
||||||
|
database:
|
||||||
|
# See config/test-settings.yml for an override during tests
|
||||||
|
database: "_env:YESOD_SQLITE_DATABASE:OwOpointTracker.sqlite3"
|
||||||
|
poolsize: "_env:YESOD_SQLITE_POOLSIZE:10"
|
||||||
|
|
||||||
|
copyright: Insert copyright statement here
|
||||||
|
|
||||||
|
stations:
|
||||||
|
- station-id: "test"
|
||||||
|
station-name: "Test"
|
||||||
|
|
||||||
|
ad-files: "ads/"
|
11
config/test-settings.yml
Normal file
|
@ -0,0 +1,11 @@
|
||||||
|
database:
|
||||||
|
# NOTE: By design, this setting prevents the SQLITE_DATABASE environment variable
|
||||||
|
# from affecting test runs, so that we don't accidentally affect the
|
||||||
|
# production database during testing. If you're not concerned about that and
|
||||||
|
# would like to have environment variable overrides, you could instead use
|
||||||
|
# something like:
|
||||||
|
#
|
||||||
|
# database: "_env:SQLITE_DATABASE:OwOpointTracker_test.sqlite3"
|
||||||
|
database: OwOpointTracker_test.sqlite3
|
||||||
|
|
||||||
|
auth-dummy-login: true
|
74
flake.lock
Normal file
|
@ -0,0 +1,74 @@
|
||||||
|
{
|
||||||
|
"nodes": {
|
||||||
|
"flake-parts": {
|
||||||
|
"inputs": {
|
||||||
|
"nixpkgs-lib": "nixpkgs-lib"
|
||||||
|
},
|
||||||
|
"locked": {
|
||||||
|
"lastModified": 1727826117,
|
||||||
|
"narHash": "sha256-K5ZLCyfO/Zj9mPFldf3iwS6oZStJcU4tSpiXTMYaaL0=",
|
||||||
|
"owner": "hercules-ci",
|
||||||
|
"repo": "flake-parts",
|
||||||
|
"rev": "3d04084d54bedc3d6b8b736c70ef449225c361b1",
|
||||||
|
"type": "github"
|
||||||
|
},
|
||||||
|
"original": {
|
||||||
|
"owner": "hercules-ci",
|
||||||
|
"repo": "flake-parts",
|
||||||
|
"type": "github"
|
||||||
|
}
|
||||||
|
},
|
||||||
|
"haskell-flake": {
|
||||||
|
"locked": {
|
||||||
|
"lastModified": 1728227251,
|
||||||
|
"narHash": "sha256-JLDhMFyGyFe0QJAbCuSxB7/kjUCA7uUAMa6BFRORwXk=",
|
||||||
|
"owner": "srid",
|
||||||
|
"repo": "haskell-flake",
|
||||||
|
"rev": "9cbfbfc38f1fbf9a0f471795c84780211875fd45",
|
||||||
|
"type": "github"
|
||||||
|
},
|
||||||
|
"original": {
|
||||||
|
"owner": "srid",
|
||||||
|
"repo": "haskell-flake",
|
||||||
|
"type": "github"
|
||||||
|
}
|
||||||
|
},
|
||||||
|
"nixpkgs": {
|
||||||
|
"locked": {
|
||||||
|
"lastModified": 1728279793,
|
||||||
|
"narHash": "sha256-W3D5YpNrUVTFPVU4jiEiboaaUDShaiH5fRl9aJLqUnU=",
|
||||||
|
"owner": "nixos",
|
||||||
|
"repo": "nixpkgs",
|
||||||
|
"rev": "f85a2d005e83542784a755ca8da112f4f65c4aa4",
|
||||||
|
"type": "github"
|
||||||
|
},
|
||||||
|
"original": {
|
||||||
|
"owner": "nixos",
|
||||||
|
"ref": "nixpkgs-unstable",
|
||||||
|
"repo": "nixpkgs",
|
||||||
|
"type": "github"
|
||||||
|
}
|
||||||
|
},
|
||||||
|
"nixpkgs-lib": {
|
||||||
|
"locked": {
|
||||||
|
"lastModified": 1727825735,
|
||||||
|
"narHash": "sha256-0xHYkMkeLVQAMa7gvkddbPqpxph+hDzdu1XdGPJR+Os=",
|
||||||
|
"type": "tarball",
|
||||||
|
"url": "https://github.com/NixOS/nixpkgs/archive/fb192fec7cc7a4c26d51779e9bab07ce6fa5597a.tar.gz"
|
||||||
|
},
|
||||||
|
"original": {
|
||||||
|
"type": "tarball",
|
||||||
|
"url": "https://github.com/NixOS/nixpkgs/archive/fb192fec7cc7a4c26d51779e9bab07ce6fa5597a.tar.gz"
|
||||||
|
}
|
||||||
|
},
|
||||||
|
"root": {
|
||||||
|
"inputs": {
|
||||||
|
"flake-parts": "flake-parts",
|
||||||
|
"haskell-flake": "haskell-flake",
|
||||||
|
"nixpkgs": "nixpkgs"
|
||||||
|
}
|
||||||
|
}
|
||||||
|
},
|
||||||
|
"root": "root",
|
||||||
|
"version": 7
|
||||||
|
}
|
60
flake.nix
Normal file
|
@ -0,0 +1,60 @@
|
||||||
|
{
|
||||||
|
inputs = {
|
||||||
|
nixpkgs.url = "github:nixos/nixpkgs/nixpkgs-unstable";
|
||||||
|
flake-parts.url = "github:hercules-ci/flake-parts";
|
||||||
|
haskell-flake.url = "github:srid/haskell-flake";
|
||||||
|
};
|
||||||
|
outputs = inputs@{ self, nixpkgs, flake-parts, ... }:
|
||||||
|
flake-parts.lib.mkFlake { inherit inputs; } {
|
||||||
|
flake = {
|
||||||
|
nixosModules.OwOpointTracker = import ./module.nix self;
|
||||||
|
};
|
||||||
|
systems = nixpkgs.lib.systems.flakeExposed;
|
||||||
|
imports = [ inputs.haskell-flake.flakeModule ];
|
||||||
|
|
||||||
|
perSystem = { self', pkgs, ... }: {
|
||||||
|
|
||||||
|
# Typically, you just want a single project named "default". But
|
||||||
|
# multiple projects are also possible, each using different GHC version.
|
||||||
|
haskellProjects.default = {
|
||||||
|
# The base package set representing a specific GHC version.
|
||||||
|
# By default, this is pkgs.haskellPackages.
|
||||||
|
# You may also create your own. See https://community.flake.parts/haskell-flake/package-set
|
||||||
|
# basePackages = pkgs.haskellPackages;
|
||||||
|
|
||||||
|
# Extra package information. See https://community.flake.parts/haskell-flake/dependency
|
||||||
|
#
|
||||||
|
# Note that local packages are automatically included in `packages`
|
||||||
|
# (defined by `defaults.packages` option).
|
||||||
|
#
|
||||||
|
packages = {
|
||||||
|
# aeson.source = "1.5.0.0"; # Override aeson to a custom version from Hackage
|
||||||
|
# shower.source = inputs.shower; # Override shower to a custom source path
|
||||||
|
};
|
||||||
|
settings = {
|
||||||
|
# aeson = {
|
||||||
|
# check = false;
|
||||||
|
# };
|
||||||
|
# relude = {
|
||||||
|
# haddock = false;
|
||||||
|
# broken = false;
|
||||||
|
# };
|
||||||
|
};
|
||||||
|
|
||||||
|
devShell = {
|
||||||
|
# Enabled by default
|
||||||
|
enable = false;
|
||||||
|
|
||||||
|
# Programs you want to make available in the shell.
|
||||||
|
# Default programs can be disabled by setting to 'null'
|
||||||
|
tools = hp: { ghcid = null; yesod-bin = hp.yesod-bin; stack = pkgs.stack;};
|
||||||
|
|
||||||
|
hlsCheck.enable = pkgs.stdenv.isDarwin; # On darwin, sandbox is disabled, so HLS can use the network.
|
||||||
|
};
|
||||||
|
};
|
||||||
|
|
||||||
|
# haskell-flake doesn't set the default package, but you can do it here.
|
||||||
|
packages.default = self'.packages.OwOpointTracker;
|
||||||
|
};
|
||||||
|
};
|
||||||
|
}
|
89
module.nix
Normal file
|
@ -0,0 +1,89 @@
|
||||||
|
self: {config, pkgs, lib ...}:
|
||||||
|
with lib;
|
||||||
|
|
||||||
|
let
|
||||||
|
cfg = config.services.owOPointTracker;
|
||||||
|
format = pkgs.formats.yaml {};
|
||||||
|
configFile = format.generate "settings.yml" cfg.config
|
||||||
|
databaseOptionType = types.submodule {
|
||||||
|
options = {
|
||||||
|
database = mkOption {
|
||||||
|
default = "_env:YESOD_SQLITE_DATABASE:OwOpointTracker.sqlite3";
|
||||||
|
type = types.str;
|
||||||
|
};
|
||||||
|
poolsize = mkOption {
|
||||||
|
default = "_env:YESOD_SQLITE_POOLSIZE:10";
|
||||||
|
type = types.str;
|
||||||
|
};
|
||||||
|
};
|
||||||
|
};
|
||||||
|
stationType = types.submodule {
|
||||||
|
options = {
|
||||||
|
station-id = mkOption {
|
||||||
|
default = "Station";
|
||||||
|
type = types.str;
|
||||||
|
};
|
||||||
|
station-name = mkOption {
|
||||||
|
types = types.str;
|
||||||
|
};
|
||||||
|
};
|
||||||
|
};
|
||||||
|
{
|
||||||
|
imports = [];
|
||||||
|
options.services.owOPointTracker = {
|
||||||
|
enable = mkEnableOption "OwOPointTracker";
|
||||||
|
config = {
|
||||||
|
static-dir = mkOption {
|
||||||
|
type = types.path;
|
||||||
|
};
|
||||||
|
host = mkOption {
|
||||||
|
type = types.str;
|
||||||
|
default = "_env:YESOD_HOST:*4";
|
||||||
|
ad-files = mkOption {
|
||||||
|
type = types.path;
|
||||||
|
};
|
||||||
|
port = mkOption {
|
||||||
|
default = "_env:YESOD_PORT:3000";
|
||||||
|
type = types.str;
|
||||||
|
};
|
||||||
|
ip-from-header = mkOption {
|
||||||
|
default = "_env:YESOD_IP_FROM_HEADER:false";
|
||||||
|
type = types.str;
|
||||||
|
};
|
||||||
|
database = {
|
||||||
|
type = databaseOptionType;
|
||||||
|
};
|
||||||
|
copyright = mkOption {
|
||||||
|
default = "copyright for this mess?";
|
||||||
|
type = types.str;
|
||||||
|
};
|
||||||
|
station = mkOption {
|
||||||
|
type = types.listOf stationType;
|
||||||
|
};
|
||||||
|
|
||||||
|
};
|
||||||
|
|
||||||
|
};
|
||||||
|
config = mkIf cfg.enable {
|
||||||
|
users.users.owopoint = {
|
||||||
|
isSystemUser = true;
|
||||||
|
group = "owopoint";
|
||||||
|
createHome = true;
|
||||||
|
home = "/var/owopoint";
|
||||||
|
};
|
||||||
|
users.groups = {
|
||||||
|
owopoint = {};
|
||||||
|
};
|
||||||
|
systemd.services.owOPointTracker = {
|
||||||
|
wantedBy = ["multi-user.target"];
|
||||||
|
after = ["network.target"];
|
||||||
|
serviceConfig = {
|
||||||
|
ExecStart = "${self.packages.${pkgs.system}.default} ${configFile}";
|
||||||
|
Restart = always;
|
||||||
|
User = "owopoint";
|
||||||
|
Group = "owopoint";
|
||||||
|
};
|
||||||
|
};
|
||||||
|
|
||||||
|
};
|
||||||
|
}
|
100
package.yaml
Normal file
|
@ -0,0 +1,100 @@
|
||||||
|
name: OwOpointTracker
|
||||||
|
version: "0.0.0"
|
||||||
|
|
||||||
|
dependencies:
|
||||||
|
|
||||||
|
- base >=4.9.1.0 && <5
|
||||||
|
- yesod >=1.6 && <1.7
|
||||||
|
- yesod-core >=1.6 && <1.7
|
||||||
|
- yesod-auth >=1.6 && <1.7
|
||||||
|
- yesod-static >=1.6 && <1.7
|
||||||
|
- yesod-form >=1.6 && <1.8
|
||||||
|
- classy-prelude >=1.5 && <1.6
|
||||||
|
- classy-prelude-conduit >=1.5 && <1.6
|
||||||
|
- classy-prelude-yesod >=1.5 && <1.6
|
||||||
|
- bytestring >=0.10 && <0.12
|
||||||
|
- text >=0.11 && <2.0
|
||||||
|
- persistent >=2.9 && <2.14
|
||||||
|
- persistent-sqlite >=2.9 && <2.14
|
||||||
|
- persistent-template >=2.5 && <2.14
|
||||||
|
- template-haskell
|
||||||
|
- shakespeare >=2.0 && <2.1
|
||||||
|
- hjsmin >=0.1 && <0.3
|
||||||
|
- monad-control >=0.3 && <1.1
|
||||||
|
- wai-extra >=3.0 && <3.2
|
||||||
|
- yaml >=0.11 && <0.12
|
||||||
|
- http-client-tls >=0.3 && <0.4
|
||||||
|
- http-conduit >=2.3 && <2.4
|
||||||
|
- directory >=1.1 && <1.4
|
||||||
|
- warp >=3.0 && <3.4
|
||||||
|
- data-default
|
||||||
|
- aeson >=1.4 && <2.1
|
||||||
|
- conduit >=1.0 && <2.0
|
||||||
|
- monad-logger >=0.3 && <0.4
|
||||||
|
- fast-logger >=2.2 && <3.2
|
||||||
|
- wai-logger >=2.2 && <2.5
|
||||||
|
- file-embed
|
||||||
|
- safe
|
||||||
|
- unordered-containers
|
||||||
|
- containers
|
||||||
|
- vector
|
||||||
|
- time
|
||||||
|
- case-insensitive
|
||||||
|
- wai
|
||||||
|
- foreign-store
|
||||||
|
|
||||||
|
# The library contains all of our application code. The executable
|
||||||
|
# defined below is just a thin wrapper.
|
||||||
|
library:
|
||||||
|
source-dirs: src
|
||||||
|
when:
|
||||||
|
- condition: (flag(dev)) || (flag(library-only))
|
||||||
|
then:
|
||||||
|
ghc-options:
|
||||||
|
- -Wall
|
||||||
|
- -fwarn-tabs
|
||||||
|
- -O0
|
||||||
|
cpp-options: -DDEVELOPMENT
|
||||||
|
else:
|
||||||
|
ghc-options:
|
||||||
|
- -Wall
|
||||||
|
- -fwarn-tabs
|
||||||
|
- -O2
|
||||||
|
|
||||||
|
# Runnable executable for our application
|
||||||
|
executables:
|
||||||
|
OwOpointTracker:
|
||||||
|
main: main.hs
|
||||||
|
source-dirs: app
|
||||||
|
ghc-options:
|
||||||
|
- -threaded
|
||||||
|
- -rtsopts
|
||||||
|
- -with-rtsopts=-N
|
||||||
|
dependencies:
|
||||||
|
- OwOpointTracker
|
||||||
|
when:
|
||||||
|
- condition: flag(library-only)
|
||||||
|
buildable: false
|
||||||
|
|
||||||
|
# Test suite
|
||||||
|
tests:
|
||||||
|
OwOpointTracker-test:
|
||||||
|
main: Spec.hs
|
||||||
|
source-dirs: test
|
||||||
|
ghc-options: -Wall
|
||||||
|
dependencies:
|
||||||
|
- OwOpointTracker
|
||||||
|
- hspec >=2.0.0
|
||||||
|
- yesod-test
|
||||||
|
- microlens
|
||||||
|
|
||||||
|
# Define flags used by "yesod devel" to make compilation faster
|
||||||
|
flags:
|
||||||
|
library-only:
|
||||||
|
description: Build for use with "yesod devel"
|
||||||
|
manual: false
|
||||||
|
default: false
|
||||||
|
dev:
|
||||||
|
description: Turn on development settings, like auto-reload templates.
|
||||||
|
manual: false
|
||||||
|
default: false
|
43
settings.yml
Normal file
|
@ -0,0 +1,43 @@
|
||||||
|
# Values formatted like "_env:YESOD_ENV_VAR_NAME:default_value" can be overridden by the specified environment variable.
|
||||||
|
# See https://github.com/yesodweb/yesod/wiki/Configuration#overriding-configuration-values-with-environment-variables
|
||||||
|
|
||||||
|
static-dir: "_env:YESOD_STATIC_DIR:static"
|
||||||
|
host: "_env:YESOD_HOST:*4" # any IPv4 host
|
||||||
|
port: "_env:YESOD_PORT:3000" # NB: The port `yesod devel` uses is distinct from this value. Set the `yesod devel` port from the command line.
|
||||||
|
# For `keter` user, enable the follwing line, and comment out previous one.
|
||||||
|
#port: "_env:PORT:3000" # `keter` uses `PORT` env var name
|
||||||
|
|
||||||
|
ip-from-header: "_env:YESOD_IP_FROM_HEADER:false"
|
||||||
|
|
||||||
|
# Default behavior: determine the application root from the request headers.
|
||||||
|
# Uncomment to set an explicit approot
|
||||||
|
#approot: "_env:YESOD_APPROOT:http://localhost:3000"
|
||||||
|
|
||||||
|
# By default, `yesod devel` runs in development, and built executables use
|
||||||
|
# production settings (see below). To override this, use the following:
|
||||||
|
#
|
||||||
|
# development: false
|
||||||
|
|
||||||
|
# Optional values with the following production defaults.
|
||||||
|
# In development, they default to the inverse.
|
||||||
|
#
|
||||||
|
# detailed-logging: false
|
||||||
|
# should-log-all: false
|
||||||
|
# reload-templates: false
|
||||||
|
# mutable-static: false
|
||||||
|
# skip-combining: false
|
||||||
|
# auth-dummy-login : false
|
||||||
|
|
||||||
|
# NB: If you need a numeric value (e.g. 123) to parse as a String, wrap it in single quotes (e.g. "_env:YESOD_PGPASS:'123'")
|
||||||
|
# See https://github.com/yesodweb/yesod/wiki/Configuration#parsing-numeric-values-as-strings
|
||||||
|
|
||||||
|
database:
|
||||||
|
# See config/test-settings.yml for an override during tests
|
||||||
|
database: "_env:YESOD_SQLITE_DATABASE:OwOpointTracker.sqlite3"
|
||||||
|
poolsize: "_env:YESOD_SQLITE_POOLSIZE:10"
|
||||||
|
|
||||||
|
copyright: Insert copyright statement here
|
||||||
|
|
||||||
|
stations:
|
||||||
|
- station-id: "testi"
|
||||||
|
station-name: "Test"
|
190
src/Application.hs
Normal file
|
@ -0,0 +1,190 @@
|
||||||
|
{-# LANGUAGE NoImplicitPrelude #-}
|
||||||
|
{-# LANGUAGE OverloadedStrings #-}
|
||||||
|
{-# LANGUAGE TemplateHaskell #-}
|
||||||
|
{-# LANGUAGE MultiParamTypeClasses #-}
|
||||||
|
{-# LANGUAGE TypeFamilies #-}
|
||||||
|
{-# LANGUAGE ViewPatterns #-}
|
||||||
|
{-# LANGUAGE RecordWildCards #-}
|
||||||
|
{-# OPTIONS_GHC -fno-warn-orphans #-}
|
||||||
|
module Application
|
||||||
|
( getApplicationDev
|
||||||
|
, appMain
|
||||||
|
, develMain
|
||||||
|
, makeFoundation
|
||||||
|
, makeLogWare
|
||||||
|
-- * for DevelMain
|
||||||
|
, getApplicationRepl
|
||||||
|
, shutdownApp
|
||||||
|
-- * for GHCI
|
||||||
|
, handler
|
||||||
|
, db
|
||||||
|
) where
|
||||||
|
|
||||||
|
import Control.Monad.Logger (liftLoc, runLoggingT)
|
||||||
|
import Database.Persist.Sqlite (createSqlitePool, runSqlPool,
|
||||||
|
sqlDatabase, sqlPoolSize)
|
||||||
|
import Import
|
||||||
|
import Language.Haskell.TH.Syntax (qLocation)
|
||||||
|
import Network.HTTP.Client.TLS (getGlobalManager)
|
||||||
|
import Network.Wai (Middleware)
|
||||||
|
import Network.Wai.Handler.Warp (Settings, defaultSettings,
|
||||||
|
defaultShouldDisplayException,
|
||||||
|
runSettings, setHost,
|
||||||
|
setOnException, setPort, getPort)
|
||||||
|
import Network.Wai.Middleware.RequestLogger (Destination (Logger),
|
||||||
|
IPAddrSource (..),
|
||||||
|
OutputFormat (..), destination,
|
||||||
|
mkRequestLogger, outputFormat)
|
||||||
|
import System.Log.FastLogger (defaultBufSize, newStdoutLoggerSet,
|
||||||
|
toLogStr)
|
||||||
|
|
||||||
|
-- Import all relevant handler modules here.
|
||||||
|
-- Don't forget to add new modules to your cabal file!
|
||||||
|
import Handler.Common
|
||||||
|
import Handler.Home
|
||||||
|
import Handler.Station
|
||||||
|
import Handler.Ad
|
||||||
|
|
||||||
|
-- This line actually creates our YesodDispatch instance. It is the second half
|
||||||
|
-- of the call to mkYesodData which occurs in Foundation.hs. Please see the
|
||||||
|
-- comments there for more details.
|
||||||
|
mkYesodDispatch "App" resourcesApp
|
||||||
|
|
||||||
|
-- | This function allocates resources (such as a database connection pool),
|
||||||
|
-- performs initialization and returns a foundation datatype value. This is also
|
||||||
|
-- the place to put your migrate statements to have automatic database
|
||||||
|
-- migrations handled by Yesod.
|
||||||
|
makeFoundation :: AppSettings -> IO App
|
||||||
|
makeFoundation appSettings = do
|
||||||
|
-- Some basic initializations: HTTP connection manager, logger, and static
|
||||||
|
-- subsite.
|
||||||
|
appHttpManager <- getGlobalManager
|
||||||
|
appLogger <- newStdoutLoggerSet defaultBufSize >>= makeYesodLogger
|
||||||
|
appStatic <-
|
||||||
|
(if appMutableStatic appSettings then staticDevel else static)
|
||||||
|
(appStaticDir appSettings)
|
||||||
|
|
||||||
|
-- We need a log function to create a connection pool. We need a connection
|
||||||
|
-- pool to create our foundation. And we need our foundation to get a
|
||||||
|
-- logging function. To get out of this loop, we initially create a
|
||||||
|
-- temporary foundation without a real connection pool, get a log function
|
||||||
|
-- from there, and then create the real foundation.
|
||||||
|
let mkFoundation appConnPool = App {..}
|
||||||
|
-- The App {..} syntax is an example of record wild cards. For more
|
||||||
|
-- information, see:
|
||||||
|
-- https://ocharles.org.uk/blog/posts/2014-12-04-record-wildcards.html
|
||||||
|
tempFoundation = mkFoundation $ error "connPool forced in tempFoundation"
|
||||||
|
logFunc = messageLoggerSource tempFoundation appLogger
|
||||||
|
|
||||||
|
-- Create the database connection pool
|
||||||
|
pool <- flip runLoggingT logFunc $ createSqlitePool
|
||||||
|
(sqlDatabase $ appDatabaseConf appSettings)
|
||||||
|
(sqlPoolSize $ appDatabaseConf appSettings)
|
||||||
|
|
||||||
|
-- Perform database migration using our application's logging settings.
|
||||||
|
runLoggingT (runSqlPool (runMigration migrateAll) pool) logFunc
|
||||||
|
|
||||||
|
-- Return the foundation
|
||||||
|
return $ mkFoundation pool
|
||||||
|
|
||||||
|
-- | Convert our foundation to a WAI Application by calling @toWaiAppPlain@ and
|
||||||
|
-- applying some additional middlewares.
|
||||||
|
makeApplication :: App -> IO Application
|
||||||
|
makeApplication foundation = do
|
||||||
|
logWare <- makeLogWare foundation
|
||||||
|
-- Create the WAI application and apply middlewares
|
||||||
|
appPlain <- toWaiAppPlain foundation
|
||||||
|
return $ logWare $ defaultMiddlewaresNoLogging appPlain
|
||||||
|
|
||||||
|
makeLogWare :: App -> IO Middleware
|
||||||
|
makeLogWare foundation =
|
||||||
|
mkRequestLogger def
|
||||||
|
{ outputFormat =
|
||||||
|
if appDetailedRequestLogging $ appSettings foundation
|
||||||
|
then Detailed True
|
||||||
|
else Apache
|
||||||
|
(if appIpFromHeader $ appSettings foundation
|
||||||
|
then FromFallback
|
||||||
|
else FromSocket)
|
||||||
|
, destination = Logger $ loggerSet $ appLogger foundation
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
-- | Warp settings for the given foundation value.
|
||||||
|
warpSettings :: App -> Settings
|
||||||
|
warpSettings foundation =
|
||||||
|
setPort (appPort $ appSettings foundation)
|
||||||
|
$ setHost (appHost $ appSettings foundation)
|
||||||
|
$ setOnException (\_req e ->
|
||||||
|
when (defaultShouldDisplayException e) $ messageLoggerSource
|
||||||
|
foundation
|
||||||
|
(appLogger foundation)
|
||||||
|
$(qLocation >>= liftLoc)
|
||||||
|
"yesod"
|
||||||
|
LevelError
|
||||||
|
(toLogStr $ "Exception from Warp: " ++ show e))
|
||||||
|
defaultSettings
|
||||||
|
|
||||||
|
-- | For yesod devel, return the Warp settings and WAI Application.
|
||||||
|
getApplicationDev :: IO (Settings, Application)
|
||||||
|
getApplicationDev = do
|
||||||
|
settings <- getAppSettings
|
||||||
|
foundation <- makeFoundation settings
|
||||||
|
wsettings <- getDevSettings $ warpSettings foundation
|
||||||
|
app <- makeApplication foundation
|
||||||
|
return (wsettings, app)
|
||||||
|
|
||||||
|
getAppSettings :: IO AppSettings
|
||||||
|
getAppSettings = loadYamlSettings [configSettingsYml] [] useEnv
|
||||||
|
|
||||||
|
-- | main function for use by yesod devel
|
||||||
|
develMain :: IO ()
|
||||||
|
develMain = develMainHelper getApplicationDev
|
||||||
|
|
||||||
|
-- | The @main@ function for an executable running this site.
|
||||||
|
appMain :: IO ()
|
||||||
|
appMain = do
|
||||||
|
-- Get the settings from all relevant sources
|
||||||
|
settings <- loadYamlSettingsArgs
|
||||||
|
-- fall back to compile-time values, set to [] to require values at runtime
|
||||||
|
[configSettingsYmlValue]
|
||||||
|
|
||||||
|
-- allow environment variables to override
|
||||||
|
useEnv
|
||||||
|
|
||||||
|
-- Generate the foundation from the settings
|
||||||
|
foundation <- makeFoundation settings
|
||||||
|
|
||||||
|
-- Generate a WAI Application from the foundation
|
||||||
|
app <- makeApplication foundation
|
||||||
|
|
||||||
|
-- Run the application with Warp
|
||||||
|
runSettings (warpSettings foundation) app
|
||||||
|
|
||||||
|
|
||||||
|
--------------------------------------------------------------
|
||||||
|
-- Functions for DevelMain.hs (a way to run the app from GHCi)
|
||||||
|
--------------------------------------------------------------
|
||||||
|
getApplicationRepl :: IO (Int, App, Application)
|
||||||
|
getApplicationRepl = do
|
||||||
|
settings <- getAppSettings
|
||||||
|
foundation <- makeFoundation settings
|
||||||
|
wsettings <- getDevSettings $ warpSettings foundation
|
||||||
|
app1 <- makeApplication foundation
|
||||||
|
return (getPort wsettings, foundation, app1)
|
||||||
|
|
||||||
|
shutdownApp :: App -> IO ()
|
||||||
|
shutdownApp _ = return ()
|
||||||
|
|
||||||
|
|
||||||
|
---------------------------------------------
|
||||||
|
-- Functions for use in development with GHCi
|
||||||
|
---------------------------------------------
|
||||||
|
|
||||||
|
-- | Run a handler
|
||||||
|
handler :: Handler a -> IO a
|
||||||
|
handler h = getAppSettings >>= makeFoundation >>= flip unsafeHandler h
|
||||||
|
|
||||||
|
-- | Run DB queries
|
||||||
|
db :: ReaderT SqlBackend Handler a -> IO a
|
||||||
|
db = handler . runDB
|
302
src/Foundation.hs
Normal file
|
@ -0,0 +1,302 @@
|
||||||
|
{-# LANGUAGE NoImplicitPrelude #-}
|
||||||
|
{-# LANGUAGE OverloadedStrings #-}
|
||||||
|
{-# LANGUAGE TemplateHaskell #-}
|
||||||
|
{-# LANGUAGE MultiParamTypeClasses #-}
|
||||||
|
{-# LANGUAGE TypeFamilies #-}
|
||||||
|
{-# LANGUAGE ViewPatterns #-}
|
||||||
|
{-# LANGUAGE ExplicitForAll #-}
|
||||||
|
{-# LANGUAGE RankNTypes #-}
|
||||||
|
{-# LANGUAGE InstanceSigs #-}
|
||||||
|
|
||||||
|
module Foundation where
|
||||||
|
|
||||||
|
import Import.NoFoundation
|
||||||
|
import Data.Kind (Type)
|
||||||
|
import Database.Persist.Sql (ConnectionPool, runSqlPool)
|
||||||
|
import Text.Hamlet (hamletFile)
|
||||||
|
import Text.Jasmine (minifym)
|
||||||
|
import Control.Monad.Logger (LogSource)
|
||||||
|
|
||||||
|
-- Used only when in "auth-dummy-login" setting is enabled.
|
||||||
|
-- import Yesod.Auth.Dummy
|
||||||
|
|
||||||
|
-- import Yesod.Auth.OpenId (authOpenId, IdentifierType (Claimed))
|
||||||
|
import Yesod.Default.Util (addStaticContentExternal)
|
||||||
|
import Yesod.Core.Types (Logger)
|
||||||
|
import qualified Yesod.Core.Unsafe as Unsafe
|
||||||
|
import qualified Data.CaseInsensitive as CI
|
||||||
|
import qualified Data.Text.Encoding as TE
|
||||||
|
|
||||||
|
-- | The foundation datatype for your application. This can be a good place to
|
||||||
|
-- keep settings and values requiring initialization before your application
|
||||||
|
-- starts running, such as database connections. Every handler will have
|
||||||
|
-- access to the data present here.
|
||||||
|
data App = App
|
||||||
|
{ appSettings :: AppSettings
|
||||||
|
, appStatic :: Static -- ^ Settings for static file serving.
|
||||||
|
, appConnPool :: ConnectionPool -- ^ Database connection pool.
|
||||||
|
, appHttpManager :: Manager
|
||||||
|
, appLogger :: Logger
|
||||||
|
}
|
||||||
|
|
||||||
|
--data MenuItem = MenuItem
|
||||||
|
-- { menuItemLabel :: Text
|
||||||
|
-- , menuItemRoute :: Route App
|
||||||
|
-- , menuItemAccessCallback :: Bool
|
||||||
|
-- }
|
||||||
|
--
|
||||||
|
--data MenuTypes
|
||||||
|
-- = NavbarLeft MenuItem
|
||||||
|
-- | NavbarRight MenuItem
|
||||||
|
|
||||||
|
-- This is where we define all of the routes in our application. For a full
|
||||||
|
-- explanation of the syntax, please see:
|
||||||
|
-- http://www.yesodweb.com/book/routing-and-handlers
|
||||||
|
--
|
||||||
|
-- Note that this is really half the story; in Application.hs, mkYesodDispatch
|
||||||
|
-- generates the rest of the code. Please see the following documentation
|
||||||
|
-- for an explanation for this split:
|
||||||
|
-- http://www.yesodweb.com/book/scaffolding-and-the-site-template#scaffolding-and-the-site-template_foundation_and_application_modules
|
||||||
|
--
|
||||||
|
-- This function also generates the following type synonyms:
|
||||||
|
-- type Handler = HandlerFor App
|
||||||
|
-- type Widget = WidgetFor App ()
|
||||||
|
mkYesodData "App" $(parseRoutesFile "config/routes.yesodroutes")
|
||||||
|
|
||||||
|
-- | A convenient synonym for creating forms.
|
||||||
|
type Form x = Html -> MForm (HandlerFor App) (FormResult x, Widget)
|
||||||
|
|
||||||
|
-- | A convenient synonym for database access functions.
|
||||||
|
type DB a = forall (m :: Type -> Type).
|
||||||
|
(MonadUnliftIO m) => ReaderT SqlBackend m a
|
||||||
|
|
||||||
|
-- Please see the documentation for the Yesod typeclass. There are a number
|
||||||
|
-- of settings which can be configured by overriding methods here.
|
||||||
|
instance Yesod App where
|
||||||
|
-- Controls the base of generated URLs. For more information on modifying,
|
||||||
|
-- see: https://github.com/yesodweb/yesod/wiki/Overriding-approot
|
||||||
|
approot :: Approot App
|
||||||
|
approot = ApprootRequest $ \app req ->
|
||||||
|
case appRoot $ appSettings app of
|
||||||
|
Nothing -> getApprootText guessApproot app req
|
||||||
|
Just root -> root
|
||||||
|
|
||||||
|
-- Store session data on the client in encrypted cookies,
|
||||||
|
-- default session idle timeout is 120 minutes
|
||||||
|
makeSessionBackend :: App -> IO (Maybe SessionBackend)
|
||||||
|
makeSessionBackend _ = Just <$> defaultClientSessionBackend
|
||||||
|
120 -- timeout in minutes
|
||||||
|
"config/client_session_key.aes"
|
||||||
|
|
||||||
|
-- Yesod Middleware allows you to run code before and after each handler function.
|
||||||
|
-- The defaultYesodMiddleware adds the response header "Vary: Accept, Accept-Language" and performs authorization checks.
|
||||||
|
-- Some users may also want to add the defaultCsrfMiddleware, which:
|
||||||
|
-- a) Sets a cookie with a CSRF token in it.
|
||||||
|
-- b) Validates that incoming write requests include that token in either a header or POST parameter.
|
||||||
|
-- To add it, chain it together with the defaultMiddleware: yesodMiddleware = defaultYesodMiddleware . defaultCsrfMiddleware
|
||||||
|
-- For details, see the CSRF documentation in the Yesod.Core.Handler module of the yesod-core package.
|
||||||
|
yesodMiddleware :: ToTypedContent res => Handler res -> Handler res
|
||||||
|
yesodMiddleware = defaultYesodMiddleware
|
||||||
|
|
||||||
|
defaultLayout :: Widget -> Handler Html
|
||||||
|
defaultLayout widget = do
|
||||||
|
master <- getYesod
|
||||||
|
mmsg <- getMessage
|
||||||
|
|
||||||
|
-- muser <- maybeAuthPair
|
||||||
|
mcurrentRoute <- getCurrentRoute
|
||||||
|
|
||||||
|
-- Get the breadcrumbs, as defined in the YesodBreadcrumbs instance.
|
||||||
|
-- (title, parents) <- breadcrumbs
|
||||||
|
let title = "Geländespiel Punktetracker"
|
||||||
|
|
||||||
|
-- Define the menu items of the header.
|
||||||
|
-- let menuItems =
|
||||||
|
-- [ NavbarLeft $ MenuItem
|
||||||
|
-- { menuItemLabel = "Home"
|
||||||
|
-- , menuItemRoute = HomeR
|
||||||
|
-- , menuItemAccessCallback = True
|
||||||
|
-- }
|
||||||
|
-- , NavbarLeft $ MenuItem
|
||||||
|
-- { menuItemLabel = "Profile"
|
||||||
|
-- , menuItemRoute = ProfileR
|
||||||
|
-- , menuItemAccessCallback = isJust muser
|
||||||
|
-- }
|
||||||
|
-- , NavbarRight $ MenuItem
|
||||||
|
-- { menuItemLabel = "Login"
|
||||||
|
-- , menuItemRoute = AuthR LoginR
|
||||||
|
-- , menuItemAccessCallback = isNothing muser
|
||||||
|
-- }
|
||||||
|
-- , NavbarRight $ MenuItem
|
||||||
|
-- { menuItemLabel = "Logout"
|
||||||
|
-- , menuItemRoute = AuthR LogoutR
|
||||||
|
-- , menuItemAccessCallback = isJust muser
|
||||||
|
-- }
|
||||||
|
-- ]
|
||||||
|
--
|
||||||
|
-- let navbarLeftMenuItems = [x | NavbarLeft x <- menuItems]
|
||||||
|
-- let navbarRightMenuItems = [x | NavbarRight x <- menuItems]
|
||||||
|
--
|
||||||
|
-- let navbarLeftFilteredMenuItems = [x | x <- navbarLeftMenuItems, menuItemAccessCallback x]
|
||||||
|
-- let navbarRightFilteredMenuItems = [x | x <- navbarRightMenuItems, menuItemAccessCallback x]
|
||||||
|
|
||||||
|
-- We break up the default layout into two components:
|
||||||
|
-- default-layout is the contents of the body tag, and
|
||||||
|
-- default-layout-wrapper is the entire page. Since the final
|
||||||
|
-- value passed to hamletToRepHtml cannot be a widget, this allows
|
||||||
|
-- you to use normal widget features in default-layout.
|
||||||
|
|
||||||
|
-- randomAddNumber <- liftIO $ getStdRandom (randomR (0,4))
|
||||||
|
|
||||||
|
pc <- widgetToPageContent $ do
|
||||||
|
-- addStylesheet $ StaticR css_bootstrap_css
|
||||||
|
-- ^ generated from @Settings/StaticFiles.hs@
|
||||||
|
$(widgetFile "default-layout")
|
||||||
|
withUrlRenderer $(hamletFile "templates/default-layout-wrapper.hamlet")
|
||||||
|
|
||||||
|
-- The page to be redirected to when authentication is required.
|
||||||
|
-- authRoute
|
||||||
|
-- :: App
|
||||||
|
-- -> Maybe (Route App)
|
||||||
|
-- authRoute _ = Just $ AuthR LoginR
|
||||||
|
|
||||||
|
-- isAuthorized
|
||||||
|
-- :: Route App -- ^ The route the user is visiting.
|
||||||
|
-- -> Bool -- ^ Whether or not this is a "write" request.
|
||||||
|
-- -> Handler AuthResult
|
||||||
|
-- -- Routes not requiring authentication.
|
||||||
|
-- isAuthorized (AuthR _) _ = return Authorized
|
||||||
|
-- isAuthorized CommentR _ = return Authorized
|
||||||
|
-- isAuthorized HomeR _ = return Authorized
|
||||||
|
-- isAuthorized FaviconR _ = return Authorized
|
||||||
|
-- isAuthorized RobotsR _ = return Authorized
|
||||||
|
-- isAuthorized (StaticR _) _ = return Authorized
|
||||||
|
--
|
||||||
|
-- -- the profile route requires that the user is authenticated, so we
|
||||||
|
-- -- delegate to that function
|
||||||
|
-- isAuthorized ProfileR _ = isAuthenticated
|
||||||
|
|
||||||
|
-- This function creates static content files in the static folder
|
||||||
|
-- and names them based on a hash of their content. This allows
|
||||||
|
-- expiration dates to be set far in the future without worry of
|
||||||
|
-- users receiving stale content.
|
||||||
|
addStaticContent
|
||||||
|
:: Text -- ^ The file extension
|
||||||
|
-> Text -- ^ The MIME content type
|
||||||
|
-> LByteString -- ^ The contents of the file
|
||||||
|
-> Handler (Maybe (Either Text (Route App, [(Text, Text)])))
|
||||||
|
addStaticContent ext mime content = do
|
||||||
|
master <- getYesod
|
||||||
|
let staticDir = appStaticDir $ appSettings master
|
||||||
|
addStaticContentExternal
|
||||||
|
minifym
|
||||||
|
genFileName
|
||||||
|
staticDir
|
||||||
|
(StaticR . flip StaticRoute [])
|
||||||
|
ext
|
||||||
|
mime
|
||||||
|
content
|
||||||
|
where
|
||||||
|
-- Generate a unique filename based on the content itself
|
||||||
|
genFileName lbs = "autogen-" ++ base64md5 lbs
|
||||||
|
|
||||||
|
-- What messages should be logged. The following includes all messages when
|
||||||
|
-- in development, and warnings and errors in production.
|
||||||
|
shouldLogIO :: App -> LogSource -> LogLevel -> IO Bool
|
||||||
|
shouldLogIO app _source level =
|
||||||
|
return $
|
||||||
|
appShouldLogAll (appSettings app)
|
||||||
|
|| level == LevelWarn
|
||||||
|
|| level == LevelError
|
||||||
|
|
||||||
|
makeLogger :: App -> IO Logger
|
||||||
|
makeLogger = return . appLogger
|
||||||
|
|
||||||
|
-- Define breadcrumbs.
|
||||||
|
--instance YesodBreadcrumbs App where
|
||||||
|
-- -- Takes the route that the user is currently on, and returns a tuple
|
||||||
|
-- -- of the 'Text' that you want the label to display, and a previous
|
||||||
|
-- -- breadcrumb route.
|
||||||
|
-- breadcrumb
|
||||||
|
-- :: Route App -- ^ The route the user is visiting currently.
|
||||||
|
-- -> Handler (Text, Maybe (Route App))
|
||||||
|
-- breadcrumb HomeR = return ("Home", Nothing)
|
||||||
|
-- breadcrumb (AuthR _) = return ("Login", Just HomeR)
|
||||||
|
-- breadcrumb ProfileR = return ("Profile", Just HomeR)
|
||||||
|
-- breadcrumb _ = return ("home", Nothing)
|
||||||
|
|
||||||
|
-- How to run database actions.
|
||||||
|
instance YesodPersist App where
|
||||||
|
type YesodPersistBackend App = SqlBackend
|
||||||
|
runDB :: SqlPersistT Handler a -> Handler a
|
||||||
|
runDB action = do
|
||||||
|
master <- getYesod
|
||||||
|
runSqlPool action $ appConnPool master
|
||||||
|
|
||||||
|
instance YesodPersistRunner App where
|
||||||
|
getDBRunner :: Handler (DBRunner App, Handler ())
|
||||||
|
getDBRunner = defaultGetDBRunner appConnPool
|
||||||
|
|
||||||
|
--instance YesodAuth App where
|
||||||
|
-- type AuthId App = UserId
|
||||||
|
--
|
||||||
|
-- -- Where to send a user after successful login
|
||||||
|
-- loginDest :: App -> Route App
|
||||||
|
-- loginDest _ = HomeR
|
||||||
|
-- -- Where to send a user after logout
|
||||||
|
-- logoutDest :: App -> Route App
|
||||||
|
-- logoutDest _ = HomeR
|
||||||
|
-- -- Override the above two destinations when a Referer: header is present
|
||||||
|
-- redirectToReferer :: App -> Bool
|
||||||
|
-- redirectToReferer _ = True
|
||||||
|
--
|
||||||
|
-- authenticate :: (MonadHandler m, HandlerSite m ~ App)
|
||||||
|
-- => Creds App -> m (AuthenticationResult App)
|
||||||
|
-- authenticate creds = liftHandler $ runDB $ do
|
||||||
|
-- x <- getBy $ UniqueUser $ credsIdent creds
|
||||||
|
-- case x of
|
||||||
|
-- Just (Entity uid _) -> return $ Authenticated uid
|
||||||
|
-- Nothing -> Authenticated <$> insert User
|
||||||
|
-- { userIdent = credsIdent creds
|
||||||
|
-- , userPassword = Nothing
|
||||||
|
-- }
|
||||||
|
--
|
||||||
|
-- -- You can add other plugins like Google Email, email or OAuth here
|
||||||
|
-- authPlugins :: App -> [AuthPlugin App]
|
||||||
|
-- authPlugins app = [authOpenId Claimed []] ++ extraAuthPlugins
|
||||||
|
-- -- Enable authDummy login if enabled.
|
||||||
|
-- where extraAuthPlugins = [authDummy | appAuthDummyLogin $ appSettings app]
|
||||||
|
|
||||||
|
-- | Access function to determine if a user is logged in.
|
||||||
|
--isAuthenticated :: Handler AuthResult
|
||||||
|
--isAuthenticated = do
|
||||||
|
-- muid <- maybeAuthId
|
||||||
|
-- return $ case muid of
|
||||||
|
-- Nothing -> Unauthorized "You must login to access this page"
|
||||||
|
-- Just _ -> Authorized
|
||||||
|
|
||||||
|
--instance YesodAuthPersist App
|
||||||
|
|
||||||
|
-- This instance is required to use forms. You can modify renderMessage to
|
||||||
|
-- achieve customized and internationalized form validation messages.
|
||||||
|
instance RenderMessage App FormMessage where
|
||||||
|
renderMessage :: App -> [Lang] -> FormMessage -> Text
|
||||||
|
renderMessage _ _ = defaultFormMessage
|
||||||
|
|
||||||
|
-- Useful when writing code that is re-usable outside of the Handler context.
|
||||||
|
-- An example is background jobs that send email.
|
||||||
|
-- This can also be useful for writing code that works across multiple Yesod applications.
|
||||||
|
instance HasHttpManager App where
|
||||||
|
getHttpManager :: App -> Manager
|
||||||
|
getHttpManager = appHttpManager
|
||||||
|
|
||||||
|
unsafeHandler :: App -> Handler a -> IO a
|
||||||
|
unsafeHandler = Unsafe.fakeHandlerGetLogger appLogger
|
||||||
|
|
||||||
|
-- Note: Some functionality previously present in the scaffolding has been
|
||||||
|
-- moved to documentation in the Wiki. Following are some hopefully helpful
|
||||||
|
-- links:
|
||||||
|
--
|
||||||
|
-- https://github.com/yesodweb/yesod/wiki/Sending-email
|
||||||
|
-- https://github.com/yesodweb/yesod/wiki/Serve-static-files-from-a-separate-domain
|
||||||
|
-- https://github.com/yesodweb/yesod/wiki/i18n-messages-in-the-scaffolding
|
15
src/Handler/Ad.hs
Normal file
|
@ -0,0 +1,15 @@
|
||||||
|
{-# LANGUAGE NoImplicitPrelude #-}
|
||||||
|
{-# LANGUAGE OverloadedStrings #-}
|
||||||
|
{-# LANGUAGE TemplateHaskell #-}
|
||||||
|
{-# LANGUAGE MultiParamTypeClasses #-}
|
||||||
|
{-# LANGUAGE TypeFamilies #-}
|
||||||
|
{-# LANGUAGE TypeApplications #-}
|
||||||
|
module Handler.Ad where
|
||||||
|
|
||||||
|
import Import
|
||||||
|
|
||||||
|
getAdR :: Handler Html
|
||||||
|
getAdR = do
|
||||||
|
basePath <- getsYesod (appAdFilePath . appSettings)
|
||||||
|
number <- applyAtomicGen (randomR (0 :: Int ,4)) globalStdGen
|
||||||
|
sendFile typePng $ basePath <> "image" <> show number <> ".png"
|
22
src/Handler/Common.hs
Normal file
|
@ -0,0 +1,22 @@
|
||||||
|
{-# LANGUAGE NoImplicitPrelude #-}
|
||||||
|
{-# LANGUAGE OverloadedStrings #-}
|
||||||
|
{-# LANGUAGE TemplateHaskell #-}
|
||||||
|
{-# LANGUAGE MultiParamTypeClasses #-}
|
||||||
|
{-# LANGUAGE TypeFamilies #-}
|
||||||
|
-- | Common handler functions.
|
||||||
|
module Handler.Common where
|
||||||
|
|
||||||
|
import Data.FileEmbed (embedFile)
|
||||||
|
import Import
|
||||||
|
|
||||||
|
-- These handlers embed files in the executable at compile time to avoid a
|
||||||
|
-- runtime dependency, and for efficiency.
|
||||||
|
|
||||||
|
getFaviconR :: Handler TypedContent
|
||||||
|
getFaviconR = do cacheSeconds $ 60 * 60 * 24 * 30 -- cache for a month
|
||||||
|
return $ TypedContent "image/x-icon"
|
||||||
|
$ toContent $(embedFile "config/favicon.ico")
|
||||||
|
|
||||||
|
getRobotsR :: Handler TypedContent
|
||||||
|
getRobotsR = return $ TypedContent typePlain
|
||||||
|
$ toContent $(embedFile "config/robots.txt")
|
76
src/Handler/Home.hs
Normal file
|
@ -0,0 +1,76 @@
|
||||||
|
{-# LANGUAGE NoImplicitPrelude #-}
|
||||||
|
{-# LANGUAGE OverloadedStrings #-}
|
||||||
|
{-# LANGUAGE TemplateHaskell #-}
|
||||||
|
{-# LANGUAGE MultiParamTypeClasses #-}
|
||||||
|
{-# LANGUAGE TypeFamilies #-}
|
||||||
|
{-# LANGUAGE TypeApplications #-}
|
||||||
|
module Handler.Home where
|
||||||
|
|
||||||
|
import Import
|
||||||
|
--import Yesod.Form.Bootstrap3 (BootstrapFormLayout (..), renderBootstrap3)
|
||||||
|
--import Text.Julius (RawJS (..))
|
||||||
|
|
||||||
|
-- Define our data that will be used for creating the form.
|
||||||
|
--data FileForm = FileForm
|
||||||
|
-- { fileInfo :: FileInfo
|
||||||
|
-- , fileDescription :: Text
|
||||||
|
-- }
|
||||||
|
|
||||||
|
-- This is a handler function for the GET request method on the HomeR
|
||||||
|
-- resource pattern. All of your resource patterns are defined in
|
||||||
|
-- config/routes.yesodroutes
|
||||||
|
--
|
||||||
|
-- The majority of the code you will write in Yesod lives in these handler
|
||||||
|
-- functions. You can spread them across multiple files if you are so
|
||||||
|
-- inclined, or create a single monolithic file.
|
||||||
|
getHomeR :: Handler Html
|
||||||
|
getHomeR = do
|
||||||
|
-- (formWidget, formEnctype) <- generateFormPost sampleForm
|
||||||
|
-- let submission = Nothing :: Maybe FileForm
|
||||||
|
-- handlerName = "getHomeR" :: Text
|
||||||
|
-- allComments <- runDB $ getAllComments
|
||||||
|
rou <- runDB $ selectList [] []
|
||||||
|
let rounds = fmap entityVal rou
|
||||||
|
defaultLayout $ do
|
||||||
|
-- let (commentFormId, commentTextareaId, commentListId) = commentIds
|
||||||
|
setTitle "OwO Geländespielpunkte"
|
||||||
|
let tutorP = sum (fmap roundTutorPoints rounds)
|
||||||
|
let erstieP = sum (fmap roundErstiePoints rounds)
|
||||||
|
$(widgetFile "homepage")
|
||||||
|
|
||||||
|
--postHomeR :: Handler Html
|
||||||
|
--postHomeR = do
|
||||||
|
-- ((result, formWidget), formEnctype) <- runFormPost sampleForm
|
||||||
|
-- let handlerName = "postHomeR" :: Text
|
||||||
|
-- submission = case result of
|
||||||
|
-- FormSuccess res -> Just res
|
||||||
|
-- _ -> Nothing
|
||||||
|
-- allComments <- runDB $ getAllComments
|
||||||
|
--
|
||||||
|
-- defaultLayout $ do
|
||||||
|
-- let (commentFormId, commentTextareaId, commentListId) = commentIds
|
||||||
|
-- aDomId <- newIdent
|
||||||
|
-- setTitle "Welcome To Yesod!"
|
||||||
|
-- $(widgetFile "homepage")
|
||||||
|
--
|
||||||
|
--sampleForm :: Form FileForm
|
||||||
|
--sampleForm = renderBootstrap3 BootstrapBasicForm $ FileForm
|
||||||
|
-- <$> fileAFormReq "Choose a file"
|
||||||
|
-- <*> areq textField textSettings Nothing
|
||||||
|
-- -- Add attributes like the placeholder and CSS classes.
|
||||||
|
-- where textSettings = FieldSettings
|
||||||
|
-- { fsLabel = "What's on the file?"
|
||||||
|
-- , fsTooltip = Nothing
|
||||||
|
-- , fsId = Nothing
|
||||||
|
-- , fsName = Nothing
|
||||||
|
-- , fsAttrs =
|
||||||
|
-- [ ("class", "form-control")
|
||||||
|
-- , ("placeholder", "File description")
|
||||||
|
-- ]
|
||||||
|
-- }
|
||||||
|
--
|
||||||
|
--commentIds :: (Text, Text, Text)
|
||||||
|
--commentIds = ("js-commentForm", "js-createCommentTextarea", "js-commentList")
|
||||||
|
--
|
||||||
|
--getAllComments :: DB [Entity Comment]
|
||||||
|
--getAllComments = selectList [] [Asc CommentId]
|
156
src/Handler/Station.hs
Normal file
|
@ -0,0 +1,156 @@
|
||||||
|
{-# LANGUAGE NoImplicitPrelude #-}
|
||||||
|
{-# LANGUAGE OverloadedStrings #-}
|
||||||
|
{-# LANGUAGE TemplateHaskell #-}
|
||||||
|
{-# LANGUAGE MultiParamTypeClasses #-}
|
||||||
|
{-# LANGUAGE TypeFamilies #-}
|
||||||
|
module Handler.Station where
|
||||||
|
|
||||||
|
import Import
|
||||||
|
import Json
|
||||||
|
import qualified Data.Map as M
|
||||||
|
--import Yesod.Form.Bootstrap3 (BootstrapFormLayout (..), renderBootstrap3)
|
||||||
|
--import Text.Julius (RawJS (..))
|
||||||
|
|
||||||
|
checkStation :: Text -> Handler Text
|
||||||
|
checkStation stationIdentifier = do
|
||||||
|
stationMap <- getsYesod (appStations . appSettings)
|
||||||
|
let stat = stationMap M.!? stationIdentifier :: Maybe Text
|
||||||
|
case stat of
|
||||||
|
Nothing -> notFound
|
||||||
|
Just m -> return m
|
||||||
|
|
||||||
|
-- TODO works without the type annotation, but I don't know why this one is wrong. No time to find out now
|
||||||
|
-- repsertBy :: (MonadIO m, PersistUniqueRead backend, PersistRecordBackend record backend, AtLeastOneUniqueKey record, SafeToInsert record) => record -> ReaderT backend m ()
|
||||||
|
repsertBy val = do
|
||||||
|
valM <- getByValue val
|
||||||
|
case valM of
|
||||||
|
Nothing -> insert_ val
|
||||||
|
Just (Entity key _) -> replace key val
|
||||||
|
|
||||||
|
getStationR :: Text -> Handler Html
|
||||||
|
getStationR stationIdentifier = do
|
||||||
|
station <- checkStation stationIdentifier
|
||||||
|
rounds <- runDB $ do
|
||||||
|
rou <- selectList [RoundStationId ==. stationIdentifier] []
|
||||||
|
return (fmap entityVal rou :: [Round])
|
||||||
|
defaultLayout $ do
|
||||||
|
setTitle $ "OwO Station"
|
||||||
|
$(widgetFile "station")
|
||||||
|
|
||||||
|
-- postStationR :: Text -> Handler Html
|
||||||
|
-- postStationR stationIdentifier = do
|
||||||
|
-- station <- checkStation stationIdentifier
|
||||||
|
-- ((result,widget),enctype) <- runFormPost (roundForm Nothing Nothing Nothing)
|
||||||
|
-- case result of
|
||||||
|
-- FormSuccess roundFormD -> do
|
||||||
|
-- runDB $ upsertBy (UniqueRoundStation (roundNumberForm roundFormD) stationIdentifier) ( Round (stationIdentifier)(tutorPointsForm roundFormD)(erstiePointsForm roundFormD)(roundNumberForm roundFormD))
|
||||||
|
-- redirect $ StationRoundR stationIdentifier (roundNumberForm roundFormD)
|
||||||
|
-- FormFailure errors -> error "Form Failure"
|
||||||
|
-- FormMissing -> error "Form Missing"
|
||||||
|
|
||||||
|
|
||||||
|
data RoundForm = RoundForm
|
||||||
|
{ tutorPointsForm :: Int
|
||||||
|
, erstiePointsForm :: Int
|
||||||
|
}
|
||||||
|
deriving Show
|
||||||
|
|
||||||
|
roundForm :: Maybe Int -> Maybe Int -> Form RoundForm
|
||||||
|
roundForm v w = renderDivs $ RoundForm
|
||||||
|
<$> areq intField "Tutor Points" v
|
||||||
|
<*> areq intField "Erstie Points" w
|
||||||
|
|
||||||
|
getStationRoundR :: Text -> Int -> Handler Html
|
||||||
|
getStationRoundR stationIdentifier roundNumber = do
|
||||||
|
station <- checkStation stationIdentifier
|
||||||
|
mRoundEntity <- runDB $ getBy $ UniqueRoundStation roundNumber stationIdentifier
|
||||||
|
case mRoundEntity of
|
||||||
|
Nothing -> do
|
||||||
|
(roundFormWidget,roundFormEnctype) <- generateFormPost (roundForm Nothing Nothing)
|
||||||
|
defaultLayout $ do
|
||||||
|
setTitle $ "OwO Round"
|
||||||
|
$(widgetFile "round")
|
||||||
|
Just roundEntity -> do
|
||||||
|
let round = entityVal roundEntity
|
||||||
|
(roundFormWidget,roundFormEnctype) <- generateFormPost (roundForm (Just $ roundTutorPoints round) (Just $ roundErstiePoints round))
|
||||||
|
defaultLayout $ do
|
||||||
|
setTitle $ "OwO Round"
|
||||||
|
$(widgetFile "round")
|
||||||
|
|
||||||
|
postStationRoundR :: Text -> Int -> Handler Html
|
||||||
|
postStationRoundR stationIdentifier roundNumber = do
|
||||||
|
station <- checkStation stationIdentifier
|
||||||
|
((result,widget),enctype) <- runFormPost (roundForm Nothing Nothing)
|
||||||
|
case result of
|
||||||
|
FormSuccess roundFormD -> do
|
||||||
|
runDB $ repsertBy $ Round (stationIdentifier)(tutorPointsForm roundFormD)(erstiePointsForm roundFormD) roundNumber
|
||||||
|
redirect $ StationRoundR stationIdentifier (roundNumber + 1)
|
||||||
|
FormFailure errors -> error "Form Failure"
|
||||||
|
FormMissing -> error "Form Missing"
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
-- Define our data that will be used for creating the form.
|
||||||
|
--data FileForm = FileForm
|
||||||
|
-- { fileInfo :: FileInfo
|
||||||
|
-- , fileDescription :: Text
|
||||||
|
-- }
|
||||||
|
|
||||||
|
-- This is a handler function for the GET request method on the HomeR
|
||||||
|
-- resource pattern. All of your resource patterns are defined in
|
||||||
|
-- config/routes.yesodroutes
|
||||||
|
--
|
||||||
|
-- The majority of the code you will write in Yesod lives in these handler
|
||||||
|
-- functions. You can spread them across multiple files if you are so
|
||||||
|
-- inclined, or create a single monolithic file.
|
||||||
|
--getHomeR :: Handler Html
|
||||||
|
--getHomeR = do
|
||||||
|
-- (formWidget, formEnctype) <- generateFormPost sampleForm
|
||||||
|
-- let submission = Nothing :: Maybe FileForm
|
||||||
|
-- handlerName = "getHomeR" :: Text
|
||||||
|
-- allComments <- runDB $ getAllComments
|
||||||
|
|
||||||
|
-- defaultLayout $ do
|
||||||
|
-- let (commentFormId, commentTextareaId, commentListId) = commentIds
|
||||||
|
-- aDomId <- newIdent
|
||||||
|
-- setTitle "OwO Geländespielpunkte"
|
||||||
|
-- let tutorPoints = 5 :: Int
|
||||||
|
-- let erstiePoints = 3 :: Int
|
||||||
|
-- $(widgetFile "homepage")
|
||||||
|
|
||||||
|
--postHomeR :: Handler Html
|
||||||
|
--postHomeR = do
|
||||||
|
-- ((result, formWidget), formEnctype) <- runFormPost sampleForm
|
||||||
|
-- let handlerName = "postHomeR" :: Text
|
||||||
|
-- submission = case result of
|
||||||
|
-- FormSuccess res -> Just res
|
||||||
|
-- _ -> Nothing
|
||||||
|
-- allComments <- runDB $ getAllComments
|
||||||
|
--
|
||||||
|
-- defaultLayout $ do
|
||||||
|
-- let (commentFormId, commentTextareaId, commentListId) = commentIds
|
||||||
|
-- aDomId <- newIdent
|
||||||
|
-- setTitle "Welcome To Yesod!"
|
||||||
|
-- $(widgetFile "homepage")
|
||||||
|
--
|
||||||
|
--sampleForm :: Form FileForm
|
||||||
|
--sampleForm = renderBootstrap3 BootstrapBasicForm $ FileForm
|
||||||
|
-- <$> fileAFormReq "Choose a file"
|
||||||
|
-- <*> areq textField textSettings Nothing
|
||||||
|
-- -- Add attributes like the placeholder and CSS classes.
|
||||||
|
-- where textSettings = FieldSettings
|
||||||
|
-- { fsLabel = "What's on the file?"
|
||||||
|
-- , fsTooltip = Nothing
|
||||||
|
-- , fsId = Nothing
|
||||||
|
-- , fsName = Nothing
|
||||||
|
-- , fsAttrs =
|
||||||
|
-- [ ("class", "form-control")
|
||||||
|
-- , ("placeholder", "File description")
|
||||||
|
-- ]
|
||||||
|
-- }
|
||||||
|
--
|
||||||
|
--commentIds :: (Text, Text, Text)
|
||||||
|
--commentIds = ("js-commentForm", "js-createCommentTextarea", "js-commentList")
|
||||||
|
--
|
||||||
|
--getAllComments :: DB [Entity Comment]
|
||||||
|
--getAllComments = selectList [] [Asc CommentId]
|
6
src/Import.hs
Normal file
|
@ -0,0 +1,6 @@
|
||||||
|
module Import
|
||||||
|
( module Import
|
||||||
|
) where
|
||||||
|
|
||||||
|
import Foundation as Import
|
||||||
|
import Import.NoFoundation as Import
|
14
src/Import/NoFoundation.hs
Normal file
|
@ -0,0 +1,14 @@
|
||||||
|
{-# LANGUAGE CPP #-}
|
||||||
|
module Import.NoFoundation
|
||||||
|
( module Import
|
||||||
|
) where
|
||||||
|
|
||||||
|
import ClassyPrelude.Yesod as Import
|
||||||
|
import Model as Import
|
||||||
|
import Settings as Import
|
||||||
|
import Settings.StaticFiles as Import
|
||||||
|
import Yesod.Auth as Import
|
||||||
|
import Yesod.Core.Types as Import (loggerSet)
|
||||||
|
import Yesod.Default.Config2 as Import
|
||||||
|
import System.Random as Import
|
||||||
|
import System.Random.Stateful as Import
|
38
src/Json.hs
Normal file
|
@ -0,0 +1,38 @@
|
||||||
|
{-# LANGUAGE NoImplicitPrelude #-}
|
||||||
|
{-# LANGUAGE OverloadedStrings #-}
|
||||||
|
{-# LANGUAGE RecordWildCards #-}
|
||||||
|
{-# LANGUAGE TemplateHaskell #-}
|
||||||
|
|
||||||
|
module Json where
|
||||||
|
|
||||||
|
import ClassyPrelude.Yesod
|
||||||
|
import Data.Aeson.TH
|
||||||
|
|
||||||
|
data ResRound = ResRound
|
||||||
|
{ resRoundNumber :: Int
|
||||||
|
, resRoundErstiePoints :: Int
|
||||||
|
, resRoundTutorPoints :: Int
|
||||||
|
}
|
||||||
|
deriving Show
|
||||||
|
$(deriveJSON defaultOptions{fieldLabelModifier = drop 3} ''ResRound)
|
||||||
|
|
||||||
|
data ResStation = ResStation
|
||||||
|
{ resStationName :: Text
|
||||||
|
}
|
||||||
|
deriving Show
|
||||||
|
$(deriveJSON defaultOptions{fieldLabelModifier = drop 3} ''ResStation)
|
||||||
|
|
||||||
|
data ResScore = ResScore
|
||||||
|
{ resScoreErsties :: Int
|
||||||
|
, resScoreTutors :: Int
|
||||||
|
}
|
||||||
|
deriving Show
|
||||||
|
$(deriveJSON defaultOptions{fieldLabelModifier = drop 3} ''ResScore)
|
||||||
|
|
||||||
|
data ReqRoundPoints = ReqRoundPoints
|
||||||
|
{ reqRoundPointsErsties :: Int
|
||||||
|
, reqRoundPointTutors :: Int
|
||||||
|
}
|
||||||
|
deriving Show
|
||||||
|
$(deriveJSON defaultOptions{fieldLabelModifier = drop 3} ''ReqRoundPoints)
|
||||||
|
|
24
src/Model.hs
Normal file
|
@ -0,0 +1,24 @@
|
||||||
|
{-# LANGUAGE EmptyDataDecls #-}
|
||||||
|
{-# LANGUAGE FlexibleInstances #-}
|
||||||
|
{-# LANGUAGE GADTs #-}
|
||||||
|
{-# LANGUAGE GeneralizedNewtypeDeriving #-}
|
||||||
|
{-# LANGUAGE MultiParamTypeClasses #-}
|
||||||
|
{-# LANGUAGE NoImplicitPrelude #-}
|
||||||
|
{-# LANGUAGE OverloadedStrings #-}
|
||||||
|
{-# LANGUAGE TemplateHaskell #-}
|
||||||
|
{-# LANGUAGE TypeFamilies #-}
|
||||||
|
{-# LANGUAGE DerivingStrategies #-}
|
||||||
|
{-# LANGUAGE StandaloneDeriving #-}
|
||||||
|
{-# LANGUAGE UndecidableInstances #-}
|
||||||
|
{-# LANGUAGE DataKinds #-}
|
||||||
|
module Model where
|
||||||
|
|
||||||
|
import ClassyPrelude.Yesod
|
||||||
|
import Database.Persist.Quasi
|
||||||
|
|
||||||
|
-- You can define all of your database entities in the entities file.
|
||||||
|
-- You can find more information on persistent and how to declare entities
|
||||||
|
-- at:
|
||||||
|
-- http://www.yesodweb.com/book/persistent/
|
||||||
|
share [mkPersist sqlSettings, mkMigrate "migrateAll"]
|
||||||
|
$(persistFileWith lowerCaseSettings "config/models.persistentmodels")
|
158
src/Settings.hs
Normal file
|
@ -0,0 +1,158 @@
|
||||||
|
{-# LANGUAGE CPP #-}
|
||||||
|
{-# LANGUAGE NoImplicitPrelude #-}
|
||||||
|
{-# LANGUAGE OverloadedStrings #-}
|
||||||
|
{-# LANGUAGE RecordWildCards #-}
|
||||||
|
{-# LANGUAGE TemplateHaskell #-}
|
||||||
|
-- | Settings are centralized, as much as possible, into this file. This
|
||||||
|
-- includes database connection settings, static file locations, etc.
|
||||||
|
-- In addition, you can configure a number of different aspects of Yesod
|
||||||
|
-- by overriding methods in the Yesod typeclass. That instance is
|
||||||
|
-- declared in the Foundation.hs file.
|
||||||
|
module Settings where
|
||||||
|
|
||||||
|
import ClassyPrelude.Yesod
|
||||||
|
import qualified Control.Exception as Exception
|
||||||
|
import Data.Aeson (Result (..), fromJSON, withObject, (.!=),
|
||||||
|
(.:?))
|
||||||
|
import Data.FileEmbed (embedFile)
|
||||||
|
import Data.Yaml (decodeEither')
|
||||||
|
import qualified Data.Map as M
|
||||||
|
import Database.Persist.Sqlite (SqliteConf)
|
||||||
|
import Language.Haskell.TH.Syntax (Exp, Name, Q)
|
||||||
|
import Network.Wai.Handler.Warp (HostPreference)
|
||||||
|
import Yesod.Default.Config2 (applyEnvValue, configSettingsYml)
|
||||||
|
import Yesod.Default.Util (WidgetFileSettings, widgetFileNoReload,
|
||||||
|
widgetFileReload)
|
||||||
|
|
||||||
|
|
||||||
|
data Station = Station
|
||||||
|
{ stationId :: Text
|
||||||
|
, stationName :: Text
|
||||||
|
}
|
||||||
|
|
||||||
|
instance FromJSON Station where
|
||||||
|
parseJSON = withObject "Station" $ \o -> do
|
||||||
|
stationId <- o .: "station-id"
|
||||||
|
stationName <- o .:? "station-name" .!= "Station"
|
||||||
|
return Station {..}
|
||||||
|
|
||||||
|
-- | Runtime settings to configure this application. These settings can be
|
||||||
|
-- loaded from various sources: defaults, environment variables, config files,
|
||||||
|
-- theoretically even a database.
|
||||||
|
data AppSettings = AppSettings
|
||||||
|
{ appStaticDir :: String
|
||||||
|
-- ^ Directory from which to serve static files.
|
||||||
|
, appDatabaseConf :: SqliteConf
|
||||||
|
-- ^ Configuration settings for accessing the database.
|
||||||
|
, appRoot :: Maybe Text
|
||||||
|
-- ^ Base for all generated URLs. If @Nothing@, determined
|
||||||
|
-- from the request headers.
|
||||||
|
, appHost :: HostPreference
|
||||||
|
-- ^ Host/interface the server should bind to.
|
||||||
|
, appPort :: Int
|
||||||
|
-- ^ Port to listen on
|
||||||
|
, appIpFromHeader :: Bool
|
||||||
|
-- ^ Get the IP address from the header when logging. Useful when sitting
|
||||||
|
-- behind a reverse proxy.
|
||||||
|
|
||||||
|
, appDetailedRequestLogging :: Bool
|
||||||
|
-- ^ Use detailed request logging system
|
||||||
|
, appShouldLogAll :: Bool
|
||||||
|
-- ^ Should all log messages be displayed?
|
||||||
|
, appReloadTemplates :: Bool
|
||||||
|
-- ^ Use the reload version of templates
|
||||||
|
, appMutableStatic :: Bool
|
||||||
|
-- ^ Assume that files in the static dir may change after compilation
|
||||||
|
, appSkipCombining :: Bool
|
||||||
|
-- ^ Perform no stylesheet/script combining
|
||||||
|
|
||||||
|
-- Example app-specific configuration values.
|
||||||
|
, appCopyright :: Text
|
||||||
|
-- ^ Copyright text to appear in the footer of the page
|
||||||
|
|
||||||
|
, appStations :: Map Text Text
|
||||||
|
, appAdFilePath :: String
|
||||||
|
}
|
||||||
|
|
||||||
|
instance FromJSON AppSettings where
|
||||||
|
parseJSON = withObject "AppSettings" $ \o -> do
|
||||||
|
let defaultDev =
|
||||||
|
#ifdef DEVELOPMENT
|
||||||
|
True
|
||||||
|
#else
|
||||||
|
False
|
||||||
|
#endif
|
||||||
|
appStaticDir <- o .: "static-dir"
|
||||||
|
appDatabaseConf <- o .: "database"
|
||||||
|
appRoot <- o .:? "approot"
|
||||||
|
appHost <- fromString <$> o .: "host"
|
||||||
|
appPort <- o .: "port"
|
||||||
|
appIpFromHeader <- o .: "ip-from-header"
|
||||||
|
|
||||||
|
dev <- o .:? "development" .!= defaultDev
|
||||||
|
|
||||||
|
appDetailedRequestLogging <- o .:? "detailed-logging" .!= dev
|
||||||
|
appShouldLogAll <- o .:? "should-log-all" .!= dev
|
||||||
|
appReloadTemplates <- o .:? "reload-templates" .!= dev
|
||||||
|
appMutableStatic <- o .:? "mutable-static" .!= dev
|
||||||
|
appSkipCombining <- o .:? "skip-combining" .!= dev
|
||||||
|
|
||||||
|
appCopyright <- o .: "copyright"
|
||||||
|
appStations <- M.fromList . map (\x -> (stationId x, stationName x)) <$> o .: "stations"
|
||||||
|
appAdFilePath <- o .: "ad-files"
|
||||||
|
|
||||||
|
return AppSettings {..}
|
||||||
|
|
||||||
|
-- | Settings for 'widgetFile', such as which template languages to support and
|
||||||
|
-- default Hamlet settings.
|
||||||
|
--
|
||||||
|
-- For more information on modifying behavior, see:
|
||||||
|
--
|
||||||
|
-- https://github.com/yesodweb/yesod/wiki/Overriding-widgetFile
|
||||||
|
widgetFileSettings :: WidgetFileSettings
|
||||||
|
widgetFileSettings = def
|
||||||
|
|
||||||
|
-- | How static files should be combined.
|
||||||
|
combineSettings :: CombineSettings
|
||||||
|
combineSettings = def
|
||||||
|
|
||||||
|
-- The rest of this file contains settings which rarely need changing by a
|
||||||
|
-- user.
|
||||||
|
|
||||||
|
widgetFile :: String -> Q Exp
|
||||||
|
widgetFile = (if appReloadTemplates compileTimeAppSettings
|
||||||
|
then widgetFileReload
|
||||||
|
else widgetFileNoReload)
|
||||||
|
widgetFileSettings
|
||||||
|
|
||||||
|
-- | Raw bytes at compile time of @config/settings.yml@
|
||||||
|
configSettingsYmlBS :: ByteString
|
||||||
|
configSettingsYmlBS = $(embedFile configSettingsYml)
|
||||||
|
|
||||||
|
-- | @config/settings.yml@, parsed to a @Value@.
|
||||||
|
configSettingsYmlValue :: Value
|
||||||
|
configSettingsYmlValue = either Exception.throw id
|
||||||
|
$ decodeEither' configSettingsYmlBS
|
||||||
|
|
||||||
|
-- | A version of @AppSettings@ parsed at compile time from @config/settings.yml@.
|
||||||
|
compileTimeAppSettings :: AppSettings
|
||||||
|
compileTimeAppSettings =
|
||||||
|
case fromJSON $ applyEnvValue False mempty configSettingsYmlValue of
|
||||||
|
Error e -> error e
|
||||||
|
Success settings -> settings
|
||||||
|
|
||||||
|
-- The following two functions can be used to combine multiple CSS or JS files
|
||||||
|
-- at compile time to decrease the number of http requests.
|
||||||
|
-- Sample usage (inside a Widget):
|
||||||
|
--
|
||||||
|
-- > $(combineStylesheets 'StaticR [style1_css, style2_css])
|
||||||
|
|
||||||
|
combineStylesheets :: Name -> [Route Static] -> Q Exp
|
||||||
|
combineStylesheets = combineStylesheets'
|
||||||
|
(appSkipCombining compileTimeAppSettings)
|
||||||
|
combineSettings
|
||||||
|
|
||||||
|
combineScripts :: Name -> [Route Static] -> Q Exp
|
||||||
|
combineScripts = combineScripts'
|
||||||
|
(appSkipCombining compileTimeAppSettings)
|
||||||
|
combineSettings
|
39
src/Settings/StaticFiles.hs
Normal file
|
@ -0,0 +1,39 @@
|
||||||
|
{-# LANGUAGE NoImplicitPrelude #-}
|
||||||
|
{-# LANGUAGE OverloadedStrings #-}
|
||||||
|
{-# LANGUAGE TemplateHaskell #-}
|
||||||
|
module Settings.StaticFiles where
|
||||||
|
|
||||||
|
import Settings (appStaticDir, compileTimeAppSettings)
|
||||||
|
import Yesod.Static (staticFiles)
|
||||||
|
|
||||||
|
-- This generates easy references to files in the static directory at compile time,
|
||||||
|
-- giving you compile-time verification that referenced files exist.
|
||||||
|
-- Warning: any files added to your static directory during run-time can't be
|
||||||
|
-- accessed this way. You'll have to use their FilePath or URL to access them.
|
||||||
|
--
|
||||||
|
-- For example, to refer to @static/js/script.js@ via an identifier, you'd use:
|
||||||
|
--
|
||||||
|
-- js_script_js
|
||||||
|
--
|
||||||
|
-- If the identifier is not available, you may use:
|
||||||
|
--
|
||||||
|
-- StaticFile ["js", "script.js"] []
|
||||||
|
staticFiles (appStaticDir compileTimeAppSettings)
|
||||||
|
|
||||||
|
-- If you prefer to updating the references by force
|
||||||
|
-- -- especially when you are devloping like `stack exec -- yesod devel` --
|
||||||
|
-- you can update references by chaning file stamp.
|
||||||
|
--
|
||||||
|
-- On linux or Unix-like system, you can use
|
||||||
|
-- shell> touch /Path/To/Settings/StaticFiles.hs
|
||||||
|
--
|
||||||
|
-- or save without changes on your favorite editor.
|
||||||
|
-- so yesod devel will re-compile automatically and generate the refereces
|
||||||
|
-- including new one.
|
||||||
|
--
|
||||||
|
-- In this way you can use on your shakespearean template(s)
|
||||||
|
-- Let's say you have image on "yourStaticDir/img/background-1.jpg"
|
||||||
|
-- you can use the reference of the file on shakespearean templates like bellow
|
||||||
|
--
|
||||||
|
-- /* note: `-' becomes '_' as well */
|
||||||
|
-- @{StaticR img_background_1_jpg}
|
7022
static/css/bootstrap.css
vendored
Normal file
3
static/css/test.css
Normal file
|
@ -0,0 +1,3 @@
|
||||||
|
.blubb {
|
||||||
|
border-width: 300px
|
||||||
|
}
|
BIN
static/fonts/glyphicons-halflings-regular.eot
Normal file
229
static/fonts/glyphicons-halflings-regular.svg
Normal file
|
@ -0,0 +1,229 @@
|
||||||
|
<?xml version="1.0" standalone="no"?>
|
||||||
|
<!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN" "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd" >
|
||||||
|
<svg xmlns="http://www.w3.org/2000/svg">
|
||||||
|
<metadata></metadata>
|
||||||
|
<defs>
|
||||||
|
<font id="glyphicons_halflingsregular" horiz-adv-x="1200" >
|
||||||
|
<font-face units-per-em="1200" ascent="960" descent="-240" />
|
||||||
|
<missing-glyph horiz-adv-x="500" />
|
||||||
|
<glyph />
|
||||||
|
<glyph />
|
||||||
|
<glyph unicode="
" />
|
||||||
|
<glyph unicode=" " />
|
||||||
|
<glyph unicode="*" d="M100 500v200h259l-183 183l141 141l183 -183v259h200v-259l183 183l141 -141l-183 -183h259v-200h-259l183 -183l-141 -141l-183 183v-259h-200v259l-183 -183l-141 141l183 183h-259z" />
|
||||||
|
<glyph unicode="+" d="M0 400v300h400v400h300v-400h400v-300h-400v-400h-300v400h-400z" />
|
||||||
|
<glyph unicode=" " />
|
||||||
|
<glyph unicode=" " horiz-adv-x="652" />
|
||||||
|
<glyph unicode=" " horiz-adv-x="1304" />
|
||||||
|
<glyph unicode=" " horiz-adv-x="652" />
|
||||||
|
<glyph unicode=" " horiz-adv-x="1304" />
|
||||||
|
<glyph unicode=" " horiz-adv-x="434" />
|
||||||
|
<glyph unicode=" " horiz-adv-x="326" />
|
||||||
|
<glyph unicode=" " horiz-adv-x="217" />
|
||||||
|
<glyph unicode=" " horiz-adv-x="217" />
|
||||||
|
<glyph unicode=" " horiz-adv-x="163" />
|
||||||
|
<glyph unicode=" " horiz-adv-x="260" />
|
||||||
|
<glyph unicode=" " horiz-adv-x="72" />
|
||||||
|
<glyph unicode=" " horiz-adv-x="260" />
|
||||||
|
<glyph unicode=" " horiz-adv-x="326" />
|
||||||
|
<glyph unicode="€" d="M100 500l100 100h113q0 47 5 100h-218l100 100h135q37 167 112 257q117 141 297 141q242 0 354 -189q60 -103 66 -209h-181q0 55 -25.5 99t-63.5 68t-75 36.5t-67 12.5q-24 0 -52.5 -10t-62.5 -32t-65.5 -67t-50.5 -107h379l-100 -100h-300q-6 -46 -6 -100h406l-100 -100 h-300q9 -74 33 -132t52.5 -91t62 -54.5t59 -29t46.5 -7.5q29 0 66 13t75 37t63.5 67.5t25.5 96.5h174q-31 -172 -128 -278q-107 -117 -274 -117q-205 0 -324 158q-36 46 -69 131.5t-45 205.5h-217z" />
|
||||||
|
<glyph unicode="−" d="M200 400h900v300h-900v-300z" />
|
||||||
|
<glyph unicode="◼" horiz-adv-x="500" d="M0 0z" />
|
||||||
|
<glyph unicode="☁" d="M-14 494q0 -80 56.5 -137t135.5 -57h750q120 0 205 86.5t85 207.5t-85 207t-205 86q-46 0 -90 -14q-44 97 -134.5 156.5t-200.5 59.5q-152 0 -260 -107.5t-108 -260.5q0 -25 2 -37q-66 -14 -108.5 -67.5t-42.5 -122.5z" />
|
||||||
|
<glyph unicode="✉" d="M0 100l400 400l200 -200l200 200l400 -400h-1200zM0 300v600l300 -300zM0 1100l600 -603l600 603h-1200zM900 600l300 300v-600z" />
|
||||||
|
<glyph unicode="✏" d="M-13 -13l333 112l-223 223zM187 403l214 -214l614 614l-214 214zM887 1103l214 -214l99 92q13 13 13 32.5t-13 33.5l-153 153q-15 13 -33 13t-33 -13z" />
|
||||||
|
<glyph unicode="" d="M0 1200h1200l-500 -550v-550h300v-100h-800v100h300v550z" />
|
||||||
|
<glyph unicode="" d="M14 84q18 -55 86 -75.5t147 5.5q65 21 109 69t44 90v606l600 155v-521q-64 16 -138 -7q-79 -26 -122.5 -83t-25.5 -111q18 -55 86 -75.5t147 4.5q70 23 111.5 63.5t41.5 95.5v881q0 10 -7 15.5t-17 2.5l-752 -193q-10 -3 -17 -12.5t-7 -19.5v-689q-64 17 -138 -7 q-79 -25 -122.5 -82t-25.5 -112z" />
|
||||||
|
<glyph unicode="" d="M23 693q0 200 142 342t342 142t342 -142t142 -342q0 -142 -78 -261l300 -300q7 -8 7 -18t-7 -18l-109 -109q-8 -7 -18 -7t-18 7l-300 300q-119 -78 -261 -78q-200 0 -342 142t-142 342zM176 693q0 -136 97 -233t234 -97t233.5 96.5t96.5 233.5t-96.5 233.5t-233.5 96.5 t-234 -97t-97 -233z" />
|
||||||
|
<glyph unicode="" d="M100 784q0 64 28 123t73 100.5t104.5 64t119 20.5t120 -38.5t104.5 -104.5q48 69 109.5 105t121.5 38t118.5 -20.5t102.5 -64t71 -100.5t27 -123q0 -57 -33.5 -117.5t-94 -124.5t-126.5 -127.5t-150 -152.5t-146 -174q-62 85 -145.5 174t-149.5 152.5t-126.5 127.5 t-94 124.5t-33.5 117.5z" />
|
||||||
|
<glyph unicode="" d="M-72 800h479l146 400h2l146 -400h472l-382 -278l145 -449l-384 275l-382 -275l146 447zM168 71l2 1z" />
|
||||||
|
<glyph unicode="" d="M-72 800h479l146 400h2l146 -400h472l-382 -278l145 -449l-384 275l-382 -275l146 447zM168 71l2 1zM237 700l196 -142l-73 -226l192 140l195 -141l-74 229l193 140h-235l-77 211l-78 -211h-239z" />
|
||||||
|
<glyph unicode="" d="M0 0v143l400 257v100q-37 0 -68.5 74.5t-31.5 125.5v200q0 124 88 212t212 88t212 -88t88 -212v-200q0 -51 -31.5 -125.5t-68.5 -74.5v-100l400 -257v-143h-1200z" />
|
||||||
|
<glyph unicode="" d="M0 0v1100h1200v-1100h-1200zM100 100h100v100h-100v-100zM100 300h100v100h-100v-100zM100 500h100v100h-100v-100zM100 700h100v100h-100v-100zM100 900h100v100h-100v-100zM300 100h600v400h-600v-400zM300 600h600v400h-600v-400zM1000 100h100v100h-100v-100z M1000 300h100v100h-100v-100zM1000 500h100v100h-100v-100zM1000 700h100v100h-100v-100zM1000 900h100v100h-100v-100z" />
|
||||||
|
<glyph unicode="" d="M0 50v400q0 21 14.5 35.5t35.5 14.5h400q21 0 35.5 -14.5t14.5 -35.5v-400q0 -21 -14.5 -35.5t-35.5 -14.5h-400q-21 0 -35.5 14.5t-14.5 35.5zM0 650v400q0 21 14.5 35.5t35.5 14.5h400q21 0 35.5 -14.5t14.5 -35.5v-400q0 -21 -14.5 -35.5t-35.5 -14.5h-400 q-21 0 -35.5 14.5t-14.5 35.5zM600 50v400q0 21 14.5 35.5t35.5 14.5h400q21 0 35.5 -14.5t14.5 -35.5v-400q0 -21 -14.5 -35.5t-35.5 -14.5h-400q-21 0 -35.5 14.5t-14.5 35.5zM600 650v400q0 21 14.5 35.5t35.5 14.5h400q21 0 35.5 -14.5t14.5 -35.5v-400 q0 -21 -14.5 -35.5t-35.5 -14.5h-400q-21 0 -35.5 14.5t-14.5 35.5z" />
|
||||||
|
<glyph unicode="" d="M0 50v200q0 21 14.5 35.5t35.5 14.5h200q21 0 35.5 -14.5t14.5 -35.5v-200q0 -21 -14.5 -35.5t-35.5 -14.5h-200q-21 0 -35.5 14.5t-14.5 35.5zM0 450v200q0 21 14.5 35.5t35.5 14.5h200q21 0 35.5 -14.5t14.5 -35.5v-200q0 -21 -14.5 -35.5t-35.5 -14.5h-200 q-21 0 -35.5 14.5t-14.5 35.5zM0 850v200q0 21 14.5 35.5t35.5 14.5h200q21 0 35.5 -14.5t14.5 -35.5v-200q0 -21 -14.5 -35.5t-35.5 -14.5h-200q-21 0 -35.5 14.5t-14.5 35.5zM400 50v200q0 21 14.5 35.5t35.5 14.5h200q21 0 35.5 -14.5t14.5 -35.5v-200q0 -21 -14.5 -35.5 t-35.5 -14.5h-200q-21 0 -35.5 14.5t-14.5 35.5zM400 450v200q0 21 14.5 35.5t35.5 14.5h200q21 0 35.5 -14.5t14.5 -35.5v-200q0 -21 -14.5 -35.5t-35.5 -14.5h-200q-21 0 -35.5 14.5t-14.5 35.5zM400 850v200q0 21 14.5 35.5t35.5 14.5h200q21 0 35.5 -14.5t14.5 -35.5 v-200q0 -21 -14.5 -35.5t-35.5 -14.5h-200q-21 0 -35.5 14.5t-14.5 35.5zM800 50v200q0 21 14.5 35.5t35.5 14.5h200q21 0 35.5 -14.5t14.5 -35.5v-200q0 -21 -14.5 -35.5t-35.5 -14.5h-200q-21 0 -35.5 14.5t-14.5 35.5zM800 450v200q0 21 14.5 35.5t35.5 14.5h200 q21 0 35.5 -14.5t14.5 -35.5v-200q0 -21 -14.5 -35.5t-35.5 -14.5h-200q-21 0 -35.5 14.5t-14.5 35.5zM800 850v200q0 21 14.5 35.5t35.5 14.5h200q21 0 35.5 -14.5t14.5 -35.5v-200q0 -21 -14.5 -35.5t-35.5 -14.5h-200q-21 0 -35.5 14.5t-14.5 35.5z" />
|
||||||
|
<glyph unicode="" d="M0 50v200q0 21 14.5 35.5t35.5 14.5h200q21 0 35.5 -14.5t14.5 -35.5v-200q0 -21 -14.5 -35.5t-35.5 -14.5h-200q-21 0 -35.5 14.5t-14.5 35.5zM0 450q0 -21 14.5 -35.5t35.5 -14.5h200q21 0 35.5 14.5t14.5 35.5v200q0 21 -14.5 35.5t-35.5 14.5h-200q-21 0 -35.5 -14.5 t-14.5 -35.5v-200zM0 850v200q0 21 14.5 35.5t35.5 14.5h200q21 0 35.5 -14.5t14.5 -35.5v-200q0 -21 -14.5 -35.5t-35.5 -14.5h-200q-21 0 -35.5 14.5t-14.5 35.5zM400 50v200q0 21 14.5 35.5t35.5 14.5h700q21 0 35.5 -14.5t14.5 -35.5v-200q0 -21 -14.5 -35.5 t-35.5 -14.5h-700q-21 0 -35.5 14.5t-14.5 35.5zM400 450v200q0 21 14.5 35.5t35.5 14.5h700q21 0 35.5 -14.5t14.5 -35.5v-200q0 -21 -14.5 -35.5t-35.5 -14.5h-700q-21 0 -35.5 14.5t-14.5 35.5zM400 850v200q0 21 14.5 35.5t35.5 14.5h700q21 0 35.5 -14.5t14.5 -35.5 v-200q0 -21 -14.5 -35.5t-35.5 -14.5h-700q-21 0 -35.5 14.5t-14.5 35.5z" />
|
||||||
|
<glyph unicode="" d="M29 454l419 -420l818 820l-212 212l-607 -607l-206 207z" />
|
||||||
|
<glyph unicode="" d="M106 318l282 282l-282 282l212 212l282 -282l282 282l212 -212l-282 -282l282 -282l-212 -212l-282 282l-282 -282z" />
|
||||||
|
<glyph unicode="" d="M23 693q0 200 142 342t342 142t342 -142t142 -342q0 -142 -78 -261l300 -300q7 -8 7 -18t-7 -18l-109 -109q-8 -7 -18 -7t-18 7l-300 300q-119 -78 -261 -78q-200 0 -342 142t-142 342zM176 693q0 -136 97 -233t234 -97t233.5 96.5t96.5 233.5t-96.5 233.5t-233.5 96.5 t-234 -97t-97 -233zM300 600v200h100v100h200v-100h100v-200h-100v-100h-200v100h-100z" />
|
||||||
|
<glyph unicode="" d="M23 694q0 200 142 342t342 142t342 -142t142 -342q0 -141 -78 -262l300 -299q7 -7 7 -18t-7 -18l-109 -109q-8 -8 -18 -8t-18 8l-300 300q-119 -78 -261 -78q-200 0 -342 142t-142 342zM176 694q0 -136 97 -233t234 -97t233.5 97t96.5 233t-96.5 233t-233.5 97t-234 -97 t-97 -233zM300 601h400v200h-400v-200z" />
|
||||||
|
<glyph unicode="" d="M23 600q0 183 105 331t272 210v-166q-103 -55 -165 -155t-62 -220q0 -177 125 -302t302 -125t302 125t125 302q0 120 -62 220t-165 155v166q167 -62 272 -210t105 -331q0 -118 -45.5 -224.5t-123 -184t-184 -123t-224.5 -45.5t-224.5 45.5t-184 123t-123 184t-45.5 224.5 zM500 750q0 -21 14.5 -35.5t35.5 -14.5h100q21 0 35.5 14.5t14.5 35.5v400q0 21 -14.5 35.5t-35.5 14.5h-100q-21 0 -35.5 -14.5t-14.5 -35.5v-400z" />
|
||||||
|
<glyph unicode="" d="M100 1h200v300h-200v-300zM400 1v500h200v-500h-200zM700 1v800h200v-800h-200zM1000 1v1200h200v-1200h-200z" />
|
||||||
|
<glyph unicode="" d="M26 601q0 -33 6 -74l151 -38l2 -6q14 -49 38 -93l3 -5l-80 -134q45 -59 105 -105l133 81l5 -3q45 -26 94 -39l5 -2l38 -151q40 -5 74 -5q27 0 74 5l38 151l6 2q46 13 93 39l5 3l134 -81q56 44 104 105l-80 134l3 5q24 44 39 93l1 6l152 38q5 40 5 74q0 28 -5 73l-152 38 l-1 6q-16 51 -39 93l-3 5l80 134q-44 58 -104 105l-134 -81l-5 3q-45 25 -93 39l-6 1l-38 152q-40 5 -74 5q-27 0 -74 -5l-38 -152l-5 -1q-50 -14 -94 -39l-5 -3l-133 81q-59 -47 -105 -105l80 -134l-3 -5q-25 -47 -38 -93l-2 -6l-151 -38q-6 -48 -6 -73zM385 601 q0 88 63 151t152 63t152 -63t63 -151q0 -89 -63 -152t-152 -63t-152 63t-63 152z" />
|
||||||
|
<glyph unicode="" d="M100 1025v50q0 10 7.5 17.5t17.5 7.5h275v100q0 41 29.5 70.5t70.5 29.5h300q41 0 70.5 -29.5t29.5 -70.5v-100h275q10 0 17.5 -7.5t7.5 -17.5v-50q0 -11 -7 -18t-18 -7h-1050q-11 0 -18 7t-7 18zM200 100v800h900v-800q0 -41 -29.5 -71t-70.5 -30h-700q-41 0 -70.5 30 t-29.5 71zM300 100h100v700h-100v-700zM500 100h100v700h-100v-700zM500 1100h300v100h-300v-100zM700 100h100v700h-100v-700zM900 100h100v700h-100v-700z" />
|
||||||
|
<glyph unicode="" d="M1 601l656 644l644 -644h-200v-600h-300v400h-300v-400h-300v600h-200z" />
|
||||||
|
<glyph unicode="" d="M100 25v1150q0 11 7 18t18 7h475v-500h400v-675q0 -11 -7 -18t-18 -7h-850q-11 0 -18 7t-7 18zM700 800v300l300 -300h-300z" />
|
||||||
|
<glyph unicode="" d="M4 600q0 162 80 299t217 217t299 80t299 -80t217 -217t80 -299t-80 -299t-217 -217t-299 -80t-299 80t-217 217t-80 299zM186 600q0 -171 121.5 -292.5t292.5 -121.5t292.5 121.5t121.5 292.5t-121.5 292.5t-292.5 121.5t-292.5 -121.5t-121.5 -292.5zM500 500v400h100 v-300h200v-100h-300z" />
|
||||||
|
<glyph unicode="" d="M-100 0l431 1200h209l-21 -300h162l-20 300h208l431 -1200h-538l-41 400h-242l-40 -400h-539zM488 500h224l-27 300h-170z" />
|
||||||
|
<glyph unicode="" d="M0 0v400h490l-290 300h200v500h300v-500h200l-290 -300h490v-400h-1100zM813 200h175v100h-175v-100z" />
|
||||||
|
<glyph unicode="" d="M1 600q0 122 47.5 233t127.5 191t191 127.5t233 47.5t233 -47.5t191 -127.5t127.5 -191t47.5 -233t-47.5 -233t-127.5 -191t-191 -127.5t-233 -47.5t-233 47.5t-191 127.5t-127.5 191t-47.5 233zM188 600q0 -170 121 -291t291 -121t291 121t121 291t-121 291t-291 121 t-291 -121t-121 -291zM350 600h150v300h200v-300h150l-250 -300z" />
|
||||||
|
<glyph unicode="" d="M4 600q0 162 80 299t217 217t299 80t299 -80t217 -217t80 -299t-80 -299t-217 -217t-299 -80t-299 80t-217 217t-80 299zM186 600q0 -171 121.5 -292.5t292.5 -121.5t292.5 121.5t121.5 292.5t-121.5 292.5t-292.5 121.5t-292.5 -121.5t-121.5 -292.5zM350 600l250 300 l250 -300h-150v-300h-200v300h-150z" />
|
||||||
|
<glyph unicode="" d="M0 25v475l200 700h800l199 -700l1 -475q0 -11 -7 -18t-18 -7h-1150q-11 0 -18 7t-7 18zM200 500h200l50 -200h300l50 200h200l-97 500h-606z" />
|
||||||
|
<glyph unicode="" d="M4 600q0 162 80 299t217 217t299 80t299 -80t217 -217t80 -299t-80 -299t-217 -217t-299 -80t-299 80t-217 217t-80 299zM186 600q0 -172 121.5 -293t292.5 -121t292.5 121t121.5 293q0 171 -121.5 292.5t-292.5 121.5t-292.5 -121.5t-121.5 -292.5zM500 397v401 l297 -200z" />
|
||||||
|
<glyph unicode="" d="M23 600q0 -118 45.5 -224.5t123 -184t184 -123t224.5 -45.5t224.5 45.5t184 123t123 184t45.5 224.5h-150q0 -177 -125 -302t-302 -125t-302 125t-125 302t125 302t302 125q136 0 246 -81l-146 -146h400v400l-145 -145q-157 122 -355 122q-118 0 -224.5 -45.5t-184 -123 t-123 -184t-45.5 -224.5z" />
|
||||||
|
<glyph unicode="" d="M23 600q0 118 45.5 224.5t123 184t184 123t224.5 45.5q198 0 355 -122l145 145v-400h-400l147 147q-112 80 -247 80q-177 0 -302 -125t-125 -302h-150zM100 0v400h400l-147 -147q112 -80 247 -80q177 0 302 125t125 302h150q0 -118 -45.5 -224.5t-123 -184t-184 -123 t-224.5 -45.5q-198 0 -355 122z" />
|
||||||
|
<glyph unicode="" d="M100 0h1100v1200h-1100v-1200zM200 100v900h900v-900h-900zM300 200v100h100v-100h-100zM300 400v100h100v-100h-100zM300 600v100h100v-100h-100zM300 800v100h100v-100h-100zM500 200h500v100h-500v-100zM500 400v100h500v-100h-500zM500 600v100h500v-100h-500z M500 800v100h500v-100h-500z" />
|
||||||
|
<glyph unicode="" d="M0 100v600q0 41 29.5 70.5t70.5 29.5h100v200q0 82 59 141t141 59h300q82 0 141 -59t59 -141v-200h100q41 0 70.5 -29.5t29.5 -70.5v-600q0 -41 -29.5 -70.5t-70.5 -29.5h-900q-41 0 -70.5 29.5t-29.5 70.5zM400 800h300v150q0 21 -14.5 35.5t-35.5 14.5h-200 q-21 0 -35.5 -14.5t-14.5 -35.5v-150z" />
|
||||||
|
<glyph unicode="" d="M100 0v1100h100v-1100h-100zM300 400q60 60 127.5 84t127.5 17.5t122 -23t119 -30t110 -11t103 42t91 120.5v500q-40 -81 -101.5 -115.5t-127.5 -29.5t-138 25t-139.5 40t-125.5 25t-103 -29.5t-65 -115.5v-500z" />
|
||||||
|
<glyph unicode="" d="M0 275q0 -11 7 -18t18 -7h50q11 0 18 7t7 18v300q0 127 70.5 231.5t184.5 161.5t245 57t245 -57t184.5 -161.5t70.5 -231.5v-300q0 -11 7 -18t18 -7h50q11 0 18 7t7 18v300q0 116 -49.5 227t-131 192.5t-192.5 131t-227 49.5t-227 -49.5t-192.5 -131t-131 -192.5 t-49.5 -227v-300zM200 20v460q0 8 6 14t14 6h160q8 0 14 -6t6 -14v-460q0 -8 -6 -14t-14 -6h-160q-8 0 -14 6t-6 14zM800 20v460q0 8 6 14t14 6h160q8 0 14 -6t6 -14v-460q0 -8 -6 -14t-14 -6h-160q-8 0 -14 6t-6 14z" />
|
||||||
|
<glyph unicode="" d="M0 400h300l300 -200v800l-300 -200h-300v-400zM688 459l141 141l-141 141l71 71l141 -141l141 141l71 -71l-141 -141l141 -141l-71 -71l-141 141l-141 -141z" />
|
||||||
|
<glyph unicode="" d="M0 400h300l300 -200v800l-300 -200h-300v-400zM700 857l69 53q111 -135 111 -310q0 -169 -106 -302l-67 54q86 110 86 248q0 146 -93 257z" />
|
||||||
|
<glyph unicode="" d="M0 401v400h300l300 200v-800l-300 200h-300zM702 858l69 53q111 -135 111 -310q0 -170 -106 -303l-67 55q86 110 86 248q0 145 -93 257zM889 951l7 -8q123 -151 123 -344q0 -189 -119 -339l-7 -8l81 -66l6 8q142 178 142 405q0 230 -144 408l-6 8z" />
|
||||||
|
<glyph unicode="" d="M0 0h500v500h-200v100h-100v-100h-200v-500zM0 600h100v100h400v100h100v100h-100v300h-500v-600zM100 100v300h300v-300h-300zM100 800v300h300v-300h-300zM200 200v100h100v-100h-100zM200 900h100v100h-100v-100zM500 500v100h300v-300h200v-100h-100v-100h-200v100 h-100v100h100v200h-200zM600 0v100h100v-100h-100zM600 1000h100v-300h200v-300h300v200h-200v100h200v500h-600v-200zM800 800v300h300v-300h-300zM900 0v100h300v-100h-300zM900 900v100h100v-100h-100zM1100 200v100h100v-100h-100z" />
|
||||||
|
<glyph unicode="" d="M0 200h100v1000h-100v-1000zM100 0v100h300v-100h-300zM200 200v1000h100v-1000h-100zM500 0v91h100v-91h-100zM500 200v1000h200v-1000h-200zM700 0v91h100v-91h-100zM800 200v1000h100v-1000h-100zM900 0v91h200v-91h-200zM1000 200v1000h200v-1000h-200z" />
|
||||||
|
<glyph unicode="" d="M0 700l1 475q0 10 7.5 17.5t17.5 7.5h474l700 -700l-500 -500zM148 953q0 -42 29 -71q30 -30 71.5 -30t71.5 30q29 29 29 71t-29 71q-30 30 -71.5 30t-71.5 -30q-29 -29 -29 -71z" />
|
||||||
|
<glyph unicode="" d="M1 700l1 475q0 11 7 18t18 7h474l700 -700l-500 -500zM148 953q0 -42 30 -71q29 -30 71 -30t71 30q30 29 30 71t-30 71q-29 30 -71 30t-71 -30q-30 -29 -30 -71zM701 1200h100l700 -700l-500 -500l-50 50l450 450z" />
|
||||||
|
<glyph unicode="" d="M100 0v1025l175 175h925v-1000l-100 -100v1000h-750l-100 -100h750v-1000h-900z" />
|
||||||
|
<glyph unicode="" d="M200 0l450 444l450 -443v1150q0 20 -14.5 35t-35.5 15h-800q-21 0 -35.5 -15t-14.5 -35v-1151z" />
|
||||||
|
<glyph unicode="" d="M0 100v700h200l100 -200h600l100 200h200v-700h-200v200h-800v-200h-200zM253 829l40 -124h592l62 124l-94 346q-2 11 -10 18t-18 7h-450q-10 0 -18 -7t-10 -18zM281 24l38 152q2 10 11.5 17t19.5 7h500q10 0 19.5 -7t11.5 -17l38 -152q2 -10 -3.5 -17t-15.5 -7h-600 q-10 0 -15.5 7t-3.5 17z" />
|
||||||
|
<glyph unicode="" d="M0 200q0 -41 29.5 -70.5t70.5 -29.5h1000q41 0 70.5 29.5t29.5 70.5v600q0 41 -29.5 70.5t-70.5 29.5h-150q-4 8 -11.5 21.5t-33 48t-53 61t-69 48t-83.5 21.5h-200q-41 0 -82 -20.5t-70 -50t-52 -59t-34 -50.5l-12 -20h-150q-41 0 -70.5 -29.5t-29.5 -70.5v-600z M356 500q0 100 72 172t172 72t172 -72t72 -172t-72 -172t-172 -72t-172 72t-72 172zM494 500q0 -44 31 -75t75 -31t75 31t31 75t-31 75t-75 31t-75 -31t-31 -75zM900 700v100h100v-100h-100z" />
|
||||||
|
<glyph unicode="" d="M53 0h365v66q-41 0 -72 11t-49 38t1 71l92 234h391l82 -222q16 -45 -5.5 -88.5t-74.5 -43.5v-66h417v66q-34 1 -74 43q-18 19 -33 42t-21 37l-6 13l-385 998h-93l-399 -1006q-24 -48 -52 -75q-12 -12 -33 -25t-36 -20l-15 -7v-66zM416 521l178 457l46 -140l116 -317h-340 z" />
|
||||||
|
<glyph unicode="" d="M100 0v89q41 7 70.5 32.5t29.5 65.5v827q0 28 -1 39.5t-5.5 26t-15.5 21t-29 14t-49 14.5v71l471 -1q120 0 213 -88t93 -228q0 -55 -11.5 -101.5t-28 -74t-33.5 -47.5t-28 -28l-12 -7q8 -3 21.5 -9t48 -31.5t60.5 -58t47.5 -91.5t21.5 -129q0 -84 -59 -156.5t-142 -111 t-162 -38.5h-500zM400 200h161q89 0 153 48.5t64 132.5q0 90 -62.5 154.5t-156.5 64.5h-159v-400zM400 700h139q76 0 130 61.5t54 138.5q0 82 -84 130.5t-239 48.5v-379z" />
|
||||||
|
<glyph unicode="" d="M200 0v57q77 7 134.5 40.5t65.5 80.5l173 849q10 56 -10 74t-91 37q-6 1 -10.5 2.5t-9.5 2.5v57h425l2 -57q-33 -8 -62 -25.5t-46 -37t-29.5 -38t-17.5 -30.5l-5 -12l-128 -825q-10 -52 14 -82t95 -36v-57h-500z" />
|
||||||
|
<glyph unicode="" d="M-75 200h75v800h-75l125 167l125 -167h-75v-800h75l-125 -167zM300 900v300h150h700h150v-300h-50q0 29 -8 48.5t-18.5 30t-33.5 15t-39.5 5.5t-50.5 1h-200v-850l100 -50v-100h-400v100l100 50v850h-200q-34 0 -50.5 -1t-40 -5.5t-33.5 -15t-18.5 -30t-8.5 -48.5h-49z " />
|
||||||
|
<glyph unicode="" d="M33 51l167 125v-75h800v75l167 -125l-167 -125v75h-800v-75zM100 901v300h150h700h150v-300h-50q0 29 -8 48.5t-18 30t-33.5 15t-40 5.5t-50.5 1h-200v-650l100 -50v-100h-400v100l100 50v650h-200q-34 0 -50.5 -1t-39.5 -5.5t-33.5 -15t-18.5 -30t-8 -48.5h-50z" />
|
||||||
|
<glyph unicode="" d="M0 50q0 -20 14.5 -35t35.5 -15h1100q21 0 35.5 15t14.5 35v100q0 21 -14.5 35.5t-35.5 14.5h-1100q-21 0 -35.5 -14.5t-14.5 -35.5v-100zM0 350q0 -20 14.5 -35t35.5 -15h800q21 0 35.5 15t14.5 35v100q0 21 -14.5 35.5t-35.5 14.5h-800q-21 0 -35.5 -14.5t-14.5 -35.5 v-100zM0 650q0 -20 14.5 -35t35.5 -15h1000q21 0 35.5 15t14.5 35v100q0 21 -14.5 35.5t-35.5 14.5h-1000q-21 0 -35.5 -14.5t-14.5 -35.5v-100zM0 950q0 -20 14.5 -35t35.5 -15h600q21 0 35.5 15t14.5 35v100q0 21 -14.5 35.5t-35.5 14.5h-600q-21 0 -35.5 -14.5 t-14.5 -35.5v-100z" />
|
||||||
|
<glyph unicode="" d="M0 50q0 -20 14.5 -35t35.5 -15h1100q21 0 35.5 15t14.5 35v100q0 21 -14.5 35.5t-35.5 14.5h-1100q-21 0 -35.5 -14.5t-14.5 -35.5v-100zM0 650q0 -20 14.5 -35t35.5 -15h1100q21 0 35.5 15t14.5 35v100q0 21 -14.5 35.5t-35.5 14.5h-1100q-21 0 -35.5 -14.5t-14.5 -35.5 v-100zM200 350q0 -20 14.5 -35t35.5 -15h700q21 0 35.5 15t14.5 35v100q0 21 -14.5 35.5t-35.5 14.5h-700q-21 0 -35.5 -14.5t-14.5 -35.5v-100zM200 950q0 -20 14.5 -35t35.5 -15h700q21 0 35.5 15t14.5 35v100q0 21 -14.5 35.5t-35.5 14.5h-700q-21 0 -35.5 -14.5 t-14.5 -35.5v-100z" />
|
||||||
|
<glyph unicode="" d="M0 50v100q0 21 14.5 35.5t35.5 14.5h1100q21 0 35.5 -14.5t14.5 -35.5v-100q0 -20 -14.5 -35t-35.5 -15h-1100q-21 0 -35.5 15t-14.5 35zM100 650v100q0 21 14.5 35.5t35.5 14.5h1000q21 0 35.5 -14.5t14.5 -35.5v-100q0 -20 -14.5 -35t-35.5 -15h-1000q-21 0 -35.5 15 t-14.5 35zM300 350v100q0 21 14.5 35.5t35.5 14.5h800q21 0 35.5 -14.5t14.5 -35.5v-100q0 -20 -14.5 -35t-35.5 -15h-800q-21 0 -35.5 15t-14.5 35zM500 950v100q0 21 14.5 35.5t35.5 14.5h600q21 0 35.5 -14.5t14.5 -35.5v-100q0 -20 -14.5 -35t-35.5 -15h-600 q-21 0 -35.5 15t-14.5 35z" />
|
||||||
|
<glyph unicode="" d="M0 50v100q0 21 14.5 35.5t35.5 14.5h1100q21 0 35.5 -14.5t14.5 -35.5v-100q0 -20 -14.5 -35t-35.5 -15h-1100q-21 0 -35.5 15t-14.5 35zM0 350v100q0 21 14.5 35.5t35.5 14.5h1100q21 0 35.5 -14.5t14.5 -35.5v-100q0 -20 -14.5 -35t-35.5 -15h-1100q-21 0 -35.5 15 t-14.5 35zM0 650v100q0 21 14.5 35.5t35.5 14.5h1100q21 0 35.5 -14.5t14.5 -35.5v-100q0 -20 -14.5 -35t-35.5 -15h-1100q-21 0 -35.5 15t-14.5 35zM0 950v100q0 21 14.5 35.5t35.5 14.5h1100q21 0 35.5 -14.5t14.5 -35.5v-100q0 -20 -14.5 -35t-35.5 -15h-1100 q-21 0 -35.5 15t-14.5 35z" />
|
||||||
|
<glyph unicode="" d="M0 50v100q0 21 14.5 35.5t35.5 14.5h100q21 0 35.5 -14.5t14.5 -35.5v-100q0 -20 -14.5 -35t-35.5 -15h-100q-21 0 -35.5 15t-14.5 35zM0 350v100q0 21 14.5 35.5t35.5 14.5h100q21 0 35.5 -14.5t14.5 -35.5v-100q0 -20 -14.5 -35t-35.5 -15h-100q-21 0 -35.5 15 t-14.5 35zM0 650v100q0 21 14.5 35.5t35.5 14.5h100q21 0 35.5 -14.5t14.5 -35.5v-100q0 -20 -14.5 -35t-35.5 -15h-100q-21 0 -35.5 15t-14.5 35zM0 950v100q0 21 14.5 35.5t35.5 14.5h100q21 0 35.5 -14.5t14.5 -35.5v-100q0 -20 -14.5 -35t-35.5 -15h-100q-21 0 -35.5 15 t-14.5 35zM300 50v100q0 21 14.5 35.5t35.5 14.5h800q21 0 35.5 -14.5t14.5 -35.5v-100q0 -20 -14.5 -35t-35.5 -15h-800q-21 0 -35.5 15t-14.5 35zM300 350v100q0 21 14.5 35.5t35.5 14.5h800q21 0 35.5 -14.5t14.5 -35.5v-100q0 -20 -14.5 -35t-35.5 -15h-800 q-21 0 -35.5 15t-14.5 35zM300 650v100q0 21 14.5 35.5t35.5 14.5h800q21 0 35.5 -14.5t14.5 -35.5v-100q0 -20 -14.5 -35t-35.5 -15h-800q-21 0 -35.5 15t-14.5 35zM300 950v100q0 21 14.5 35.5t35.5 14.5h800q21 0 35.5 -14.5t14.5 -35.5v-100q0 -20 -14.5 -35t-35.5 -15 h-800q-21 0 -35.5 15t-14.5 35z" />
|
||||||
|
<glyph unicode="" d="M-101 500v100h201v75l166 -125l-166 -125v75h-201zM300 0h100v1100h-100v-1100zM500 50q0 -20 14.5 -35t35.5 -15h600q20 0 35 15t15 35v100q0 21 -15 35.5t-35 14.5h-600q-21 0 -35.5 -14.5t-14.5 -35.5v-100zM500 350q0 -20 14.5 -35t35.5 -15h300q20 0 35 15t15 35 v100q0 21 -15 35.5t-35 14.5h-300q-21 0 -35.5 -14.5t-14.5 -35.5v-100zM500 650q0 -20 14.5 -35t35.5 -15h500q20 0 35 15t15 35v100q0 21 -15 35.5t-35 14.5h-500q-21 0 -35.5 -14.5t-14.5 -35.5v-100zM500 950q0 -20 14.5 -35t35.5 -15h100q20 0 35 15t15 35v100 q0 21 -15 35.5t-35 14.5h-100q-21 0 -35.5 -14.5t-14.5 -35.5v-100z" />
|
||||||
|
<glyph unicode="" d="M1 50q0 -20 14.5 -35t35.5 -15h600q20 0 35 15t15 35v100q0 21 -15 35.5t-35 14.5h-600q-21 0 -35.5 -14.5t-14.5 -35.5v-100zM1 350q0 -20 14.5 -35t35.5 -15h300q20 0 35 15t15 35v100q0 21 -15 35.5t-35 14.5h-300q-21 0 -35.5 -14.5t-14.5 -35.5v-100zM1 650 q0 -20 14.5 -35t35.5 -15h500q20 0 35 15t15 35v100q0 21 -15 35.5t-35 14.5h-500q-21 0 -35.5 -14.5t-14.5 -35.5v-100zM1 950q0 -20 14.5 -35t35.5 -15h100q20 0 35 15t15 35v100q0 21 -15 35.5t-35 14.5h-100q-21 0 -35.5 -14.5t-14.5 -35.5v-100zM801 0v1100h100v-1100 h-100zM934 550l167 -125v75h200v100h-200v75z" />
|
||||||
|
<glyph unicode="" d="M0 275v650q0 31 22 53t53 22h750q31 0 53 -22t22 -53v-650q0 -31 -22 -53t-53 -22h-750q-31 0 -53 22t-22 53zM900 600l300 300v-600z" />
|
||||||
|
<glyph unicode="" d="M0 44v1012q0 18 13 31t31 13h1112q19 0 31.5 -13t12.5 -31v-1012q0 -18 -12.5 -31t-31.5 -13h-1112q-18 0 -31 13t-13 31zM100 263l247 182l298 -131l-74 156l293 318l236 -288v500h-1000v-737zM208 750q0 56 39 95t95 39t95 -39t39 -95t-39 -95t-95 -39t-95 39t-39 95z " />
|
||||||
|
<glyph unicode="" d="M148 745q0 124 60.5 231.5t165 172t226.5 64.5q123 0 227 -63t164.5 -169.5t60.5 -229.5t-73 -272q-73 -114 -166.5 -237t-150.5 -189l-57 -66q-10 9 -27 26t-66.5 70.5t-96 109t-104 135.5t-100.5 155q-63 139 -63 262zM342 772q0 -107 75.5 -182.5t181.5 -75.5 q107 0 182.5 75.5t75.5 182.5t-75.5 182t-182.5 75t-182 -75.5t-75 -181.5z" />
|
||||||
|
<glyph unicode="" d="M1 600q0 122 47.5 233t127.5 191t191 127.5t233 47.5t233 -47.5t191 -127.5t127.5 -191t47.5 -233t-47.5 -233t-127.5 -191t-191 -127.5t-233 -47.5t-233 47.5t-191 127.5t-127.5 191t-47.5 233zM173 600q0 -177 125.5 -302t301.5 -125v854q-176 0 -301.5 -125 t-125.5 -302z" />
|
||||||
|
<glyph unicode="" d="M117 406q0 94 34 186t88.5 172.5t112 159t115 177t87.5 194.5q21 -71 57.5 -142.5t76 -130.5t83 -118.5t82 -117t70 -116t50 -125.5t18.5 -136q0 -89 -39 -165.5t-102 -126.5t-140 -79.5t-156 -33.5q-114 6 -211.5 53t-161.5 139t-64 210zM243 414q14 -82 59.5 -136 t136.5 -80l16 98q-7 6 -18 17t-34 48t-33 77q-15 73 -14 143.5t10 122.5l9 51q-92 -110 -119.5 -185t-12.5 -156z" />
|
||||||
|
<glyph unicode="" d="M0 400v300q0 165 117.5 282.5t282.5 117.5q366 -6 397 -14l-186 -186h-311q-41 0 -70.5 -29.5t-29.5 -70.5v-500q0 -41 29.5 -70.5t70.5 -29.5h500q41 0 70.5 29.5t29.5 70.5v125l200 200v-225q0 -165 -117.5 -282.5t-282.5 -117.5h-300q-165 0 -282.5 117.5 t-117.5 282.5zM436 341l161 50l412 412l-114 113l-405 -405zM995 1015l113 -113l113 113l-21 85l-92 28z" />
|
||||||
|
<glyph unicode="" d="M0 400v300q0 165 117.5 282.5t282.5 117.5h261l2 -80q-133 -32 -218 -120h-145q-41 0 -70.5 -29.5t-29.5 -70.5v-500q0 -41 29.5 -70.5t70.5 -29.5h500q41 0 70.5 29.5t29.5 70.5l200 153v-53q0 -165 -117.5 -282.5t-282.5 -117.5h-300q-165 0 -282.5 117.5t-117.5 282.5 zM423 524q30 38 81.5 64t103 35.5t99 14t77.5 3.5l29 -1v-209l360 324l-359 318v-216q-7 0 -19 -1t-48 -8t-69.5 -18.5t-76.5 -37t-76.5 -59t-62 -88t-39.5 -121.5z" />
|
||||||
|
<glyph unicode="" d="M0 400v300q0 165 117.5 282.5t282.5 117.5h300q61 0 127 -23l-178 -177h-349q-41 0 -70.5 -29.5t-29.5 -70.5v-500q0 -41 29.5 -70.5t70.5 -29.5h500q41 0 70.5 29.5t29.5 70.5v69l200 200v-169q0 -165 -117.5 -282.5t-282.5 -117.5h-300q-165 0 -282.5 117.5 t-117.5 282.5zM342 632l283 -284l567 567l-137 137l-430 -431l-146 147z" />
|
||||||
|
<glyph unicode="" d="M0 603l300 296v-198h200v200h-200l300 300l295 -300h-195v-200h200v198l300 -296l-300 -300v198h-200v-200h195l-295 -300l-300 300h200v200h-200v-198z" />
|
||||||
|
<glyph unicode="" d="M200 50v1000q0 21 14.5 35.5t35.5 14.5h100q21 0 35.5 -14.5t14.5 -35.5v-437l500 487v-1100l-500 488v-438q0 -21 -14.5 -35.5t-35.5 -14.5h-100q-21 0 -35.5 14.5t-14.5 35.5z" />
|
||||||
|
<glyph unicode="" d="M0 50v1000q0 21 14.5 35.5t35.5 14.5h100q21 0 35.5 -14.5t14.5 -35.5v-437l500 487v-487l500 487v-1100l-500 488v-488l-500 488v-438q0 -21 -14.5 -35.5t-35.5 -14.5h-100q-21 0 -35.5 14.5t-14.5 35.5z" />
|
||||||
|
<glyph unicode="" d="M136 550l564 550v-487l500 487v-1100l-500 488v-488z" />
|
||||||
|
<glyph unicode="" d="M200 0l900 550l-900 550v-1100z" />
|
||||||
|
<glyph unicode="" d="M200 150q0 -21 14.5 -35.5t35.5 -14.5h200q21 0 35.5 14.5t14.5 35.5v800q0 21 -14.5 35.5t-35.5 14.5h-200q-21 0 -35.5 -14.5t-14.5 -35.5v-800zM600 150q0 -21 14.5 -35.5t35.5 -14.5h200q21 0 35.5 14.5t14.5 35.5v800q0 21 -14.5 35.5t-35.5 14.5h-200 q-21 0 -35.5 -14.5t-14.5 -35.5v-800z" />
|
||||||
|
<glyph unicode="" d="M200 150q0 -20 14.5 -35t35.5 -15h800q21 0 35.5 15t14.5 35v800q0 21 -14.5 35.5t-35.5 14.5h-800q-21 0 -35.5 -14.5t-14.5 -35.5v-800z" />
|
||||||
|
<glyph unicode="" d="M0 0v1100l500 -487v487l564 -550l-564 -550v488z" />
|
||||||
|
<glyph unicode="" d="M0 0v1100l500 -487v487l500 -487v437q0 21 14.5 35.5t35.5 14.5h100q21 0 35.5 -14.5t14.5 -35.5v-1000q0 -21 -14.5 -35.5t-35.5 -14.5h-100q-21 0 -35.5 14.5t-14.5 35.5v438l-500 -488v488z" />
|
||||||
|
<glyph unicode="" d="M300 0v1100l500 -487v437q0 21 14.5 35.5t35.5 14.5h100q21 0 35.5 -14.5t14.5 -35.5v-1000q0 -21 -14.5 -35.5t-35.5 -14.5h-100q-21 0 -35.5 14.5t-14.5 35.5v438z" />
|
||||||
|
<glyph unicode="" d="M100 250v100q0 21 14.5 35.5t35.5 14.5h1000q21 0 35.5 -14.5t14.5 -35.5v-100q0 -21 -14.5 -35.5t-35.5 -14.5h-1000q-21 0 -35.5 14.5t-14.5 35.5zM100 500h1100l-550 564z" />
|
||||||
|
<glyph unicode="" d="M185 599l592 -592l240 240l-353 353l353 353l-240 240z" />
|
||||||
|
<glyph unicode="" d="M272 194l353 353l-353 353l241 240l572 -571l21 -22l-1 -1v-1l-592 -591z" />
|
||||||
|
<glyph unicode="" d="M3 600q0 162 80 299.5t217.5 217.5t299.5 80t299.5 -80t217.5 -217.5t80 -299.5t-80 -299.5t-217.5 -217.5t-299.5 -80t-299.5 80t-217.5 217.5t-80 299.5zM300 500h200v-200h200v200h200v200h-200v200h-200v-200h-200v-200z" />
|
||||||
|
<glyph unicode="" d="M3 600q0 162 80 299.5t217.5 217.5t299.5 80t299.5 -80t217.5 -217.5t80 -299.5t-80 -299.5t-217.5 -217.5t-299.5 -80t-299.5 80t-217.5 217.5t-80 299.5zM300 500h600v200h-600v-200z" />
|
||||||
|
<glyph unicode="" d="M3 600q0 162 80 299.5t217.5 217.5t299.5 80t299.5 -80t217.5 -217.5t80 -299.5t-80 -299.5t-217.5 -217.5t-299.5 -80t-299.5 80t-217.5 217.5t-80 299.5zM246 459l213 -213l141 142l141 -142l213 213l-142 141l142 141l-213 212l-141 -141l-141 142l-212 -213l141 -141 z" />
|
||||||
|
<glyph unicode="" d="M3 600q0 162 80 299.5t217.5 217.5t299.5 80t299.5 -80t217.5 -217.5t80 -299.5t-80 -299.5t-217.5 -217.5t-299.5 -80t-299.5 80t-217.5 217.5t-80 299.5zM270 551l276 -277l411 411l-175 174l-236 -236l-102 102z" />
|
||||||
|
<glyph unicode="" d="M3 600q0 162 80 299.5t217.5 217.5t299.5 80t299.5 -80t217.5 -217.5t80 -299.5t-80 -299.5t-217.5 -217.5t-299.5 -80t-299.5 80t-217.5 217.5t-80 299.5zM364 700h143q4 0 11.5 -1t11 -1t6.5 3t3 9t1 11t3.5 8.5t3.5 6t5.5 4t6.5 2.5t9 1.5t9 0.5h11.5h12.5 q19 0 30 -10t11 -26q0 -22 -4 -28t-27 -22q-5 -1 -12.5 -3t-27 -13.5t-34 -27t-26.5 -46t-11 -68.5h200q5 3 14 8t31.5 25.5t39.5 45.5t31 69t14 94q0 51 -17.5 89t-42 58t-58.5 32t-58.5 15t-51.5 3q-50 0 -90.5 -12t-75 -38.5t-53.5 -74.5t-19 -114zM500 300h200v100h-200 v-100z" />
|
||||||
|
<glyph unicode="" d="M3 600q0 162 80 299.5t217.5 217.5t299.5 80t299.5 -80t217.5 -217.5t80 -299.5t-80 -299.5t-217.5 -217.5t-299.5 -80t-299.5 80t-217.5 217.5t-80 299.5zM400 300h400v100h-100v300h-300v-100h100v-200h-100v-100zM500 800h200v100h-200v-100z" />
|
||||||
|
<glyph unicode="" d="M0 500v200h195q31 125 98.5 199.5t206.5 100.5v200h200v-200q54 -20 113 -60t112.5 -105.5t71.5 -134.5h203v-200h-203q-25 -102 -116.5 -186t-180.5 -117v-197h-200v197q-140 27 -208 102.5t-98 200.5h-194zM290 500q24 -73 79.5 -127.5t130.5 -78.5v206h200v-206 q149 48 201 206h-201v200h200q-25 74 -75.5 127t-124.5 77v-204h-200v203q-75 -23 -130 -77t-79 -126h209v-200h-210z" />
|
||||||
|
<glyph unicode="" d="M4 600q0 162 80 299t217 217t299 80t299 -80t217 -217t80 -299t-80 -299t-217 -217t-299 -80t-299 80t-217 217t-80 299zM186 600q0 -171 121.5 -292.5t292.5 -121.5t292.5 121.5t121.5 292.5t-121.5 292.5t-292.5 121.5t-292.5 -121.5t-121.5 -292.5zM356 465l135 135 l-135 135l109 109l135 -135l135 135l109 -109l-135 -135l135 -135l-109 -109l-135 135l-135 -135z" />
|
||||||
|
<glyph unicode="" d="M4 600q0 162 80 299t217 217t299 80t299 -80t217 -217t80 -299t-80 -299t-217 -217t-299 -80t-299 80t-217 217t-80 299zM186 600q0 -171 121.5 -292.5t292.5 -121.5t292.5 121.5t121.5 292.5t-121.5 292.5t-292.5 121.5t-292.5 -121.5t-121.5 -292.5zM322 537l141 141 l87 -87l204 205l142 -142l-346 -345z" />
|
||||||
|
<glyph unicode="" d="M4 600q0 162 80 299t217 217t299 80t299 -80t217 -217t80 -299t-80 -299t-217 -217t-299 -80t-299 80t-217 217t-80 299zM186 600q0 -115 62 -215l568 567q-100 62 -216 62q-171 0 -292.5 -121.5t-121.5 -292.5zM391 245q97 -59 209 -59q171 0 292.5 121.5t121.5 292.5 q0 112 -59 209z" />
|
||||||
|
<glyph unicode="" d="M0 547l600 453v-300h600v-300h-600v-301z" />
|
||||||
|
<glyph unicode="" d="M0 400v300h600v300l600 -453l-600 -448v301h-600z" />
|
||||||
|
<glyph unicode="" d="M204 600l450 600l444 -600h-298v-600h-300v600h-296z" />
|
||||||
|
<glyph unicode="" d="M104 600h296v600h300v-600h298l-449 -600z" />
|
||||||
|
<glyph unicode="" d="M0 200q6 132 41 238.5t103.5 193t184 138t271.5 59.5v271l600 -453l-600 -448v301q-95 -2 -183 -20t-170 -52t-147 -92.5t-100 -135.5z" />
|
||||||
|
<glyph unicode="" d="M0 0v400l129 -129l294 294l142 -142l-294 -294l129 -129h-400zM635 777l142 -142l294 294l129 -129v400h-400l129 -129z" />
|
||||||
|
<glyph unicode="" d="M34 176l295 295l-129 129h400v-400l-129 130l-295 -295zM600 600v400l129 -129l295 295l142 -141l-295 -295l129 -130h-400z" />
|
||||||
|
<glyph unicode="" d="M23 600q0 118 45.5 224.5t123 184t184 123t224.5 45.5t224.5 -45.5t184 -123t123 -184t45.5 -224.5t-45.5 -224.5t-123 -184t-184 -123t-224.5 -45.5t-224.5 45.5t-184 123t-123 184t-45.5 224.5zM456 851l58 -302q4 -20 21.5 -34.5t37.5 -14.5h54q20 0 37.5 14.5 t21.5 34.5l58 302q4 20 -8 34.5t-32 14.5h-207q-21 0 -33 -14.5t-8 -34.5zM500 300h200v100h-200v-100z" />
|
||||||
|
<glyph unicode="" d="M0 800h100v-200h400v300h200v-300h400v200h100v100h-111q1 1 1 6.5t-1.5 15t-3.5 17.5l-34 172q-11 39 -41.5 63t-69.5 24q-32 0 -61 -17l-239 -144q-22 -13 -40 -35q-19 24 -40 36l-238 144q-33 18 -62 18q-39 0 -69.5 -23t-40.5 -61l-35 -177q-2 -8 -3 -18t-1 -15v-6 h-111v-100zM100 0h400v400h-400v-400zM200 900q-3 0 14 48t36 96l18 47l213 -191h-281zM700 0v400h400v-400h-400zM731 900l202 197q5 -12 12 -32.5t23 -64t25 -72t7 -28.5h-269z" />
|
||||||
|
<glyph unicode="" d="M0 -22v143l216 193q-9 53 -13 83t-5.5 94t9 113t38.5 114t74 124q47 60 99.5 102.5t103 68t127.5 48t145.5 37.5t184.5 43.5t220 58.5q0 -189 -22 -343t-59 -258t-89 -181.5t-108.5 -120t-122 -68t-125.5 -30t-121.5 -1.5t-107.5 12.5t-87.5 17t-56.5 7.5l-99 -55z M238.5 300.5q19.5 -6.5 86.5 76.5q55 66 367 234q70 38 118.5 69.5t102 79t99 111.5t86.5 148q22 50 24 60t-6 19q-7 5 -17 5t-26.5 -14.5t-33.5 -39.5q-35 -51 -113.5 -108.5t-139.5 -89.5l-61 -32q-369 -197 -458 -401q-48 -111 -28.5 -117.5z" />
|
||||||
|
<glyph unicode="" d="M111 408q0 -33 5 -63q9 -56 44 -119.5t105 -108.5q31 -21 64 -16t62 23.5t57 49.5t48 61.5t35 60.5q32 66 39 184.5t-13 157.5q79 -80 122 -164t26 -184q-5 -33 -20.5 -69.5t-37.5 -80.5q-10 -19 -14.5 -29t-12 -26t-9 -23.5t-3 -19t2.5 -15.5t11 -9.5t19.5 -5t30.5 2.5 t42 8q57 20 91 34t87.5 44.5t87 64t65.5 88.5t47 122q38 172 -44.5 341.5t-246.5 278.5q22 -44 43 -129q39 -159 -32 -154q-15 2 -33 9q-79 33 -120.5 100t-44 175.5t48.5 257.5q-13 -8 -34 -23.5t-72.5 -66.5t-88.5 -105.5t-60 -138t-8 -166.5q2 -12 8 -41.5t8 -43t6 -39.5 t3.5 -39.5t-1 -33.5t-6 -31.5t-13.5 -24t-21 -20.5t-31 -12q-38 -10 -67 13t-40.5 61.5t-15 81.5t10.5 75q-52 -46 -83.5 -101t-39 -107t-7.5 -85z" />
|
||||||
|
<glyph unicode="" d="M-61 600l26 40q6 10 20 30t49 63.5t74.5 85.5t97 90t116.5 83.5t132.5 59t145.5 23.5t145.5 -23.5t132.5 -59t116.5 -83.5t97 -90t74.5 -85.5t49 -63.5t20 -30l26 -40l-26 -40q-6 -10 -20 -30t-49 -63.5t-74.5 -85.5t-97 -90t-116.5 -83.5t-132.5 -59t-145.5 -23.5 t-145.5 23.5t-132.5 59t-116.5 83.5t-97 90t-74.5 85.5t-49 63.5t-20 30zM120 600q7 -10 40.5 -58t56 -78.5t68 -77.5t87.5 -75t103 -49.5t125 -21.5t123.5 20t100.5 45.5t85.5 71.5t66.5 75.5t58 81.5t47 66q-1 1 -28.5 37.5t-42 55t-43.5 53t-57.5 63.5t-58.5 54 q49 -74 49 -163q0 -124 -88 -212t-212 -88t-212 88t-88 212q0 85 46 158q-102 -87 -226 -258zM377 656q49 -124 154 -191l105 105q-37 24 -75 72t-57 84l-20 36z" />
|
||||||
|
<glyph unicode="" d="M-61 600l26 40q6 10 20 30t49 63.5t74.5 85.5t97 90t116.5 83.5t132.5 59t145.5 23.5q61 0 121 -17l37 142h148l-314 -1200h-148l37 143q-82 21 -165 71.5t-140 102t-109.5 112t-72 88.5t-29.5 43zM120 600q210 -282 393 -336l37 141q-107 18 -178.5 101.5t-71.5 193.5 q0 85 46 158q-102 -87 -226 -258zM377 656q49 -124 154 -191l47 47l23 87q-30 28 -59 69t-44 68l-14 26zM780 161l38 145q22 15 44.5 34t46 44t40.5 44t41 50.5t33.5 43.5t33 44t24.5 34q-97 127 -140 175l39 146q67 -54 131.5 -125.5t87.5 -103.5t36 -52l26 -40l-26 -40 q-7 -12 -25.5 -38t-63.5 -79.5t-95.5 -102.5t-124 -100t-146.5 -79z" />
|
||||||
|
<glyph unicode="" d="M-97.5 34q13.5 -34 50.5 -34h1294q37 0 50.5 35.5t-7.5 67.5l-642 1056q-20 34 -48 36.5t-48 -29.5l-642 -1066q-21 -32 -7.5 -66zM155 200l445 723l445 -723h-345v100h-200v-100h-345zM500 600l100 -300l100 300v100h-200v-100z" />
|
||||||
|
<glyph unicode="" d="M100 262v41q0 20 11 44.5t26 38.5l363 325v339q0 62 44 106t106 44t106 -44t44 -106v-339l363 -325q15 -14 26 -38.5t11 -44.5v-41q0 -20 -12 -26.5t-29 5.5l-359 249v-263q100 -91 100 -113v-64q0 -20 -13 -28.5t-32 0.5l-94 78h-222l-94 -78q-19 -9 -32 -0.5t-13 28.5 v64q0 22 100 113v263l-359 -249q-17 -12 -29 -5.5t-12 26.5z" />
|
||||||
|
<glyph unicode="" d="M0 50q0 -20 14.5 -35t35.5 -15h1000q21 0 35.5 15t14.5 35v750h-1100v-750zM0 900h1100v150q0 21 -14.5 35.5t-35.5 14.5h-150v100h-100v-100h-500v100h-100v-100h-150q-21 0 -35.5 -14.5t-14.5 -35.5v-150zM100 100v100h100v-100h-100zM100 300v100h100v-100h-100z M100 500v100h100v-100h-100zM300 100v100h100v-100h-100zM300 300v100h100v-100h-100zM300 500v100h100v-100h-100zM500 100v100h100v-100h-100zM500 300v100h100v-100h-100zM500 500v100h100v-100h-100zM700 100v100h100v-100h-100zM700 300v100h100v-100h-100zM700 500 v100h100v-100h-100zM900 100v100h100v-100h-100zM900 300v100h100v-100h-100zM900 500v100h100v-100h-100z" />
|
||||||
|
<glyph unicode="" d="M0 200v200h259l600 600h241v198l300 -295l-300 -300v197h-159l-600 -600h-341zM0 800h259l122 -122l141 142l-181 180h-341v-200zM678 381l141 142l122 -123h159v198l300 -295l-300 -300v197h-241z" />
|
||||||
|
<glyph unicode="" d="M0 400v600q0 41 29.5 70.5t70.5 29.5h1000q41 0 70.5 -29.5t29.5 -70.5v-600q0 -41 -29.5 -70.5t-70.5 -29.5h-596l-304 -300v300h-100q-41 0 -70.5 29.5t-29.5 70.5z" />
|
||||||
|
<glyph unicode="" d="M100 600v200h300v-250q0 -113 6 -145q17 -92 102 -117q39 -11 92 -11q37 0 66.5 5.5t50 15.5t36 24t24 31.5t14 37.5t7 42t2.5 45t0 47v25v250h300v-200q0 -42 -3 -83t-15 -104t-31.5 -116t-58 -109.5t-89 -96.5t-129 -65.5t-174.5 -25.5t-174.5 25.5t-129 65.5t-89 96.5 t-58 109.5t-31.5 116t-15 104t-3 83zM100 900v300h300v-300h-300zM800 900v300h300v-300h-300z" />
|
||||||
|
<glyph unicode="" d="M-30 411l227 -227l352 353l353 -353l226 227l-578 579z" />
|
||||||
|
<glyph unicode="" d="M70 797l580 -579l578 579l-226 227l-353 -353l-352 353z" />
|
||||||
|
<glyph unicode="" d="M-198 700l299 283l300 -283h-203v-400h385l215 -200h-800v600h-196zM402 1000l215 -200h381v-400h-198l299 -283l299 283h-200v600h-796z" />
|
||||||
|
<glyph unicode="" d="M18 939q-5 24 10 42q14 19 39 19h896l38 162q5 17 18.5 27.5t30.5 10.5h94q20 0 35 -14.5t15 -35.5t-15 -35.5t-35 -14.5h-54l-201 -961q-2 -4 -6 -10.5t-19 -17.5t-33 -11h-31v-50q0 -20 -14.5 -35t-35.5 -15t-35.5 15t-14.5 35v50h-300v-50q0 -20 -14.5 -35t-35.5 -15 t-35.5 15t-14.5 35v50h-50q-21 0 -35.5 15t-14.5 35q0 21 14.5 35.5t35.5 14.5h535l48 200h-633q-32 0 -54.5 21t-27.5 43z" />
|
||||||
|
<glyph unicode="" d="M0 0v800h1200v-800h-1200zM0 900v100h200q0 41 29.5 70.5t70.5 29.5h300q41 0 70.5 -29.5t29.5 -70.5h500v-100h-1200z" />
|
||||||
|
<glyph unicode="" d="M1 0l300 700h1200l-300 -700h-1200zM1 400v600h200q0 41 29.5 70.5t70.5 29.5h300q41 0 70.5 -29.5t29.5 -70.5h500v-200h-1000z" />
|
||||||
|
<glyph unicode="" d="M302 300h198v600h-198l298 300l298 -300h-198v-600h198l-298 -300z" />
|
||||||
|
<glyph unicode="" d="M0 600l300 298v-198h600v198l300 -298l-300 -297v197h-600v-197z" />
|
||||||
|
<glyph unicode="" d="M0 100v100q0 41 29.5 70.5t70.5 29.5h1000q41 0 70.5 -29.5t29.5 -70.5v-100q0 -41 -29.5 -70.5t-70.5 -29.5h-1000q-41 0 -70.5 29.5t-29.5 70.5zM31 400l172 739q5 22 23 41.5t38 19.5h672q19 0 37.5 -22.5t23.5 -45.5l172 -732h-1138zM800 100h100v100h-100v-100z M1000 100h100v100h-100v-100z" />
|
||||||
|
<glyph unicode="" d="M-101 600v50q0 24 25 49t50 38l25 13v-250l-11 5.5t-24 14t-30 21.5t-24 27.5t-11 31.5zM100 500v250v8v8v7t0.5 7t1.5 5.5t2 5t3 4t4.5 3.5t6 1.5t7.5 0.5h200l675 250v-850l-675 200h-38l47 -276q2 -12 -3 -17.5t-11 -6t-21 -0.5h-8h-83q-20 0 -34.5 14t-18.5 35 q-55 337 -55 351zM1100 200v850q0 21 14.5 35.5t35.5 14.5q20 0 35 -14.5t15 -35.5v-850q0 -20 -15 -35t-35 -15q-21 0 -35.5 15t-14.5 35z" />
|
||||||
|
<glyph unicode="" d="M74 350q0 21 13.5 35.5t33.5 14.5h18l117 173l63 327q15 77 76 140t144 83l-18 32q-6 19 3 32t29 13h94q20 0 29 -10.5t3 -29.5q-18 -36 -18 -37q83 -19 144 -82.5t76 -140.5l63 -327l118 -173h17q20 0 33.5 -14.5t13.5 -35.5q0 -20 -13 -40t-31 -27q-8 -3 -23 -8.5 t-65 -20t-103 -25t-132.5 -19.5t-158.5 -9q-125 0 -245.5 20.5t-178.5 40.5l-58 20q-18 7 -31 27.5t-13 40.5zM497 110q12 -49 40 -79.5t63 -30.5t63 30.5t39 79.5q-48 -6 -102 -6t-103 6z" />
|
||||||
|
<glyph unicode="" d="M21 445l233 -45l-78 -224l224 78l45 -233l155 179l155 -179l45 233l224 -78l-78 224l234 45l-180 155l180 156l-234 44l78 225l-224 -78l-45 233l-155 -180l-155 180l-45 -233l-224 78l78 -225l-233 -44l179 -156z" />
|
||||||
|
<glyph unicode="" d="M0 200h200v600h-200v-600zM300 275q0 -75 100 -75h61q124 -100 139 -100h250q46 0 83 57l238 344q29 31 29 74v100q0 44 -30.5 84.5t-69.5 40.5h-328q28 118 28 125v150q0 44 -30.5 84.5t-69.5 40.5h-50q-27 0 -51 -20t-38 -48l-96 -198l-145 -196q-20 -26 -20 -63v-400z M400 300v375l150 213l100 212h50v-175l-50 -225h450v-125l-250 -375h-214l-136 100h-100z" />
|
||||||
|
<glyph unicode="" d="M0 400v600h200v-600h-200zM300 525v400q0 75 100 75h61q124 100 139 100h250q46 0 83 -57l238 -344q29 -31 29 -74v-100q0 -44 -30.5 -84.5t-69.5 -40.5h-328q28 -118 28 -125v-150q0 -44 -30.5 -84.5t-69.5 -40.5h-50q-27 0 -51 20t-38 48l-96 198l-145 196 q-20 26 -20 63zM400 525l150 -212l100 -213h50v175l-50 225h450v125l-250 375h-214l-136 -100h-100v-375z" />
|
||||||
|
<glyph unicode="" d="M8 200v600h200v-600h-200zM308 275v525q0 17 14 35.5t28 28.5l14 9l362 230q14 6 25 6q17 0 29 -12l109 -112q14 -14 14 -34q0 -18 -11 -32l-85 -121h302q85 0 138.5 -38t53.5 -110t-54.5 -111t-138.5 -39h-107l-130 -339q-7 -22 -20.5 -41.5t-28.5 -19.5h-341 q-7 0 -90 81t-83 94zM408 289l100 -89h293l131 339q6 21 19.5 41t28.5 20h203q16 0 25 15t9 36q0 20 -9 34.5t-25 14.5h-457h-6.5h-7.5t-6.5 0.5t-6 1t-5 1.5t-5.5 2.5t-4 4t-4 5.5q-5 12 -5 20q0 14 10 27l147 183l-86 83l-339 -236v-503z" />
|
||||||
|
<glyph unicode="" d="M-101 651q0 72 54 110t139 38l302 -1l-85 121q-11 16 -11 32q0 21 14 34l109 113q13 12 29 12q11 0 25 -6l365 -230q7 -4 17 -10.5t26.5 -26t16.5 -36.5v-526q0 -13 -86 -93.5t-94 -80.5h-341q-16 0 -29.5 20t-19.5 41l-130 339h-107q-84 0 -139 39t-55 111zM-1 601h222 q15 0 28.5 -20.5t19.5 -40.5l131 -339h293l107 89v502l-343 237l-87 -83l145 -184q10 -11 10 -26q0 -11 -5 -20q-1 -3 -3.5 -5.5l-4 -4t-5 -2.5t-5.5 -1.5t-6.5 -1t-6.5 -0.5h-7.5h-6.5h-476v-100zM1000 201v600h200v-600h-200z" />
|
||||||
|
<glyph unicode="" d="M97 719l230 -363q4 -6 10.5 -15.5t26 -25t36.5 -15.5h525q13 0 94 83t81 90v342q0 15 -20 28.5t-41 19.5l-339 131v106q0 84 -39 139t-111 55t-110 -53.5t-38 -138.5v-302l-121 84q-15 12 -33.5 11.5t-32.5 -13.5l-112 -110q-22 -22 -6 -53zM172 739l83 86l183 -146 q22 -18 47 -5q3 1 5.5 3.5l4 4t2.5 5t1.5 5.5t1 6.5t0.5 6.5v7.5v6.5v456q0 22 25 31t50 -0.5t25 -30.5v-202q0 -16 20 -29.5t41 -19.5l339 -130v-294l-89 -100h-503zM400 0v200h600v-200h-600z" />
|
||||||
|
<glyph unicode="" d="M2 585q-16 -31 6 -53l112 -110q13 -13 32 -13.5t34 10.5l121 85q0 -51 -0.5 -153.5t-0.5 -148.5q0 -84 38.5 -138t110.5 -54t111 55t39 139v106l339 131q20 6 40.5 19.5t20.5 28.5v342q0 7 -81 90t-94 83h-525q-17 0 -35.5 -14t-28.5 -28l-10 -15zM77 565l236 339h503 l89 -100v-294l-340 -130q-20 -6 -40 -20t-20 -29v-202q0 -22 -25 -31t-50 0t-25 31v456v14.5t-1.5 11.5t-5 12t-9.5 7q-24 13 -46 -5l-184 -146zM305 1104v200h600v-200h-600z" />
|
||||||
|
<glyph unicode="" d="M5 597q0 122 47.5 232.5t127.5 190.5t190.5 127.5t232.5 47.5q162 0 299.5 -80t217.5 -218t80 -300t-80 -299.5t-217.5 -217.5t-299.5 -80t-300 80t-218 217.5t-80 299.5zM298 701l2 -201h300l-2 -194l402 294l-402 298v-197h-300z" />
|
||||||
|
<glyph unicode="" d="M0 597q0 122 47.5 232.5t127.5 190.5t190.5 127.5t231.5 47.5q122 0 232.5 -47.5t190.5 -127.5t127.5 -190.5t47.5 -232.5q0 -162 -80 -299.5t-218 -217.5t-300 -80t-299.5 80t-217.5 217.5t-80 299.5zM200 600l402 -294l-2 194h300l2 201h-300v197z" />
|
||||||
|
<glyph unicode="" d="M5 597q0 122 47.5 232.5t127.5 190.5t190.5 127.5t232.5 47.5q162 0 299.5 -80t217.5 -218t80 -300t-80 -299.5t-217.5 -217.5t-299.5 -80t-300 80t-218 217.5t-80 299.5zM300 600h200v-300h200v300h200l-300 400z" />
|
||||||
|
<glyph unicode="" d="M5 597q0 122 47.5 232.5t127.5 190.5t190.5 127.5t232.5 47.5q162 0 299.5 -80t217.5 -218t80 -300t-80 -299.5t-217.5 -217.5t-299.5 -80t-300 80t-218 217.5t-80 299.5zM300 600l300 -400l300 400h-200v300h-200v-300h-200z" />
|
||||||
|
<glyph unicode="" d="M5 597q0 122 47.5 232.5t127.5 190.5t190.5 127.5t232.5 47.5q121 0 231.5 -47.5t190.5 -127.5t127.5 -190.5t47.5 -232.5q0 -162 -80 -299.5t-217.5 -217.5t-299.5 -80t-300 80t-218 217.5t-80 299.5zM254 780q-8 -33 5.5 -92.5t7.5 -87.5q0 -9 17 -44t16 -60 q12 0 23 -5.5t23 -15t20 -13.5q24 -12 108 -42q22 -8 53 -31.5t59.5 -38.5t57.5 -11q8 -18 -15 -55t-20 -57q42 -71 87 -80q0 -6 -3 -15.5t-3.5 -14.5t4.5 -17q104 -3 221 112q30 29 47 47t34.5 49t20.5 62q-14 9 -37 9.5t-36 7.5q-14 7 -49 15t-52 19q-9 0 -39.5 -0.5 t-46.5 -1.5t-39 -6.5t-39 -16.5q-50 -35 -66 -12q-4 2 -3.5 25.5t0.5 25.5q-6 13 -26.5 17t-24.5 7q2 22 -2 41t-16.5 28t-38.5 -20q-23 -25 -42 4q-19 28 -8 58q6 16 22 22q6 -1 26 -1.5t33.5 -4t19.5 -13.5q12 -19 32 -37.5t34 -27.5l14 -8q0 3 9.5 39.5t5.5 57.5 q-4 23 14.5 44.5t22.5 31.5q5 14 10 35t8.5 31t15.5 22.5t34 21.5q-6 18 10 37q8 0 23.5 -1.5t24.5 -1.5t20.5 4.5t20.5 15.5q-10 23 -30.5 42.5t-38 30t-49 26.5t-43.5 23q11 39 2 44q31 -13 58 -14.5t39 3.5l11 4q7 36 -16.5 53.5t-64.5 28.5t-56 23q-19 -3 -37 0 q-15 -12 -36.5 -21t-34.5 -12t-44 -8t-39 -6q-15 -3 -45.5 0.5t-45.5 -2.5q-21 -7 -52 -26.5t-34 -34.5q-3 -11 6.5 -22.5t8.5 -18.5q-3 -34 -27.5 -90.5t-29.5 -79.5zM518 916q3 12 16 30t16 25q10 -10 18.5 -10t14 6t14.5 14.5t16 12.5q0 -24 17 -66.5t17 -43.5 q-9 2 -31 5t-36 5t-32 8t-30 14zM692 1003h1h-1z" />
|
||||||
|
<glyph unicode="" d="M0 164.5q0 21.5 15 37.5l600 599q-33 101 6 201.5t135 154.5q164 92 306 -9l-259 -138l145 -232l251 126q13 -175 -151 -267q-123 -70 -253 -23l-596 -596q-15 -16 -36.5 -16t-36.5 16l-111 110q-15 15 -15 36.5z" />
|
||||||
|
<glyph unicode="" horiz-adv-x="1220" d="M0 196v100q0 41 29.5 70.5t70.5 29.5h1000q41 0 70.5 -29.5t29.5 -70.5v-100q0 -41 -29.5 -70.5t-70.5 -29.5h-1000q-41 0 -70.5 29.5t-29.5 70.5zM0 596v100q0 41 29.5 70.5t70.5 29.5h1000q41 0 70.5 -29.5t29.5 -70.5v-100q0 -41 -29.5 -70.5t-70.5 -29.5h-1000 q-41 0 -70.5 29.5t-29.5 70.5zM0 996v100q0 41 29.5 70.5t70.5 29.5h1000q41 0 70.5 -29.5t29.5 -70.5v-100q0 -41 -29.5 -70.5t-70.5 -29.5h-1000q-41 0 -70.5 29.5t-29.5 70.5zM600 596h500v100h-500v-100zM800 196h300v100h-300v-100zM900 996h200v100h-200v-100z" />
|
||||||
|
<glyph unicode="" d="M100 1100v100h1000v-100h-1000zM150 1000h900l-350 -500v-300l-200 -200v500z" />
|
||||||
|
<glyph unicode="" d="M0 200v200h1200v-200q0 -41 -29.5 -70.5t-70.5 -29.5h-1000q-41 0 -70.5 29.5t-29.5 70.5zM0 500v400q0 41 29.5 70.5t70.5 29.5h300v100q0 41 29.5 70.5t70.5 29.5h200q41 0 70.5 -29.5t29.5 -70.5v-100h300q41 0 70.5 -29.5t29.5 -70.5v-400h-500v100h-200v-100h-500z M500 1000h200v100h-200v-100z" />
|
||||||
|
<glyph unicode="" d="M0 0v400l129 -129l200 200l142 -142l-200 -200l129 -129h-400zM0 800l129 129l200 -200l142 142l-200 200l129 129h-400v-400zM729 329l142 142l200 -200l129 129v-400h-400l129 129zM729 871l200 200l-129 129h400v-400l-129 129l-200 -200z" />
|
||||||
|
<glyph unicode="" d="M0 596q0 162 80 299t217 217t299 80t299 -80t217 -217t80 -299t-80 -299t-217 -217t-299 -80t-299 80t-217 217t-80 299zM182 596q0 -172 121.5 -293t292.5 -121t292.5 121t121.5 293q0 171 -121.5 292.5t-292.5 121.5t-292.5 -121.5t-121.5 -292.5zM291 655 q0 23 15.5 38.5t38.5 15.5t39 -16t16 -38q0 -23 -16 -39t-39 -16q-22 0 -38 16t-16 39zM400 850q0 22 16 38.5t39 16.5q22 0 38 -16t16 -39t-16 -39t-38 -16q-23 0 -39 16.5t-16 38.5zM514 609q0 32 20.5 56.5t51.5 29.5l122 126l1 1q-9 14 -9 28q0 22 16 38.5t39 16.5 q22 0 38 -16t16 -39t-16 -39t-38 -16q-14 0 -29 10l-55 -145q17 -22 17 -51q0 -36 -25.5 -61.5t-61.5 -25.5t-61.5 25.5t-25.5 61.5zM800 655q0 22 16 38t39 16t38.5 -15.5t15.5 -38.5t-16 -39t-38 -16q-23 0 -39 16t-16 39z" />
|
||||||
|
<glyph unicode="" d="M-40 375q-13 -95 35 -173q35 -57 94 -89t129 -32q63 0 119 28q33 16 65 40.5t52.5 45.5t59.5 64q40 44 57 61l394 394q35 35 47 84t-3 96q-27 87 -117 104q-20 2 -29 2q-46 0 -78.5 -16.5t-67.5 -51.5l-389 -396l-7 -7l69 -67l377 373q20 22 39 38q23 23 50 23 q38 0 53 -36q16 -39 -20 -75l-547 -547q-52 -52 -125 -52q-55 0 -100 33t-54 96q-5 35 2.5 66t31.5 63t42 50t56 54q24 21 44 41l348 348q52 52 82.5 79.5t84 54t107.5 26.5q25 0 48 -4q95 -17 154 -94.5t51 -175.5q-7 -101 -98 -192l-252 -249l-253 -256l7 -7l69 -60 l517 511q67 67 95 157t11 183q-16 87 -67 154t-130 103q-69 33 -152 33q-107 0 -197 -55q-40 -24 -111 -95l-512 -512q-68 -68 -81 -163z" />
|
||||||
|
<glyph unicode="" d="M80 784q0 131 98.5 229.5t230.5 98.5q143 0 241 -129q103 129 246 129q129 0 226 -98.5t97 -229.5q0 -46 -17.5 -91t-61 -99t-77 -89.5t-104.5 -105.5q-197 -191 -293 -322l-17 -23l-16 23q-43 58 -100 122.5t-92 99.5t-101 100q-71 70 -104.5 105.5t-77 89.5t-61 99 t-17.5 91zM250 784q0 -27 30.5 -70t61.5 -75.5t95 -94.5l22 -22q93 -90 190 -201q82 92 195 203l12 12q64 62 97.5 97t64.5 79t31 72q0 71 -48 119.5t-105 48.5q-74 0 -132 -83l-118 -171l-114 174q-51 80 -123 80q-60 0 -109.5 -49.5t-49.5 -118.5z" />
|
||||||
|
<glyph unicode="" d="M57 353q0 -95 66 -159l141 -142q68 -66 159 -66q93 0 159 66l283 283q66 66 66 159t-66 159l-141 141q-8 9 -19 17l-105 -105l212 -212l-389 -389l-247 248l95 95l-18 18q-46 45 -75 101l-55 -55q-66 -66 -66 -159zM269 706q0 -93 66 -159l141 -141q7 -7 19 -17l105 105 l-212 212l389 389l247 -247l-95 -96l18 -17q47 -49 77 -100l29 29q35 35 62.5 88t27.5 96q0 93 -66 159l-141 141q-66 66 -159 66q-95 0 -159 -66l-283 -283q-66 -64 -66 -159z" />
|
||||||
|
<glyph unicode="" d="M200 100v953q0 21 30 46t81 48t129 38t163 15t162 -15t127 -38t79 -48t29 -46v-953q0 -41 -29.5 -70.5t-70.5 -29.5h-600q-41 0 -70.5 29.5t-29.5 70.5zM300 300h600v700h-600v-700zM496 150q0 -43 30.5 -73.5t73.5 -30.5t73.5 30.5t30.5 73.5t-30.5 73.5t-73.5 30.5 t-73.5 -30.5t-30.5 -73.5z" />
|
||||||
|
<glyph unicode="" d="M0 0l303 380l207 208l-210 212h300l267 279l-35 36q-15 14 -15 35t15 35q14 15 35 15t35 -15l283 -282q15 -15 15 -36t-15 -35q-14 -15 -35 -15t-35 15l-36 35l-279 -267v-300l-212 210l-208 -207z" />
|
||||||
|
<glyph unicode="" d="M295 433h139q5 -77 48.5 -126.5t117.5 -64.5v335q-6 1 -15.5 4t-11.5 3q-46 14 -79 26.5t-72 36t-62.5 52t-40 72.5t-16.5 99q0 92 44 159.5t109 101t144 40.5v78h100v-79q38 -4 72.5 -13.5t75.5 -31.5t71 -53.5t51.5 -84t24.5 -118.5h-159q-8 72 -35 109.5t-101 50.5 v-307l64 -14q34 -7 64 -16.5t70 -31.5t67.5 -52t47.5 -80.5t20 -112.5q0 -139 -89 -224t-244 -96v-77h-100v78q-152 17 -237 104q-40 40 -52.5 93.5t-15.5 139.5zM466 889q0 -29 8 -51t16.5 -34t29.5 -22.5t31 -13.5t38 -10q7 -2 11 -3v274q-61 -8 -97.5 -37.5t-36.5 -102.5 zM700 237q170 18 170 151q0 64 -44 99.5t-126 60.5v-311z" />
|
||||||
|
<glyph unicode="" d="M100 600v100h166q-24 49 -44 104q-10 26 -14.5 55.5t-3 72.5t25 90t68.5 87q97 88 263 88q129 0 230 -89t101 -208h-153q0 52 -34 89.5t-74 51.5t-76 14q-37 0 -79 -14.5t-62 -35.5q-41 -44 -41 -101q0 -28 16.5 -69.5t28 -62.5t41.5 -72h241v-100h-197q8 -50 -2.5 -115 t-31.5 -94q-41 -59 -99 -113q35 11 84 18t70 7q33 1 103 -16t103 -17q76 0 136 30l50 -147q-41 -25 -80.5 -36.5t-59 -13t-61.5 -1.5q-23 0 -128 33t-155 29q-39 -4 -82 -17t-66 -25l-24 -11l-55 145l16.5 11t15.5 10t13.5 9.5t14.5 12t14.5 14t17.5 18.5q48 55 54 126.5 t-30 142.5h-221z" />
|
||||||
|
<glyph unicode="" d="M2 300l298 -300l298 300h-198v900h-200v-900h-198zM602 900l298 300l298 -300h-198v-900h-200v900h-198z" />
|
||||||
|
<glyph unicode="" d="M2 300h198v900h200v-900h198l-298 -300zM700 0v200h100v-100h200v-100h-300zM700 400v100h300v-200h-99v-100h-100v100h99v100h-200zM700 700v500h300v-500h-100v100h-100v-100h-100zM801 900h100v200h-100v-200z" />
|
||||||
|
<glyph unicode="" d="M2 300h198v900h200v-900h198l-298 -300zM700 0v500h300v-500h-100v100h-100v-100h-100zM700 700v200h100v-100h200v-100h-300zM700 1100v100h300v-200h-99v-100h-100v100h99v100h-200zM801 200h100v200h-100v-200z" />
|
||||||
|
<glyph unicode="" d="M2 300l298 -300l298 300h-198v900h-200v-900h-198zM800 100v400h300v-500h-100v100h-200zM800 1100v100h200v-500h-100v400h-100zM901 200h100v200h-100v-200z" />
|
||||||
|
<glyph unicode="" d="M2 300l298 -300l298 300h-198v900h-200v-900h-198zM800 400v100h200v-500h-100v400h-100zM800 800v400h300v-500h-100v100h-200zM901 900h100v200h-100v-200z" />
|
||||||
|
<glyph unicode="" d="M2 300l298 -300l298 300h-198v900h-200v-900h-198zM700 100v200h500v-200h-500zM700 400v200h400v-200h-400zM700 700v200h300v-200h-300zM700 1000v200h200v-200h-200z" />
|
||||||
|
<glyph unicode="" d="M2 300l298 -300l298 300h-198v900h-200v-900h-198zM700 100v200h200v-200h-200zM700 400v200h300v-200h-300zM700 700v200h400v-200h-400zM700 1000v200h500v-200h-500z" />
|
||||||
|
<glyph unicode="" d="M0 400v300q0 165 117.5 282.5t282.5 117.5h300q162 0 281 -118.5t119 -281.5v-300q0 -165 -118.5 -282.5t-281.5 -117.5h-300q-165 0 -282.5 117.5t-117.5 282.5zM200 300q0 -41 29.5 -70.5t70.5 -29.5h500q41 0 70.5 29.5t29.5 70.5v500q0 41 -29.5 70.5t-70.5 29.5 h-500q-41 0 -70.5 -29.5t-29.5 -70.5v-500z" />
|
||||||
|
<glyph unicode="" d="M0 400v300q0 163 119 281.5t281 118.5h300q165 0 282.5 -117.5t117.5 -282.5v-300q0 -165 -117.5 -282.5t-282.5 -117.5h-300q-163 0 -281.5 117.5t-118.5 282.5zM200 300q0 -41 29.5 -70.5t70.5 -29.5h500q41 0 70.5 29.5t29.5 70.5v500q0 41 -29.5 70.5t-70.5 29.5 h-500q-41 0 -70.5 -29.5t-29.5 -70.5v-500zM400 300l333 250l-333 250v-500z" />
|
||||||
|
<glyph unicode="" d="M0 400v300q0 163 117.5 281.5t282.5 118.5h300q163 0 281.5 -119t118.5 -281v-300q0 -165 -117.5 -282.5t-282.5 -117.5h-300q-165 0 -282.5 117.5t-117.5 282.5zM200 300q0 -41 29.5 -70.5t70.5 -29.5h500q41 0 70.5 29.5t29.5 70.5v500q0 41 -29.5 70.5t-70.5 29.5 h-500q-41 0 -70.5 -29.5t-29.5 -70.5v-500zM300 700l250 -333l250 333h-500z" />
|
||||||
|
<glyph unicode="" d="M0 400v300q0 165 117.5 282.5t282.5 117.5h300q165 0 282.5 -117.5t117.5 -282.5v-300q0 -162 -118.5 -281t-281.5 -119h-300q-165 0 -282.5 118.5t-117.5 281.5zM200 300q0 -41 29.5 -70.5t70.5 -29.5h500q41 0 70.5 29.5t29.5 70.5v500q0 41 -29.5 70.5t-70.5 29.5 h-500q-41 0 -70.5 -29.5t-29.5 -70.5v-500zM300 400h500l-250 333z" />
|
||||||
|
<glyph unicode="" d="M0 400v300h300v200l400 -350l-400 -350v200h-300zM500 0v200h500q41 0 70.5 29.5t29.5 70.5v500q0 41 -29.5 70.5t-70.5 29.5h-500v200h400q165 0 282.5 -117.5t117.5 -282.5v-300q0 -165 -117.5 -282.5t-282.5 -117.5h-400z" />
|
||||||
|
<glyph unicode="" d="M217 519q8 -19 31 -19h302q-155 -438 -160 -458q-5 -21 4 -32l9 -8h9q14 0 26 15q11 13 274.5 321.5t264.5 308.5q14 19 5 36q-8 17 -31 17l-301 -1q1 4 78 219.5t79 227.5q2 15 -5 27l-9 9h-9q-15 0 -25 -16q-4 -6 -98 -111.5t-228.5 -257t-209.5 -237.5q-16 -19 -6 -41 z" />
|
||||||
|
<glyph unicode="" d="M0 400q0 -165 117.5 -282.5t282.5 -117.5h300q47 0 100 15v185h-500q-41 0 -70.5 29.5t-29.5 70.5v500q0 41 29.5 70.5t70.5 29.5h500v185q-14 4 -114 7.5t-193 5.5l-93 2q-165 0 -282.5 -117.5t-117.5 -282.5v-300zM600 400v300h300v200l400 -350l-400 -350v200h-300z " />
|
||||||
|
<glyph unicode="" d="M0 400q0 -165 117.5 -282.5t282.5 -117.5h300q163 0 281.5 117.5t118.5 282.5v98l-78 73l-122 -123v-148q0 -41 -29.5 -70.5t-70.5 -29.5h-500q-41 0 -70.5 29.5t-29.5 70.5v500q0 41 29.5 70.5t70.5 29.5h156l118 122l-74 78h-100q-165 0 -282.5 -117.5t-117.5 -282.5 v-300zM496 709l353 342l-149 149h500v-500l-149 149l-342 -353z" />
|
||||||
|
<glyph unicode="" d="M4 600q0 162 80 299t217 217t299 80t299 -80t217 -217t80 -299t-80 -299t-217 -217t-299 -80t-299 80t-217 217t-80 299zM186 600q0 -171 121.5 -292.5t292.5 -121.5t292.5 121.5t121.5 292.5t-121.5 292.5t-292.5 121.5t-292.5 -121.5t-121.5 -292.5zM406 600 q0 80 57 137t137 57t137 -57t57 -137t-57 -137t-137 -57t-137 57t-57 137z" />
|
||||||
|
<glyph unicode="" d="M0 0v275q0 11 7 18t18 7h1048q11 0 19 -7.5t8 -17.5v-275h-1100zM100 800l445 -500l450 500h-295v400h-300v-400h-300zM900 150h100v50h-100v-50z" />
|
||||||
|
<glyph unicode="" d="M0 0v275q0 11 7 18t18 7h1048q11 0 19 -7.5t8 -17.5v-275h-1100zM100 700h300v-300h300v300h295l-445 500zM900 150h100v50h-100v-50z" />
|
||||||
|
<glyph unicode="" d="M0 0v275q0 11 7 18t18 7h1048q11 0 19 -7.5t8 -17.5v-275h-1100zM100 705l305 -305l596 596l-154 155l-442 -442l-150 151zM900 150h100v50h-100v-50z" />
|
||||||
|
<glyph unicode="" d="M0 0v275q0 11 7 18t18 7h1048q11 0 19 -7.5t8 -17.5v-275h-1100zM100 988l97 -98l212 213l-97 97zM200 400l697 1l3 699l-250 -239l-149 149l-212 -212l149 -149zM900 150h100v50h-100v-50z" />
|
||||||
|
<glyph unicode="" d="M0 0v275q0 11 7 18t18 7h1048q11 0 19 -7.5t8 -17.5v-275h-1100zM200 612l212 -212l98 97l-213 212zM300 1200l239 -250l-149 -149l212 -212l149 148l249 -237l-1 697zM900 150h100v50h-100v-50z" />
|
||||||
|
<glyph unicode="" d="M23 415l1177 784v-1079l-475 272l-310 -393v416h-392zM494 210l672 938l-672 -712v-226z" />
|
||||||
|
<glyph unicode="" d="M0 150v1000q0 20 14.5 35t35.5 15h250v-300h500v300h100l200 -200v-850q0 -21 -15 -35.5t-35 -14.5h-150v400h-700v-400h-150q-21 0 -35.5 14.5t-14.5 35.5zM600 1000h100v200h-100v-200z" />
|
||||||
|
<glyph unicode="" d="M0 150v1000q0 20 14.5 35t35.5 15h250v-300h500v300h100l200 -200v-218l-276 -275l-120 120l-126 -127h-378v-400h-150q-21 0 -35.5 14.5t-14.5 35.5zM581 306l123 123l120 -120l353 352l123 -123l-475 -476zM600 1000h100v200h-100v-200z" />
|
||||||
|
<glyph unicode="" d="M0 150v1000q0 20 14.5 35t35.5 15h250v-300h500v300h100l200 -200v-269l-103 -103l-170 170l-298 -298h-329v-400h-150q-21 0 -35.5 14.5t-14.5 35.5zM600 1000h100v200h-100v-200zM700 133l170 170l-170 170l127 127l170 -170l170 170l127 -128l-170 -169l170 -170 l-127 -127l-170 170l-170 -170z" />
|
||||||
|
<glyph unicode="" d="M0 150v1000q0 20 14.5 35t35.5 15h250v-300h500v300h100l200 -200v-300h-400v-200h-500v-400h-150q-21 0 -35.5 14.5t-14.5 35.5zM600 300l300 -300l300 300h-200v300h-200v-300h-200zM600 1000v200h100v-200h-100z" />
|
||||||
|
<glyph unicode="" d="M0 150v1000q0 20 14.5 35t35.5 15h250v-300h500v300h100l200 -200v-402l-200 200l-298 -298h-402v-400h-150q-21 0 -35.5 14.5t-14.5 35.5zM600 300h200v-300h200v300h200l-300 300zM600 1000v200h100v-200h-100z" />
|
||||||
|
<glyph unicode="" d="M0 250q0 -21 14.5 -35.5t35.5 -14.5h1100q21 0 35.5 14.5t14.5 35.5v550h-1200v-550zM0 900h1200v150q0 21 -14.5 35.5t-35.5 14.5h-1100q-21 0 -35.5 -14.5t-14.5 -35.5v-150zM100 300v200h400v-200h-400z" />
|
||||||
|
<glyph unicode="" d="M0 400l300 298v-198h400v-200h-400v-198zM100 800v200h100v-200h-100zM300 800v200h100v-200h-100zM500 800v200h400v198l300 -298l-300 -298v198h-400zM800 300v200h100v-200h-100zM1000 300h100v200h-100v-200z" />
|
||||||
|
<glyph unicode="" d="M100 700v400l50 100l50 -100v-300h100v300l50 100l50 -100v-300h100v300l50 100l50 -100v-400l-100 -203v-447q0 -21 -14.5 -35.5t-35.5 -14.5h-200q-21 0 -35.5 14.5t-14.5 35.5v447zM800 597q0 -29 10.5 -55.5t25 -43t29 -28.5t25.5 -18l10 -5v-397q0 -21 14.5 -35.5 t35.5 -14.5h200q21 0 35.5 14.5t14.5 35.5v1106q0 31 -18 40.5t-44 -7.5l-276 -116q-25 -17 -43.5 -51.5t-18.5 -65.5v-359z" />
|
||||||
|
<glyph unicode="" d="M100 0h400v56q-75 0 -87.5 6t-12.5 44v394h500v-394q0 -38 -12.5 -44t-87.5 -6v-56h400v56q-4 0 -11 0.5t-24 3t-30 7t-24 15t-11 24.5v888q0 22 25 34.5t50 13.5l25 2v56h-400v-56q75 0 87.5 -6t12.5 -44v-394h-500v394q0 38 12.5 44t87.5 6v56h-400v-56q4 0 11 -0.5 t24 -3t30 -7t24 -15t11 -24.5v-888q0 -22 -25 -34.5t-50 -13.5l-25 -2v-56z" />
|
||||||
|
<glyph unicode="" d="M0 300q0 -41 29.5 -70.5t70.5 -29.5h300q41 0 70.5 29.5t29.5 70.5v500q0 41 -29.5 70.5t-70.5 29.5h-300q-41 0 -70.5 -29.5t-29.5 -70.5v-500zM100 100h400l200 200h105l295 98v-298h-425l-100 -100h-375zM100 300v200h300v-200h-300zM100 600v200h300v-200h-300z M100 1000h400l200 -200v-98l295 98h105v200h-425l-100 100h-375zM700 402v163l400 133v-163z" />
|
||||||
|
<glyph unicode="" d="M16.5 974.5q0.5 -21.5 16 -90t46.5 -140t104 -177.5t175 -208q103 -103 207.5 -176t180 -103.5t137 -47t92.5 -16.5l31 1l163 162q17 18 13.5 41t-22.5 37l-192 136q-19 14 -45 12t-42 -19l-118 -118q-142 101 -268 227t-227 268l118 118q17 17 20 41.5t-11 44.5 l-139 194q-14 19 -36.5 22t-40.5 -14l-162 -162q-1 -11 -0.5 -32.5z" />
|
||||||
|
<glyph unicode="" d="M0 50v212q0 20 10.5 45.5t24.5 39.5l365 303v50q0 4 1 10.5t12 22.5t30 28.5t60 23t97 10.5t97 -10t60 -23.5t30 -27.5t12 -24l1 -10v-50l365 -303q14 -14 24.5 -39.5t10.5 -45.5v-212q0 -21 -14.5 -35.5t-35.5 -14.5h-1100q-20 0 -35 14.5t-15 35.5zM0 712 q0 -21 14.5 -33.5t34.5 -8.5l202 33q20 4 34.5 21t14.5 38v146q141 24 300 24t300 -24v-146q0 -21 14.5 -38t34.5 -21l202 -33q20 -4 34.5 8.5t14.5 33.5v200q-6 8 -19 20.5t-63 45t-112 57t-171 45t-235 20.5q-92 0 -175 -10.5t-141.5 -27t-108.5 -36.5t-81.5 -40 t-53.5 -36.5t-31 -27.5l-9 -10v-200z" />
|
||||||
|
<glyph unicode="" d="M100 0v100h1100v-100h-1100zM175 200h950l-125 150v250l100 100v400h-100v-200h-100v200h-200v-200h-100v200h-200v-200h-100v200h-100v-400l100 -100v-250z" />
|
||||||
|
<glyph unicode="" d="M100 0h300v400q0 41 -29.5 70.5t-70.5 29.5h-100q-41 0 -70.5 -29.5t-29.5 -70.5v-400zM500 0v1000q0 41 29.5 70.5t70.5 29.5h100q41 0 70.5 -29.5t29.5 -70.5v-1000h-300zM900 0v700q0 41 29.5 70.5t70.5 29.5h100q41 0 70.5 -29.5t29.5 -70.5v-700h-300z" />
|
||||||
|
<glyph unicode="" d="M-100 300v500q0 124 88 212t212 88h700q124 0 212 -88t88 -212v-500q0 -124 -88 -212t-212 -88h-700q-124 0 -212 88t-88 212zM100 200h900v700h-900v-700zM200 300h300v300h-200v100h200v100h-300v-300h200v-100h-200v-100zM600 300h200v100h100v300h-100v100h-200v-500 zM700 400v300h100v-300h-100z" />
|
||||||
|
<glyph unicode="" d="M-100 300v500q0 124 88 212t212 88h700q124 0 212 -88t88 -212v-500q0 -124 -88 -212t-212 -88h-700q-124 0 -212 88t-88 212zM100 200h900v700h-900v-700zM200 300h100v200h100v-200h100v500h-100v-200h-100v200h-100v-500zM600 300h200v100h100v300h-100v100h-200v-500 zM700 400v300h100v-300h-100z" />
|
||||||
|
<glyph unicode="" d="M-100 300v500q0 124 88 212t212 88h700q124 0 212 -88t88 -212v-500q0 -124 -88 -212t-212 -88h-700q-124 0 -212 88t-88 212zM100 200h900v700h-900v-700zM200 300h300v100h-200v300h200v100h-300v-500zM600 300h300v100h-200v300h200v100h-300v-500z" />
|
||||||
|
<glyph unicode="" d="M-100 300v500q0 124 88 212t212 88h700q124 0 212 -88t88 -212v-500q0 -124 -88 -212t-212 -88h-700q-124 0 -212 88t-88 212zM100 200h900v700h-900v-700zM200 550l300 -150v300zM600 400l300 150l-300 150v-300z" />
|
||||||
|
<glyph unicode="" d="M-100 300v500q0 124 88 212t212 88h700q124 0 212 -88t88 -212v-500q0 -124 -88 -212t-212 -88h-700q-124 0 -212 88t-88 212zM100 200h900v700h-900v-700zM200 300v500h700v-500h-700zM300 400h130q41 0 68 42t27 107t-28.5 108t-66.5 43h-130v-300zM575 549 q0 -65 27 -107t68 -42h130v300h-130q-38 0 -66.5 -43t-28.5 -108z" />
|
||||||
|
<glyph unicode="" d="M-100 300v500q0 124 88 212t212 88h700q124 0 212 -88t88 -212v-500q0 -124 -88 -212t-212 -88h-700q-124 0 -212 88t-88 212zM100 200h900v700h-900v-700zM200 300h300v300h-200v100h200v100h-300v-300h200v-100h-200v-100zM601 300h100v100h-100v-100zM700 700h100 v-400h100v500h-200v-100z" />
|
||||||
|
<glyph unicode="" d="M-100 300v500q0 124 88 212t212 88h700q124 0 212 -88t88 -212v-500q0 -124 -88 -212t-212 -88h-700q-124 0 -212 88t-88 212zM100 200h900v700h-900v-700zM200 300h300v400h-200v100h-100v-500zM301 400v200h100v-200h-100zM601 300h100v100h-100v-100zM700 700h100 v-400h100v500h-200v-100z" />
|
||||||
|
<glyph unicode="" d="M-100 300v500q0 124 88 212t212 88h700q124 0 212 -88t88 -212v-500q0 -124 -88 -212t-212 -88h-700q-124 0 -212 88t-88 212zM100 200h900v700h-900v-700zM200 700v100h300v-300h-99v-100h-100v100h99v200h-200zM201 300v100h100v-100h-100zM601 300v100h100v-100h-100z M700 700v100h200v-500h-100v400h-100z" />
|
||||||
|
<glyph unicode="" d="M4 600q0 162 80 299t217 217t299 80t299 -80t217 -217t80 -299t-80 -299t-217 -217t-299 -80t-299 80t-217 217t-80 299zM186 600q0 -171 121.5 -292.5t292.5 -121.5t292.5 121.5t121.5 292.5t-121.5 292.5t-292.5 121.5t-292.5 -121.5t-121.5 -292.5zM400 500v200 l100 100h300v-100h-300v-200h300v-100h-300z" />
|
||||||
|
<glyph unicode="" d="M0 600q0 162 80 299t217 217t299 80t299 -80t217 -217t80 -299t-80 -299t-217 -217t-299 -80t-299 80t-217 217t-80 299zM182 600q0 -171 121.5 -292.5t292.5 -121.5t292.5 121.5t121.5 292.5t-121.5 292.5t-292.5 121.5t-292.5 -121.5t-121.5 -292.5zM400 400v400h300 l100 -100v-100h-100v100h-200v-100h200v-100h-200v-100h-100zM700 400v100h100v-100h-100z" />
|
||||||
|
<glyph unicode="" d="M-14 494q0 -80 56.5 -137t135.5 -57h222v300h400v-300h128q120 0 205 86.5t85 207.5t-85 207t-205 86q-46 0 -90 -14q-44 97 -134.5 156.5t-200.5 59.5q-152 0 -260 -107.5t-108 -260.5q0 -25 2 -37q-66 -14 -108.5 -67.5t-42.5 -122.5zM300 200h200v300h200v-300h200 l-300 -300z" />
|
||||||
|
<glyph unicode="" d="M-14 494q0 -80 56.5 -137t135.5 -57h8l414 414l403 -403q94 26 154.5 104.5t60.5 178.5q0 120 -85 206.5t-205 86.5q-46 0 -90 -14q-44 97 -134.5 156.5t-200.5 59.5q-152 0 -260 -107.5t-108 -260.5q0 -25 2 -37q-66 -14 -108.5 -67.5t-42.5 -122.5zM300 200l300 300 l300 -300h-200v-300h-200v300h-200z" />
|
||||||
|
<glyph unicode="" d="M100 200h400v-155l-75 -45h350l-75 45v155h400l-270 300h170l-270 300h170l-300 333l-300 -333h170l-270 -300h170z" />
|
||||||
|
<glyph unicode="" d="M121 700q0 -53 28.5 -97t75.5 -65q-4 -16 -4 -38q0 -74 52.5 -126.5t126.5 -52.5q56 0 100 30v-306l-75 -45h350l-75 45v306q46 -30 100 -30q74 0 126.5 52.5t52.5 126.5q0 24 -9 55q50 32 79.5 83t29.5 112q0 90 -61.5 155.5t-150.5 71.5q-26 89 -99.5 145.5 t-167.5 56.5q-116 0 -197.5 -81.5t-81.5 -197.5q0 -4 1 -11.5t1 -11.5q-14 2 -23 2q-74 0 -126.5 -52.5t-52.5 -126.5z" />
|
||||||
|
</font>
|
||||||
|
</defs></svg>
|
After Width: | Height: | Size: 62 KiB |
BIN
static/fonts/glyphicons-halflings-regular.ttf
Normal file
BIN
static/fonts/glyphicons-halflings-regular.woff
Normal file
BIN
static/grauenhafte_werbung.gif
Normal file
After Width: | Height: | Size: 3.1 MiB |
3
static/tmp/autogen-PE46a7-4.css
Normal file
|
@ -0,0 +1,3 @@
|
||||||
|
h2#hident4{color:#990
|
||||||
|
}li{line-height:2em;font-size:16px
|
||||||
|
}#js-createCommentTextarea{width:400px;height:100px}.masthead,.navbar{background-color:rgb(27, 28, 29)}.navbar-default .navbar-nav > .active > a{background-color:transparent;border-bottom:2px solid white}.navbar-nav{padding-bottom:1em}.masthead{margin-top:-21px;color:white;text-align:center;min-height:500px}.masthead .header{max-width:700px;margin:0 auto;font-family:Lato,'Helvetica Neue',Arial,Helvetica,sans-serif}.masthead h1.header{margin-top:1em;margin-bottom:0em;font-size:4.5em;line-height:1.2em;font-weight:normal}.masthead h2{font-size:1.7em;font-weight:normal}.masthead .btn{margin:1em 0}.bs-callout{padding:20px;margin:20px 0;border:1px solid #eee;border-left-width:5px;border-radius:3px}.bs-callout p:last-child{margin-bottom:0}.bs-callout-info{border-left-color:#1b809e}.bs-docs-section{margin-bottom:60px}.bs-docs-section:last-child{margin-bottom:0}#message{margin-bottom:40px}
|
1
static/tmp/autogen-r3XaZuvR.js
Normal file
|
@ -0,0 +1 @@
|
||||||
|
document.getElementById("hident4").innerHTML="This text was added by the Javascript part of the homepage widget.";$(function(){$("#js-commentForm").submit(function(event){event.preventDefault();var message=$("#js-createCommentTextarea").val();if(!message){alert("Please fill out the comment form first.");return};$.ajax({url:'http://localhost:3000/comments',type:'POST',contentType:"application/json",data:JSON.stringify({message:message}),success:function(data){var newNode=$("<li></li>");newNode.text(data.message);console.log(data);$("#js-commentList").append(newNode)},error:function(data){console.log("Error creating comment: "+data)}})})})
|
41
templates/default-layout-wrapper.hamlet
Normal file
|
@ -0,0 +1,41 @@
|
||||||
|
$newline never
|
||||||
|
\<!doctype html>
|
||||||
|
\<!--[if lt IE 7]> <html class="no-js ie6 oldie" lang="en"> <![endif]-->
|
||||||
|
\<!--[if IE 7]> <html class="no-js ie7 oldie" lang="en"> <![endif]-->
|
||||||
|
\<!--[if IE 8]> <html class="no-js ie8 oldie" lang="en"> <![endif]-->
|
||||||
|
\<!--[if gt IE 8]><!-->
|
||||||
|
<html class="no-js" lang="en"> <!--<![endif]-->
|
||||||
|
<head>
|
||||||
|
<meta charset="UTF-8">
|
||||||
|
|
||||||
|
<title>#{pageTitle pc}
|
||||||
|
<meta name="description" content="">
|
||||||
|
<meta name="author" content="">
|
||||||
|
|
||||||
|
<meta name="viewport" content="width=device-width,initial-scale=1">
|
||||||
|
|
||||||
|
^{pageHead pc}
|
||||||
|
|
||||||
|
<script>
|
||||||
|
/* The `defaultCsrfMiddleware` Middleware added in Foundation.hs adds a CSRF token to the request cookies. */
|
||||||
|
/* AJAX requests should add that token to a header to be validated by the server. */
|
||||||
|
/* See the CSRF documentation in the Yesod.Core.Handler module of the yesod-core package for details. */
|
||||||
|
var csrfHeaderName = "#{TE.decodeUtf8 $ CI.foldedCase defaultCsrfHeaderName}";
|
||||||
|
|
||||||
|
var csrfCookieName = "#{TE.decodeUtf8 defaultCsrfCookieName}";
|
||||||
|
var csrfToken = Cookies.get(csrfCookieName);
|
||||||
|
|
||||||
|
|
||||||
|
if (csrfToken) {
|
||||||
|
\ $.ajaxPrefilter(function( options, originalOptions, jqXHR ) {
|
||||||
|
\ if (!options.crossDomain) {
|
||||||
|
\ jqXHR.setRequestHeader(csrfHeaderName, csrfToken);
|
||||||
|
\ }
|
||||||
|
\ });
|
||||||
|
}
|
||||||
|
|
||||||
|
<script>
|
||||||
|
document.documentElement.className = document.documentElement.className.replace(/\bno-js\b/,'js');
|
||||||
|
<body>
|
||||||
|
^{pageBody pc}
|
||||||
|
|
6
templates/default-layout.hamlet
Normal file
|
@ -0,0 +1,6 @@
|
||||||
|
<!-- Page Contents -->
|
||||||
|
|
||||||
|
<div .container>
|
||||||
|
<div .ad>
|
||||||
|
<img src=@{AdR}>
|
||||||
|
^{widget}
|
35
templates/default-layout.lucius
Normal file
|
@ -0,0 +1,35 @@
|
||||||
|
body {
|
||||||
|
font-family: Lato,'Helvetica Neue',Arial,Helvetica,sans-serif;
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
.masthead .header {
|
||||||
|
max-width: 700px;
|
||||||
|
margin: 0 auto;
|
||||||
|
}
|
||||||
|
|
||||||
|
.masthead h1.header {
|
||||||
|
margin-top: 1em;
|
||||||
|
margin-bottom: 0em;
|
||||||
|
font-size: 4.5em;
|
||||||
|
line-height: 1.2em;
|
||||||
|
font-weight: normal;
|
||||||
|
}
|
||||||
|
|
||||||
|
.masthead h2 {
|
||||||
|
font-size: 1.7em;
|
||||||
|
font-weight: normal;
|
||||||
|
}
|
||||||
|
|
||||||
|
aside,
|
||||||
|
.ad {
|
||||||
|
width: 25%;
|
||||||
|
padding-left: 15px;
|
||||||
|
margin-left: 15px;
|
||||||
|
float: right;
|
||||||
|
}
|
||||||
|
|
||||||
|
img {
|
||||||
|
max-width: 100%;
|
||||||
|
max-height: 100%;
|
||||||
|
}
|
10
templates/homepage.hamlet
Normal file
|
@ -0,0 +1,10 @@
|
||||||
|
<div .masthead>
|
||||||
|
<h1 .header>
|
||||||
|
OWO Geländespiel
|
||||||
|
|
||||||
|
<div .points .tutor>
|
||||||
|
<h1 #Tutors>Tutoren: #{tutorP}
|
||||||
|
|
||||||
|
<div .points .erstie>
|
||||||
|
<h1 #Ersties>Ersties: #{erstieP}
|
||||||
|
|
20
templates/homepage.lucius
Normal file
|
@ -0,0 +1,20 @@
|
||||||
|
li {
|
||||||
|
line-height: 2em;
|
||||||
|
font-size: 16px
|
||||||
|
}
|
||||||
|
.points {
|
||||||
|
border-radius: 25px;
|
||||||
|
font-weight: bold;
|
||||||
|
margin: auto;
|
||||||
|
max-width: 50%;
|
||||||
|
display: flex;
|
||||||
|
justify-content: center;
|
||||||
|
align-items: center;
|
||||||
|
margin-top: 30px;
|
||||||
|
}
|
||||||
|
.tutor {
|
||||||
|
background-color: #f68afc;
|
||||||
|
}
|
||||||
|
.erstie {
|
||||||
|
background-color: #00FF00;
|
||||||
|
}
|
10
templates/profile.hamlet
Normal file
|
@ -0,0 +1,10 @@
|
||||||
|
<div .ui.container>
|
||||||
|
|
||||||
|
<h1>
|
||||||
|
Access granted!
|
||||||
|
|
||||||
|
<p>
|
||||||
|
This page is protected and access is allowed only for authenticated users.
|
||||||
|
|
||||||
|
<p>
|
||||||
|
Your data is protected with us <strong><span class="username">#{userIdent user}</span></strong>!
|
9
templates/round.hamlet
Normal file
|
@ -0,0 +1,9 @@
|
||||||
|
<div .masthead>
|
||||||
|
<h1 .header>
|
||||||
|
OwO Geländespiel Station #{station} Round #{roundNumber}
|
||||||
|
|
||||||
|
<div .container>
|
||||||
|
<div .form>
|
||||||
|
<form method=post action=@{StationRoundR stationIdentifier roundNumber} enctype=#{roundFormEnctype}>
|
||||||
|
^{roundFormWidget}
|
||||||
|
<button> Submit
|
5
templates/round.lucious
Normal file
|
@ -0,0 +1,5 @@
|
||||||
|
.form {
|
||||||
|
display: flex;
|
||||||
|
justify-content: center;
|
||||||
|
align-items: center;
|
||||||
|
}
|
9
templates/station.hamlet
Normal file
|
@ -0,0 +1,9 @@
|
||||||
|
<div .masthead>
|
||||||
|
<h1 .header>
|
||||||
|
OwO Geländespiel Station #{station}
|
||||||
|
|
||||||
|
<div .container .form>
|
||||||
|
<ul>
|
||||||
|
$forall round <- rounds
|
||||||
|
<li>
|
||||||
|
<a href=@{StationRoundR stationIdentifier (roundNumber round)}> #{roundNumber round}
|
5
templates/station.lucious
Normal file
|
@ -0,0 +1,5 @@
|
||||||
|
.form {
|
||||||
|
display: flex;
|
||||||
|
justify-content: center;
|
||||||
|
align-items: center;
|
||||||
|
}
|
17
test/Handler/CommonSpec.hs
Normal file
|
@ -0,0 +1,17 @@
|
||||||
|
module Handler.CommonSpec (spec) where
|
||||||
|
|
||||||
|
import TestImport
|
||||||
|
|
||||||
|
spec :: Spec
|
||||||
|
spec = withApp $ do
|
||||||
|
describe "robots.txt" $ do
|
||||||
|
it "gives a 200" $ do
|
||||||
|
get RobotsR
|
||||||
|
statusIs 200
|
||||||
|
it "has correct User-agent" $ do
|
||||||
|
get RobotsR
|
||||||
|
bodyContains "User-agent: *"
|
||||||
|
describe "favicon.ico" $ do
|
||||||
|
it "gives a 200" $ do
|
||||||
|
get FaviconR
|
||||||
|
statusIs 200
|
37
test/Handler/HomeSpec.hs
Normal file
|
@ -0,0 +1,37 @@
|
||||||
|
{-# LANGUAGE NoImplicitPrelude #-}
|
||||||
|
{-# LANGUAGE OverloadedStrings #-}
|
||||||
|
module Handler.HomeSpec (spec) where
|
||||||
|
|
||||||
|
import TestImport
|
||||||
|
|
||||||
|
spec :: Spec
|
||||||
|
spec = it "useless test, so it doesn't annoy me for now" True
|
||||||
|
--spec :: Spec
|
||||||
|
--spec = withApp $ do
|
||||||
|
--
|
||||||
|
-- describe "Homepage" $ do
|
||||||
|
-- it "loads the index and checks it looks right" $ do
|
||||||
|
-- get HomeR
|
||||||
|
-- statusIs 200
|
||||||
|
-- htmlAnyContain "h1" "a modern framework for blazing fast websites"
|
||||||
|
--
|
||||||
|
-- request $ do
|
||||||
|
-- setMethod "POST"
|
||||||
|
-- setUrl HomeR
|
||||||
|
-- addToken
|
||||||
|
-- fileByLabelExact "Choose a file" "test/Spec.hs" "text/plain" -- talk about self-reference
|
||||||
|
-- byLabelExact "What's on the file?" "Some Content"
|
||||||
|
--
|
||||||
|
-- statusIs 200
|
||||||
|
-- -- more debugging printBody
|
||||||
|
-- htmlAllContain ".upload-response" "text/plain"
|
||||||
|
-- htmlAllContain ".upload-response" "Some Content"
|
||||||
|
--
|
||||||
|
-- -- This is a simple example of using a database access in a test. The
|
||||||
|
-- -- test will succeed for a fresh scaffolded site with an empty database,
|
||||||
|
-- -- but will fail on an existing database with a non-empty user table.
|
||||||
|
-- it "leaves the user table empty" $ do
|
||||||
|
-- get HomeR
|
||||||
|
-- statusIs 200
|
||||||
|
-- users <- runDB $ selectList ([] :: [Filter User]) []
|
||||||
|
-- assertEq "user table empty" 0 $ length users
|
1
test/Spec.hs
Normal file
|
@ -0,0 +1 @@
|
||||||
|
{-# OPTIONS_GHC -F -pgmF hspec-discover #-}
|
104
test/TestImport.hs
Normal file
|
@ -0,0 +1,104 @@
|
||||||
|
{-# LANGUAGE QuasiQuotes #-}
|
||||||
|
{-# LANGUAGE NoImplicitPrelude #-}
|
||||||
|
{-# LANGUAGE OverloadedStrings #-}
|
||||||
|
module TestImport
|
||||||
|
( module TestImport
|
||||||
|
, module X
|
||||||
|
) where
|
||||||
|
|
||||||
|
import Application (makeFoundation, makeLogWare)
|
||||||
|
import ClassyPrelude as X hiding (delete, deleteBy, Handler)
|
||||||
|
import Database.Persist as X hiding (get)
|
||||||
|
import Database.Persist.Sql (SqlPersistM, runSqlPersistMPool, rawExecute, rawSql, unSingle)
|
||||||
|
import Database.Persist.SqlBackend (getEscapedRawName)
|
||||||
|
import Foundation as X
|
||||||
|
import Model as X
|
||||||
|
import Test.Hspec as X
|
||||||
|
import Yesod.Default.Config2 (useEnv, loadYamlSettings)
|
||||||
|
import Yesod.Auth as X
|
||||||
|
import Yesod.Test as X
|
||||||
|
import Yesod.Core.Unsafe (fakeHandlerGetLogger)
|
||||||
|
|
||||||
|
-- Wiping the database
|
||||||
|
import Database.Persist.Sqlite (sqlDatabase, mkSqliteConnectionInfo, fkEnabled, createSqlitePoolFromInfo)
|
||||||
|
import Control.Monad.Logger (runLoggingT)
|
||||||
|
import Lens.Micro (set)
|
||||||
|
import Settings (appDatabaseConf)
|
||||||
|
import Yesod.Core (messageLoggerSource)
|
||||||
|
|
||||||
|
runDB :: SqlPersistM a -> YesodExample App a
|
||||||
|
runDB query = do
|
||||||
|
pool <- fmap appConnPool getTestYesod
|
||||||
|
liftIO $ runSqlPersistMPool query pool
|
||||||
|
|
||||||
|
runHandler :: Handler a -> YesodExample App a
|
||||||
|
runHandler handler = do
|
||||||
|
app <- getTestYesod
|
||||||
|
fakeHandlerGetLogger appLogger app handler
|
||||||
|
|
||||||
|
withApp :: SpecWith (TestApp App) -> Spec
|
||||||
|
withApp = before $ do
|
||||||
|
settings <- loadYamlSettings
|
||||||
|
["config/test-settings.yml", "config/settings.yml"]
|
||||||
|
[]
|
||||||
|
useEnv
|
||||||
|
foundation <- makeFoundation settings
|
||||||
|
wipeDB foundation
|
||||||
|
logWare <- liftIO $ makeLogWare foundation
|
||||||
|
return (foundation, logWare)
|
||||||
|
|
||||||
|
-- This function will truncate all of the tables in your database.
|
||||||
|
-- 'withApp' calls it before each test, creating a clean environment for each
|
||||||
|
-- spec to run in.
|
||||||
|
wipeDB :: App -> IO ()
|
||||||
|
wipeDB app = do
|
||||||
|
-- In order to wipe the database, we need to use a connection which has
|
||||||
|
-- foreign key checks disabled. Foreign key checks are enabled or disabled
|
||||||
|
-- per connection, so this won't effect queries outside this function.
|
||||||
|
--
|
||||||
|
-- Aside: foreign key checks are enabled by persistent-sqlite, as of
|
||||||
|
-- version 2.6.2, unless they are explicitly disabled in the
|
||||||
|
-- SqliteConnectionInfo.
|
||||||
|
|
||||||
|
let logFunc = messageLoggerSource app (appLogger app)
|
||||||
|
|
||||||
|
let dbName = sqlDatabase $ appDatabaseConf $ appSettings app
|
||||||
|
connInfo = set fkEnabled False $ mkSqliteConnectionInfo dbName
|
||||||
|
|
||||||
|
pool <- runLoggingT (createSqlitePoolFromInfo connInfo 1) logFunc
|
||||||
|
|
||||||
|
flip runSqlPersistMPool pool $ do
|
||||||
|
tables <- getTables
|
||||||
|
sqlBackend <- ask
|
||||||
|
let queries = map (\t -> "DELETE FROM " ++ (getEscapedRawName t sqlBackend)) tables
|
||||||
|
forM_ queries (\q -> rawExecute q [])
|
||||||
|
|
||||||
|
getTables :: DB [Text]
|
||||||
|
getTables = do
|
||||||
|
tables <- rawSql "SELECT name FROM sqlite_master WHERE type = 'table';" []
|
||||||
|
return (fmap unSingle tables)
|
||||||
|
|
||||||
|
-- | Authenticate as a user. This relies on the `auth-dummy-login: true` flag
|
||||||
|
-- being set in test-settings.yaml, which enables dummy authentication in
|
||||||
|
-- Foundation.hs
|
||||||
|
-- authenticateAs :: Entity User -> YesodExample App ()
|
||||||
|
-- authenticateAs (Entity _ u) = do
|
||||||
|
-- request $ do
|
||||||
|
-- setMethod "POST"
|
||||||
|
-- addPostParam "ident" $ userIdent u
|
||||||
|
-- setUrl $ AuthR $ PluginR "dummy" []
|
||||||
|
--
|
||||||
|
-- -- | Create a user. The dummy email entry helps to confirm that foreign-key
|
||||||
|
-- -- checking is switched off in wipeDB for those database backends which need it.
|
||||||
|
-- createUser :: Text -> YesodExample App (Entity User)
|
||||||
|
-- createUser ident = runDB $ do
|
||||||
|
-- user <- insertEntity User
|
||||||
|
-- { userIdent = ident
|
||||||
|
-- , userPassword = Nothing
|
||||||
|
-- }
|
||||||
|
-- _ <- insert Email
|
||||||
|
-- { emailEmail = ident
|
||||||
|
-- , emailUserId = Just $ entityKey user
|
||||||
|
-- , emailVerkey = Nothing
|
||||||
|
-- }
|
||||||
|
-- return user
|