initial commit
This commit is contained in:
commit
04939365fe
27 changed files with 1565 additions and 0 deletions
14
.gitignore
vendored
Normal file
14
.gitignore
vendored
Normal file
|
@ -0,0 +1,14 @@
|
||||||
|
*.hi
|
||||||
|
*.ho
|
||||||
|
TAGS
|
||||||
|
*.log
|
||||||
|
*.profile
|
||||||
|
/dist
|
||||||
|
/cabal.config
|
||||||
|
/.stack-work
|
||||||
|
/.cabal-sandbox/
|
||||||
|
/cabal.sandbox.config
|
||||||
|
doc.html
|
||||||
|
/docsets/
|
||||||
|
ui/assets/js/interetLegaux.js
|
||||||
|
.*.swp
|
30
LICENSE
Normal file
30
LICENSE
Normal file
|
@ -0,0 +1,30 @@
|
||||||
|
Copyright Yann Esposito (c) 2015
|
||||||
|
|
||||||
|
All rights reserved.
|
||||||
|
|
||||||
|
Redistribution and use in source and binary forms, with or without
|
||||||
|
modification, are permitted provided that the following conditions are met:
|
||||||
|
|
||||||
|
* Redistributions of source code must retain the above copyright
|
||||||
|
notice, this list of conditions and the following disclaimer.
|
||||||
|
|
||||||
|
* Redistributions in binary form must reproduce the above
|
||||||
|
copyright notice, this list of conditions and the following
|
||||||
|
disclaimer in the documentation and/or other materials provided
|
||||||
|
with the distribution.
|
||||||
|
|
||||||
|
* Neither the name of Yann Esposito nor the names of other
|
||||||
|
contributors may be used to endorse or promote products derived
|
||||||
|
from this software without specific prior written permission.
|
||||||
|
|
||||||
|
THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
|
||||||
|
"AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
|
||||||
|
LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
|
||||||
|
A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
|
||||||
|
OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
|
||||||
|
SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
|
||||||
|
LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
|
||||||
|
DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
|
||||||
|
THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
|
||||||
|
(INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
|
||||||
|
OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
|
40
README.md
Normal file
40
README.md
Normal file
|
@ -0,0 +1,40 @@
|
||||||
|
# INSTALL
|
||||||
|
|
||||||
|
~~~
|
||||||
|
cd .../projects/
|
||||||
|
git clone https://github.com/haskell-servant/servant.git
|
||||||
|
~~~
|
||||||
|
|
||||||
|
If you want to be certain to use a working version you could.
|
||||||
|
|
||||||
|
~~~
|
||||||
|
git checkout 5e215cef6834575c59354d5b1f1cce4d47f9aaa0
|
||||||
|
~~~
|
||||||
|
|
||||||
|
Then clone this project in the same directory:
|
||||||
|
|
||||||
|
~~~
|
||||||
|
cd .../projects/
|
||||||
|
~~~
|
||||||
|
## Develop
|
||||||
|
|
||||||
|
To launch the server:
|
||||||
|
|
||||||
|
`./launch.sh`.
|
||||||
|
|
||||||
|
You might need to install `live-reload` (`npm install live-reload`)
|
||||||
|
for basic live recompilation and reload.
|
||||||
|
If this is the first time, it might take a _long_ time.
|
||||||
|
|
||||||
|
Once finished you can verify everything worked fine here:
|
||||||
|
|
||||||
|
- <http://localhost:8080/app-dev.html>.
|
||||||
|
- <http://localhost:8080/myForm.html>.
|
||||||
|
|
||||||
|
Organization:
|
||||||
|
|
||||||
|
- `src/` contains `servant` code.
|
||||||
|
- `ui/` directory contains the frontend code.
|
||||||
|
- `ui/assets/` contains the HTML, CSS and JS.
|
||||||
|
- `ui/app/` contains the Haskell code that will be compiled to JS via GHCJS
|
||||||
|
- `ui/src/` contains the Haskell code that will be compiled to JS via GHCJS
|
2
Setup.hs
Normal file
2
Setup.hs
Normal file
|
@ -0,0 +1,2 @@
|
||||||
|
import Distribution.Simple
|
||||||
|
main = defaultMain
|
76
app/Main.hs
Normal file
76
app/Main.hs
Normal file
|
@ -0,0 +1,76 @@
|
||||||
|
{-# LANGUAGE DataKinds #-}
|
||||||
|
{-# LANGUAGE DeriveGeneric #-}
|
||||||
|
{-# LANGUAGE FlexibleInstances #-}
|
||||||
|
{-# LANGUAGE LambdaCase #-}
|
||||||
|
{-# LANGUAGE MultiParamTypeClasses #-}
|
||||||
|
{-# LANGUAGE OverloadedStrings #-}
|
||||||
|
{-# LANGUAGE ScopedTypeVariables #-}
|
||||||
|
{-# LANGUAGE TypeFamilies #-}
|
||||||
|
{-# LANGUAGE TypeOperators #-}
|
||||||
|
{-# LANGUAGE UnicodeSyntax #-}
|
||||||
|
|
||||||
|
{-| This module ties in the business logic with the servant type to implement a server.
|
||||||
|
It reads a bit of configuration to show how to parameterize things
|
||||||
|
-}
|
||||||
|
|
||||||
|
module Main where
|
||||||
|
|
||||||
|
import Control.Monad.Trans.Except (ExceptT,throwE)
|
||||||
|
import Data.Monoid ((<>))
|
||||||
|
import qualified Data.Text as T
|
||||||
|
import Network.Wai (Application)
|
||||||
|
import Network.Wai.Handler.Warp (run)
|
||||||
|
import System.Environment (getEnvironment)
|
||||||
|
|
||||||
|
import Servant
|
||||||
|
import Bug.Servant
|
||||||
|
|
||||||
|
--------------------------------------------------------------------------------
|
||||||
|
-- Minimal MyForm Serve
|
||||||
|
--------------------------------------------------------------------------------
|
||||||
|
makeId :: T.Text -> T.Text -> T.Text
|
||||||
|
makeId l r = l <> "-" <> r
|
||||||
|
|
||||||
|
assertQueryParam :: Monad m => String -> Maybe a -> ExceptT ServantErr m a
|
||||||
|
assertQueryParam paramName =
|
||||||
|
maybe (throwE (err400 {errReasonPhrase = "use " ++ paramName ++ " parameter please."}))
|
||||||
|
return
|
||||||
|
|
||||||
|
newMyForm :: Maybe T.Text -> Maybe T.Text -> ExceptT ServantErr IO MyForm
|
||||||
|
newMyForm mName mPdfName = do
|
||||||
|
name <- assertQueryParam "name" mName
|
||||||
|
pdf <- assertQueryParam "pdf" mPdfName
|
||||||
|
return (defaultForm { _name = name
|
||||||
|
, _pdfName = pdf
|
||||||
|
, _id = makeId name pdf
|
||||||
|
})
|
||||||
|
|
||||||
|
getMyForm :: T.Text -> ExceptT ServantErr IO MyForm
|
||||||
|
getMyForm ident = return (defaultForm {_id = ident})
|
||||||
|
--------------------------------------------------------------------------------
|
||||||
|
|
||||||
|
|
||||||
|
-- our full server has an extended interface with both some normal route and a entire servant API
|
||||||
|
type TopLevelServer = "api" :> ServiceAPI
|
||||||
|
:<|> Raw
|
||||||
|
|
||||||
|
serverAPI :: Server ServiceAPI
|
||||||
|
serverAPI = newMyForm :<|> getMyForm
|
||||||
|
|
||||||
|
-- the complete server serves both part reusing the
|
||||||
|
serverTopLevel :: Server TopLevelServer
|
||||||
|
serverTopLevel = serverAPI :<|> serveDirectory "ui/assets/"
|
||||||
|
|
||||||
|
topLevelServer :: Proxy TopLevelServer
|
||||||
|
topLevelServer = Proxy
|
||||||
|
|
||||||
|
-- we have a WAI application whose behaviour depends on 2 parameters
|
||||||
|
app :: Application
|
||||||
|
app = serve topLevelServer serverTopLevel
|
||||||
|
|
||||||
|
main :: IO ()
|
||||||
|
main = do
|
||||||
|
env <- getEnvironment
|
||||||
|
let port = maybe 8080 read $ lookup "PORT" env
|
||||||
|
putStrLn ("running on " ++ show port)
|
||||||
|
run port app
|
50
bug.cabal
Normal file
50
bug.cabal
Normal file
|
@ -0,0 +1,50 @@
|
||||||
|
name: bug
|
||||||
|
version: 0.1.0.0
|
||||||
|
synopsis: Initial project template from stack
|
||||||
|
description: Please see README.md
|
||||||
|
homepage: https://gitlab.com/yogsototh/bug/
|
||||||
|
license: BSD3
|
||||||
|
license-file: LICENSE
|
||||||
|
author: Yann Esposito
|
||||||
|
maintainer: yann.esposito@gmail.com
|
||||||
|
copyright: 2015 Yann Esposito
|
||||||
|
category: Development
|
||||||
|
build-type: Simple
|
||||||
|
-- extra-source-files:
|
||||||
|
cabal-version: >=1.10
|
||||||
|
|
||||||
|
library
|
||||||
|
hs-source-dirs: src
|
||||||
|
exposed-modules: Bug.Servant
|
||||||
|
build-depends: base >= 4.7 && < 5
|
||||||
|
, time
|
||||||
|
, aeson
|
||||||
|
, servant >= 0.5
|
||||||
|
, either
|
||||||
|
, cassava
|
||||||
|
, bytestring
|
||||||
|
, attoparsec
|
||||||
|
, vector
|
||||||
|
, text
|
||||||
|
, transformers
|
||||||
|
default-language: Haskell2010
|
||||||
|
|
||||||
|
executable service-exe
|
||||||
|
hs-source-dirs: app
|
||||||
|
main-is: Main.hs
|
||||||
|
default-language: Haskell2010
|
||||||
|
build-depends:
|
||||||
|
aeson
|
||||||
|
, base >= 4.7 && < 5
|
||||||
|
, either
|
||||||
|
, servant
|
||||||
|
, servant-client
|
||||||
|
, servant-server
|
||||||
|
, wai
|
||||||
|
, warp
|
||||||
|
, bug
|
||||||
|
, time
|
||||||
|
, text
|
||||||
|
, transformers
|
||||||
|
, bytestring
|
||||||
|
, TCache >= 0.12.0
|
5
launch.sh
Executable file
5
launch.sh
Executable file
|
@ -0,0 +1,5 @@
|
||||||
|
#!/usr/bin/env zsh
|
||||||
|
|
||||||
|
stack exec service-exe &
|
||||||
|
cd ui
|
||||||
|
./ui-devel
|
44
src/Bug/Servant.hs
Normal file
44
src/Bug/Servant.hs
Normal file
|
@ -0,0 +1,44 @@
|
||||||
|
{-# OPTIONS_GHC -fno-warn-orphans #-}
|
||||||
|
{-# LANGUAGE DataKinds #-}
|
||||||
|
{-# LANGUAGE DeriveGeneric #-}
|
||||||
|
{-# LANGUAGE DeriveAnyClass #-}
|
||||||
|
{-# LANGUAGE FlexibleInstances #-}
|
||||||
|
{-# LANGUAGE MultiParamTypeClasses #-}
|
||||||
|
{-# LANGUAGE OverloadedStrings #-}
|
||||||
|
{-# LANGUAGE ScopedTypeVariables #-}
|
||||||
|
{-# LANGUAGE TypeOperators #-}
|
||||||
|
|
||||||
|
module Bug.Servant where
|
||||||
|
|
||||||
|
import Data.Aeson (ToJSON(..),FromJSON(..),Value(..))
|
||||||
|
import qualified Data.ByteString.Lazy.Char8 as BL
|
||||||
|
import qualified Data.Text as T
|
||||||
|
import Data.Time.Calendar (Day,fromGregorian)
|
||||||
|
import GHC.Generics (Generic)
|
||||||
|
import Servant.API
|
||||||
|
|
||||||
|
|
||||||
|
--------------------------------------------------------------------------------
|
||||||
|
-- First test form
|
||||||
|
--------------------------------------------------------------------------------
|
||||||
|
data MyForm = MyForm {
|
||||||
|
_id :: T.Text
|
||||||
|
, _name :: T.Text
|
||||||
|
, _pdfName :: T.Text
|
||||||
|
} deriving (Generic,Show)
|
||||||
|
|
||||||
|
instance ToJSON MyForm
|
||||||
|
instance FromJSON MyForm
|
||||||
|
|
||||||
|
defaultForm :: MyForm
|
||||||
|
defaultForm = MyForm { _id = "id"
|
||||||
|
, _name = "name"
|
||||||
|
, _pdfName = "pdfName"}
|
||||||
|
|
||||||
|
type MyFormAPI = "procedure" :> "test" :> QueryParam "name" T.Text
|
||||||
|
:> QueryParam "pdf" T.Text
|
||||||
|
:> Post '[JSON] MyForm
|
||||||
|
:<|> "procedure" :> "test" :> Capture "id" T.Text
|
||||||
|
:> Get '[JSON] MyForm
|
||||||
|
|
||||||
|
type ServiceAPI = MyFormAPI
|
27
stack.yaml
Normal file
27
stack.yaml
Normal file
|
@ -0,0 +1,27 @@
|
||||||
|
system-ghc: false
|
||||||
|
flags: {}
|
||||||
|
packages:
|
||||||
|
- '.'
|
||||||
|
- '../servant/servant/'
|
||||||
|
- '../servant/servant-blaze/'
|
||||||
|
- '../servant/servant-cassava/'
|
||||||
|
- '../servant/servant-client/'
|
||||||
|
- '../servant/servant-docs/'
|
||||||
|
- '../servant/servant-examples/'
|
||||||
|
- '../servant/servant-foreign/'
|
||||||
|
- '../servant/servant-js/'
|
||||||
|
- '../servant/servant-lucid/'
|
||||||
|
- '../servant/servant-mock/'
|
||||||
|
- '../servant/servant-server/'
|
||||||
|
extra-deps:
|
||||||
|
- approximate-equality-1.1.0.2
|
||||||
|
- type-level-natural-number-2.0
|
||||||
|
- control-monad-omega-0.3.1
|
||||||
|
- engine-io-wai-1.0.4
|
||||||
|
- http-api-data-0.2.2
|
||||||
|
resolver: lts-3.10
|
||||||
|
# resolver: nightly-2015-10-08
|
||||||
|
|
||||||
|
nix:
|
||||||
|
enable: false
|
||||||
|
packages: []
|
2
ui/.gitignore
vendored
Normal file
2
ui/.gitignore
vendored
Normal file
|
@ -0,0 +1,2 @@
|
||||||
|
dist/
|
||||||
|
.stack-work/
|
30
ui/LICENSE
Normal file
30
ui/LICENSE
Normal file
|
@ -0,0 +1,30 @@
|
||||||
|
Copyright (c) 2015
|
||||||
|
|
||||||
|
All rights reserved.
|
||||||
|
|
||||||
|
Redistribution and use in source and binary forms, with or without
|
||||||
|
modification, are permitted provided that the following conditions are met:
|
||||||
|
|
||||||
|
* Redistributions of source code must retain the above copyright
|
||||||
|
notice, this list of conditions and the following disclaimer.
|
||||||
|
|
||||||
|
* Redistributions in binary form must reproduce the above
|
||||||
|
copyright notice, this list of conditions and the following
|
||||||
|
disclaimer in the documentation and/or other materials provided
|
||||||
|
with the distribution.
|
||||||
|
|
||||||
|
* Neither the name of nor the names of other
|
||||||
|
contributors may be used to endorse or promote products derived
|
||||||
|
from this software without specific prior written permission.
|
||||||
|
|
||||||
|
THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
|
||||||
|
"AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
|
||||||
|
LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
|
||||||
|
A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
|
||||||
|
OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
|
||||||
|
SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
|
||||||
|
LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
|
||||||
|
DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
|
||||||
|
THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
|
||||||
|
(INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
|
||||||
|
OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
|
3
ui/README.md
Normal file
3
ui/README.md
Normal file
|
@ -0,0 +1,3 @@
|
||||||
|
# ui
|
||||||
|
|
||||||
|
add description of ui here
|
29
ui/app/Main.hs
Normal file
29
ui/app/Main.hs
Normal file
|
@ -0,0 +1,29 @@
|
||||||
|
module Main where
|
||||||
|
|
||||||
|
import Control.Applicative ((<$>))
|
||||||
|
import Control.Monad.Trans (liftIO)
|
||||||
|
import GHCJS.DOM (enableInspector, webViewGetDomDocument, runWebGUI)
|
||||||
|
import GHCJS.DOM.Document (getBody, createElement)
|
||||||
|
import GHCJS.DOM.HTMLElement (setInnerText)
|
||||||
|
import GHCJS.DOM.Element (click)
|
||||||
|
import GHCJS.DOM.HTMLParagraphElement
|
||||||
|
(castToHTMLParagraphElement)
|
||||||
|
import GHCJS.DOM.Node (appendChild)
|
||||||
|
import GHCJS.DOM.EventM (mouseClientXY,on)
|
||||||
|
|
||||||
|
import Client
|
||||||
|
import qualified Data.Text as T
|
||||||
|
import Control.Monad.Trans.Except
|
||||||
|
|
||||||
|
main = runWebGUI $ \ webView -> do
|
||||||
|
enableInspector webView
|
||||||
|
Just doc <- webViewGetDomDocument webView
|
||||||
|
Just body <- getBody doc
|
||||||
|
setInnerText body (Just "Open Console and click anywhere.")
|
||||||
|
on body click $ do
|
||||||
|
(x, y) <- mouseClientXY
|
||||||
|
liftIO $ do
|
||||||
|
putStrLn $ "Clicked at " ++ show (x,y)
|
||||||
|
_ <- runExceptT $ postProcedureTest (Just (T.pack "yolo")) (Just (T.pack "ppp"))
|
||||||
|
return ()
|
||||||
|
return ()
|
13
ui/assets/.editorconfig
Executable file
13
ui/assets/.editorconfig
Executable file
|
@ -0,0 +1,13 @@
|
||||||
|
# editorconfig.org
|
||||||
|
|
||||||
|
root = true
|
||||||
|
|
||||||
|
[*]
|
||||||
|
charset = utf-8
|
||||||
|
indent_size = 4
|
||||||
|
indent_style = space
|
||||||
|
insert_final_newline = true
|
||||||
|
trim_trailing_whitespace = true
|
||||||
|
|
||||||
|
[*.md]
|
||||||
|
trim_trailing_whitespace = false
|
1
ui/assets/.gitattributes
vendored
Executable file
1
ui/assets/.gitattributes
vendored
Executable file
|
@ -0,0 +1 @@
|
||||||
|
* text=auto
|
4
ui/assets/.gitignore
vendored
Executable file
4
ui/assets/.gitignore
vendored
Executable file
|
@ -0,0 +1,4 @@
|
||||||
|
# Include your project-specific ignores in this file
|
||||||
|
# Read about how to use .gitignore: https://help.github.com/articles/ignoring-files
|
||||||
|
node_modules/
|
||||||
|
semantic/
|
984
ui/assets/.htaccess
Executable file
984
ui/assets/.htaccess
Executable file
|
@ -0,0 +1,984 @@
|
||||||
|
# Apache Server Configs v2.14.0 | MIT License
|
||||||
|
# https://github.com/h5bp/server-configs-apache
|
||||||
|
|
||||||
|
# (!) Using `.htaccess` files slows down Apache, therefore, if you have
|
||||||
|
# access to the main server configuration file (which is usually called
|
||||||
|
# `httpd.conf`), you should add this logic there.
|
||||||
|
#
|
||||||
|
# https://httpd.apache.org/docs/current/howto/htaccess.html.
|
||||||
|
|
||||||
|
# ######################################################################
|
||||||
|
# # CROSS-ORIGIN #
|
||||||
|
# ######################################################################
|
||||||
|
|
||||||
|
# ----------------------------------------------------------------------
|
||||||
|
# | Cross-origin requests |
|
||||||
|
# ----------------------------------------------------------------------
|
||||||
|
|
||||||
|
# Allow cross-origin requests.
|
||||||
|
#
|
||||||
|
# https://developer.mozilla.org/en-US/docs/Web/HTTP/Access_control_CORS
|
||||||
|
# http://enable-cors.org/
|
||||||
|
# http://www.w3.org/TR/cors/
|
||||||
|
|
||||||
|
# <IfModule mod_headers.c>
|
||||||
|
# Header set Access-Control-Allow-Origin "*"
|
||||||
|
# </IfModule>
|
||||||
|
|
||||||
|
# ----------------------------------------------------------------------
|
||||||
|
# | Cross-origin images |
|
||||||
|
# ----------------------------------------------------------------------
|
||||||
|
|
||||||
|
# Send the CORS header for images when browsers request it.
|
||||||
|
#
|
||||||
|
# https://developer.mozilla.org/en-US/docs/Web/HTML/CORS_enabled_image
|
||||||
|
# https://blog.chromium.org/2011/07/using-cross-domain-images-in-webgl-and.html
|
||||||
|
|
||||||
|
<IfModule mod_setenvif.c>
|
||||||
|
<IfModule mod_headers.c>
|
||||||
|
<FilesMatch "\.(bmp|cur|gif|ico|jpe?g|png|svgz?|webp)$">
|
||||||
|
SetEnvIf Origin ":" IS_CORS
|
||||||
|
Header set Access-Control-Allow-Origin "*" env=IS_CORS
|
||||||
|
</FilesMatch>
|
||||||
|
</IfModule>
|
||||||
|
</IfModule>
|
||||||
|
|
||||||
|
# ----------------------------------------------------------------------
|
||||||
|
# | Cross-origin web fonts |
|
||||||
|
# ----------------------------------------------------------------------
|
||||||
|
|
||||||
|
# Allow cross-origin access to web fonts.
|
||||||
|
|
||||||
|
<IfModule mod_headers.c>
|
||||||
|
<FilesMatch "\.(eot|otf|tt[cf]|woff2?)$">
|
||||||
|
Header set Access-Control-Allow-Origin "*"
|
||||||
|
</FilesMatch>
|
||||||
|
</IfModule>
|
||||||
|
|
||||||
|
# ----------------------------------------------------------------------
|
||||||
|
# | Cross-origin resource timing |
|
||||||
|
# ----------------------------------------------------------------------
|
||||||
|
|
||||||
|
# Allow cross-origin access to the timing information for all resources.
|
||||||
|
#
|
||||||
|
# If a resource isn't served with a `Timing-Allow-Origin` header that
|
||||||
|
# would allow its timing information to be shared with the document,
|
||||||
|
# some of the attributes of the `PerformanceResourceTiming` object will
|
||||||
|
# be set to zero.
|
||||||
|
#
|
||||||
|
# http://www.w3.org/TR/resource-timing/
|
||||||
|
# http://www.stevesouders.com/blog/2014/08/21/resource-timing-practical-tips/
|
||||||
|
|
||||||
|
# <IfModule mod_headers.c>
|
||||||
|
# Header set Timing-Allow-Origin: "*"
|
||||||
|
# </IfModule>
|
||||||
|
|
||||||
|
|
||||||
|
# ######################################################################
|
||||||
|
# # ERRORS #
|
||||||
|
# ######################################################################
|
||||||
|
|
||||||
|
# ----------------------------------------------------------------------
|
||||||
|
# | Custom error messages/pages |
|
||||||
|
# ----------------------------------------------------------------------
|
||||||
|
|
||||||
|
# Customize what Apache returns to the client in case of an error.
|
||||||
|
# https://httpd.apache.org/docs/current/mod/core.html#errordocument
|
||||||
|
|
||||||
|
ErrorDocument 404 /404.html
|
||||||
|
|
||||||
|
# ----------------------------------------------------------------------
|
||||||
|
# | Error prevention |
|
||||||
|
# ----------------------------------------------------------------------
|
||||||
|
|
||||||
|
# Disable the pattern matching based on filenames.
|
||||||
|
#
|
||||||
|
# This setting prevents Apache from returning a 404 error as the result
|
||||||
|
# of a rewrite when the directory with the same name does not exist.
|
||||||
|
#
|
||||||
|
# https://httpd.apache.org/docs/current/content-negotiation.html#multiviews
|
||||||
|
|
||||||
|
Options -MultiViews
|
||||||
|
|
||||||
|
|
||||||
|
# ######################################################################
|
||||||
|
# # INTERNET EXPLORER #
|
||||||
|
# ######################################################################
|
||||||
|
|
||||||
|
# ----------------------------------------------------------------------
|
||||||
|
# | Document modes |
|
||||||
|
# ----------------------------------------------------------------------
|
||||||
|
|
||||||
|
# Force Internet Explorer 8/9/10 to render pages in the highest mode
|
||||||
|
# available in the various cases when it may not.
|
||||||
|
#
|
||||||
|
# https://hsivonen.fi/doctype/#ie8
|
||||||
|
#
|
||||||
|
# (!) Starting with Internet Explorer 11, document modes are deprecated.
|
||||||
|
# If your business still relies on older web apps and services that were
|
||||||
|
# designed for older versions of Internet Explorer, you might want to
|
||||||
|
# consider enabling `Enterprise Mode` throughout your company.
|
||||||
|
#
|
||||||
|
# https://msdn.microsoft.com/en-us/library/ie/bg182625.aspx#docmode
|
||||||
|
# http://blogs.msdn.com/b/ie/archive/2014/04/02/stay-up-to-date-with-enterprise-mode-for-internet-explorer-11.aspx
|
||||||
|
|
||||||
|
<IfModule mod_headers.c>
|
||||||
|
|
||||||
|
Header set X-UA-Compatible "IE=edge"
|
||||||
|
|
||||||
|
# `mod_headers` cannot match based on the content-type, however,
|
||||||
|
# the `X-UA-Compatible` response header should be send only for
|
||||||
|
# HTML documents and not for the other resources.
|
||||||
|
|
||||||
|
<FilesMatch "\.(appcache|atom|bbaw|bmp|crx|css|cur|eot|f4[abpv]|flv|geojson|gif|htc|ico|jpe?g|js|json(ld)?|m4[av]|manifest|map|mp4|oex|og[agv]|opus|otf|pdf|png|rdf|rss|safariextz|svgz?|swf|topojson|tt[cf]|txt|vcard|vcf|vtt|webapp|web[mp]|webmanifest|woff2?|xloc|xml|xpi)$">
|
||||||
|
Header unset X-UA-Compatible
|
||||||
|
</FilesMatch>
|
||||||
|
|
||||||
|
</IfModule>
|
||||||
|
|
||||||
|
# ----------------------------------------------------------------------
|
||||||
|
# | Iframes cookies |
|
||||||
|
# ----------------------------------------------------------------------
|
||||||
|
|
||||||
|
# Allow cookies to be set from iframes in Internet Explorer.
|
||||||
|
#
|
||||||
|
# https://msdn.microsoft.com/en-us/library/ms537343.aspx
|
||||||
|
# http://www.w3.org/TR/2000/CR-P3P-20001215/
|
||||||
|
|
||||||
|
# <IfModule mod_headers.c>
|
||||||
|
# Header set P3P "policyref=\"/w3c/p3p.xml\", CP=\"IDC DSP COR ADM DEVi TAIi PSA PSD IVAi IVDi CONi HIS OUR IND CNT\""
|
||||||
|
# </IfModule>
|
||||||
|
|
||||||
|
|
||||||
|
# ######################################################################
|
||||||
|
# # MEDIA TYPES AND CHARACTER ENCODINGS #
|
||||||
|
# ######################################################################
|
||||||
|
|
||||||
|
# ----------------------------------------------------------------------
|
||||||
|
# | Media types |
|
||||||
|
# ----------------------------------------------------------------------
|
||||||
|
|
||||||
|
# Serve resources with the proper media types (f.k.a. MIME types).
|
||||||
|
#
|
||||||
|
# https://www.iana.org/assignments/media-types/media-types.xhtml
|
||||||
|
# https://httpd.apache.org/docs/current/mod/mod_mime.html#addtype
|
||||||
|
|
||||||
|
<IfModule mod_mime.c>
|
||||||
|
|
||||||
|
# Data interchange
|
||||||
|
|
||||||
|
AddType application/atom+xml atom
|
||||||
|
AddType application/json json map topojson
|
||||||
|
AddType application/ld+json jsonld
|
||||||
|
AddType application/rss+xml rss
|
||||||
|
AddType application/vnd.geo+json geojson
|
||||||
|
AddType application/xml rdf xml
|
||||||
|
|
||||||
|
|
||||||
|
# JavaScript
|
||||||
|
|
||||||
|
# Normalize to standard type.
|
||||||
|
# https://tools.ietf.org/html/rfc4329#section-7.2
|
||||||
|
|
||||||
|
AddType application/javascript js
|
||||||
|
|
||||||
|
|
||||||
|
# Manifest files
|
||||||
|
|
||||||
|
AddType application/manifest+json webmanifest
|
||||||
|
AddType application/x-web-app-manifest+json webapp
|
||||||
|
AddType text/cache-manifest appcache
|
||||||
|
|
||||||
|
|
||||||
|
# Media files
|
||||||
|
|
||||||
|
AddType audio/mp4 f4a f4b m4a
|
||||||
|
AddType audio/ogg oga ogg opus
|
||||||
|
AddType image/bmp bmp
|
||||||
|
AddType image/svg+xml svg svgz
|
||||||
|
AddType image/webp webp
|
||||||
|
AddType video/mp4 f4v f4p m4v mp4
|
||||||
|
AddType video/ogg ogv
|
||||||
|
AddType video/webm webm
|
||||||
|
AddType video/x-flv flv
|
||||||
|
|
||||||
|
# Serving `.ico` image files with a different media type
|
||||||
|
# prevents Internet Explorer from displaying then as images:
|
||||||
|
# https://github.com/h5bp/html5-boilerplate/commit/37b5fec090d00f38de64b591bcddcb205aadf8ee
|
||||||
|
|
||||||
|
AddType image/x-icon cur ico
|
||||||
|
|
||||||
|
|
||||||
|
# Web fonts
|
||||||
|
|
||||||
|
AddType application/font-woff woff
|
||||||
|
AddType application/font-woff2 woff2
|
||||||
|
AddType application/vnd.ms-fontobject eot
|
||||||
|
|
||||||
|
# Browsers usually ignore the font media types and simply sniff
|
||||||
|
# the bytes to figure out the font type.
|
||||||
|
# https://mimesniff.spec.whatwg.org/#matching-a-font-type-pattern
|
||||||
|
#
|
||||||
|
# However, Blink and WebKit based browsers will show a warning
|
||||||
|
# in the console if the following font types are served with any
|
||||||
|
# other media types.
|
||||||
|
|
||||||
|
AddType application/x-font-ttf ttc ttf
|
||||||
|
AddType font/opentype otf
|
||||||
|
|
||||||
|
|
||||||
|
# Other
|
||||||
|
|
||||||
|
AddType application/octet-stream safariextz
|
||||||
|
AddType application/x-bb-appworld bbaw
|
||||||
|
AddType application/x-chrome-extension crx
|
||||||
|
AddType application/x-opera-extension oex
|
||||||
|
AddType application/x-xpinstall xpi
|
||||||
|
AddType text/vcard vcard vcf
|
||||||
|
AddType text/vnd.rim.location.xloc xloc
|
||||||
|
AddType text/vtt vtt
|
||||||
|
AddType text/x-component htc
|
||||||
|
|
||||||
|
</IfModule>
|
||||||
|
|
||||||
|
# ----------------------------------------------------------------------
|
||||||
|
# | Character encodings |
|
||||||
|
# ----------------------------------------------------------------------
|
||||||
|
|
||||||
|
# Serve all resources labeled as `text/html` or `text/plain`
|
||||||
|
# with the media type `charset` parameter set to `UTF-8`.
|
||||||
|
#
|
||||||
|
# https://httpd.apache.org/docs/current/mod/core.html#adddefaultcharset
|
||||||
|
|
||||||
|
AddDefaultCharset utf-8
|
||||||
|
|
||||||
|
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
|
||||||
|
|
||||||
|
# Serve the following file types with the media type `charset`
|
||||||
|
# parameter set to `UTF-8`.
|
||||||
|
#
|
||||||
|
# https://httpd.apache.org/docs/current/mod/mod_mime.html#addcharset
|
||||||
|
|
||||||
|
<IfModule mod_mime.c>
|
||||||
|
AddCharset utf-8 .atom \
|
||||||
|
.bbaw \
|
||||||
|
.css \
|
||||||
|
.geojson \
|
||||||
|
.js \
|
||||||
|
.json \
|
||||||
|
.jsonld \
|
||||||
|
.manifest \
|
||||||
|
.rdf \
|
||||||
|
.rss \
|
||||||
|
.topojson \
|
||||||
|
.vtt \
|
||||||
|
.webapp \
|
||||||
|
.webmanifest \
|
||||||
|
.xloc \
|
||||||
|
.xml
|
||||||
|
</IfModule>
|
||||||
|
|
||||||
|
|
||||||
|
# ######################################################################
|
||||||
|
# # REWRITES #
|
||||||
|
# ######################################################################
|
||||||
|
|
||||||
|
# ----------------------------------------------------------------------
|
||||||
|
# | Rewrite engine |
|
||||||
|
# ----------------------------------------------------------------------
|
||||||
|
|
||||||
|
# (1) Turn on the rewrite engine (this is necessary in order for
|
||||||
|
# the `RewriteRule` directives to work).
|
||||||
|
#
|
||||||
|
# https://httpd.apache.org/docs/current/mod/mod_rewrite.html#RewriteEngine
|
||||||
|
#
|
||||||
|
# (2) Enable the `FollowSymLinks` option if it isn't already.
|
||||||
|
#
|
||||||
|
# https://httpd.apache.org/docs/current/mod/core.html#options
|
||||||
|
#
|
||||||
|
# (3) If your web host doesn't allow the `FollowSymlinks` option,
|
||||||
|
# you need to comment it out or remove it, and then uncomment
|
||||||
|
# the `Options +SymLinksIfOwnerMatch` line (4), but be aware
|
||||||
|
# of the performance impact.
|
||||||
|
#
|
||||||
|
# https://httpd.apache.org/docs/current/misc/perf-tuning.html#symlinks
|
||||||
|
#
|
||||||
|
# (4) Some cloud hosting services will require you set `RewriteBase`.
|
||||||
|
#
|
||||||
|
# https://www.rackspace.com/knowledge_center/frequently-asked-question/why-is-modrewrite-not-working-on-my-site
|
||||||
|
# https://httpd.apache.org/docs/current/mod/mod_rewrite.html#rewritebase
|
||||||
|
#
|
||||||
|
# (5) Depending on how your server is set up, you may also need to
|
||||||
|
# use the `RewriteOptions` directive to enable some options for
|
||||||
|
# the rewrite engine.
|
||||||
|
#
|
||||||
|
# https://httpd.apache.org/docs/current/mod/mod_rewrite.html#rewriteoptions
|
||||||
|
#
|
||||||
|
# (6) Set %{ENV:PROTO} variable, to allow rewrites to redirect with the
|
||||||
|
# appropriate schema automatically (http or https).
|
||||||
|
|
||||||
|
<IfModule mod_rewrite.c>
|
||||||
|
|
||||||
|
# (1)
|
||||||
|
RewriteEngine On
|
||||||
|
|
||||||
|
# (2)
|
||||||
|
Options +FollowSymlinks
|
||||||
|
|
||||||
|
# (3)
|
||||||
|
# Options +SymLinksIfOwnerMatch
|
||||||
|
|
||||||
|
# (4)
|
||||||
|
# RewriteBase /
|
||||||
|
|
||||||
|
# (5)
|
||||||
|
# RewriteOptions <options>
|
||||||
|
|
||||||
|
# (6)
|
||||||
|
RewriteCond %{HTTPS} =on
|
||||||
|
RewriteRule ^ - [env=proto:https]
|
||||||
|
RewriteCond %{HTTPS} !=on
|
||||||
|
RewriteRule ^ - [env=proto:http]
|
||||||
|
|
||||||
|
</IfModule>
|
||||||
|
|
||||||
|
# ----------------------------------------------------------------------
|
||||||
|
# | Forcing `https://` |
|
||||||
|
# ----------------------------------------------------------------------
|
||||||
|
|
||||||
|
# Redirect from the `http://` to the `https://` version of the URL.
|
||||||
|
# https://wiki.apache.org/httpd/RewriteHTTPToHTTPS
|
||||||
|
|
||||||
|
# <IfModule mod_rewrite.c>
|
||||||
|
# RewriteEngine On
|
||||||
|
# RewriteCond %{HTTPS} !=on
|
||||||
|
# RewriteRule ^(.*)$ https://%{HTTP_HOST}/$1 [R=301,L]
|
||||||
|
# </IfModule>
|
||||||
|
|
||||||
|
# ----------------------------------------------------------------------
|
||||||
|
# | Suppressing / Forcing the `www.` at the beginning of URLs |
|
||||||
|
# ----------------------------------------------------------------------
|
||||||
|
|
||||||
|
# The same content should never be available under two different
|
||||||
|
# URLs, especially not with and without `www.` at the beginning.
|
||||||
|
# This can cause SEO problems (duplicate content), and therefore,
|
||||||
|
# you should choose one of the alternatives and redirect the other
|
||||||
|
# one.
|
||||||
|
#
|
||||||
|
# By default `Option 1` (no `www.`) is activated.
|
||||||
|
# http://no-www.org/faq.php?q=class_b
|
||||||
|
#
|
||||||
|
# If you would prefer to use `Option 2`, just comment out all the
|
||||||
|
# lines from `Option 1` and uncomment the ones from `Option 2`.
|
||||||
|
#
|
||||||
|
# (!) NEVER USE BOTH RULES AT THE SAME TIME!
|
||||||
|
|
||||||
|
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
|
||||||
|
|
||||||
|
# Option 1: rewrite www.example.com → example.com
|
||||||
|
|
||||||
|
<IfModule mod_rewrite.c>
|
||||||
|
RewriteEngine On
|
||||||
|
RewriteCond %{HTTPS} !=on
|
||||||
|
RewriteCond %{HTTP_HOST} ^www\.(.+)$ [NC]
|
||||||
|
RewriteRule ^ %{ENV:PROTO}://%1%{REQUEST_URI} [R=301,L]
|
||||||
|
</IfModule>
|
||||||
|
|
||||||
|
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
|
||||||
|
|
||||||
|
# Option 2: rewrite example.com → www.example.com
|
||||||
|
#
|
||||||
|
# Be aware that the following might not be a good idea if you use "real"
|
||||||
|
# subdomains for certain parts of your website.
|
||||||
|
|
||||||
|
# <IfModule mod_rewrite.c>
|
||||||
|
# RewriteEngine On
|
||||||
|
# RewriteCond %{HTTPS} !=on
|
||||||
|
# RewriteCond %{HTTP_HOST} !^www\. [NC]
|
||||||
|
# RewriteCond %{SERVER_ADDR} !=127.0.0.1
|
||||||
|
# RewriteCond %{SERVER_ADDR} !=::1
|
||||||
|
# RewriteRule ^ %{ENV:PROTO}://www.%{HTTP_HOST}%{REQUEST_URI} [R=301,L]
|
||||||
|
# </IfModule>
|
||||||
|
|
||||||
|
|
||||||
|
# ######################################################################
|
||||||
|
# # SECURITY #
|
||||||
|
# ######################################################################
|
||||||
|
|
||||||
|
# ----------------------------------------------------------------------
|
||||||
|
# | Clickjacking |
|
||||||
|
# ----------------------------------------------------------------------
|
||||||
|
|
||||||
|
# Protect website against clickjacking.
|
||||||
|
#
|
||||||
|
# The example below sends the `X-Frame-Options` response header with
|
||||||
|
# the value `DENY`, informing browsers not to display the content of
|
||||||
|
# the web page in any frame.
|
||||||
|
#
|
||||||
|
# This might not be the best setting for everyone. You should read
|
||||||
|
# about the other two possible values the `X-Frame-Options` header
|
||||||
|
# field can have: `SAMEORIGIN` and `ALLOW-FROM`.
|
||||||
|
# https://tools.ietf.org/html/rfc7034#section-2.1.
|
||||||
|
#
|
||||||
|
# Keep in mind that while you could send the `X-Frame-Options` header
|
||||||
|
# for all of your website’s pages, this has the potential downside that
|
||||||
|
# it forbids even non-malicious framing of your content (e.g.: when
|
||||||
|
# users visit your website using a Google Image Search results page).
|
||||||
|
#
|
||||||
|
# Nonetheless, you should ensure that you send the `X-Frame-Options`
|
||||||
|
# header for all pages that allow a user to make a state changing
|
||||||
|
# operation (e.g: pages that contain one-click purchase links, checkout
|
||||||
|
# or bank-transfer confirmation pages, pages that make permanent
|
||||||
|
# configuration changes, etc.).
|
||||||
|
#
|
||||||
|
# Sending the `X-Frame-Options` header can also protect your website
|
||||||
|
# against more than just clickjacking attacks:
|
||||||
|
# https://cure53.de/xfo-clickjacking.pdf.
|
||||||
|
#
|
||||||
|
# https://tools.ietf.org/html/rfc7034
|
||||||
|
# http://blogs.msdn.com/b/ieinternals/archive/2010/03/30/combating-clickjacking-with-x-frame-options.aspx
|
||||||
|
# https://www.owasp.org/index.php/Clickjacking
|
||||||
|
|
||||||
|
# <IfModule mod_headers.c>
|
||||||
|
|
||||||
|
# Header set X-Frame-Options "DENY"
|
||||||
|
|
||||||
|
# # `mod_headers` cannot match based on the content-type, however,
|
||||||
|
# # the `X-Frame-Options` response header should be send only for
|
||||||
|
# # HTML documents and not for the other resources.
|
||||||
|
|
||||||
|
# <FilesMatch "\.(appcache|atom|bbaw|bmp|crx|css|cur|eot|f4[abpv]|flv|geojson|gif|htc|ico|jpe?g|js|json(ld)?|m4[av]|manifest|map|mp4|oex|og[agv]|opus|otf|pdf|png|rdf|rss|safariextz|svgz?|swf|topojson|tt[cf]|txt|vcard|vcf|vtt|webapp|web[mp]|webmanifest|woff2?|xloc|xml|xpi)$">
|
||||||
|
# Header unset X-Frame-Options
|
||||||
|
# </FilesMatch>
|
||||||
|
|
||||||
|
# </IfModule>
|
||||||
|
|
||||||
|
# ----------------------------------------------------------------------
|
||||||
|
# | Content Security Policy (CSP) |
|
||||||
|
# ----------------------------------------------------------------------
|
||||||
|
|
||||||
|
# Mitigate the risk of cross-site scripting and other content-injection
|
||||||
|
# attacks.
|
||||||
|
#
|
||||||
|
# This can be done by setting a `Content Security Policy` which
|
||||||
|
# whitelists trusted sources of content for your website.
|
||||||
|
#
|
||||||
|
# The example header below allows ONLY scripts that are loaded from
|
||||||
|
# the current website's origin (no inline scripts, no CDN, etc).
|
||||||
|
# That almost certainly won't work as-is for your website!
|
||||||
|
#
|
||||||
|
# To make things easier, you can use an online CSP header generator
|
||||||
|
# such as: http://cspisawesome.com/.
|
||||||
|
#
|
||||||
|
# http://content-security-policy.com/
|
||||||
|
# http://www.html5rocks.com/en/tutorials/security/content-security-policy/
|
||||||
|
# http://www.w3.org/TR/CSP11/).
|
||||||
|
|
||||||
|
# <IfModule mod_headers.c>
|
||||||
|
|
||||||
|
# Header set Content-Security-Policy "script-src 'self'; object-src 'self'"
|
||||||
|
|
||||||
|
# # `mod_headers` cannot match based on the content-type, however,
|
||||||
|
# # the `Content-Security-Policy` response header should be send
|
||||||
|
# # only for HTML documents and not for the other resources.
|
||||||
|
|
||||||
|
# <FilesMatch "\.(appcache|atom|bbaw|bmp|crx|css|cur|eot|f4[abpv]|flv|geojson|gif|htc|ico|jpe?g|js|json(ld)?|m4[av]|manifest|map|mp4|oex|og[agv]|opus|otf|pdf|png|rdf|rss|safariextz|svgz?|swf|topojson|tt[cf]|txt|vcard|vcf|vtt|webapp|web[mp]|webmanifest|woff2?|xloc|xml|xpi)$">
|
||||||
|
# Header unset Content-Security-Policy
|
||||||
|
# </FilesMatch>
|
||||||
|
|
||||||
|
# </IfModule>
|
||||||
|
|
||||||
|
# ----------------------------------------------------------------------
|
||||||
|
# | File access |
|
||||||
|
# ----------------------------------------------------------------------
|
||||||
|
|
||||||
|
# Block access to directories without a default document.
|
||||||
|
#
|
||||||
|
# You should leave the following uncommented, as you shouldn't allow
|
||||||
|
# anyone to surf through every directory on your server (which may
|
||||||
|
# includes rather private places such as the CMS's directories).
|
||||||
|
|
||||||
|
<IfModule mod_autoindex.c>
|
||||||
|
Options -Indexes
|
||||||
|
</IfModule>
|
||||||
|
|
||||||
|
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
|
||||||
|
|
||||||
|
# Block access to all hidden files and directories with the exception of
|
||||||
|
# the visible content from within the `/.well-known/` hidden directory.
|
||||||
|
#
|
||||||
|
# These types of files usually contain user preferences or the preserved
|
||||||
|
# state of an utility, and can include rather private places like, for
|
||||||
|
# example, the `.git` or `.svn` directories.
|
||||||
|
#
|
||||||
|
# The `/.well-known/` directory represents the standard (RFC 5785) path
|
||||||
|
# prefix for "well-known locations" (e.g.: `/.well-known/manifest.json`,
|
||||||
|
# `/.well-known/keybase.txt`), and therefore, access to its visible
|
||||||
|
# content should not be blocked.
|
||||||
|
#
|
||||||
|
# https://www.mnot.net/blog/2010/04/07/well-known
|
||||||
|
# https://tools.ietf.org/html/rfc5785
|
||||||
|
|
||||||
|
<IfModule mod_rewrite.c>
|
||||||
|
RewriteEngine On
|
||||||
|
RewriteCond %{REQUEST_URI} "!(^|/)\.well-known/([^./]+./?)+$" [NC]
|
||||||
|
RewriteCond %{SCRIPT_FILENAME} -d [OR]
|
||||||
|
RewriteCond %{SCRIPT_FILENAME} -f
|
||||||
|
RewriteRule "(^|/)\." - [F]
|
||||||
|
</IfModule>
|
||||||
|
|
||||||
|
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
|
||||||
|
|
||||||
|
# Block access to files that can expose sensitive information.
|
||||||
|
#
|
||||||
|
# By default, block access to backup and source files that may be
|
||||||
|
# left by some text editors and can pose a security risk when anyone
|
||||||
|
# has access to them.
|
||||||
|
#
|
||||||
|
# http://feross.org/cmsploit/
|
||||||
|
#
|
||||||
|
# (!) Update the `<FilesMatch>` regular expression from below to
|
||||||
|
# include any files that might end up on your production server and
|
||||||
|
# can expose sensitive information about your website. These files may
|
||||||
|
# include: configuration files, files that contain metadata about the
|
||||||
|
# project (e.g.: project dependencies), build scripts, etc..
|
||||||
|
|
||||||
|
<FilesMatch "(^#.*#|\.(bak|conf|dist|fla|in[ci]|log|psd|sh|sql|sw[op])|~)$">
|
||||||
|
|
||||||
|
# Apache < 2.3
|
||||||
|
<IfModule !mod_authz_core.c>
|
||||||
|
Order allow,deny
|
||||||
|
Deny from all
|
||||||
|
Satisfy All
|
||||||
|
</IfModule>
|
||||||
|
|
||||||
|
# Apache ≥ 2.3
|
||||||
|
<IfModule mod_authz_core.c>
|
||||||
|
Require all denied
|
||||||
|
</IfModule>
|
||||||
|
|
||||||
|
</FilesMatch>
|
||||||
|
|
||||||
|
# ----------------------------------------------------------------------
|
||||||
|
# | HTTP Strict Transport Security (HSTS) |
|
||||||
|
# ----------------------------------------------------------------------
|
||||||
|
|
||||||
|
# Force client-side SSL redirection.
|
||||||
|
#
|
||||||
|
# If a user types `example.com` in their browser, even if the server
|
||||||
|
# redirects them to the secure version of the website, that still leaves
|
||||||
|
# a window of opportunity (the initial HTTP connection) for an attacker
|
||||||
|
# to downgrade or redirect the request.
|
||||||
|
#
|
||||||
|
# The following header ensures that browser will ONLY connect to your
|
||||||
|
# server via HTTPS, regardless of what the users type in the browser's
|
||||||
|
# address bar.
|
||||||
|
#
|
||||||
|
# (!) Remove the `includeSubDomains` optional directive if the website's
|
||||||
|
# subdomains are not using HTTPS.
|
||||||
|
#
|
||||||
|
# http://www.html5rocks.com/en/tutorials/security/transport-layer-security/
|
||||||
|
# https://tools.ietf.org/html/draft-ietf-websec-strict-transport-sec-14#section-6.1
|
||||||
|
# http://blogs.msdn.com/b/ieinternals/archive/2014/08/18/hsts-strict-transport-security-attacks-mitigations-deployment-https.aspx
|
||||||
|
|
||||||
|
# <IfModule mod_headers.c>
|
||||||
|
# Header always set Strict-Transport-Security "max-age=16070400; includeSubDomains"
|
||||||
|
# </IfModule>
|
||||||
|
|
||||||
|
# ----------------------------------------------------------------------
|
||||||
|
# | Reducing MIME type security risks |
|
||||||
|
# ----------------------------------------------------------------------
|
||||||
|
|
||||||
|
# Prevent some browsers from MIME-sniffing the response.
|
||||||
|
#
|
||||||
|
# This reduces exposure to drive-by download attacks and cross-origin
|
||||||
|
# data leaks, and should be left uncommented, especially if the server
|
||||||
|
# is serving user-uploaded content or content that could potentially be
|
||||||
|
# treated as executable by the browser.
|
||||||
|
#
|
||||||
|
# http://www.slideshare.net/hasegawayosuke/owasp-hasegawa
|
||||||
|
# http://blogs.msdn.com/b/ie/archive/2008/07/02/ie8-security-part-v-comprehensive-protection.aspx
|
||||||
|
# https://msdn.microsoft.com/en-us/library/ie/gg622941.aspx
|
||||||
|
# https://mimesniff.spec.whatwg.org/
|
||||||
|
|
||||||
|
<IfModule mod_headers.c>
|
||||||
|
Header set X-Content-Type-Options "nosniff"
|
||||||
|
</IfModule>
|
||||||
|
|
||||||
|
# ----------------------------------------------------------------------
|
||||||
|
# | Reflected Cross-Site Scripting (XSS) attacks |
|
||||||
|
# ----------------------------------------------------------------------
|
||||||
|
|
||||||
|
# (1) Try to re-enable the cross-site scripting (XSS) filter built
|
||||||
|
# into most web browsers.
|
||||||
|
#
|
||||||
|
# The filter is usually enabled by default, but in some cases it
|
||||||
|
# may be disabled by the user. However, in Internet Explorer for
|
||||||
|
# example, it can be re-enabled just by sending the
|
||||||
|
# `X-XSS-Protection` header with the value of `1`.
|
||||||
|
#
|
||||||
|
# (2) Prevent web browsers from rendering the web page if a potential
|
||||||
|
# reflected (a.k.a non-persistent) XSS attack is detected by the
|
||||||
|
# filter.
|
||||||
|
#
|
||||||
|
# By default, if the filter is enabled and browsers detect a
|
||||||
|
# reflected XSS attack, they will attempt to block the attack
|
||||||
|
# by making the smallest possible modifications to the returned
|
||||||
|
# web page.
|
||||||
|
#
|
||||||
|
# Unfortunately, in some browsers (e.g.: Internet Explorer),
|
||||||
|
# this default behavior may allow the XSS filter to be exploited,
|
||||||
|
# thereby, it's better to inform browsers to prevent the rendering
|
||||||
|
# of the page altogether, instead of attempting to modify it.
|
||||||
|
#
|
||||||
|
# https://hackademix.net/2009/11/21/ies-xss-filter-creates-xss-vulnerabilities
|
||||||
|
#
|
||||||
|
# (!) Do not rely on the XSS filter to prevent XSS attacks! Ensure that
|
||||||
|
# you are taking all possible measures to prevent XSS attacks, the
|
||||||
|
# most obvious being: validating and sanitizing your website's inputs.
|
||||||
|
#
|
||||||
|
# http://blogs.msdn.com/b/ie/archive/2008/07/02/ie8-security-part-iv-the-xss-filter.aspx
|
||||||
|
# http://blogs.msdn.com/b/ieinternals/archive/2011/01/31/controlling-the-internet-explorer-xss-filter-with-the-x-xss-protection-http-header.aspx
|
||||||
|
# https://www.owasp.org/index.php/Cross-site_Scripting_%28XSS%29
|
||||||
|
|
||||||
|
# <IfModule mod_headers.c>
|
||||||
|
|
||||||
|
# # (1) (2)
|
||||||
|
# Header set X-XSS-Protection "1; mode=block"
|
||||||
|
|
||||||
|
# # `mod_headers` cannot match based on the content-type, however,
|
||||||
|
# # the `X-XSS-Protection` response header should be send only for
|
||||||
|
# # HTML documents and not for the other resources.
|
||||||
|
|
||||||
|
# <FilesMatch "\.(appcache|atom|bbaw|bmp|crx|css|cur|eot|f4[abpv]|flv|geojson|gif|htc|ico|jpe?g|js|json(ld)?|m4[av]|manifest|map|mp4|oex|og[agv]|opus|otf|pdf|png|rdf|rss|safariextz|svgz?|swf|topojson|tt[cf]|txt|vcard|vcf|vtt|webapp|web[mp]|webmanifest|woff2?|xloc|xml|xpi)$">
|
||||||
|
# Header unset X-XSS-Protection
|
||||||
|
# </FilesMatch>
|
||||||
|
|
||||||
|
# </IfModule>
|
||||||
|
|
||||||
|
# ----------------------------------------------------------------------
|
||||||
|
# | Server-side technology information |
|
||||||
|
# ----------------------------------------------------------------------
|
||||||
|
|
||||||
|
# Remove the `X-Powered-By` response header that:
|
||||||
|
#
|
||||||
|
# * is set by some frameworks and server-side languages
|
||||||
|
# (e.g.: ASP.NET, PHP), and its value contains information
|
||||||
|
# about them (e.g.: their name, version number)
|
||||||
|
#
|
||||||
|
# * doesn't provide any value as far as users are concern,
|
||||||
|
# and in some cases, the information provided by it can
|
||||||
|
# be used by attackers
|
||||||
|
#
|
||||||
|
# (!) If you can, you should disable the `X-Powered-By` header from the
|
||||||
|
# language / framework level (e.g.: for PHP, you can do that by setting
|
||||||
|
# `expose_php = off` in `php.ini`)
|
||||||
|
#
|
||||||
|
# https://php.net/manual/en/ini.core.php#ini.expose-php
|
||||||
|
|
||||||
|
<IfModule mod_headers.c>
|
||||||
|
Header unset X-Powered-By
|
||||||
|
</IfModule>
|
||||||
|
|
||||||
|
# ----------------------------------------------------------------------
|
||||||
|
# | Server software information |
|
||||||
|
# ----------------------------------------------------------------------
|
||||||
|
|
||||||
|
# Prevent Apache from adding a trailing footer line containing
|
||||||
|
# information about the server to the server-generated documents
|
||||||
|
# (e.g.: error messages, directory listings, etc.)
|
||||||
|
#
|
||||||
|
# https://httpd.apache.org/docs/current/mod/core.html#serversignature
|
||||||
|
|
||||||
|
ServerSignature Off
|
||||||
|
|
||||||
|
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
|
||||||
|
|
||||||
|
# Prevent Apache from sending in the `Server` response header its
|
||||||
|
# exact version number, the description of the generic OS-type or
|
||||||
|
# information about its compiled-in modules.
|
||||||
|
#
|
||||||
|
# (!) The `ServerTokens` directive will only work in the main server
|
||||||
|
# configuration file, so don't try to enable it in the `.htaccess` file!
|
||||||
|
#
|
||||||
|
# https://httpd.apache.org/docs/current/mod/core.html#servertokens
|
||||||
|
|
||||||
|
#ServerTokens Prod
|
||||||
|
|
||||||
|
|
||||||
|
# ######################################################################
|
||||||
|
# # WEB PERFORMANCE #
|
||||||
|
# ######################################################################
|
||||||
|
|
||||||
|
# ----------------------------------------------------------------------
|
||||||
|
# | Compression |
|
||||||
|
# ----------------------------------------------------------------------
|
||||||
|
|
||||||
|
<IfModule mod_deflate.c>
|
||||||
|
|
||||||
|
# Force compression for mangled `Accept-Encoding` request headers
|
||||||
|
# https://developer.yahoo.com/blogs/ydn/pushing-beyond-gzipping-25601.html
|
||||||
|
|
||||||
|
<IfModule mod_setenvif.c>
|
||||||
|
<IfModule mod_headers.c>
|
||||||
|
SetEnvIfNoCase ^(Accept-EncodXng|X-cept-Encoding|X{15}|~{15}|-{15})$ ^((gzip|deflate)\s*,?\s*)+|[X~-]{4,13}$ HAVE_Accept-Encoding
|
||||||
|
RequestHeader append Accept-Encoding "gzip,deflate" env=HAVE_Accept-Encoding
|
||||||
|
</IfModule>
|
||||||
|
</IfModule>
|
||||||
|
|
||||||
|
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
|
||||||
|
|
||||||
|
# Compress all output labeled with one of the following media types.
|
||||||
|
#
|
||||||
|
# (!) For Apache versions below version 2.3.7 you don't need to
|
||||||
|
# enable `mod_filter` and can remove the `<IfModule mod_filter.c>`
|
||||||
|
# and `</IfModule>` lines as `AddOutputFilterByType` is still in
|
||||||
|
# the core directives.
|
||||||
|
#
|
||||||
|
# https://httpd.apache.org/docs/current/mod/mod_filter.html#addoutputfilterbytype
|
||||||
|
|
||||||
|
<IfModule mod_filter.c>
|
||||||
|
AddOutputFilterByType DEFLATE "application/atom+xml" \
|
||||||
|
"application/javascript" \
|
||||||
|
"application/json" \
|
||||||
|
"application/ld+json" \
|
||||||
|
"application/manifest+json" \
|
||||||
|
"application/rdf+xml" \
|
||||||
|
"application/rss+xml" \
|
||||||
|
"application/schema+json" \
|
||||||
|
"application/vnd.geo+json" \
|
||||||
|
"application/vnd.ms-fontobject" \
|
||||||
|
"application/x-font-ttf" \
|
||||||
|
"application/x-javascript" \
|
||||||
|
"application/x-web-app-manifest+json" \
|
||||||
|
"application/xhtml+xml" \
|
||||||
|
"application/xml" \
|
||||||
|
"font/eot" \
|
||||||
|
"font/opentype" \
|
||||||
|
"image/bmp" \
|
||||||
|
"image/svg+xml" \
|
||||||
|
"image/vnd.microsoft.icon" \
|
||||||
|
"image/x-icon" \
|
||||||
|
"text/cache-manifest" \
|
||||||
|
"text/css" \
|
||||||
|
"text/html" \
|
||||||
|
"text/javascript" \
|
||||||
|
"text/plain" \
|
||||||
|
"text/vcard" \
|
||||||
|
"text/vnd.rim.location.xloc" \
|
||||||
|
"text/vtt" \
|
||||||
|
"text/x-component" \
|
||||||
|
"text/x-cross-domain-policy" \
|
||||||
|
"text/xml"
|
||||||
|
|
||||||
|
</IfModule>
|
||||||
|
|
||||||
|
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
|
||||||
|
|
||||||
|
# Map the following filename extensions to the specified
|
||||||
|
# encoding type in order to make Apache serve the file types
|
||||||
|
# with the appropriate `Content-Encoding` response header
|
||||||
|
# (do note that this will NOT make Apache compress them!).
|
||||||
|
#
|
||||||
|
# If these files types would be served without an appropriate
|
||||||
|
# `Content-Enable` response header, client applications (e.g.:
|
||||||
|
# browsers) wouldn't know that they first need to uncompress
|
||||||
|
# the response, and thus, wouldn't be able to understand the
|
||||||
|
# content.
|
||||||
|
#
|
||||||
|
# https://httpd.apache.org/docs/current/mod/mod_mime.html#addencoding
|
||||||
|
|
||||||
|
<IfModule mod_mime.c>
|
||||||
|
AddEncoding gzip svgz
|
||||||
|
</IfModule>
|
||||||
|
|
||||||
|
</IfModule>
|
||||||
|
|
||||||
|
# ----------------------------------------------------------------------
|
||||||
|
# | Content transformation |
|
||||||
|
# ----------------------------------------------------------------------
|
||||||
|
|
||||||
|
# Prevent intermediate caches or proxies (e.g.: such as the ones
|
||||||
|
# used by mobile network providers) from modifying the website's
|
||||||
|
# content.
|
||||||
|
#
|
||||||
|
# https://tools.ietf.org/html/rfc2616#section-14.9.5
|
||||||
|
#
|
||||||
|
# (!) If you are using `mod_pagespeed`, please note that setting
|
||||||
|
# the `Cache-Control: no-transform` response header will prevent
|
||||||
|
# `PageSpeed` from rewriting `HTML` files, and, if the
|
||||||
|
# `ModPagespeedDisableRewriteOnNoTransform` directive isn't set
|
||||||
|
# to `off`, also from rewriting other resources.
|
||||||
|
#
|
||||||
|
# https://developers.google.com/speed/pagespeed/module/configuration#notransform
|
||||||
|
|
||||||
|
# <IfModule mod_headers.c>
|
||||||
|
# Header merge Cache-Control "no-transform"
|
||||||
|
# </IfModule>
|
||||||
|
|
||||||
|
# ----------------------------------------------------------------------
|
||||||
|
# | ETags |
|
||||||
|
# ----------------------------------------------------------------------
|
||||||
|
|
||||||
|
# Remove `ETags` as resources are sent with far-future expires headers.
|
||||||
|
#
|
||||||
|
# https://developer.yahoo.com/performance/rules.html#etags
|
||||||
|
# https://tools.ietf.org/html/rfc7232#section-2.3
|
||||||
|
|
||||||
|
# `FileETag None` doesn't work in all cases.
|
||||||
|
<IfModule mod_headers.c>
|
||||||
|
Header unset ETag
|
||||||
|
</IfModule>
|
||||||
|
|
||||||
|
FileETag None
|
||||||
|
|
||||||
|
# ----------------------------------------------------------------------
|
||||||
|
# | Expires headers |
|
||||||
|
# ----------------------------------------------------------------------
|
||||||
|
|
||||||
|
# Serve resources with far-future expires headers.
|
||||||
|
#
|
||||||
|
# (!) If you don't control versioning with filename-based
|
||||||
|
# cache busting, you should consider lowering the cache times
|
||||||
|
# to something like one week.
|
||||||
|
#
|
||||||
|
# https://httpd.apache.org/docs/current/mod/mod_expires.html
|
||||||
|
|
||||||
|
<IfModule mod_expires.c>
|
||||||
|
|
||||||
|
ExpiresActive on
|
||||||
|
ExpiresDefault "access plus 1 month"
|
||||||
|
|
||||||
|
# CSS
|
||||||
|
|
||||||
|
ExpiresByType text/css "access plus 1 year"
|
||||||
|
|
||||||
|
|
||||||
|
# Data interchange
|
||||||
|
|
||||||
|
ExpiresByType application/atom+xml "access plus 1 hour"
|
||||||
|
ExpiresByType application/rdf+xml "access plus 1 hour"
|
||||||
|
ExpiresByType application/rss+xml "access plus 1 hour"
|
||||||
|
|
||||||
|
ExpiresByType application/json "access plus 0 seconds"
|
||||||
|
ExpiresByType application/ld+json "access plus 0 seconds"
|
||||||
|
ExpiresByType application/schema+json "access plus 0 seconds"
|
||||||
|
ExpiresByType application/vnd.geo+json "access plus 0 seconds"
|
||||||
|
ExpiresByType application/xml "access plus 0 seconds"
|
||||||
|
ExpiresByType text/xml "access plus 0 seconds"
|
||||||
|
|
||||||
|
|
||||||
|
# Favicon (cannot be renamed!) and cursor images
|
||||||
|
|
||||||
|
ExpiresByType image/vnd.microsoft.icon "access plus 1 week"
|
||||||
|
ExpiresByType image/x-icon "access plus 1 week"
|
||||||
|
|
||||||
|
# HTML
|
||||||
|
|
||||||
|
ExpiresByType text/html "access plus 0 seconds"
|
||||||
|
|
||||||
|
|
||||||
|
# JavaScript
|
||||||
|
|
||||||
|
ExpiresByType application/javascript "access plus 1 year"
|
||||||
|
ExpiresByType application/x-javascript "access plus 1 year"
|
||||||
|
ExpiresByType text/javascript "access plus 1 year"
|
||||||
|
|
||||||
|
|
||||||
|
# Manifest files
|
||||||
|
|
||||||
|
ExpiresByType application/manifest+json "access plus 1 week"
|
||||||
|
ExpiresByType application/x-web-app-manifest+json "access plus 0 seconds"
|
||||||
|
ExpiresByType text/cache-manifest "access plus 0 seconds"
|
||||||
|
|
||||||
|
|
||||||
|
# Media files
|
||||||
|
|
||||||
|
ExpiresByType audio/ogg "access plus 1 month"
|
||||||
|
ExpiresByType image/bmp "access plus 1 month"
|
||||||
|
ExpiresByType image/gif "access plus 1 month"
|
||||||
|
ExpiresByType image/jpeg "access plus 1 month"
|
||||||
|
ExpiresByType image/png "access plus 1 month"
|
||||||
|
ExpiresByType image/svg+xml "access plus 1 month"
|
||||||
|
ExpiresByType image/webp "access plus 1 month"
|
||||||
|
ExpiresByType video/mp4 "access plus 1 month"
|
||||||
|
ExpiresByType video/ogg "access plus 1 month"
|
||||||
|
ExpiresByType video/webm "access plus 1 month"
|
||||||
|
|
||||||
|
|
||||||
|
# Web fonts
|
||||||
|
|
||||||
|
# Embedded OpenType (EOT)
|
||||||
|
ExpiresByType application/vnd.ms-fontobject "access plus 1 month"
|
||||||
|
ExpiresByType font/eot "access plus 1 month"
|
||||||
|
|
||||||
|
# OpenType
|
||||||
|
ExpiresByType font/opentype "access plus 1 month"
|
||||||
|
|
||||||
|
# TrueType
|
||||||
|
ExpiresByType application/x-font-ttf "access plus 1 month"
|
||||||
|
|
||||||
|
# Web Open Font Format (WOFF) 1.0
|
||||||
|
ExpiresByType application/font-woff "access plus 1 month"
|
||||||
|
ExpiresByType application/x-font-woff "access plus 1 month"
|
||||||
|
ExpiresByType font/woff "access plus 1 month"
|
||||||
|
|
||||||
|
# Web Open Font Format (WOFF) 2.0
|
||||||
|
ExpiresByType application/font-woff2 "access plus 1 month"
|
||||||
|
|
||||||
|
|
||||||
|
# Other
|
||||||
|
|
||||||
|
ExpiresByType text/x-cross-domain-policy "access plus 1 week"
|
||||||
|
|
||||||
|
</IfModule>
|
||||||
|
|
||||||
|
# ----------------------------------------------------------------------
|
||||||
|
# | File concatenation |
|
||||||
|
# ----------------------------------------------------------------------
|
||||||
|
|
||||||
|
# Allow concatenation from within specific files.
|
||||||
|
#
|
||||||
|
# e.g.:
|
||||||
|
#
|
||||||
|
# If you have the following lines in a file called, for
|
||||||
|
# example, `main.combined.js`:
|
||||||
|
#
|
||||||
|
# <!--#include file="js/jquery.js" -->
|
||||||
|
# <!--#include file="js/jquery.timer.js" -->
|
||||||
|
#
|
||||||
|
# Apache will replace those lines with the content of the
|
||||||
|
# specified files.
|
||||||
|
|
||||||
|
# <IfModule mod_include.c>
|
||||||
|
# <FilesMatch "\.combined\.js$">
|
||||||
|
# Options +Includes
|
||||||
|
# AddOutputFilterByType INCLUDES application/javascript \
|
||||||
|
# application/x-javascript \
|
||||||
|
# text/javascript
|
||||||
|
# SetOutputFilter INCLUDES
|
||||||
|
# </FilesMatch>
|
||||||
|
# <FilesMatch "\.combined\.css$">
|
||||||
|
# Options +Includes
|
||||||
|
# AddOutputFilterByType INCLUDES text/css
|
||||||
|
# SetOutputFilter INCLUDES
|
||||||
|
# </FilesMatch>
|
||||||
|
# </IfModule>
|
||||||
|
|
||||||
|
# ----------------------------------------------------------------------
|
||||||
|
# | Filename-based cache busting |
|
||||||
|
# ----------------------------------------------------------------------
|
||||||
|
|
||||||
|
# If you're not using a build process to manage your filename version
|
||||||
|
# revving, you might want to consider enabling the following directives
|
||||||
|
# to route all requests such as `/style.12345.css` to `/style.css`.
|
||||||
|
#
|
||||||
|
# To understand why this is important and even a better solution than
|
||||||
|
# using something like `*.css?v231`, please see:
|
||||||
|
# http://www.stevesouders.com/blog/2008/08/23/revving-filenames-dont-use-querystring/
|
||||||
|
|
||||||
|
# <IfModule mod_rewrite.c>
|
||||||
|
# RewriteEngine On
|
||||||
|
# RewriteCond %{REQUEST_FILENAME} !-f
|
||||||
|
# RewriteRule ^(.+)\.(\d+)\.(bmp|css|cur|gif|ico|jpe?g|js|png|svgz?|webp|webmanifest)$ $1.$3 [L]
|
||||||
|
# </IfModule>
|
23
ui/assets/index-dev.html
Executable file
23
ui/assets/index-dev.html
Executable file
|
@ -0,0 +1,23 @@
|
||||||
|
<!doctype html>
|
||||||
|
<html class="no-js" lang="">
|
||||||
|
<head>
|
||||||
|
<!-- Live Reload -->
|
||||||
|
<script src="http://localhost:9999"></script>
|
||||||
|
<!-- GHCJS -->
|
||||||
|
<script src="js/rts.js"></script>
|
||||||
|
<script src="js/lib.js"></script>
|
||||||
|
<script src="js/out.js"></script>
|
||||||
|
<style>body {height: 100vh;
|
||||||
|
width: 100vw;
|
||||||
|
font-size: 7vh;
|
||||||
|
font-family: Helvetica, sans-serif;
|
||||||
|
color: #444;
|
||||||
|
background: #FAFAFA;
|
||||||
|
line-height: 100vh;
|
||||||
|
text-align: center;}
|
||||||
|
</style>
|
||||||
|
</head>
|
||||||
|
<body>
|
||||||
|
<script src="js/runmain.js" defer></script>
|
||||||
|
</body>
|
||||||
|
</html>
|
24
ui/assets/index.html
Executable file
24
ui/assets/index.html
Executable file
|
@ -0,0 +1,24 @@
|
||||||
|
<!doctype html>
|
||||||
|
<html class="no-js" lang="">
|
||||||
|
<head>
|
||||||
|
<!-- Live Reload -->
|
||||||
|
<script src="http://localhost:9999"></script>
|
||||||
|
<!-- GHCJS
|
||||||
|
<script src="js/rts.js"></script>
|
||||||
|
<script src="js/lib.js"></script>
|
||||||
|
<script src="js/out.js"></script>
|
||||||
|
-->
|
||||||
|
<style>body {height: 100vh;
|
||||||
|
width: 100vw;
|
||||||
|
font-size: 7vh;
|
||||||
|
font-family: Helvetica, sans-serif;
|
||||||
|
color: #444;
|
||||||
|
background: #FAFAFA;
|
||||||
|
line-height: 100vh;
|
||||||
|
text-align: center;}
|
||||||
|
</style>
|
||||||
|
</head>
|
||||||
|
<body>
|
||||||
|
<script src="js/app.min.js" defer></script>
|
||||||
|
</body>
|
||||||
|
</html>
|
5
ui/assets/js/.gitignore
vendored
Normal file
5
ui/assets/js/.gitignore
vendored
Normal file
|
@ -0,0 +1,5 @@
|
||||||
|
rts.js
|
||||||
|
lib.js
|
||||||
|
out.js
|
||||||
|
runmain.js
|
||||||
|
app.min.js
|
24
ui/assets/js/plugins.js
Executable file
24
ui/assets/js/plugins.js
Executable file
|
@ -0,0 +1,24 @@
|
||||||
|
// Avoid `console` errors in browsers that lack a console.
|
||||||
|
(function() {
|
||||||
|
var method;
|
||||||
|
var noop = function () {};
|
||||||
|
var methods = [
|
||||||
|
'assert', 'clear', 'count', 'debug', 'dir', 'dirxml', 'error',
|
||||||
|
'exception', 'group', 'groupCollapsed', 'groupEnd', 'info', 'log',
|
||||||
|
'markTimeline', 'profile', 'profileEnd', 'table', 'time', 'timeEnd',
|
||||||
|
'timeline', 'timelineEnd', 'timeStamp', 'trace', 'warn'
|
||||||
|
];
|
||||||
|
var length = methods.length;
|
||||||
|
var console = (window.console = window.console || {});
|
||||||
|
|
||||||
|
while (length--) {
|
||||||
|
method = methods[length];
|
||||||
|
|
||||||
|
// Only stub undefined methods.
|
||||||
|
if (!console[method]) {
|
||||||
|
console[method] = noop;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}());
|
||||||
|
|
||||||
|
// Place any jQuery/helper plugins in here.
|
11
ui/copy-assets
Executable file
11
ui/copy-assets
Executable file
|
@ -0,0 +1,11 @@
|
||||||
|
#! /bin/sh
|
||||||
|
|
||||||
|
set -e
|
||||||
|
|
||||||
|
PREFIX=`stack path --dist-dir`
|
||||||
|
PREFIX="$PREFIX/build/ui-output/ui-output.jsexe"
|
||||||
|
for fic in rts lib out runmain; do
|
||||||
|
echo "Copying ${fic}..."
|
||||||
|
cp "$PREFIX/${fic}.js" assets/js/${fic}.js
|
||||||
|
done
|
||||||
|
echo "All copied!"
|
27
ui/src/Client.hs
Normal file
27
ui/src/Client.hs
Normal file
|
@ -0,0 +1,27 @@
|
||||||
|
{-# LANGUAGE OverloadedStrings #-}
|
||||||
|
|
||||||
|
-- | The division between a view and a component is arbitrary, but for me components are pieces that
|
||||||
|
-- are re-used many times for different purposes. In the TODO app, there is one component for the
|
||||||
|
-- text box.
|
||||||
|
module Client where
|
||||||
|
|
||||||
|
import Bug.Servant
|
||||||
|
|
||||||
|
import Data.Proxy
|
||||||
|
import Servant.API
|
||||||
|
import Servant.Client
|
||||||
|
import qualified Data.Text as T
|
||||||
|
import Control.Monad.Trans.Except (ExceptT)
|
||||||
|
import qualified Network.HTTP.Client as C
|
||||||
|
|
||||||
|
import System.IO.Unsafe (unsafePerformIO)
|
||||||
|
|
||||||
|
myApi :: Proxy ServiceAPI
|
||||||
|
myApi = Proxy
|
||||||
|
|
||||||
|
postProcedureTest :: Maybe T.Text -> Maybe T.Text -> ExceptT ServantError IO MyForm
|
||||||
|
getProcedureTest :: T.Text -> ExceptT ServantError IO MyForm
|
||||||
|
(postProcedureTest :<|>
|
||||||
|
getProcedureTest) = client myApi host manager
|
||||||
|
where host = BaseUrl Http "localhost" 8080 "/api"
|
||||||
|
manager = unsafePerformIO $ C.newManager C.defaultManagerSettings
|
36
ui/stack.yaml
Normal file
36
ui/stack.yaml
Normal file
|
@ -0,0 +1,36 @@
|
||||||
|
resolver: lts-3.10
|
||||||
|
|
||||||
|
compiler: ghcjs-0.2.0.20151029_ghc-7.10.2
|
||||||
|
compiler-check: match-exact
|
||||||
|
setup-info:
|
||||||
|
ghcjs:
|
||||||
|
source:
|
||||||
|
ghcjs-0.2.0.20151029_ghc-7.10.2:
|
||||||
|
url: "https://github.com/yogsototh/ghcjs/releases/download/v0.2.0.20151029/ghcjs-0.2.0.20151029.tar.gz"
|
||||||
|
|
||||||
|
|
||||||
|
packages:
|
||||||
|
- '.'
|
||||||
|
- '..'
|
||||||
|
- location: '../../servant/servant/'
|
||||||
|
extra-dep: true
|
||||||
|
- location: '../../servant/servant-client/'
|
||||||
|
extra-dep: true
|
||||||
|
- location: '../../servant/servant-server/'
|
||||||
|
extra-dep: true
|
||||||
|
# - '../../servant/servant-blaze/'
|
||||||
|
# - '../../servant/servant-cassava/'
|
||||||
|
# - '../../servant/servant-docs/'
|
||||||
|
# - '../../servant/servant-examples/'
|
||||||
|
# - '../../servant/servant-foreign/'
|
||||||
|
# - '../../servant/servant-js/'
|
||||||
|
# - '../../servant/servant-lucid/'
|
||||||
|
# - '../../servant/servant-mock/'
|
||||||
|
|
||||||
|
extra-deps:
|
||||||
|
- ghcjs-dom-0.2.3.1
|
||||||
|
- http-api-data-0.2.2
|
||||||
|
|
||||||
|
nix:
|
||||||
|
enable: false
|
||||||
|
packages: [nodejs]
|
10
ui/ui-deploy
Executable file
10
ui/ui-deploy
Executable file
|
@ -0,0 +1,10 @@
|
||||||
|
#!/bin/sh
|
||||||
|
|
||||||
|
set -e
|
||||||
|
|
||||||
|
stack build --verbosity warn
|
||||||
|
./copy-assets
|
||||||
|
echo "Optimizing JS with closure"
|
||||||
|
du -hc assets/js/{rts,lib,out,runmain}.js
|
||||||
|
closure-compiler --compilation_level=ADVANCED_OPTIMIZATIONS assets/js/{rts,lib,out,runmain}.js > assets/js/app.min.js
|
||||||
|
du -h assets/js/app.min.js
|
5
ui/ui-devel
Executable file
5
ui/ui-devel
Executable file
|
@ -0,0 +1,5 @@
|
||||||
|
#!/bin/sh
|
||||||
|
|
||||||
|
live-reload assets/* assets/*/* --port=9999 &
|
||||||
|
|
||||||
|
stack build --file-watch --exec ./copy-assets
|
46
ui/ui.cabal
Normal file
46
ui/ui.cabal
Normal file
|
@ -0,0 +1,46 @@
|
||||||
|
name: ui
|
||||||
|
version: 0.1.0.0
|
||||||
|
synopsis: Initial project template from stack
|
||||||
|
description: Please see README.md
|
||||||
|
homepage: http://github.com/githubuser/ui#readme
|
||||||
|
license: BSD3
|
||||||
|
license-file: LICENSE
|
||||||
|
author: Author name here
|
||||||
|
maintainer: example@example.com
|
||||||
|
copyright: 2015 Author Here
|
||||||
|
category: Web
|
||||||
|
build-type: Simple
|
||||||
|
-- extra-source-files:
|
||||||
|
cabal-version: >=1.10
|
||||||
|
|
||||||
|
library
|
||||||
|
hs-source-dirs: src
|
||||||
|
ghc-options: -Wall
|
||||||
|
exposed-modules: Client
|
||||||
|
build-depends: base >= 4.7 && < 5
|
||||||
|
, ghcjs-base
|
||||||
|
, ghcjs-dom
|
||||||
|
, text
|
||||||
|
, servant
|
||||||
|
, servant-client
|
||||||
|
, bug
|
||||||
|
, transformers
|
||||||
|
, http-client
|
||||||
|
default-language: Haskell2010
|
||||||
|
|
||||||
|
executable ui-output
|
||||||
|
hs-source-dirs: app
|
||||||
|
main-is: Main.hs
|
||||||
|
ghc-options: -Wall
|
||||||
|
build-depends: base
|
||||||
|
, ghcjs-base
|
||||||
|
, ui
|
||||||
|
, text
|
||||||
|
, mtl
|
||||||
|
, ghcjs-dom
|
||||||
|
, transformers
|
||||||
|
default-language: Haskell2010
|
||||||
|
|
||||||
|
source-repository head
|
||||||
|
type: git
|
||||||
|
location: https://github.com/githubuser/ui
|
Loading…
Reference in a new issue