diff --git a/Elm.cabal b/Elm.cabal --- a/Elm.cabal +++ b/Elm.cabal @@ -1,5 +1,5 @@ Name: Elm -Version: 0.12 +Version: 0.12.1 Synopsis: The Elm language module. Description: Elm aims to make client-side web-development more pleasant. It is a statically/strongly typed, functional reactive @@ -18,7 +18,7 @@ Category: Compiler, Language -Build-type: Simple +Build-type: Custom Extra-source-files: changelog.md Data-dir: data @@ -27,7 +27,7 @@ source-repository head type: git - location: git://github.com/evancz/Elm.git + location: git://github.com/elm-lang/Elm.git Library exposed-modules: Elm.Internal.Dependencies, @@ -95,8 +95,9 @@ Paths_Elm Build-depends: aeson, + aeson-pretty, base >=4.2 && <5, - binary >= 0.6.4.0, + binary >= 0.7.0.0, blaze-html >= 0.5 && < 0.8, blaze-markup, bytestring, @@ -177,8 +178,9 @@ Paths_Elm Build-depends: aeson, + aeson-pretty, base >=4.2 && <5, - binary >= 0.6.4.0, + binary >= 0.7.0.0, blaze-html >= 0.5 && < 0.8, blaze-markup, bytestring, @@ -222,7 +224,7 @@ Build-depends: aeson, aeson-pretty, base >=4.2 && <5, - binary >= 0.6.4.0, + binary >= 0.7.0.0, bytestring, cmdargs, containers >= 0.3, @@ -236,35 +238,33 @@ text, union-find -Test-Suite test-elm +Test-Suite compiler-tests Type: exitcode-stdio-1.0 - Hs-Source-Dirs: tests, compiler - Main-is: Main.hs + Hs-Source-Dirs: tests/hs, compiler + Main-is: CompilerTest.hs other-modules: Tests.Compiler Tests.Property Tests.Property.Arbitrary SourceSyntax.Helpers SourceSyntax.Literal SourceSyntax.PrettyPrint - build-depends: base, - directory, - Elm, - test-framework, + build-depends: test-framework, test-framework-hunit, test-framework-quickcheck2 >= 0.3, HUnit, - pretty, QuickCheck >= 2 && < 3, - filemanip, aeson, + aeson-pretty, base >=4.2 && <5, - binary >= 0.6.4.0, - blaze-html == 0.5.* || == 0.6.*, - blaze-markup == 0.5.1.*, + binary >= 0.7.0.0, + blaze-html, + blaze-markup, bytestring, cmdargs, containers >= 0.3, directory, + Elm, + filemanip, filepath, indents, language-ecmascript >=0.15 && < 1.0, @@ -276,3 +276,13 @@ transformers >= 0.2, union-find, unordered-containers + +Test-Suite lib-tests + Type: exitcode-stdio-1.0 + Hs-Source-Dirs: tests/hs + Main-is: LibTest.hs + build-depends: base, + directory, + Elm, + filepath, + process diff --git a/changelog.md b/changelog.md --- a/changelog.md +++ b/changelog.md @@ -1,4 +1,19 @@ +## 0.12.1 + +## Improvements: + + * New Array library (thanks entirely to @Xashili) + * Json.Value can flow through ports + * Improve speed and stack usage in List library (thanks to @maxsnew) + * Add Dict.filter and Dict.partition (thanks to @hdgarrood) + +#### Breaking Changes: + + * Revamp Json library, simpler with better names + * Revamp JavaScript.Experimental library to have slightly better names + * Remove JavaScript library which was made redundant by ports + ## 0.12 #### Breaking Changes: diff --git a/compiler/Elm/Internal/Dependencies.hs b/compiler/Elm/Internal/Dependencies.hs --- a/compiler/Elm/Internal/Dependencies.hs +++ b/compiler/Elm/Internal/Dependencies.hs @@ -5,9 +5,12 @@ import Control.Monad.Error import qualified Control.Exception as E import Data.Aeson +import Data.Aeson.Encode.Pretty import qualified Data.List as List import qualified Data.ByteString.Lazy as BS import qualified Data.HashMap.Strict as Map +import qualified Data.Text as T + import qualified Elm.Internal.Name as N import qualified Elm.Internal.Version as V import qualified Elm.Internal.Paths as Path @@ -22,14 +25,32 @@ , exposed :: [String] , elmVersion :: V.Version , dependencies :: [(N.Name,V.Version)] - } deriving Show + } deriving (Show, Eq, Ord) data MiniDeps = Mini [(N.Name,V.Version)] + deriving (Show, Eq, Ord) +instance ToJSON MiniDeps where + toJSON (Mini m) = toJSON m + instance FromJSON MiniDeps where parseJSON (Object obj) = Mini <$> getDependencies obj parseJSON _ = mzero +instance ToJSON Deps where + toJSON d = object [ + "version" .= version d, + "summary" .= summary d, + "description" .= description d, + "license" .= license d, + "repository" .= repo d, + "exposed-modules" .= exposed d, + "elm-version" .= elmVersion d, + "dependencies" .= (jsonDeps . dependencies $ d) + ] + where jsonDeps = Map.fromList . map (mapFst (T.pack . show)) + mapFst f (a,b) = (f a, b) + instance FromJSON Deps where parseJSON (Object obj) = do version <- get obj "version" "your projects version number" @@ -110,8 +131,24 @@ case result of Right bytes -> return bytes Left _ -> throwError $ - "could not find file " ++ path ++ - "\n You may need to create a dependency file for your project." + "could not find " ++ path ++ " file. You may need to create one.\n" ++ + " For an example of how to fill in the dependencies file, check out\n" ++ + " " depsAt :: FilePath -> ErrorT String IO Deps depsAt = withDeps id + +-- | Encode dependencies in a canonical JSON format +prettyJSON :: Deps -> BS.ByteString +prettyJSON = encodePretty' config + where config = defConfig { confCompare = order } + order = keyOrder [ "name", + "version", + "summary", + "description", + "license", + "repo", + "exposed-modules", + "elm-version", + "dependencies" + ] diff --git a/compiler/Elm/Internal/Name.hs b/compiler/Elm/Internal/Name.hs --- a/compiler/Elm/Internal/Name.hs +++ b/compiler/Elm/Internal/Name.hs @@ -10,7 +10,7 @@ import Data.Typeable data Name = Name { user :: String, project :: String } - deriving (Typeable,Eq) + deriving (Typeable,Eq, Ord) instance Binary Name where get = Name <$> get <*> get diff --git a/compiler/Generate/Cases.hs b/compiler/Generate/Cases.hs --- a/compiler/Generate/Cases.hs +++ b/compiler/Generate/Cases.hs @@ -13,7 +13,6 @@ import qualified SourceSyntax.Variable as V import Transform.Substitute - toMatch :: [(P.Pattern, Expr)] -> State Int (String, Match) toMatch patterns = do v <- newVar @@ -37,16 +36,19 @@ deriving Show matchSubst :: [(String,String)] -> Match -> Match -matchSubst _ Break = Break -matchSubst _ Fail = Fail -matchSubst pairs (Seq ms) = Seq (map (matchSubst pairs) ms) -matchSubst pairs (Other (A a e)) = - Other . A a $ foldr ($) e $ map (\(x,y) -> subst x (rawVar y)) pairs -matchSubst pairs (Match n cs m) = - Match (varSubst n) (map clauseSubst cs) (matchSubst pairs m) - where varSubst v = fromMaybe v (lookup v pairs) - clauseSubst (Clause c vs m) = - Clause c (map varSubst vs) (matchSubst pairs m) +matchSubst pairs match = + case match of + Break -> Break + Fail -> Fail + Seq ms -> Seq (map (matchSubst pairs) ms) + Other (A a e) -> + Other . A a $ foldr ($) e $ map (\(x,y) -> subst x (rawVar y)) pairs + Match n cs m -> + Match (varSubst n) (map clauseSubst cs) (matchSubst pairs m) + where + varSubst v = fromMaybe v (lookup v pairs) + clauseSubst (Clause c vs m) = + Clause c (map varSubst vs) (matchSubst pairs m) isCon (p:_, _) = case p of @@ -68,6 +70,7 @@ where cs' = map (dealias v) cs +dealias :: String -> ([P.Pattern],Expr) -> ([P.Pattern],Expr) dealias v c@(p:ps, A a e) = case p of P.Alias x pattern -> (pattern:ps, A a $ subst x (rawVar v) e) diff --git a/compiler/Generate/JavaScript.hs b/compiler/Generate/JavaScript.hs --- a/compiler/Generate/JavaScript.hs +++ b/compiler/Generate/JavaScript.hs @@ -39,7 +39,6 @@ , include "_U" "_N.Utils" , include "_L" "_N.List" , include "_E" "_N.Error" - , include "_J" "_N.JavaScript" , varDecl "$moduleName" (string name) ] @@ -56,6 +55,7 @@ expression (A region expr) = case expr of Var (V.Raw x) -> return $ obj x + Literal lit -> return $ literal lit Range lo hi -> @@ -163,7 +163,7 @@ ExplicitList es -> do es' <- mapM expression es - return $ obj "_J.toList" <| ArrayLit () es' + return $ obj "_L.fromArray" <| ArrayLit () es' Data name es -> do es' <- mapM expression es @@ -216,19 +216,19 @@ decl x n = varDecl x (dotSep ["$","_" ++ show n]) setup vars | Help.isTuple name = assign "$" : vars - | otherwise = assign "$raw" : safeAssign : vars + | otherwise = assign "_raw" : safeAssign : vars - safeAssign = varDecl "$" (CondExpr () if' (obj "$raw") exception) - if' = InfixExpr () OpStrictEq (obj "$raw.ctor") (string name) + safeAssign = varDecl "$" (CondExpr () if' (obj "_raw") exception) + if' = InfixExpr () OpStrictEq (obj "_raw.ctor") (string name) exception = obj "_E.Case" `call` [ref "$moduleName", string (renderPretty region)] _ -> do defs' <- concat <$> mapM toDef vars - return (VarDeclStmt () [assign "$"] : defs') + return (VarDeclStmt () [assign "_"] : defs') where vars = P.boundVarList pattern mkVar = A region . rawVar - toDef y = let expr = A region $ Case (mkVar "$") [(pattern, mkVar y)] + toDef y = let expr = A region $ Case (mkVar "_") [(pattern, mkVar y)] in definition $ Definition (P.Var y) expr Nothing match :: Region -> Case.Match -> State Int [Statement ()] @@ -255,9 +255,11 @@ return [ ExprStmt () (obj "_E.Case" `call` [ref "$moduleName", string (renderPretty region)]) ] Case.Break -> return [BreakStmt () Nothing] + Case.Other e -> do e' <- expression e return [ ret e' ] + Case.Seq ms -> concat <$> mapM (match region) (dropEnd [] ms) where dropEnd acc [] = acc diff --git a/compiler/Generate/JavaScript/Ports.hs b/compiler/Generate/JavaScript/Ports.hs --- a/compiler/Generate/JavaScript/Ports.hs +++ b/compiler/Generate/JavaScript/Ports.hs @@ -20,7 +20,7 @@ JSNumber -> [typeof "number"] JSBoolean -> [typeof "boolean"] JSString -> [typeof "string", instanceof "String"] - JSArray -> [instanceof "Array"] + JSArray -> [(obj "_U.isJSArray" <|)] JSObject fields -> [jsFold OpLAnd (typeof "object" : map member fields)] incoming :: Type -> Expression () @@ -35,17 +35,17 @@ case tipe of Lambda _ _ -> error "functions should not be allowed through input ports" Var _ -> error "type variables should not be allowed through input ports" + + Data "Json.Value" [] -> + obj "Native.Json.fromJS" <| x + Data ctor [] - | ctor == "Int" -> elm JSNumber - | ctor == "Float" -> elm JSNumber - | ctor == "Bool" -> elm JSBoolean - | ctor == "String" -> elm JSString - | ctor == "JavaScript.JSNumber" -> js JSNumber - | ctor == "JavaScript.JSBool" -> js JSBoolean - | ctor == "JavaScript.JSString" -> js JSString + | ctor == "Int" -> from JSNumber + | ctor == "Float" -> from JSNumber + | ctor == "Bool" -> from JSBoolean + | ctor == "String" -> from JSString where - elm checks = check x checks (obj ("_J.to" ++ ctor) <| x) - js checks = check x checks x + from checks = check x checks x Data ctor [t] | ctor == "Maybe.Maybe" -> @@ -54,7 +54,7 @@ (obj "Maybe.Just" <| inc t x) | ctor == "_List" -> - check x JSArray (obj "_J.toList" <| array) + check x JSArray (obj "_L.fromArray" <| array) where array = DotRef () x (var "map") <| incoming t @@ -104,10 +104,9 @@ Var _ -> error "type variables should not be allowed through input ports" Data ctor [] - | ctor `elem` ["Int","Float","Bool","String"] -> obj ("_J.from" ++ ctor) <| x - | ctor `elem` jsPrims -> x - where - jsPrims = map ("JavaScript.JS"++) ["Number","Bool","String"] + | ctor `elem` ["Int","Float","Bool","String"] -> x + | ctor == "Json.Value" -> + obj "Native.Json.toJS" <| x Data ctor [t] | ctor == "Maybe.Maybe" -> @@ -116,7 +115,7 @@ (out t (DotRef () x (var "_0"))) | ctor == "_List" -> - DotRef () (obj "_J.fromList" <| x) (var "map") <| outgoing t + DotRef () (obj "_L.toArray" <| x) (var "map") <| outgoing t Data ctor ts | Help.isTuple ctor -> diff --git a/compiler/Metadata/Prelude.hs b/compiler/Metadata/Prelude.hs --- a/compiler/Metadata/Prelude.hs +++ b/compiler/Metadata/Prelude.hs @@ -25,7 +25,9 @@ text = map ((,) "Text") [ As "Text", Hiding ["link", "color", "height"] ] string = map ((,) "String") [ As "String", Importing ["show"] ] modules = [ "Basics", "Signal", "List", "Maybe", "Time", "Color" - , "Graphics.Element", "Graphics.Collage", "Native.Ports" ] + , "Graphics.Element", "Graphics.Collage" + , "Native.Ports", "Native.Json" + ] interfaces :: Bool -> IO Interfaces interfaces noPrelude = diff --git a/compiler/Parse/Helpers.hs b/compiler/Parse/Helpers.hs --- a/compiler/Parse/Helpers.hs +++ b/compiler/Parse/Helpers.hs @@ -79,9 +79,11 @@ innerVarChar = alphaNum <|> char '_' <|> char '\'' "" makeVar :: IParser Char -> IParser String -makeVar p = do v <- (:) <$> p <*> many innerVarChar - guard (v `notElem` reserveds) - return v +makeVar p = do + v <- (:) <$> p <*> many innerVarChar + if v `elem` reserveds + then fail $ "unexpected keyword '" ++ v ++ "', variables cannot be keywords" + else return v reserved :: String -> IParser String reserved word = diff --git a/compiler/Type/ExtraChecks.hs b/compiler/Type/ExtraChecks.hs --- a/compiler/Type/ExtraChecks.hs +++ b/compiler/Type/ExtraChecks.hs @@ -8,7 +8,6 @@ import Control.Applicative ((<$>),(<*>)) import Control.Monad.State -import qualified Data.List as List import qualified Data.Map as Map import qualified Data.Traversable as Traverse import qualified Data.UnionFind.IO as UF @@ -56,10 +55,16 @@ isValid isTopLevel seenFunc seenSignal direction name tipe = case tipe of ST.Data ctor ts - | isJs ctor || isElm ctor -> mapM_ valid ts + | validConstructor -> mapM_ valid ts | ctor == "Signal.Signal" -> handleSignal ts | otherwise -> err' True "an unsupported type" + where + primitives = + ["Int","Float","String","Bool","Maybe.Maybe","_List","Json.Value"] + validConstructor = + ctor `elem` primitives || Help.isTuple ctor + ST.Var _ -> err "free type variables" ST.Lambda _ _ -> @@ -80,14 +85,6 @@ isValid' = isValid False valid = isValid' seenFunc seenSignal direction name - isJs ctor = - List.isPrefixOf "JavaScript." ctor - && length (filter (=='.') ctor) == 1 - - isElm ctor = - ctor `elem` ["Int","Float","String","Bool","Maybe.Maybe","_List"] - || Help.isTuple ctor - handleSignal ts | seenFunc = err "functions that involve signals" | seenSignal = err "signals-of-signals" @@ -104,10 +101,9 @@ , " through port '", name, "' is invalid." ] , txt [ "It contains ", kind, ":\n" ] , (P.nest 4 . SPP.pretty $ Alias.realias rules tipe) <> P.text "\n" - , txt [ "Acceptable values for ", dir "incoming" "outgoing" - , " ports include JavaScript values and" ] - , txt [ "the following Elm values: Ints, Floats, Bools, Strings, Maybes," ] - , txt [ "Lists, Tuples, ", dir "" "first-order functions, ", "and concrete records." ] + , txt [ "Acceptable values for ", dir "incoming" "outgoing", " ports include:" ] + , txt [ " Ints, Floats, Bools, Strings, Maybes, Lists, Tuples," ] + , txt [ " Json.Values, ", dir "" "first-order functions, ", "and concrete records." ] ] ++ if couldBeAlias then aliasWarning else [] aliasWarning = diff --git a/compiler/Type/Unify.hs b/compiler/Type/Unify.hs --- a/compiler/Type/Unify.hs +++ b/compiler/Type/Unify.hs @@ -86,6 +86,10 @@ TS.addError region (Just $ Maybe.fromMaybe msg maybe) variable1 variable2 where msg = "A comparable must be an Int, Float, Char, String, list, or tuple." + appendableError maybe = + TS.addError region (Just $ Maybe.fromMaybe msg maybe) variable1 variable2 + where msg = "An appendable must be of type String, List, or Text." + unifyComparable var name | name `elem` ["Int","Float","Char","String","comparable"] = flexAndUnify var | otherwise = comparableError Nothing @@ -108,7 +112,7 @@ do struct <- liftIO $ collectApps varFlex case struct of List _ -> flexAndUnify varSuper - _ -> comparableError Nothing + _ -> appendableError Nothing rigidError variable = TS.addError region (Just hint) variable1 variable2 where diff --git a/data/docs.json b/data/docs.json --- a/data/docs.json +++ b/data/docs.json @@ -1,15570 +1,16179 @@ [ { - "name": "Basics", - "document": "Tons of useful functions that get imported by default.\n\nThe following libraries also get imported by default: List, Signal,\nText, Maybe, Time, Graphics.Element, Color, Graphics.Collage.\n\n# Equality\n@docs (==), (/=)\n\n# Comparison\n\nThese functions only work on `comparable` types. This includes numbers,\ncharacters, strings, lists of comparable things, and tuples of comparable\nthings. Note that tuples with 7 or more elements are not comparable; why\nare your tuples so big?\n\n@docs (\u003c), (\u003e), (\u003c=), (\u003e=), max, min, Order, compare\n\n# Booleans\n@docs not, (&&), (||), xor, otherwise\n\n# Mathematics\n@docs (+), (-), (*), (/), (^), div, rem, mod, abs, sqrt, clamp, logBase, e\n\n# Trigonometry\n@docs pi, cos, sin, tan, acos, asin, atan, atan2\n\n# Number Conversions\n@docs round, floor, ceiling, truncate, toFloat\n\n# Angle Conversions\nAll angle conversions result in “standard Elm angles”\nwhich happen to be radians.\n\n@docs degrees, radians, turns\n\n# Polar Coordinates\n@docs toPolar, fromPolar\n\n# Floating Point Checks\n@docs isNaN, isInfinite\n\n# Tuples\n@docs fst, snd\n\n# Higher-Order Helpers\n@docs id, (\u003c|), (|\u003e), (.), always, flip, curry, uncurry", - "aliases": [], - "datatypes": [ - { - "name": "Order", - "comment": "Represents the relative ordering of two things.\nThe relations are less than, equal to, and greater than.", - "raw": "data Order = LT | EQ | GT", - "typeVariables": [], - "constructors": [ - { - "name": "LT", - "type": { - "tag": "adt", - "name": "Order", - "args": [] - } - }, - { - "name": "EQ", - "type": { - "tag": "adt", - "name": "Order", - "args": [] - } - }, - { - "name": "GT", - "type": { - "tag": "adt", - "name": "Order", - "args": [] - } - } - ] - } - ], - "values": [ - { - "name": "&&", - "comment": "The and operator. True if both inputs are True.\nThis operator short-circuits if the first argument is False.", - "raw": "(&&) : Bool -\u003e Bool -\u003e Bool", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Bool", - "args": [] - }, - { - "tag": "adt", - "name": "Bool", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Bool", - "args": [] - } - }, - "associativity": "right", - "precedence": 3 - }, - { - "name": "*", - "comment": "", - "raw": "(*) : number -\u003e number -\u003e number", - "type": { - "tag": "function", - "args": [ - { - "tag": "var", - "name": "number" - }, - { - "tag": "var", - "name": "number" - } - ], - "result": { - "tag": "var", - "name": "number" - } - }, - "associativity": "left", - "precedence": 7 - }, - { - "name": "+", - "comment": "", - "raw": "(+) : number -\u003e number -\u003e number", - "type": { - "tag": "function", - "args": [ - { - "tag": "var", - "name": "number" - }, - { - "tag": "var", - "name": "number" - } - ], - "result": { - "tag": "var", - "name": "number" - } - }, - "associativity": "left", - "precedence": 6 - }, - { - "name": "-", - "comment": "", - "raw": "(-) : number -\u003e number -\u003e number", - "type": { - "tag": "function", - "args": [ - { - "tag": "var", - "name": "number" - }, - { - "tag": "var", - "name": "number" - } - ], - "result": { - "tag": "var", - "name": "number" - } - }, - "associativity": "left", - "precedence": 6 - }, - { - "name": ".", - "comment": "Function composition: `(f . g == (\\\\x -\u003e f (g x)))`", - "raw": "(.) : (b -\u003e c) -\u003e (a -\u003e b) -\u003e (a -\u003e c)", - "type": { - "tag": "function", - "args": [ - { - "tag": "function", - "args": [ - { - "tag": "var", - "name": "b" - } - ], - "result": { - "tag": "var", - "name": "c" - } - }, - { - "tag": "function", - "args": [ - { - "tag": "var", - "name": "a" - } - ], - "result": { - "tag": "var", - "name": "b" - } - }, - { - "tag": "var", - "name": "a" - } - ], - "result": { - "tag": "var", - "name": "c" - } - }, - "associativity": "right", - "precedence": 9 - }, - { - "name": "/", - "comment": "Floating point division.", - "raw": "(/) : Float -\u003e Float -\u003e Float", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Float", - "args": [] - }, - { - "tag": "adt", - "name": "Float", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Float", - "args": [] - } - }, - "associativity": "left", - "precedence": 7 - }, - { - "name": "/=", - "comment": "", - "raw": "(/=) : a -\u003e a -\u003e Bool", - "type": { - "tag": "function", - "args": [ - { - "tag": "var", - "name": "a" - }, - { - "tag": "var", - "name": "a" - } - ], - "result": { - "tag": "adt", - "name": "Bool", - "args": [] - } - }, - "associativity": "non", - "precedence": 4 - }, - { - "name": "\u003c", - "comment": "", - "raw": "(\u003c) : comparable -\u003e comparable -\u003e Bool", - "type": { - "tag": "function", - "args": [ - { - "tag": "var", - "name": "comparable" - }, - { - "tag": "var", - "name": "comparable" - } - ], - "result": { - "tag": "adt", - "name": "Bool", - "args": [] - } - }, - "associativity": "non", - "precedence": 4 - }, - { - "name": "\u003c=", - "comment": "", - "raw": "(\u003c=) : comparable -\u003e comparable -\u003e Bool", - "type": { - "tag": "function", - "args": [ - { - "tag": "var", - "name": "comparable" - }, - { - "tag": "var", - "name": "comparable" - } - ], - "result": { - "tag": "adt", - "name": "Bool", - "args": [] - } - }, - "associativity": "non", - "precedence": 4 - }, - { - "name": "\u003c|", - "comment": "Function application `f \u003c| x == f x`. This function is useful for avoiding\nparenthesis. Consider the following code to create a text element:\n\n text (monospace (toText \"code\"))\n\nThis can also be written as:\n\n text . monospace \u003c| toText \"code\"", - "raw": "(\u003c|) : (a -\u003e b) -\u003e a -\u003e b", - "type": { - "tag": "function", - "args": [ - { - "tag": "function", - "args": [ - { - "tag": "var", - "name": "a" - } - ], - "result": { - "tag": "var", - "name": "b" - } - }, - { - "tag": "var", - "name": "a" - } - ], - "result": { - "tag": "var", - "name": "b" - } - }, - "associativity": "right", - "precedence": 0 - }, - { - "name": "==", - "comment": "", - "raw": "(==) : a -\u003e a -\u003e Bool", - "type": { - "tag": "function", - "args": [ - { - "tag": "var", - "name": "a" - }, - { - "tag": "var", - "name": "a" - } - ], - "result": { - "tag": "adt", - "name": "Bool", - "args": [] - } - }, - "associativity": "non", - "precedence": 4 - }, - { - "name": "\u003e", - "comment": "", - "raw": "(\u003e) : comparable -\u003e comparable -\u003e Bool", - "type": { - "tag": "function", - "args": [ - { - "tag": "var", - "name": "comparable" - }, - { - "tag": "var", - "name": "comparable" - } - ], - "result": { - "tag": "adt", - "name": "Bool", - "args": [] - } - }, - "associativity": "non", - "precedence": 4 - }, - { - "name": "\u003e=", - "comment": "", - "raw": "(\u003e=) : comparable -\u003e comparable -\u003e Bool", - "type": { - "tag": "function", - "args": [ - { - "tag": "var", - "name": "comparable" - }, - { - "tag": "var", - "name": "comparable" - } - ], - "result": { - "tag": "adt", - "name": "Bool", - "args": [] - } - }, - "associativity": "non", - "precedence": 4 - }, - { - "name": "^", - "comment": "Exponentiation: `3^2 == 9`", - "raw": "(^) : number -\u003e number -\u003e number", - "type": { - "tag": "function", - "args": [ - { - "tag": "var", - "name": "number" - }, - { - "tag": "var", - "name": "number" - } - ], - "result": { - "tag": "var", - "name": "number" - } - }, - "associativity": "left", - "precedence": 8 - }, - { - "name": "abs", - "comment": "Take the absolute value of a number.", - "raw": "abs : number -\u003e number", - "type": { - "tag": "function", - "args": [ - { - "tag": "var", - "name": "number" - } - ], - "result": { - "tag": "var", - "name": "number" - } - } - }, - { - "name": "acos", - "comment": "", - "raw": "acos : Float -\u003e Float", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Float", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Float", - "args": [] - } - } - }, - { - "name": "always", - "comment": "Creates a [constant function](http://en.wikipedia.org/wiki/Constant_function),\na function that *always* returns the same value regardless of what input you give.\nIt is defined as:\n\n always a b = a\n\nIt totally ignores the second argument, so `always 42` is a function that always\nreturns 42. When you are dealing with higher-order functions, this comes in\nhandy more often than you might expect. For example, creating a zeroed out list\nof length ten would be:\n\n map (always 0) [0..9]", - "raw": "always : a -\u003e b -\u003e a", - "type": { - "tag": "function", - "args": [ - { - "tag": "var", - "name": "a" - }, - { - "tag": "var", - "name": "b" - } - ], - "result": { - "tag": "var", - "name": "a" - } - } - }, - { - "name": "asin", - "comment": "", - "raw": "asin : Float -\u003e Float", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Float", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Float", - "args": [] - } - } - }, - { - "name": "atan", - "comment": "You probably do not want to use this. It takes `(y/x)` as the\nargument, so there is no way to know whether the negative signs comes from\nthe `y` or `x`. Thus, the resulting angle is always between π/2 and -π/2\n(in quadrants I and IV). You probably want to use `atan2` instead.", - "raw": "atan : Float -\u003e Float", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Float", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Float", - "args": [] - } - } - }, - { - "name": "atan2", - "comment": "This helps you find the angle of a cartesian coordinate.\nYou will almost certainly want to use this instead of `atan`.\nSo `atan2 y x` computes *atan(y/x)* but also keeps track of which\nquadrant the angle should really be in. The result will be between\nπ and -π, giving you the full range of angles.", - "raw": "atan2 : Float -\u003e Float -\u003e Float", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Float", - "args": [] - }, - { - "tag": "adt", - "name": "Float", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Float", - "args": [] - } - } - }, - { - "name": "ceiling", - "comment": "Ceiling function, rounding up.", - "raw": "ceiling : Float -\u003e Int", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Float", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Int", - "args": [] - } - } - }, - { - "name": "clamp", - "comment": "Clamps a number within a given range. With the expression\n`clamp 100 200 x` the results are as follows:\n\n 100 if x \u003c 100\n x if 100 \u003c= x \u003c 200\n 200 if 200 \u003c= x", - "raw": "clamp : number -\u003e number -\u003e number -\u003e number", - "type": { - "tag": "function", - "args": [ - { - "tag": "var", - "name": "number" - }, - { - "tag": "var", - "name": "number" - }, - { - "tag": "var", - "name": "number" - } - ], - "result": { - "tag": "var", - "name": "number" - } - } - }, - { - "name": "compare", - "comment": "Compare any two comparable values. Comparable values include `String`, `Char`,\n`Int`, `Float`, `Time`, or a list or tuple containing comparable values.\nThese are also the only values that work as `Dict` keys or `Set` members.", - "raw": "compare : comparable -\u003e comparable -\u003e Order", - "type": { - "tag": "function", - "args": [ - { - "tag": "var", - "name": "comparable" - }, - { - "tag": "var", - "name": "comparable" - } - ], - "result": { - "tag": "adt", - "name": "Order", - "args": [] - } - } - }, - { - "name": "cos", - "comment": "", - "raw": "cos : Float -\u003e Float", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Float", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Float", - "args": [] - } - } - }, - { - "name": "curry", - "comment": "Change how arguments are passed to a function.\nThis splits paired arguments into two separate arguments.", - "raw": "curry : ((a,b) -\u003e c) -\u003e a -\u003e b -\u003e c", - "type": { - "tag": "function", - "args": [ - { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "_Tuple2", - "args": [ - { - "tag": "var", - "name": "a" - }, - { - "tag": "var", - "name": "b" - } - ] - } - ], - "result": { - "tag": "var", - "name": "c" - } - }, - { - "tag": "var", - "name": "a" - }, - { - "tag": "var", - "name": "b" - } - ], - "result": { - "tag": "var", - "name": "c" - } - } - }, - { - "name": "degrees", - "comment": "Convert degrees to standard Elm angles (radians).", - "raw": "degrees : Float -\u003e Float", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Float", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Float", - "args": [] - } - } - }, - { - "name": "div", - "comment": "Integer division, remainder is discarded.", - "raw": "div : Int -\u003e Int -\u003e Int", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Int", - "args": [] - }, - { - "tag": "adt", - "name": "Int", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Int", - "args": [] - } - }, - "associativity": "left", - "precedence": 7 - }, - { - "name": "e", - "comment": "An approximation of e.", - "raw": "e : Float", - "type": { - "tag": "adt", - "name": "Float", - "args": [] - } - }, - { - "name": "flip", - "comment": "Flips the order of the first two arguments to a function.", - "raw": "flip : (a -\u003e b -\u003e c) -\u003e (b -\u003e a -\u003e c)", - "type": { - "tag": "function", - "args": [ - { - "tag": "function", - "args": [ - { - "tag": "var", - "name": "a" - }, - { - "tag": "var", - "name": "b" - } - ], - "result": { - "tag": "var", - "name": "c" - } - }, - { - "tag": "var", - "name": "b" - }, - { - "tag": "var", - "name": "a" - } - ], - "result": { - "tag": "var", - "name": "c" - } - } - }, - { - "name": "floor", - "comment": "Floor function, rounding down.", - "raw": "floor : Float -\u003e Int", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Float", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Int", - "args": [] - } - } - }, - { - "name": "fromPolar", - "comment": "Start with polar coordinates (r,θ)\nand get out cartesian coordinates (x,y).", - "raw": "fromPolar : (Float,Float) -\u003e (Float,Float)", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "_Tuple2", - "args": [ - { - "tag": "adt", - "name": "Float", - "args": [] - }, - { - "tag": "adt", - "name": "Float", - "args": [] - } - ] - } - ], - "result": { - "tag": "adt", - "name": "_Tuple2", - "args": [ - { - "tag": "adt", - "name": "Float", - "args": [] - }, - { - "tag": "adt", - "name": "Float", - "args": [] - } - ] - } - } - }, - { - "name": "fst", - "comment": "Given a 2-tuple, returns the first value.", - "raw": "fst : (a,b) -\u003e a", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "_Tuple2", - "args": [ - { - "tag": "var", - "name": "a" - }, - { - "tag": "var", - "name": "b" - } - ] - } - ], - "result": { - "tag": "var", - "name": "a" - } - } - }, - { - "name": "id", - "comment": "Given a value, returns exactly the same value.", - "raw": "id : a -\u003e a", - "type": { - "tag": "function", - "args": [ - { - "tag": "var", - "name": "a" - } - ], - "result": { - "tag": "var", - "name": "a" - } - } - }, - { - "name": "isInfinite", - "comment": "", - "raw": "isInfinite : Float -\u003e Bool", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Float", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Bool", - "args": [] - } - } - }, - { - "name": "isNaN", - "comment": "", - "raw": "isNaN : Float -\u003e Bool", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Float", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Bool", - "args": [] - } - } - }, - { - "name": "logBase", - "comment": "Calculate the logarithm of a number with a given base: `logBase 10 100 == 2`", - "raw": "logBase : number -\u003e number -\u003e number", - "type": { - "tag": "function", - "args": [ - { - "tag": "var", - "name": "number" - }, - { - "tag": "var", - "name": "number" - } - ], - "result": { - "tag": "var", - "name": "number" - } - } - }, - { - "name": "max", - "comment": "Given two comparables, returns the larger one.", - "raw": "max : comparable -\u003e comparable -\u003e comparable", - "type": { - "tag": "function", - "args": [ - { - "tag": "var", - "name": "comparable" - }, - { - "tag": "var", - "name": "comparable" - } - ], - "result": { - "tag": "var", - "name": "comparable" - } - } - }, - { - "name": "min", - "comment": "Given two comparables, returns the smaller one.", - "raw": "min : comparable -\u003e comparable -\u003e comparable", - "type": { - "tag": "function", - "args": [ - { - "tag": "var", - "name": "comparable" - }, - { - "tag": "var", - "name": "comparable" - } - ], - "result": { - "tag": "var", - "name": "comparable" - } - } - }, - { - "name": "mod", - "comment": "Perform modular arithmetic: ``7 `mod` 2 == 1``", - "raw": "mod : Int -\u003e Int -\u003e Int", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Int", - "args": [] - }, - { - "tag": "adt", - "name": "Int", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Int", - "args": [] - } - }, - "associativity": "left", - "precedence": 7 - }, - { - "name": "not", - "comment": "Negate a boolean value: `(not True == False)` and `(not False == True)`", - "raw": "not : Bool -\u003e Bool", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Bool", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Bool", - "args": [] - } - } - }, - { - "name": "otherwise", - "comment": "Equal to true. Useful as the last case of a multi-way-if.", - "raw": "otherwise : Bool", - "type": { - "tag": "adt", - "name": "Bool", - "args": [] - } - }, - { - "name": "pi", - "comment": "An approximation of pi.", - "raw": "pi : Float", - "type": { - "tag": "adt", - "name": "Float", - "args": [] - } - }, - { - "name": "radians", - "comment": "Convert radians to standard Elm angles (radians).", - "raw": "radians : Float -\u003e Float", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Float", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Float", - "args": [] - } - } - }, - { - "name": "rem", - "comment": "Finds the remainder after dividing one number by another: ``4 `rem` 3 == 1``", - "raw": "rem : Int -\u003e Int -\u003e Int", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Int", - "args": [] - }, - { - "tag": "adt", - "name": "Int", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Int", - "args": [] - } - }, - "associativity": "left", - "precedence": 7 - }, - { - "name": "round", - "comment": "Round a number to the nearest integer.", - "raw": "round : Float -\u003e Int", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Float", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Int", - "args": [] - } - } - }, - { - "name": "sin", - "comment": "", - "raw": "sin : Float -\u003e Float", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Float", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Float", - "args": [] - } - } - }, - { - "name": "snd", - "comment": "Given a 2-tuple, returns the second value.", - "raw": "snd : (a,b) -\u003e b", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "_Tuple2", - "args": [ - { - "tag": "var", - "name": "a" - }, - { - "tag": "var", - "name": "b" - } - ] - } - ], - "result": { - "tag": "var", - "name": "b" - } - } - }, - { - "name": "sqrt", - "comment": "Take the square root of a number.", - "raw": "sqrt : number -\u003e number", - "type": { - "tag": "function", - "args": [ - { - "tag": "var", - "name": "number" - } - ], - "result": { - "tag": "var", - "name": "number" - } - } - }, - { - "name": "tan", - "comment": "", - "raw": "tan : Float -\u003e Float", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Float", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Float", - "args": [] - } - } - }, - { - "name": "toFloat", - "comment": "Convert an integer into a float.", - "raw": "toFloat : Int -\u003e Float", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Int", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Float", - "args": [] - } - } - }, - { - "name": "toPolar", - "comment": "Start with cartesian coordinates (x,y)\nand get out polar coordinates (r,θ).", - "raw": "toPolar : (Float,Float) -\u003e (Float,Float)", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "_Tuple2", - "args": [ - { - "tag": "adt", - "name": "Float", - "args": [] - }, - { - "tag": "adt", - "name": "Float", - "args": [] - } - ] - } - ], - "result": { - "tag": "adt", - "name": "_Tuple2", - "args": [ - { - "tag": "adt", - "name": "Float", - "args": [] - }, - { - "tag": "adt", - "name": "Float", - "args": [] - } - ] - } - } - }, - { - "name": "truncate", - "comment": "Truncate a decimal number, rounding towards zero.", - "raw": "truncate : Float -\u003e Int", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Float", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Int", - "args": [] - } - } - }, - { - "name": "turns", - "comment": "Convert turns to standard Elm angles (radians).\nOne turn is equal to 360°.", - "raw": "turns : Float -\u003e Float", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Float", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Float", - "args": [] - } - } - }, - { - "name": "uncurry", - "comment": "Change how arguments are passed to a function.\nThis combines two arguments into a single pair.", - "raw": "uncurry : (a -\u003e b -\u003e c) -\u003e (a,b) -\u003e c", - "type": { - "tag": "function", - "args": [ - { - "tag": "function", - "args": [ - { - "tag": "var", - "name": "a" - }, - { - "tag": "var", - "name": "b" - } - ], - "result": { - "tag": "var", - "name": "c" - } - }, - { - "tag": "adt", - "name": "_Tuple2", - "args": [ - { - "tag": "var", - "name": "a" - }, - { - "tag": "var", - "name": "b" - } - ] - } - ], - "result": { - "tag": "var", - "name": "c" - } - } - }, - { - "name": "xor", - "comment": "The exclusive-or operator. True if exactly one input is True.", - "raw": "xor : Bool -\u003e Bool -\u003e Bool", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Bool", - "args": [] - }, - { - "tag": "adt", - "name": "Bool", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Bool", - "args": [] - } - } - }, - { - "name": "|\u003e", - "comment": "Forward function application `x |\u003e f == f x`. This function is useful\nfor avoiding parenthesis and writing code in a more natural way.\nConsider the following code to create a pentagon:\n\n scale 2 (move (10,10) (filled blue (ngon 5 30)))\n\nThis can also be written as:\n\n ngon 5 30 |\u003e filled blue\n |\u003e move (10,10)\n |\u003e scale 2", - "raw": "(|\u003e) : a -\u003e (a -\u003e b) -\u003e b", - "type": { - "tag": "function", - "args": [ - { - "tag": "var", - "name": "a" - }, - { - "tag": "function", - "args": [ - { - "tag": "var", - "name": "a" - } - ], - "result": { - "tag": "var", - "name": "b" - } - } - ], - "result": { - "tag": "var", - "name": "b" - } - }, - "associativity": "left", - "precedence": 0 - }, - { - "name": "||", - "comment": "The or operator. True if one or both inputs are True.\nThis operator short-circuits if the first argument is True.", - "raw": "(||) : Bool -\u003e Bool -\u003e Bool", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Bool", - "args": [] - }, - { - "tag": "adt", - "name": "Bool", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Bool", - "args": [] - } - }, - "associativity": "right", - "precedence": 2 - } - ] -}, -{ - "name": "Bitwise", - "document": "Library for [bitwise operations](http://en.wikipedia.org/wiki/Bitwise_operation).\n\n# Basic Operations\n\n@docs and, or, xor, complement\n\n# Bit Shifts\n\n@docs shiftLeft, shiftRight, shiftRightLogical", - "aliases": [], - "datatypes": [], - "values": [ - { - "name": "and", - "comment": "Bitwise AND", - "raw": "and : Int -\u003e Int -\u003e Int", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Int", - "args": [] - }, - { - "tag": "adt", - "name": "Int", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Int", - "args": [] - } - } - }, - { - "name": "complement", - "comment": "Flip each bit individually, often called bitwise NOT", - "raw": "complement : Int -\u003e Int", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Int", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Int", - "args": [] - } - } - }, - { - "name": "or", - "comment": "Bitwise OR", - "raw": "or : Int -\u003e Int -\u003e Int", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Int", - "args": [] - }, - { - "tag": "adt", - "name": "Int", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Int", - "args": [] - } - } - }, - { - "name": "shiftLeft", - "comment": "Shift bits to the left by a given offset, filling new bits with zeros.\nThis can be used to multiply numbers by powers of two.\n\n 8 `shiftLeft` 1 == 16\n 8 `shiftLeft` 2 == 32", - "raw": "shiftLeft : Int -\u003e Int -\u003e Int", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Int", - "args": [] - }, - { - "tag": "adt", - "name": "Int", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Int", - "args": [] - } - } - }, - { - "name": "shiftRight", - "comment": "Shift bits to the right by a given offset, filling new bits with\nwhatever is the topmost bit. This can be used to divide numbers by powers of two.\n\n 32 `shiftRight` 1 == 16\n 32 `shiftRight` 2 == 8\n -32 `shiftRight` 1 == -16\n\nThis is called an [arithmatic right\nshift](http://en.wikipedia.org/wiki/Bitwise_operation#Arithmetic_shift),\noften written (\u003e\u003e), and sometimes called a sign-propagating\nright shift because it fills empty spots with copies of the highest bit.", - "raw": "shiftRight : Int -\u003e Int -\u003e Int", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Int", - "args": [] - }, - { - "tag": "adt", - "name": "Int", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Int", - "args": [] - } - } - }, - { - "name": "shiftRightLogical", - "comment": "Shift bits to the right by a given offset, filling new bits with\nzeros.\n\n 32 `shiftRightLogical` 1 == 16\n 32 `shiftRightLogical` 2 == 8\n -32 `shiftRightLogical` 1 == 2147483632\n\nThis is called an [logical right\nshift](http://en.wikipedia.org/wiki/Bitwise_operation#Logical_shift), often written (\u003e\u003e\u003e),\nand sometimes called a zero-fill right shift because it fills empty spots\nwith zeros.", - "raw": "shiftRightLogical : Int -\u003e Int -\u003e Int", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Int", - "args": [] - }, - { - "tag": "adt", - "name": "Int", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Int", - "args": [] - } - } - }, - { - "name": "xor", - "comment": "Bitwise XOR", - "raw": "xor : Int -\u003e Int -\u003e Int", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Int", - "args": [] - }, - { - "tag": "adt", - "name": "Int", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Int", - "args": [] - } - } - } - ] -}, -{ - "name": "Char", - "document": "Functions for working with characters. Character literals are enclosed in\n`'a'` pair of single quotes.\n\n# Classification\n@docs isUpper, isLower, isDigit, isOctDigit, isHexDigit\n\n# Conversion\n@docs toUpper, toLower, toLocaleUpper, toLocaleLower, toCode, fromCode", - "aliases": [ - { - "name": "KeyCode", - "comment": "", - "raw": "type KeyCode = Int", - "typeVariables": [], - "type": { - "tag": "adt", - "name": "Int", - "args": [] - } - } - ], - "datatypes": [], - "values": [ - { - "name": "fromCode", - "comment": "Convert from unicode.", - "raw": "fromCode : KeyCode -\u003e Char", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "KeyCode", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Char", - "args": [] - } - } - }, - { - "name": "isDigit", - "comment": "True for ASCII digits `[0-9]`.", - "raw": "isDigit : Char -\u003e Bool", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Char", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Bool", - "args": [] - } - } - }, - { - "name": "isHexDigit", - "comment": "True for ASCII hexadecimal digits `[0-9a-fA-F]`.", - "raw": "isHexDigit : Char -\u003e Bool", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Char", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Bool", - "args": [] - } - } - }, - { - "name": "isLower", - "comment": "True for lower case letters.", - "raw": "isLower : Char -\u003e Bool", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Char", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Bool", - "args": [] - } - } - }, - { - "name": "isOctDigit", - "comment": "True for ASCII octal digits `[0-7]`.", - "raw": "isOctDigit : Char -\u003e Bool", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Char", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Bool", - "args": [] - } - } - }, - { - "name": "isUpper", - "comment": "True for upper case letters.", - "raw": "isUpper : Char -\u003e Bool", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Char", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Bool", - "args": [] - } - } - }, - { - "name": "toCode", - "comment": "Convert to unicode. Used with the [`Keyboard`](/docs/Keyboard.elm)\nlibrary, which expects the input to be uppercase.", - "raw": "toCode : Char -\u003e KeyCode", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Char", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "KeyCode", - "args": [] - } - } - }, - { - "name": "toLocaleLower", - "comment": "Convert to lower case, according to any locale-specific case mappings.", - "raw": "toLocaleLower : Char -\u003e Char", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Char", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Char", - "args": [] - } - } - }, - { - "name": "toLocaleUpper", - "comment": "Convert to upper case, according to any locale-specific case mappings.", - "raw": "toLocaleUpper : Char -\u003e Char", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Char", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Char", - "args": [] - } - } - }, - { - "name": "toLower", - "comment": "Convert to lower case.", - "raw": "toLower : Char -\u003e Char", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Char", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Char", - "args": [] - } - } - }, - { - "name": "toUpper", - "comment": "Convert to upper case.", - "raw": "toUpper : Char -\u003e Char", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Char", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Char", - "args": [] - } - } - } - ] -}, -{ - "name": "Color", - "document": "Library for working with colors. Includes\n[RGB](https://en.wikipedia.org/wiki/RGB_color_model) and\n[HSV](http://en.wikipedia.org/wiki/HSL_and_HSV) creation, gradients, and\nbuilt-in names.\n\n# Creation\n@docs rgb, rgba, hsv, hsva, greyscale, grayscale\n\n# From Other Colors\n@docs complement\n\n# Gradients\n@docs linear, radial\n\n# Built-in Colors\nThese colors come from the [Tango\npalette](http://tango.freedesktop.org/Tango_Icon_Theme_Guidelines)\nwhich provides aesthetically reasonable defaults for colors. Each color also\ncomes with a light and dark version.\n\n### Standard\n@docs red, orange, yellow, green, blue, purple, brown\n\n### Light\n@docs lightRed, lightOrange, lightYellow, lightGreen, lightBlue, lightPurple,\n lightBrown\n\n### Dark\n@docs darkRed, darkOrange, darkYellow, darkGreen, darkBlue, darkPurple,\n darkBrown\n\n### Eight Shades of Grey\nThese colors are a compatible series of shades of grey, fitting nicely\nwith the Tango palette.\n@docs white, lightGrey, grey, darkGrey, lightCharcoal, charcoal, darkCharcoal, black\n\nThese are identical to the *grey* versions. It seems the spelling is regional, but\nthat has never helped me remember which one I should be writing.\n@docs lightGray, gray, darkGray", - "aliases": [], - "datatypes": [ - { - "name": "Color", - "comment": "", - "raw": "data Color = Color Int Int Int Float", - "typeVariables": [], - "constructors": [ - { - "name": "Color", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Int", - "args": [] - }, - { - "tag": "adt", - "name": "Int", - "args": [] - }, - { - "tag": "adt", - "name": "Int", - "args": [] - }, - { - "tag": "adt", - "name": "Float", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Color", - "args": [] - } - } - } - ] - }, - { - "name": "Gradient", - "comment": "", - "raw": "data Gradient\n = Linear (Float,Float) (Float,Float) [(Float,Color)]\n | Radial (Float,Float) Float (Float,Float) Float [(Float,Color)]", - "typeVariables": [], - "constructors": [ - { - "name": "Linear", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "_Tuple2", - "args": [ - { - "tag": "adt", - "name": "Float", - "args": [] - }, - { - "tag": "adt", - "name": "Float", - "args": [] - } - ] - }, - { - "tag": "adt", - "name": "_Tuple2", - "args": [ - { - "tag": "adt", - "name": "Float", - "args": [] - }, - { - "tag": "adt", - "name": "Float", - "args": [] - } - ] - }, - { - "tag": "adt", - "name": "_List", - "args": [ - { - "tag": "adt", - "name": "_Tuple2", - "args": [ - { - "tag": "adt", - "name": "Float", - "args": [] - }, - { - "tag": "adt", - "name": "Color", - "args": [] - } - ] - } - ] - } - ], - "result": { - "tag": "adt", - "name": "Gradient", - "args": [] - } - } - }, - { - "name": "Radial", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "_Tuple2", - "args": [ - { - "tag": "adt", - "name": "Float", - "args": [] - }, - { - "tag": "adt", - "name": "Float", - "args": [] - } - ] - }, - { - "tag": "adt", - "name": "Float", - "args": [] - }, - { - "tag": "adt", - "name": "_Tuple2", - "args": [ - { - "tag": "adt", - "name": "Float", - "args": [] - }, - { - "tag": "adt", - "name": "Float", - "args": [] - } - ] - }, - { - "tag": "adt", - "name": "Float", - "args": [] - }, - { - "tag": "adt", - "name": "_List", - "args": [ - { - "tag": "adt", - "name": "_Tuple2", - "args": [ - { - "tag": "adt", - "name": "Float", - "args": [] - }, - { - "tag": "adt", - "name": "Color", - "args": [] - } - ] - } - ] - } - ], - "result": { - "tag": "adt", - "name": "Gradient", - "args": [] - } - } - } - ] - } - ], - "values": [ - { - "name": "black", - "comment": "", - "raw": "black : Color", - "type": { - "tag": "adt", - "name": "Color", - "args": [] - } - }, - { - "name": "blue", - "comment": "", - "raw": "blue : Color", - "type": { - "tag": "adt", - "name": "Color", - "args": [] - } - }, - { - "name": "brown", - "comment": "", - "raw": "brown : Color", - "type": { - "tag": "adt", - "name": "Color", - "args": [] - } - }, - { - "name": "charcoal", - "comment": "", - "raw": "charcoal : Color", - "type": { - "tag": "adt", - "name": "Color", - "args": [] - } - }, - { - "name": "complement", - "comment": "Produce a “complementary color”.\nThe two colors will accent each other.", - "raw": "complement : Color -\u003e Color", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Color", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Color", - "args": [] - } - } - }, - { - "name": "darkBlue", - "comment": "", - "raw": "darkBlue : Color", - "type": { - "tag": "adt", - "name": "Color", - "args": [] - } - }, - { - "name": "darkBrown", - "comment": "", - "raw": "darkBrown : Color", - "type": { - "tag": "adt", - "name": "Color", - "args": [] - } - }, - { - "name": "darkCharcoal", - "comment": "", - "raw": "darkCharcoal : Color", - "type": { - "tag": "adt", - "name": "Color", - "args": [] - } - }, - { - "name": "darkGray", - "comment": "", - "raw": "darkGray : Color", - "type": { - "tag": "adt", - "name": "Color", - "args": [] - } - }, - { - "name": "darkGreen", - "comment": "", - "raw": "darkGreen : Color", - "type": { - "tag": "adt", - "name": "Color", - "args": [] - } - }, - { - "name": "darkGrey", - "comment": "", - "raw": "darkGrey : Color", - "type": { - "tag": "adt", - "name": "Color", - "args": [] - } - }, - { - "name": "darkOrange", - "comment": "", - "raw": "darkOrange : Color", - "type": { - "tag": "adt", - "name": "Color", - "args": [] - } - }, - { - "name": "darkPurple", - "comment": "", - "raw": "darkPurple : Color", - "type": { - "tag": "adt", - "name": "Color", - "args": [] - } - }, - { - "name": "darkRed", - "comment": "", - "raw": "darkRed : Color", - "type": { - "tag": "adt", - "name": "Color", - "args": [] - } - }, - { - "name": "darkYellow", - "comment": "", - "raw": "darkYellow : Color", - "type": { - "tag": "adt", - "name": "Color", - "args": [] - } - }, - { - "name": "gray", - "comment": "", - "raw": "gray : Color", - "type": { - "tag": "adt", - "name": "Color", - "args": [] - } - }, - { - "name": "grayscale", - "comment": "Produce a gray based on the input. 0 is white, 1 is black.", - "raw": "grayscale : Float -\u003e Color", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Float", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Color", - "args": [] - } - } - }, - { - "name": "green", - "comment": "", - "raw": "green : Color", - "type": { - "tag": "adt", - "name": "Color", - "args": [] - } - }, - { - "name": "grey", - "comment": "", - "raw": "grey : Color", - "type": { - "tag": "adt", - "name": "Color", - "args": [] - } - }, - { - "name": "greyscale", - "comment": "", - "raw": "greyscale : Float -\u003e Color", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Float", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Color", - "args": [] - } - } - }, - { - "name": "hsv", - "comment": "Create [HSV colors](http://en.wikipedia.org/wiki/HSL_and_HSV). This is very\nconvenient for creating colors that cycle and shift. Hue is an angle and should\nbe given in standard Elm angles (radians).", - "raw": "hsv : Float -\u003e Float -\u003e Float -\u003e Color", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Float", - "args": [] - }, - { - "tag": "adt", - "name": "Float", - "args": [] - }, - { - "tag": "adt", - "name": "Float", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Color", - "args": [] - } - } - }, - { - "name": "hsva", - "comment": "Create [HSV colors](http://en.wikipedia.org/wiki/HSL_and_HSV)\nwith an alpha component for transparency.", - "raw": "hsva : Float -\u003e Float -\u003e Float -\u003e Float -\u003e Color", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Float", - "args": [] - }, - { - "tag": "adt", - "name": "Float", - "args": [] - }, - { - "tag": "adt", - "name": "Float", - "args": [] - }, - { - "tag": "adt", - "name": "Float", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Color", - "args": [] - } - } - }, - { - "name": "lightBlue", - "comment": "", - "raw": "lightBlue : Color", - "type": { - "tag": "adt", - "name": "Color", - "args": [] - } - }, - { - "name": "lightBrown", - "comment": "", - "raw": "lightBrown : Color", - "type": { - "tag": "adt", - "name": "Color", - "args": [] - } - }, - { - "name": "lightCharcoal", - "comment": "", - "raw": "lightCharcoal : Color", - "type": { - "tag": "adt", - "name": "Color", - "args": [] - } - }, - { - "name": "lightGray", - "comment": "", - "raw": "lightGray : Color", - "type": { - "tag": "adt", - "name": "Color", - "args": [] - } - }, - { - "name": "lightGreen", - "comment": "", - "raw": "lightGreen : Color", - "type": { - "tag": "adt", - "name": "Color", - "args": [] - } - }, - { - "name": "lightGrey", - "comment": "", - "raw": "lightGrey : Color", - "type": { - "tag": "adt", - "name": "Color", - "args": [] - } - }, - { - "name": "lightOrange", - "comment": "", - "raw": "lightOrange : Color", - "type": { - "tag": "adt", - "name": "Color", - "args": [] - } - }, - { - "name": "lightPurple", - "comment": "", - "raw": "lightPurple : Color", - "type": { - "tag": "adt", - "name": "Color", - "args": [] - } - }, - { - "name": "lightRed", - "comment": "", - "raw": "lightRed : Color", - "type": { - "tag": "adt", - "name": "Color", - "args": [] - } - }, - { - "name": "lightYellow", - "comment": "", - "raw": "lightYellow : Color", - "type": { - "tag": "adt", - "name": "Color", - "args": [] - } - }, - { - "name": "linear", - "comment": "Create a linear gradient. Takes a start and end point and then a series of\n“color stops” that indicate how to interpolate between the start and\nend points. See [this example](/edit/examples/Elements/LinearGradient.elm) for a\nmore visual explanation.", - "raw": "linear : (number, number) -\u003e (number, number) -\u003e [(Float,Color)] -\u003e Gradient", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "_Tuple2", - "args": [ - { - "tag": "var", - "name": "number" - }, - { - "tag": "var", - "name": "number" - } - ] - }, - { - "tag": "adt", - "name": "_Tuple2", - "args": [ - { - "tag": "var", - "name": "number" - }, - { - "tag": "var", - "name": "number" - } - ] - }, - { - "tag": "adt", - "name": "_List", - "args": [ - { - "tag": "adt", - "name": "_Tuple2", - "args": [ - { - "tag": "adt", - "name": "Float", - "args": [] - }, - { - "tag": "adt", - "name": "Color", - "args": [] - } - ] - } - ] - } - ], - "result": { - "tag": "adt", - "name": "Gradient", - "args": [] - } - } - }, - { - "name": "orange", - "comment": "", - "raw": "orange : Color", - "type": { - "tag": "adt", - "name": "Color", - "args": [] - } - }, - { - "name": "purple", - "comment": "", - "raw": "purple : Color", - "type": { - "tag": "adt", - "name": "Color", - "args": [] - } - }, - { - "name": "radial", - "comment": "Create a radial gradient. First takes a start point and inner radius. Then\ntakes an end point and outer radius. It then takes a series of “color\nstops” that indicate how to interpolate between the inner and outer\ncircles. See [this example](/edit/examples/Elements/RadialGradient.elm) for a\nmore visual explanation.", - "raw": "radial : (number,number) -\u003e number -\u003e (number,number) -\u003e number -\u003e [(Float,Color)] -\u003e Gradient", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "_Tuple2", - "args": [ - { - "tag": "var", - "name": "number" - }, - { - "tag": "var", - "name": "number" - } - ] - }, - { - "tag": "var", - "name": "number" - }, - { - "tag": "adt", - "name": "_Tuple2", - "args": [ - { - "tag": "var", - "name": "number" - }, - { - "tag": "var", - "name": "number" - } - ] - }, - { - "tag": "var", - "name": "number" - }, - { - "tag": "adt", - "name": "_List", - "args": [ - { - "tag": "adt", - "name": "_Tuple2", - "args": [ - { - "tag": "adt", - "name": "Float", - "args": [] - }, - { - "tag": "adt", - "name": "Color", - "args": [] - } - ] - } - ] - } - ], - "result": { - "tag": "adt", - "name": "Gradient", - "args": [] - } - } - }, - { - "name": "red", - "comment": "", - "raw": "red : Color", - "type": { - "tag": "adt", - "name": "Color", - "args": [] - } - }, - { - "name": "rgb", - "comment": "Create RGB colors from numbers between 0 and 255 inclusive.", - "raw": "rgb : Int -\u003e Int -\u003e Int -\u003e Color", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Int", - "args": [] - }, - { - "tag": "adt", - "name": "Int", - "args": [] - }, - { - "tag": "adt", - "name": "Int", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Color", - "args": [] - } - } - }, - { - "name": "rgba", - "comment": "Create RGB colors with an alpha component for transparency.\nThe alpha component is specified with numbers between 0 and 1.", - "raw": "rgba : Int -\u003e Int -\u003e Int -\u003e Float -\u003e Color", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Int", - "args": [] - }, - { - "tag": "adt", - "name": "Int", - "args": [] - }, - { - "tag": "adt", - "name": "Int", - "args": [] - }, - { - "tag": "adt", - "name": "Float", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Color", - "args": [] - } - } - }, - { - "name": "white", - "comment": "", - "raw": "white : Color", - "type": { - "tag": "adt", - "name": "Color", - "args": [] - } - }, - { - "name": "yellow", - "comment": "", - "raw": "yellow : Color", - "type": { - "tag": "adt", - "name": "Color", - "args": [] - } - } - ] -}, -{ - "name": "Date", - "document": "Library for working with dates. Email the mailing list if you encounter\nissues with internationalization or locale formatting.\n\n# Conversions\n@docs read, toTime, fromTime\n\n# Extractions\n@docs year, month, Month, day, dayOfWeek, Day, hour, minute, second", - "aliases": [], - "datatypes": [ - { - "name": "Date", - "comment": "", - "raw": "data Date = Date", - "typeVariables": [], - "constructors": [ - { - "name": "Date", - "type": { - "tag": "adt", - "name": "Date", - "args": [] - } - } - ] - }, - { - "name": "Day", - "comment": "Represents the days of the week.", - "raw": "data Day = Mon | Tue | Wed | Thu | Fri | Sat | Sun", - "typeVariables": [], - "constructors": [ - { - "name": "Mon", - "type": { - "tag": "adt", - "name": "Day", - "args": [] - } - }, - { - "name": "Tue", - "type": { - "tag": "adt", - "name": "Day", - "args": [] - } - }, - { - "name": "Wed", - "type": { - "tag": "adt", - "name": "Day", - "args": [] - } - }, - { - "name": "Thu", - "type": { - "tag": "adt", - "name": "Day", - "args": [] - } - }, - { - "name": "Fri", - "type": { - "tag": "adt", - "name": "Day", - "args": [] - } - }, - { - "name": "Sat", - "type": { - "tag": "adt", - "name": "Day", - "args": [] - } - }, - { - "name": "Sun", - "type": { - "tag": "adt", - "name": "Day", - "args": [] - } - } - ] - }, - { - "name": "Month", - "comment": "Represents the month of the year.", - "raw": "data Month = Jan | Feb | Mar | Apr\n | May | Jun | Jul | Aug\n | Sep | Oct | Nov | Dec", - "typeVariables": [], - "constructors": [ - { - "name": "Jan", - "type": { - "tag": "adt", - "name": "Month", - "args": [] - } - }, - { - "name": "Feb", - "type": { - "tag": "adt", - "name": "Month", - "args": [] - } - }, - { - "name": "Mar", - "type": { - "tag": "adt", - "name": "Month", - "args": [] - } - }, - { - "name": "Apr", - "type": { - "tag": "adt", - "name": "Month", - "args": [] - } - }, - { - "name": "May", - "type": { - "tag": "adt", - "name": "Month", - "args": [] - } - }, - { - "name": "Jun", - "type": { - "tag": "adt", - "name": "Month", - "args": [] - } - }, - { - "name": "Jul", - "type": { - "tag": "adt", - "name": "Month", - "args": [] - } - }, - { - "name": "Aug", - "type": { - "tag": "adt", - "name": "Month", - "args": [] - } - }, - { - "name": "Sep", - "type": { - "tag": "adt", - "name": "Month", - "args": [] - } - }, - { - "name": "Oct", - "type": { - "tag": "adt", - "name": "Month", - "args": [] - } - }, - { - "name": "Nov", - "type": { - "tag": "adt", - "name": "Month", - "args": [] - } - }, - { - "name": "Dec", - "type": { - "tag": "adt", - "name": "Month", - "args": [] - } - } - ] - } - ], - "values": [ - { - "name": "day", - "comment": "Extract the day of a given date. Given the date 23 June 1990 at 11:45AM\nthis returns the integer `23`.", - "raw": "day : Date -\u003e Int", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Date", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Int", - "args": [] - } - } - }, - { - "name": "dayOfWeek", - "comment": "Extract the day of the week for a given date. Given the date 23 June\n1990 at 11:45AM this returns the Day `Thu` as defined below.", - "raw": "dayOfWeek : Date -\u003e Day", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Date", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Day", - "args": [] - } - } - }, - { - "name": "fromTime", - "comment": "Take a UNIX time and convert it to a `Date`", - "raw": "fromTime : Time -\u003e Date", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Time", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Date", - "args": [] - } - } - }, - { - "name": "hour", - "comment": "Extract the hour of a given date. Given the date 23 June 1990 at 11:45AM\nthis returns the integer `11`.", - "raw": "hour : Date -\u003e Int", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Date", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Int", - "args": [] - } - } - }, - { - "name": "minute", - "comment": "Extract the minute of a given date. Given the date 23 June 1990 at 11:45AM\nthis returns the integer `45`.", - "raw": "minute : Date -\u003e Int", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Date", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Int", - "args": [] - } - } - }, - { - "name": "month", - "comment": "Extract the month of a given date. Given the date 23 June 1990 at 11:45AM\nthis returns the Month `Jun` as defined below.", - "raw": "month : Date -\u003e Month", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Date", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Month", - "args": [] - } - } - }, - { - "name": "read", - "comment": "Attempt to read a date from a string.", - "raw": "read : String -\u003e Maybe Date", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "String", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Maybe", - "args": [ - { - "tag": "adt", - "name": "Date", - "args": [] - } - ] - } - } - }, - { - "name": "second", - "comment": "Extract the second of a given date. Given the date 23 June 1990 at 11:45AM\nthis returns the integer `0`.", - "raw": "second : Date -\u003e Int", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Date", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Int", - "args": [] - } - } - }, - { - "name": "toTime", - "comment": "Convert a date into a time since midnight (UTC) of 1 January 1990 (i.e.\n[UNIX time](http://en.wikipedia.org/wiki/Unix_time)). Given the date 23 June\n1990 at 11:45AM this returns the corresponding time.", - "raw": "toTime : Date -\u003e Time", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Date", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Time", - "args": [] - } - } - }, - { - "name": "year", - "comment": "Extract the year of a given date. Given the date 23 June 1990 at 11:45AM\nthis returns the integer `1990`.", - "raw": "year : Date -\u003e Int", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Date", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Int", - "args": [] - } - } - } - ] -}, -{ - "name": "Debug", - "document": "This library is for investigating bugs or performance problems. It should\n*not* be used in production code.", - "aliases": [], - "datatypes": [], - "values": [ - { - "name": "log", - "comment": "Log a tagged value on the developer console, and then return the value.\n\n 1 + log \"number\" 1 -- equals 2, logs \"number: 1\"\n length (log \"start\" []) -- equals 0, logs \"start: []\"\n\nNotice that `log` is not a pure function! It should *only* be used for\ninvestigating bugs or performance problems.", - "raw": "log : String -\u003e a -\u003e a", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "String", - "args": [] - }, - { - "tag": "var", - "name": "a" - } - ], - "result": { - "tag": "var", - "name": "a" - } - } - } - ] -}, -{ - "name": "Dict", - "document": "A dictionary mapping unique keys to values. The keys can be any comparable\ntype. This includes `Int`, `Float`, `Time`, `Char`, `String`, and tuples or\nlists of comparable types.\n\nInsert, remove, and query operations all take *O(log n)* time.\n\n# Build\n@docs empty, singleton, insert, update, remove\n\n# Query\n@docs member, lookup, findWithDefault\n\n# Combine\n@docs union, intersect, diff\n\n# Lists\n@docs keys, values, toList, fromList\n\n# Transform\n@docs map, foldl, foldr", - "aliases": [], - "datatypes": [], - "values": [ - { - "name": "diff", - "comment": "Keep a key-value pair when its key does not appear in the second dictionary.\nPreference is given to the first dictionary.", - "raw": "diff : Dict comparable v -\u003e Dict comparable v -\u003e Dict comparable v", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Dict", - "args": [ - { - "tag": "var", - "name": "comparable" - }, - { - "tag": "var", - "name": "v" - } - ] - }, - { - "tag": "adt", - "name": "Dict", - "args": [ - { - "tag": "var", - "name": "comparable" - }, - { - "tag": "var", - "name": "v" - } - ] - } - ], - "result": { - "tag": "adt", - "name": "Dict", - "args": [ - { - "tag": "var", - "name": "comparable" - }, - { - "tag": "var", - "name": "v" - } - ] - } - } - }, - { - "name": "empty", - "comment": "Create an empty dictionary.", - "raw": "empty : Dict comparable v", - "type": { - "tag": "adt", - "name": "Dict", - "args": [ - { - "tag": "var", - "name": "comparable" - }, - { - "tag": "var", - "name": "v" - } - ] - } - }, - { - "name": "findWithDefault", - "comment": "Find the value associated with a key. If the key is not found,\nreturn the default value.", - "raw": "findWithDefault : v -\u003e comparable -\u003e Dict comparable v -\u003e v", - "type": { - "tag": "function", - "args": [ - { - "tag": "var", - "name": "v" - }, - { - "tag": "var", - "name": "comparable" - }, - { - "tag": "adt", - "name": "Dict", - "args": [ - { - "tag": "var", - "name": "comparable" - }, - { - "tag": "var", - "name": "v" - } - ] - } - ], - "result": { - "tag": "var", - "name": "v" - } - } - }, - { - "name": "foldl", - "comment": "Fold over the key-value pairs in a dictionary, in order from lowest\nkey to highest key.", - "raw": "foldl : (comparable -\u003e v -\u003e b -\u003e b) -\u003e b -\u003e Dict comparable v -\u003e b", - "type": { - "tag": "function", - "args": [ - { - "tag": "function", - "args": [ - { - "tag": "var", - "name": "comparable" - }, - { - "tag": "var", - "name": "v" - }, - { - "tag": "var", - "name": "b" - } - ], - "result": { - "tag": "var", - "name": "b" - } - }, - { - "tag": "var", - "name": "b" - }, - { - "tag": "adt", - "name": "Dict", - "args": [ - { - "tag": "var", - "name": "comparable" - }, - { - "tag": "var", - "name": "v" - } - ] - } - ], - "result": { - "tag": "var", - "name": "b" - } - } - }, - { - "name": "foldr", - "comment": "Fold over the key-value pairs in a dictionary, in order from highest\nkey to lowest key.", - "raw": "foldr : (comparable -\u003e v -\u003e b -\u003e b) -\u003e b -\u003e Dict comparable v -\u003e b", - "type": { - "tag": "function", - "args": [ - { - "tag": "function", - "args": [ - { - "tag": "var", - "name": "comparable" - }, - { - "tag": "var", - "name": "v" - }, - { - "tag": "var", - "name": "b" - } - ], - "result": { - "tag": "var", - "name": "b" - } - }, - { - "tag": "var", - "name": "b" - }, - { - "tag": "adt", - "name": "Dict", - "args": [ - { - "tag": "var", - "name": "comparable" - }, - { - "tag": "var", - "name": "v" - } - ] - } - ], - "result": { - "tag": "var", - "name": "b" - } - } - }, - { - "name": "fromList", - "comment": "Convert an association list into a dictionary.", - "raw": "fromList : [(comparable,v)] -\u003e Dict comparable v", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "_List", - "args": [ - { - "tag": "adt", - "name": "_Tuple2", - "args": [ - { - "tag": "var", - "name": "comparable" - }, - { - "tag": "var", - "name": "v" - } - ] - } - ] - } - ], - "result": { - "tag": "adt", - "name": "Dict", - "args": [ - { - "tag": "var", - "name": "comparable" - }, - { - "tag": "var", - "name": "v" - } - ] - } - } - }, - { - "name": "insert", - "comment": "Insert a key-value pair into a dictionary. Replaces value when there is\na collision.", - "raw": "insert : comparable -\u003e v -\u003e Dict comparable v -\u003e Dict comparable v", - "type": { - "tag": "function", - "args": [ - { - "tag": "var", - "name": "comparable" - }, - { - "tag": "var", - "name": "v" - }, - { - "tag": "adt", - "name": "Dict", - "args": [ - { - "tag": "var", - "name": "comparable" - }, - { - "tag": "var", - "name": "v" - } - ] - } - ], - "result": { - "tag": "adt", - "name": "Dict", - "args": [ - { - "tag": "var", - "name": "comparable" - }, - { - "tag": "var", - "name": "v" - } - ] - } - } - }, - { - "name": "intersect", - "comment": "Keep a key-value pair when its key appears in the second dictionary.\nPreference is given to values in the first dictionary.", - "raw": "intersect : Dict comparable v -\u003e Dict comparable v -\u003e Dict comparable v", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Dict", - "args": [ - { - "tag": "var", - "name": "comparable" - }, - { - "tag": "var", - "name": "v" - } - ] - }, - { - "tag": "adt", - "name": "Dict", - "args": [ - { - "tag": "var", - "name": "comparable" - }, - { - "tag": "var", - "name": "v" - } - ] - } - ], - "result": { - "tag": "adt", - "name": "Dict", - "args": [ - { - "tag": "var", - "name": "comparable" - }, - { - "tag": "var", - "name": "v" - } - ] - } - } - }, - { - "name": "keys", - "comment": "Get all of the keys in a dictionary.", - "raw": "keys : Dict comparable v -\u003e [comparable]", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Dict", - "args": [ - { - "tag": "var", - "name": "comparable" - }, - { - "tag": "var", - "name": "v" - } - ] - } - ], - "result": { - "tag": "adt", - "name": "_List", - "args": [ - { - "tag": "var", - "name": "comparable" - } - ] - } - } - }, - { - "name": "lookup", - "comment": "Lookup the value associated with a key.", - "raw": "lookup : comparable -\u003e Dict comparable v -\u003e Maybe v", - "type": { - "tag": "function", - "args": [ - { - "tag": "var", - "name": "comparable" - }, - { - "tag": "adt", - "name": "Dict", - "args": [ - { - "tag": "var", - "name": "comparable" - }, - { - "tag": "var", - "name": "v" - } - ] - } - ], - "result": { - "tag": "adt", - "name": "Maybe", - "args": [ - { - "tag": "var", - "name": "v" - } - ] - } - } - }, - { - "name": "map", - "comment": "Apply a function to all values in a dictionary.", - "raw": "map : (a -\u003e b) -\u003e Dict comparable a -\u003e Dict comparable b", - "type": { - "tag": "function", - "args": [ - { - "tag": "function", - "args": [ - { - "tag": "var", - "name": "a" - } - ], - "result": { - "tag": "var", - "name": "b" - } - }, - { - "tag": "adt", - "name": "Dict", - "args": [ - { - "tag": "var", - "name": "comparable" - }, - { - "tag": "var", - "name": "a" - } - ] - } - ], - "result": { - "tag": "adt", - "name": "Dict", - "args": [ - { - "tag": "var", - "name": "comparable" - }, - { - "tag": "var", - "name": "b" - } - ] - } - } - }, - { - "name": "member", - "comment": "Determine if a key is in a dictionary.", - "raw": "member : comparable -\u003e Dict comparable v -\u003e Bool", - "type": { - "tag": "function", - "args": [ - { - "tag": "var", - "name": "comparable" - }, - { - "tag": "adt", - "name": "Dict", - "args": [ - { - "tag": "var", - "name": "comparable" - }, - { - "tag": "var", - "name": "v" - } - ] - } - ], - "result": { - "tag": "adt", - "name": "Bool", - "args": [] - } - } - }, - { - "name": "remove", - "comment": "Remove a key-value pair from a dictionary. If the key is not found,\nno changes are made.", - "raw": "remove : comparable -\u003e Dict comparable v -\u003e Dict comparable v", - "type": { - "tag": "function", - "args": [ - { - "tag": "var", - "name": "comparable" - }, - { - "tag": "adt", - "name": "Dict", - "args": [ - { - "tag": "var", - "name": "comparable" - }, - { - "tag": "var", - "name": "v" - } - ] - } - ], - "result": { - "tag": "adt", - "name": "Dict", - "args": [ - { - "tag": "var", - "name": "comparable" - }, - { - "tag": "var", - "name": "v" - } - ] - } - } - }, - { - "name": "singleton", - "comment": "Create a dictionary with one key-value pair.", - "raw": "singleton : comparable -\u003e v -\u003e Dict comparable v", - "type": { - "tag": "function", - "args": [ - { - "tag": "var", - "name": "comparable" - }, - { - "tag": "var", - "name": "v" - } - ], - "result": { - "tag": "adt", - "name": "Dict", - "args": [ - { - "tag": "var", - "name": "comparable" - }, - { - "tag": "var", - "name": "v" - } - ] - } - } - }, - { - "name": "toList", - "comment": "Convert a dictionary into an association list of key-value pairs.", - "raw": "toList : Dict comparable v -\u003e [(comparable,v)]", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Dict", - "args": [ - { - "tag": "var", - "name": "comparable" - }, - { - "tag": "var", - "name": "v" - } - ] - } - ], - "result": { - "tag": "adt", - "name": "_List", - "args": [ - { - "tag": "adt", - "name": "_Tuple2", - "args": [ - { - "tag": "var", - "name": "comparable" - }, - { - "tag": "var", - "name": "v" - } - ] - } - ] - } - } - }, - { - "name": "union", - "comment": "Combine two dictionaries. If there is a collision, preference is given\nto the first dictionary.", - "raw": "union : Dict comparable v -\u003e Dict comparable v -\u003e Dict comparable v", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Dict", - "args": [ - { - "tag": "var", - "name": "comparable" - }, - { - "tag": "var", - "name": "v" - } - ] - }, - { - "tag": "adt", - "name": "Dict", - "args": [ - { - "tag": "var", - "name": "comparable" - }, - { - "tag": "var", - "name": "v" - } - ] - } - ], - "result": { - "tag": "adt", - "name": "Dict", - "args": [ - { - "tag": "var", - "name": "comparable" - }, - { - "tag": "var", - "name": "v" - } - ] - } - } - }, - { - "name": "update", - "comment": "Update the value of a dictionary for a specific key with a given function.", - "raw": "update : comparable -\u003e (Maybe v -\u003e Maybe v) -\u003e Dict comparable v -\u003e Dict comparable v", - "type": { - "tag": "function", - "args": [ - { - "tag": "var", - "name": "comparable" - }, - { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Maybe", - "args": [ - { - "tag": "var", - "name": "v" - } - ] - } - ], - "result": { - "tag": "adt", - "name": "Maybe", - "args": [ - { - "tag": "var", - "name": "v" - } - ] - } - }, - { - "tag": "adt", - "name": "Dict", - "args": [ - { - "tag": "var", - "name": "comparable" - }, - { - "tag": "var", - "name": "v" - } - ] - } - ], - "result": { - "tag": "adt", - "name": "Dict", - "args": [ - { - "tag": "var", - "name": "comparable" - }, - { - "tag": "var", - "name": "v" - } - ] - } - } - }, - { - "name": "values", - "comment": "Get all of the values in a dictionary.", - "raw": "values : Dict comparable v -\u003e [v]", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Dict", - "args": [ - { - "tag": "var", - "name": "comparable" - }, - { - "tag": "var", - "name": "v" - } - ] - } - ], - "result": { - "tag": "adt", - "name": "_List", - "args": [ - { - "tag": "var", - "name": "v" - } - ] - } - } - } - ] -}, -{ - "name": "Either", - "document": "Represents any data that can take two different types.\n\n# Type and Constructors\n@docs Either\n\n# Taking Eithers apart\n@docs either, isLeft, isRight\n\n# Eithers and Lists\n@docs lefts, rights, partition", - "aliases": [], - "datatypes": [ - { - "name": "Either", - "comment": "Represents any data may take two forms. For example, a user ID may be\neither an `Int` or a `String`.\n\nThis can also be used for error handling `(Either String a)` where\nerror messages are stored on the left, and the correct values\n(“right” values) are stored on the right.", - "raw": "data Either a b = Left a | Right b", - "typeVariables": [ - "a", - "b" - ], - "constructors": [ - { - "name": "Left", - "type": { - "tag": "function", - "args": [ - { - "tag": "var", - "name": "a" - } - ], - "result": { - "tag": "adt", - "name": "Either", - "args": [ - { - "tag": "var", - "name": "a" - }, - { - "tag": "var", - "name": "b" - } - ] - } - } - }, - { - "name": "Right", - "type": { - "tag": "function", - "args": [ - { - "tag": "var", - "name": "b" - } - ], - "result": { - "tag": "adt", - "name": "Either", - "args": [ - { - "tag": "var", - "name": "a" - }, - { - "tag": "var", - "name": "b" - } - ] - } - } - } - ] - } - ], - "values": [ - { - "name": "either", - "comment": "Apply the first function to a `Left` and the second function to a `Right`.\nThis allows the extraction of a value from an `Either`.\n\n either (\\n -\u003e n + 1) sqrt (Left 4) == 5\n either (\\n -\u003e n + 1) sqrt (Right 4) == 2\n\n map : (a -\u003e b) -\u003e Either err a -\u003e Either err b\n map f e = either Left (\\x -\u003e Right (f x)) e", - "raw": "either : (a -\u003e c) -\u003e (b -\u003e c) -\u003e Either a b -\u003e c", - "type": { - "tag": "function", - "args": [ - { - "tag": "function", - "args": [ - { - "tag": "var", - "name": "a" - } - ], - "result": { - "tag": "var", - "name": "c" - } - }, - { - "tag": "function", - "args": [ - { - "tag": "var", - "name": "b" - } - ], - "result": { - "tag": "var", - "name": "c" - } - }, - { - "tag": "adt", - "name": "Either", - "args": [ - { - "tag": "var", - "name": "a" - }, - { - "tag": "var", - "name": "b" - } - ] - } - ], - "result": { - "tag": "var", - "name": "c" - } - } - }, - { - "name": "isLeft", - "comment": "True if the value is a `Left`.\n\n isLeft (Left \"Cat\") == True\n isLeft (Right 1123) == False", - "raw": "isLeft : Either a b -\u003e Bool", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Either", - "args": [ - { - "tag": "var", - "name": "a" - }, - { - "tag": "var", - "name": "b" - } - ] - } - ], - "result": { - "tag": "adt", - "name": "Bool", - "args": [] - } - } - }, - { - "name": "isRight", - "comment": "True if the value is a `Right`.\n\n isRight (Left \"Cat\") == False\n isRight (Right 1123) == True", - "raw": "isRight : Either a b -\u003e Bool", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Either", - "args": [ - { - "tag": "var", - "name": "a" - }, - { - "tag": "var", - "name": "b" - } - ] - } - ], - "result": { - "tag": "adt", - "name": "Bool", - "args": [] - } - } - }, - { - "name": "lefts", - "comment": "Keep only the values held in `Left` values.\n\n lefts [Left 3, Right 'a', Left 5, Right \"eight\"] == [3,5]", - "raw": "lefts : [Either a b] -\u003e [a]", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "_List", - "args": [ - { - "tag": "adt", - "name": "Either", - "args": [ - { - "tag": "var", - "name": "a" - }, - { - "tag": "var", - "name": "b" - } - ] - } - ] - } - ], - "result": { - "tag": "adt", - "name": "_List", - "args": [ - { - "tag": "var", - "name": "a" - } - ] - } - } - }, - { - "name": "partition", - "comment": "Split into two lists, lefts on the left and rights on the right. So we\nhave the equivalence: `(partition es == (lefts es, rights es))`\n\n partition [Left 3, Right 'a', Left 5, Right 'b'] == ([3,5],['a','b'])", - "raw": "partition : [Either a b] -\u003e ([a],[b])", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "_List", - "args": [ - { - "tag": "adt", - "name": "Either", - "args": [ - { - "tag": "var", - "name": "a" - }, - { - "tag": "var", - "name": "b" - } - ] - } - ] - } - ], - "result": { - "tag": "adt", - "name": "_Tuple2", - "args": [ - { - "tag": "adt", - "name": "_List", - "args": [ - { - "tag": "var", - "name": "a" - } - ] - }, - { - "tag": "adt", - "name": "_List", - "args": [ - { - "tag": "var", - "name": "b" - } - ] - } - ] - } - } - }, - { - "name": "rights", - "comment": "Keep only the values held in `Right` values.\n\n rights [Left 3, Right 'a', Left 5, Right 'b'] == ['a','b']", - "raw": "rights : [Either a b] -\u003e [b]", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "_List", - "args": [ - { - "tag": "adt", - "name": "Either", - "args": [ - { - "tag": "var", - "name": "a" - }, - { - "tag": "var", - "name": "b" - } - ] - } - ] - } - ], - "result": { - "tag": "adt", - "name": "_List", - "args": [ - { - "tag": "var", - "name": "b" - } - ] - } - } - } - ] -}, -{ - "name": "Http", - "document": "A library for asynchronous HTTP requests. See the\n[WebSocket](http://elm-lang.org/docs/WebSocket.elm) library if\nyou have very strict latency requirements.\n\n# Sending Requests\n@docs send, sendGet\n\n# Creating Requests\n@docs get, post, request\n\n# Responses\n@docs Response", - "aliases": [ - { - "name": "Request", - "comment": "", - "raw": "type Request a = {\n verb : String,\n url : String,\n body : a,\n headers : [(String,String)]\n }", - "typeVariables": [ - "a" - ], - "type": { - "tag": "record", - "fields": [ - [ - "verb", - { - "tag": "adt", - "name": "String", - "args": [] - } - ], - [ - "url", - { - "tag": "adt", - "name": "String", - "args": [] - } - ], - [ - "body", - { - "tag": "var", - "name": "a" - } - ], - [ - "headers", - { - "tag": "adt", - "name": "_List", - "args": [ - { - "tag": "adt", - "name": "_Tuple2", - "args": [ - { - "tag": "adt", - "name": "String", - "args": [] - }, - { - "tag": "adt", - "name": "String", - "args": [] - } - ] - } - ] - } - ] - ], - "extension": null - } - } - ], - "datatypes": [ - { - "name": "Response", - "comment": "The datatype for responses. Success contains only the returned message.\nFailures contain both an error code and an error message.", - "raw": "data Response a = Success a | Waiting | Failure Int String", - "typeVariables": [ - "a" - ], - "constructors": [ - { - "name": "Success", - "type": { - "tag": "function", - "args": [ - { - "tag": "var", - "name": "a" - } - ], - "result": { - "tag": "adt", - "name": "Response", - "args": [ - { - "tag": "var", - "name": "a" - } - ] - } - } - }, - { - "name": "Waiting", - "type": { - "tag": "adt", - "name": "Response", - "args": [ - { - "tag": "var", - "name": "a" - } - ] - } - }, - { - "name": "Failure", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Int", - "args": [] - }, - { - "tag": "adt", - "name": "String", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Response", - "args": [ - { - "tag": "var", - "name": "a" - } - ] - } - } - } - ] - } - ], - "values": [ - { - "name": "get", - "comment": "Create a GET request to the given url.", - "raw": "get : String -\u003e Request String", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "String", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Request", - "args": [ - { - "tag": "adt", - "name": "String", - "args": [] - } - ] - } - } - }, - { - "name": "post", - "comment": "Create a POST request to the given url, carrying the given data.", - "raw": "post : String -\u003e String -\u003e Request String", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "String", - "args": [] - }, - { - "tag": "adt", - "name": "String", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Request", - "args": [ - { - "tag": "adt", - "name": "String", - "args": [] - } - ] - } - } - }, - { - "name": "request", - "comment": "Create a customized request. Arguments are request type (get, post, put,\ndelete, etc.), target url, data, and a list of additional headers.", - "raw": "request : String -\u003e String -\u003e String -\u003e [(String,String)] -\u003e Request String", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "String", - "args": [] - }, - { - "tag": "adt", - "name": "String", - "args": [] - }, - { - "tag": "adt", - "name": "String", - "args": [] - }, - { - "tag": "adt", - "name": "_List", - "args": [ - { - "tag": "adt", - "name": "_Tuple2", - "args": [ - { - "tag": "adt", - "name": "String", - "args": [] - }, - { - "tag": "adt", - "name": "String", - "args": [] - } - ] - } - ] - } - ], - "result": { - "tag": "adt", - "name": "Request", - "args": [ - { - "tag": "adt", - "name": "String", - "args": [] - } - ] - } - } - }, - { - "name": "send", - "comment": "Performs an HTTP request with the given requests. Produces a signal\nthat carries the responses.", - "raw": "send : Signal (Request a) -\u003e Signal (Response String)", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Signal", - "args": [ - { - "tag": "adt", - "name": "Request", - "args": [ - { - "tag": "var", - "name": "a" - } - ] - } - ] - } - ], - "result": { - "tag": "adt", - "name": "Signal", - "args": [ - { - "tag": "adt", - "name": "Response", - "args": [ - { - "tag": "adt", - "name": "String", - "args": [] - } - ] - } - ] - } - } - }, - { - "name": "sendGet", - "comment": "Performs an HTTP GET request with the given urls. Produces a signal\nthat carries the responses.", - "raw": "sendGet : Signal String -\u003e Signal (Response String)", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Signal", - "args": [ - { - "tag": "adt", - "name": "String", - "args": [] - } - ] - } - ], - "result": { - "tag": "adt", - "name": "Signal", - "args": [ - { - "tag": "adt", - "name": "Response", - "args": [ - { - "tag": "adt", - "name": "String", - "args": [] - } - ] - } - ] - } - } - } - ] -}, -{ - "name": "JavaScript", - "document": "This library does basic conversions between Elm and JS values. This allows\nthe internal data structures of Elm to change and improve with no impact on JS\nintegration.\n\nIt is intended to be imported as `import JavaScript as JS`. That way functions\nlike `JS.toInt` convert JavaScript *to* Elm integers and functions like\n`JS.fromString` gets JavaScript *from* Elm strings.\n\n# Javascript to Elm\n@docs toString, toInt, toFloat, toBool, toList\n\n# JavaScript from Elm\n@docs fromString, fromInt, fromFloat, fromBool, fromList", - "aliases": [], - "datatypes": [ - { - "name": "JSArray", - "comment": "", - "raw": "data JSArray a = JSArray a", - "typeVariables": [ - "a" - ], - "constructors": [ - { - "name": "JSArray", - "type": { - "tag": "function", - "args": [ - { - "tag": "var", - "name": "a" - } - ], - "result": { - "tag": "adt", - "name": "JSArray", - "args": [ - { - "tag": "var", - "name": "a" - } - ] - } - } - } - ] - }, - { - "name": "JSBool", - "comment": "", - "raw": "data JSBool = JSBool", - "typeVariables": [], - "constructors": [ - { - "name": "JSBool", - "type": { - "tag": "adt", - "name": "JSBool", - "args": [] - } - } - ] - }, - { - "name": "JSDomNode", - "comment": "", - "raw": "data JSDomNode = JSDomNode", - "typeVariables": [], - "constructors": [ - { - "name": "JSDomNode", - "type": { - "tag": "adt", - "name": "JSDomNode", - "args": [] - } - } - ] - }, - { - "name": "JSNumber", - "comment": "", - "raw": "data JSNumber = JSNumber", - "typeVariables": [], - "constructors": [ - { - "name": "JSNumber", - "type": { - "tag": "adt", - "name": "JSNumber", - "args": [] - } - } - ] - }, - { - "name": "JSObject", - "comment": "", - "raw": "data JSObject = JSObject", - "typeVariables": [], - "constructors": [ - { - "name": "JSObject", - "type": { - "tag": "adt", - "name": "JSObject", - "args": [] - } - } - ] - }, - { - "name": "JSString", - "comment": "", - "raw": "data JSString = JSString", - "typeVariables": [], - "constructors": [ - { - "name": "JSString", - "type": { - "tag": "adt", - "name": "JSString", - "args": [] - } - } - ] - } - ], - "values": [ - { - "name": "fromBool", - "comment": "", - "raw": "fromBool : Bool -\u003e JSBool", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Bool", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "JSBool", - "args": [] - } - } - }, - { - "name": "fromFloat", - "comment": "", - "raw": "fromFloat : Float -\u003e JSNumber", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Float", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "JSNumber", - "args": [] - } - } - }, - { - "name": "fromInt", - "comment": "", - "raw": "fromInt : Int -\u003e JSNumber", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Int", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "JSNumber", - "args": [] - } - } - }, - { - "name": "fromList", - "comment": "Produces a uniform JavaScript array with all members of the same type.", - "raw": "fromList : [a] -\u003e JSArray a", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "_List", - "args": [ - { - "tag": "var", - "name": "a" - } - ] - } - ], - "result": { - "tag": "adt", - "name": "JSArray", - "args": [ - { - "tag": "var", - "name": "a" - } - ] - } - } - }, - { - "name": "fromString", - "comment": "", - "raw": "fromString : String -\u003e JSString", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "String", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "JSString", - "args": [] - } - } - }, - { - "name": "toBool", - "comment": "", - "raw": "toBool : JSBool -\u003e Bool", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "JSBool", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Bool", - "args": [] - } - } - }, - { - "name": "toFloat", - "comment": "", - "raw": "toFloat : JSNumber -\u003e Float", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "JSNumber", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Float", - "args": [] - } - } - }, - { - "name": "toInt", - "comment": "", - "raw": "toInt : JSNumber -\u003e Int", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "JSNumber", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Int", - "args": [] - } - } - }, - { - "name": "toList", - "comment": "Requires that the input array be uniform (all members have the same type)", - "raw": "toList : JSArray a -\u003e [a]", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "JSArray", - "args": [ - { - "tag": "var", - "name": "a" - } - ] - } - ], - "result": { - "tag": "adt", - "name": "_List", - "args": [ - { - "tag": "var", - "name": "a" - } - ] - } - } - }, - { - "name": "toString", - "comment": "", - "raw": "toString : JSString -\u003e String", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "JSString", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "String", - "args": [] - } - } - } - ] -}, -{ - "name": "Json", - "document": "Library for working with [JSON](https://en.wikipedia.org/wiki/JSON) values.\n\n# Json Values\n@docs JsonValue\n\n# Strings\n@docs fromString, toString\n\n# JS Strings\n@docs fromJSString, toJSString\n\n# JS Objects\n@docs fromJSObject, toJSObject", - "aliases": [], - "datatypes": [ - { - "name": "JsonValue", - "comment": "This datatype can represent all valid values that can be held in a JSON\nobject. In Elm, a proper JSON object is represented as a (Dict String JsonValue)\nwhich is a mapping from strings to Json Values.", - "raw": "data JsonValue\n = String String\n | Number Float\n | Boolean Bool\n | Null\n | Array [JsonValue]\n | Object (Dict.Dict String JsonValue)", - "typeVariables": [], - "constructors": [ - { - "name": "String", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "String", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "JsonValue", - "args": [] - } - } - }, - { - "name": "Number", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Float", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "JsonValue", - "args": [] - } - } - }, - { - "name": "Boolean", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Bool", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "JsonValue", - "args": [] - } - } - }, - { - "name": "Null", - "type": { - "tag": "adt", - "name": "JsonValue", - "args": [] - } - }, - { - "name": "Array", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "_List", - "args": [ - { - "tag": "adt", - "name": "JsonValue", - "args": [] - } - ] - } - ], - "result": { - "tag": "adt", - "name": "JsonValue", - "args": [] - } - } - }, - { - "name": "Object", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Dict.Dict", - "args": [ - { - "tag": "adt", - "name": "String", - "args": [] - }, - { - "tag": "adt", - "name": "JsonValue", - "args": [] - } - ] - } - ], - "result": { - "tag": "adt", - "name": "JsonValue", - "args": [] - } - } - } - ] - } - ], - "values": [ - { - "name": "fromJSObject", - "comment": "Convert a JS object into a `JsonValue`.", - "raw": "fromJSObject : JSObject -\u003e JsonValue", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "JSObject", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "JsonValue", - "args": [] - } - } - }, - { - "name": "fromJSString", - "comment": "Parse a JavaScript string representation of a proper JSON object into\nits Elm representation.", - "raw": "fromJSString : JSString -\u003e Maybe JsonValue", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "JSString", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Maybe", - "args": [ - { - "tag": "adt", - "name": "JsonValue", - "args": [] - } - ] - } - } - }, - { - "name": "fromString", - "comment": "Parse a string representation of a proper JSON object into\nits Elm representation.", - "raw": "fromString : String -\u003e Maybe JsonValue", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "String", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Maybe", - "args": [ - { - "tag": "adt", - "name": "JsonValue", - "args": [] - } - ] - } - } - }, - { - "name": "toJSObject", - "comment": "Convert a `JsonValue` into a `JSObject`. Paired with the\n[`JavaScript.Experimental` library](/docs/JavaScript/Experimental.elm),\nThis lets you convert strings into Elm records:\n\n import JavaScript.Experimental as JS\n\n stringToRecord str =\n case fromString str of\n Just jsonValue -\u003e Just (JS.toRecord (toJSObject jsonValue))\n Nothing -\u003e Nothing", - "raw": "toJSObject : JsonValue -\u003e JSObject", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "JsonValue", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "JSObject", - "args": [] - } - } - }, - { - "name": "toJSString", - "comment": "Convert a proper JSON object into a JavaScript string.\nNote that the type JSString seen here is not the same as the type constructor\nJsonString used elsewhere in this module.", - "raw": "toJSString : String -\u003e JsonValue -\u003e JSString", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "String", - "args": [] - }, - { - "tag": "adt", - "name": "JsonValue", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "JSString", - "args": [] - } - } - }, - { - "name": "toString", - "comment": "Convert a `JsonValue` into a prettified string.\nThe first argument is a separator token (e.g. \\\" \\\", \\\"\\\\n\\\", etc.) that will\nbe used for indentation in the prettified string version of the JSON.", - "raw": "toString : String -\u003e JsonValue -\u003e String", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "String", - "args": [] - }, - { - "tag": "adt", - "name": "JsonValue", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "String", - "args": [] - } - } - } - ] -}, -{ - "name": "Keyboard", - "document": "Library for working with keyboard input.\n\n# Representing Keys\n@docs KeyCode\n\n# Directions\n@docs arrows, wasd, directions\n\n# Specific Keys\n@docs shift, enter, space, ctrl\n\n# General Keypresses\n@docs isDown, keysDown, lastPressed", - "aliases": [ - { - "name": "KeyCode", - "comment": "Type alias to make it clearer what integers are supposed to represent\nin this library. Use [`Char.toCode`](docs/Char.elm#toCode) and\n[`Char.fromCode`](/docs/Char.elm#fromCode) to convert key codes to characters.\nUse the uppercase character with `toCode`.", - "raw": "type KeyCode = Int", - "typeVariables": [], - "type": { - "tag": "adt", - "name": "Int", - "args": [] - } - } - ], - "datatypes": [], - "values": [ - { - "name": "arrows", - "comment": "A signal of records indicating which arrow keys are pressed.\n\n`{ x = 0, y = 0 }` when pressing no arrows.\u003cbr\u003e\n`{ x =-1, y = 0 }` when pressing the left arrow.\u003cbr\u003e\n`{ x = 1, y = 1 }` when pressing the up and right arrows.\u003cbr\u003e\n`{ x = 0, y =-1 }` when pressing the down, left, and right arrows.", - "raw": "arrows : Signal { x:Int, y:Int }", - "type": { - "tag": "adt", - "name": "Signal", - "args": [ - { - "tag": "record", - "fields": [ - [ - "x", - { - "tag": "adt", - "name": "Int", - "args": [] - } - ], - [ - "y", - { - "tag": "adt", - "name": "Int", - "args": [] - } - ] - ], - "extension": null - } - ] - } - }, - { - "name": "ctrl", - "comment": "Whether the control key is pressed.", - "raw": "ctrl : Signal Bool", - "type": { - "tag": "adt", - "name": "Signal", - "args": [ - { - "tag": "adt", - "name": "Bool", - "args": [] - } - ] - } - }, - { - "name": "directions", - "comment": "Custom key directions to support different locales. The order is up, down,\nleft, right.", - "raw": "directions : KeyCode -\u003e KeyCode -\u003e KeyCode -\u003e KeyCode -\u003e Signal { x:Int, y:Int }", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "KeyCode", - "args": [] - }, - { - "tag": "adt", - "name": "KeyCode", - "args": [] - }, - { - "tag": "adt", - "name": "KeyCode", - "args": [] - }, - { - "tag": "adt", - "name": "KeyCode", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Signal", - "args": [ - { - "tag": "record", - "fields": [ - [ - "x", - { - "tag": "adt", - "name": "Int", - "args": [] - } - ], - [ - "y", - { - "tag": "adt", - "name": "Int", - "args": [] - } - ] - ], - "extension": null - } - ] - } - } - }, - { - "name": "enter", - "comment": "Whether the enter key is pressed.", - "raw": "enter : Signal Bool", - "type": { - "tag": "adt", - "name": "Signal", - "args": [ - { - "tag": "adt", - "name": "Bool", - "args": [] - } - ] - } - }, - { - "name": "isDown", - "comment": "Whether an arbitrary key is pressed.", - "raw": "isDown : KeyCode -\u003e Signal Bool", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "KeyCode", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Signal", - "args": [ - { - "tag": "adt", - "name": "Bool", - "args": [] - } - ] - } - } - }, - { - "name": "keysDown", - "comment": "List of keys that are currently down.", - "raw": "keysDown : Signal [KeyCode]", - "type": { - "tag": "adt", - "name": "Signal", - "args": [ - { - "tag": "adt", - "name": "_List", - "args": [ - { - "tag": "adt", - "name": "KeyCode", - "args": [] - } - ] - } - ] - } - }, - { - "name": "lastPressed", - "comment": "The latest key that has been pressed.", - "raw": "lastPressed : Signal KeyCode", - "type": { - "tag": "adt", - "name": "Signal", - "args": [ - { - "tag": "adt", - "name": "KeyCode", - "args": [] - } - ] - } - }, - { - "name": "shift", - "comment": "Whether the shift key is pressed.", - "raw": "shift : Signal Bool", - "type": { - "tag": "adt", - "name": "Signal", - "args": [ - { - "tag": "adt", - "name": "Bool", - "args": [] - } - ] - } - }, - { - "name": "space", - "comment": "Whether the space key is pressed.", - "raw": "space : Signal Bool", - "type": { - "tag": "adt", - "name": "Signal", - "args": [ - { - "tag": "adt", - "name": "Bool", - "args": [] - } - ] - } - }, - { - "name": "wasd", - "comment": "Just like the arrows signal, but this uses keys w, a, s, and d,\nwhich are common controls for many computer games.", - "raw": "wasd : Signal { x:Int, y:Int }", - "type": { - "tag": "adt", - "name": "Signal", - "args": [ - { - "tag": "record", - "fields": [ - [ - "x", - { - "tag": "adt", - "name": "Int", - "args": [] - } - ], - [ - "y", - { - "tag": "adt", - "name": "Int", - "args": [] - } - ] - ], - "extension": null - } - ] - } - } - ] -}, -{ - "name": "List", - "document": "A library for manipulating lists of values. Every value in a\nlist must have the same type.\n\n# Basics\n@docs (::), (++), isEmpty, length, reverse, map\n\n# Sub-lists\n@docs head, tail, last, filter, take, drop\n\n# Putting Lists Together\n@docs concat, concatMap, join, intersperse, zip, zipWith, repeat\n\n# Taking Lists Apart\n@docs partition, unzip\n\n# Folds\n@docs foldr, foldl, foldr1, foldl1, scanl, scanl1\n\n# Special Folds\n@docs sum, product, maximum, minimum, all, any, and, or\n\n# Sorting\n@docs sort, sortBy, sortWith", - "aliases": [], - "datatypes": [], - "values": [ - { - "name": "++", - "comment": "Puts two appendable things together:\n\n [1,1] ++ [2,3] == [1,1,2,3]\n \"abc\" ++ \"123\" == \"abc123\"", - "raw": "(++) : appendable -\u003e appendable -\u003e appendable", - "type": { - "tag": "function", - "args": [ - { - "tag": "var", - "name": "appendable" - }, - { - "tag": "var", - "name": "appendable" - } - ], - "result": { - "tag": "var", - "name": "appendable" - } - }, - "associativity": "right", - "precedence": 5 - }, - { - "name": "::", - "comment": "Add an element to the front of a list `(1 :: [2,3] == [1,2,3])`", - "raw": "(::) : a -\u003e [a] -\u003e [a]", - "type": { - "tag": "function", - "args": [ - { - "tag": "var", - "name": "a" - }, - { - "tag": "adt", - "name": "_List", - "args": [ - { - "tag": "var", - "name": "a" - } - ] - } - ], - "result": { - "tag": "adt", - "name": "_List", - "args": [ - { - "tag": "var", - "name": "a" - } - ] - } - }, - "associativity": "right", - "precedence": 5 - }, - { - "name": "all", - "comment": "Check to see if all elements satisfy the predicate.", - "raw": "all : (a -\u003e Bool) -\u003e [a] -\u003e Bool", - "type": { - "tag": "function", - "args": [ - { - "tag": "function", - "args": [ - { - "tag": "var", - "name": "a" - } - ], - "result": { - "tag": "adt", - "name": "Bool", - "args": [] - } - }, - { - "tag": "adt", - "name": "_List", - "args": [ - { - "tag": "var", - "name": "a" - } - ] - } - ], - "result": { - "tag": "adt", - "name": "Bool", - "args": [] - } - } - }, - { - "name": "and", - "comment": "Check to see if all elements are True.", - "raw": "and : [Bool] -\u003e Bool", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "_List", - "args": [ - { - "tag": "adt", - "name": "Bool", - "args": [] - } - ] - } - ], - "result": { - "tag": "adt", - "name": "Bool", - "args": [] - } - } - }, - { - "name": "any", - "comment": "Check to see if any elements satisfy the predicate.", - "raw": "any : (a -\u003e Bool) -\u003e [a] -\u003e Bool", - "type": { - "tag": "function", - "args": [ - { - "tag": "function", - "args": [ - { - "tag": "var", - "name": "a" - } - ], - "result": { - "tag": "adt", - "name": "Bool", - "args": [] - } - }, - { - "tag": "adt", - "name": "_List", - "args": [ - { - "tag": "var", - "name": "a" - } - ] - } - ], - "result": { - "tag": "adt", - "name": "Bool", - "args": [] - } - } - }, - { - "name": "concat", - "comment": "Concatenate a list of appendable things:\n\n concat [[1,2],[3],[4,5]] == [1,2,3,4,5]\n concat [\"tree\",\"house\"] == \"treehouse\"", - "raw": "concat : [appendable] -\u003e appendable", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "_List", - "args": [ - { - "tag": "var", - "name": "appendable" - } - ] - } - ], - "result": { - "tag": "var", - "name": "appendable" - } - } - }, - { - "name": "concatMap", - "comment": "Map a given function onto a list and flatten the resulting lists.\n\n concatMap f xs == concat (map f xs)", - "raw": "concatMap : (a -\u003e appendable) -\u003e [a] -\u003e appendable", - "type": { - "tag": "function", - "args": [ - { - "tag": "function", - "args": [ - { - "tag": "var", - "name": "a" - } - ], - "result": { - "tag": "var", - "name": "appendable" - } - }, - { - "tag": "adt", - "name": "_List", - "args": [ - { - "tag": "var", - "name": "a" - } - ] - } - ], - "result": { - "tag": "var", - "name": "appendable" - } - } - }, - { - "name": "drop", - "comment": "Drop the first n members of a list: `(drop 2 [1,2,3,4] == [3,4])`", - "raw": "drop : Int -\u003e [a] -\u003e [a]", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Int", - "args": [] - }, - { - "tag": "adt", - "name": "_List", - "args": [ - { - "tag": "var", - "name": "a" - } - ] - } - ], - "result": { - "tag": "adt", - "name": "_List", - "args": [ - { - "tag": "var", - "name": "a" - } - ] - } - } - }, - { - "name": "filter", - "comment": "Keep only elements that satisfy the predicate:\n`(filter isEven [1..6] == [2,4,6])`", - "raw": "filter : (a -\u003e Bool) -\u003e [a] -\u003e [a]", - "type": { - "tag": "function", - "args": [ - { - "tag": "function", - "args": [ - { - "tag": "var", - "name": "a" - } - ], - "result": { - "tag": "adt", - "name": "Bool", - "args": [] - } - }, - { - "tag": "adt", - "name": "_List", - "args": [ - { - "tag": "var", - "name": "a" - } - ] - } - ], - "result": { - "tag": "adt", - "name": "_List", - "args": [ - { - "tag": "var", - "name": "a" - } - ] - } - } - }, - { - "name": "foldl", - "comment": "Reduce a list from the left: `(foldl (::) [] [1,2,3] == [3,2,1])`", - "raw": "foldl : (a -\u003e b -\u003e b) -\u003e b -\u003e [a] -\u003e b", - "type": { - "tag": "function", - "args": [ - { - "tag": "function", - "args": [ - { - "tag": "var", - "name": "a" - }, - { - "tag": "var", - "name": "b" - } - ], - "result": { - "tag": "var", - "name": "b" - } - }, - { - "tag": "var", - "name": "b" - }, - { - "tag": "adt", - "name": "_List", - "args": [ - { - "tag": "var", - "name": "a" - } - ] - } - ], - "result": { - "tag": "var", - "name": "b" - } - } - }, - { - "name": "foldl1", - "comment": "Reduce a list from the left without a base case. List must be non-empty.", - "raw": "foldl1 : (a -\u003e a -\u003e a) -\u003e [a] -\u003e a", - "type": { - "tag": "function", - "args": [ - { - "tag": "function", - "args": [ - { - "tag": "var", - "name": "a" - }, - { - "tag": "var", - "name": "a" - } - ], - "result": { - "tag": "var", - "name": "a" - } - }, - { - "tag": "adt", - "name": "_List", - "args": [ - { - "tag": "var", - "name": "a" - } - ] - } - ], - "result": { - "tag": "var", - "name": "a" - } - } - }, - { - "name": "foldr", - "comment": "Reduce a list from the right: `(foldr (+) 0 [1,2,3] == 6)`", - "raw": "foldr : (a -\u003e b -\u003e b) -\u003e b -\u003e [a] -\u003e b", - "type": { - "tag": "function", - "args": [ - { - "tag": "function", - "args": [ - { - "tag": "var", - "name": "a" - }, - { - "tag": "var", - "name": "b" - } - ], - "result": { - "tag": "var", - "name": "b" - } - }, - { - "tag": "var", - "name": "b" - }, - { - "tag": "adt", - "name": "_List", - "args": [ - { - "tag": "var", - "name": "a" - } - ] - } - ], - "result": { - "tag": "var", - "name": "b" - } - } - }, - { - "name": "foldr1", - "comment": "Reduce a list from the right without a base case. List must be non-empty.", - "raw": "foldr1 : (a -\u003e a -\u003e a) -\u003e [a] -\u003e a", - "type": { - "tag": "function", - "args": [ - { - "tag": "function", - "args": [ - { - "tag": "var", - "name": "a" - }, - { - "tag": "var", - "name": "a" - } - ], - "result": { - "tag": "var", - "name": "a" - } - }, - { - "tag": "adt", - "name": "_List", - "args": [ - { - "tag": "var", - "name": "a" - } - ] - } - ], - "result": { - "tag": "var", - "name": "a" - } - } - }, - { - "name": "head", - "comment": "Extract the first element of a list. List must be non-empty.\n`(head [1,2,3] == 1)`", - "raw": "head : [a] -\u003e a", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "_List", - "args": [ - { - "tag": "var", - "name": "a" - } - ] - } - ], - "result": { - "tag": "var", - "name": "a" - } - } - }, - { - "name": "intersperse", - "comment": "Places the given value between all members of the given list.\n\n intersperse \"on\" [\"turtles\",\"turtles\",\"turtles\"] == [\"turtles\",\"on\",\"turtles\",\"on\",\"turtles\"]", - "raw": "intersperse : a -\u003e [a] -\u003e [a]", - "type": { - "tag": "function", - "args": [ - { - "tag": "var", - "name": "a" - }, - { - "tag": "adt", - "name": "_List", - "args": [ - { - "tag": "var", - "name": "a" - } - ] - } - ], - "result": { - "tag": "adt", - "name": "_List", - "args": [ - { - "tag": "var", - "name": "a" - } - ] - } - } - }, - { - "name": "isEmpty", - "comment": "Check if a list is empty `(isEmpty [] == True)`", - "raw": "isEmpty : [a] -\u003e Bool", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "_List", - "args": [ - { - "tag": "var", - "name": "a" - } - ] - } - ], - "result": { - "tag": "adt", - "name": "Bool", - "args": [] - } - } - }, - { - "name": "join", - "comment": "Places the given value between all of the lists in the second\nargument and concatenates the result.\n\n join \"a\" [\"H\",\"w\",\"ii\",\"n\"] == \"Hawaiian\"", - "raw": "join : appendable -\u003e [appendable] -\u003e appendable", - "type": { - "tag": "function", - "args": [ - { - "tag": "var", - "name": "appendable" - }, - { - "tag": "adt", - "name": "_List", - "args": [ - { - "tag": "var", - "name": "appendable" - } - ] - } - ], - "result": { - "tag": "var", - "name": "appendable" - } - } - }, - { - "name": "last", - "comment": "Extract the last element of a list. List must be non-empty.\n`(last [1,2,3] == 3)`", - "raw": "last : [a] -\u003e a", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "_List", - "args": [ - { - "tag": "var", - "name": "a" - } - ] - } - ], - "result": { - "tag": "var", - "name": "a" - } - } - }, - { - "name": "length", - "comment": "Determine the length of a list: `(length [1,2,3] == 3)`", - "raw": "length : [a] -\u003e Int", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "_List", - "args": [ - { - "tag": "var", - "name": "a" - } - ] - } - ], - "result": { - "tag": "adt", - "name": "Int", - "args": [] - } - } - }, - { - "name": "map", - "comment": "Apply a function to every element of a list: `(map sqrt [1,4,9] == [1,2,3])`", - "raw": "map : (a -\u003e b) -\u003e [a] -\u003e [b]", - "type": { - "tag": "function", - "args": [ - { - "tag": "function", - "args": [ - { - "tag": "var", - "name": "a" - } - ], - "result": { - "tag": "var", - "name": "b" - } - }, - { - "tag": "adt", - "name": "_List", - "args": [ - { - "tag": "var", - "name": "a" - } - ] - } - ], - "result": { - "tag": "adt", - "name": "_List", - "args": [ - { - "tag": "var", - "name": "b" - } - ] - } - } - }, - { - "name": "maximum", - "comment": "Find the maximum element in a non-empty list: `maximum [1,4,2] == 4`", - "raw": "maximum : [comparable] -\u003e comparable", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "_List", - "args": [ - { - "tag": "var", - "name": "comparable" - } - ] - } - ], - "result": { - "tag": "var", - "name": "comparable" - } - } - }, - { - "name": "minimum", - "comment": "Find the minimum element in a non-empty list: `minimum [3,2,1] == 1`", - "raw": "minimum : [comparable] -\u003e comparable", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "_List", - "args": [ - { - "tag": "var", - "name": "comparable" - } - ] - } - ], - "result": { - "tag": "var", - "name": "comparable" - } - } - }, - { - "name": "or", - "comment": "Check to see if any elements are True.", - "raw": "or : [Bool] -\u003e Bool", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "_List", - "args": [ - { - "tag": "adt", - "name": "Bool", - "args": [] - } - ] - } - ], - "result": { - "tag": "adt", - "name": "Bool", - "args": [] - } - } - }, - { - "name": "partition", - "comment": "Split a list based on the predicate.", - "raw": "partition : (a -\u003e Bool) -\u003e [a] -\u003e ([a],[a])", - "type": { - "tag": "function", - "args": [ - { - "tag": "function", - "args": [ - { - "tag": "var", - "name": "a" - } - ], - "result": { - "tag": "adt", - "name": "Bool", - "args": [] - } - }, - { - "tag": "adt", - "name": "_List", - "args": [ - { - "tag": "var", - "name": "a" - } - ] - } - ], - "result": { - "tag": "adt", - "name": "_Tuple2", - "args": [ - { - "tag": "adt", - "name": "_List", - "args": [ - { - "tag": "var", - "name": "a" - } - ] - }, - { - "tag": "adt", - "name": "_List", - "args": [ - { - "tag": "var", - "name": "a" - } - ] - } - ] - } - } - }, - { - "name": "product", - "comment": "Get the product of the list elements. `(product [1..4] == 24)`", - "raw": "product : [number] -\u003e number", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "_List", - "args": [ - { - "tag": "var", - "name": "number" - } - ] - } - ], - "result": { - "tag": "var", - "name": "number" - } - } - }, - { - "name": "repeat", - "comment": "Creates a list with *n* copies of a value:\n`(repeat 3 (0,0) == [(0,0),(0,0),(0,0)]`", - "raw": "repeat : Int -\u003e a -\u003e [a]", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Int", - "args": [] - }, - { - "tag": "var", - "name": "a" - } - ], - "result": { - "tag": "adt", - "name": "_List", - "args": [ - { - "tag": "var", - "name": "a" - } - ] - } - } - }, - { - "name": "reverse", - "comment": "Reverse a list. `(reverse [1..4] == [4,3,2,1])`", - "raw": "reverse : [a] -\u003e [a]", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "_List", - "args": [ - { - "tag": "var", - "name": "a" - } - ] - } - ], - "result": { - "tag": "adt", - "name": "_List", - "args": [ - { - "tag": "var", - "name": "a" - } - ] - } - } - }, - { - "name": "scanl", - "comment": "Reduce a list from the left, building up all of the intermediate results into a list.\n\n scanl (+) 0 [1,2,3,4] == [0,1,3,6,10]", - "raw": "scanl : (a -\u003e b -\u003e b) -\u003e b -\u003e [a] -\u003e [b]", - "type": { - "tag": "function", - "args": [ - { - "tag": "function", - "args": [ - { - "tag": "var", - "name": "a" - }, - { - "tag": "var", - "name": "b" - } - ], - "result": { - "tag": "var", - "name": "b" - } - }, - { - "tag": "var", - "name": "b" - }, - { - "tag": "adt", - "name": "_List", - "args": [ - { - "tag": "var", - "name": "a" - } - ] - } - ], - "result": { - "tag": "adt", - "name": "_List", - "args": [ - { - "tag": "var", - "name": "b" - } - ] - } - } - }, - { - "name": "scanl1", - "comment": "Same as scanl but it doesn't require a base case. List must be non-empty.\n\n scanl1 (+) [1,2,3,4] == [1,3,6,10]", - "raw": "scanl1 : (a -\u003e a -\u003e a) -\u003e [a] -\u003e [a]", - "type": { - "tag": "function", - "args": [ - { - "tag": "function", - "args": [ - { - "tag": "var", - "name": "a" - }, - { - "tag": "var", - "name": "a" - } - ], - "result": { - "tag": "var", - "name": "a" - } - }, - { - "tag": "adt", - "name": "_List", - "args": [ - { - "tag": "var", - "name": "a" - } - ] - } - ], - "result": { - "tag": "adt", - "name": "_List", - "args": [ - { - "tag": "var", - "name": "a" - } - ] - } - } - }, - { - "name": "sort", - "comment": "Sort values from lowest to highest: `sort [3,1,5] == [1,3,5]`", - "raw": "sort : [comparable] -\u003e [comparable]", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "_List", - "args": [ - { - "tag": "var", - "name": "comparable" - } - ] - } - ], - "result": { - "tag": "adt", - "name": "_List", - "args": [ - { - "tag": "var", - "name": "comparable" - } - ] - } - } - }, - { - "name": "sortBy", - "comment": "Sort values by a derived property.\n\n```haskell\nalice = { name=\"Alice\", height=1.62 }\nbob = { name=\"Bob\" , height=1.85 }\nchuck = { name=\"Chuck\", height=1.76 }\n\nsortBy .name [chuck,alice,bob] == [alice,bob,chuck]\nsortBy .height [chuck,alice,bob] == [alice,chuck,bob]\n\nsortBy String.length [\"mouse\",\"cat\"] == [\"cat\",\"mouse\"]\n```", - "raw": "sortBy : (a -\u003e comparable) -\u003e [a] -\u003e [a]", - "type": { - "tag": "function", - "args": [ - { - "tag": "function", - "args": [ - { - "tag": "var", - "name": "a" - } - ], - "result": { - "tag": "var", - "name": "comparable" - } - }, - { - "tag": "adt", - "name": "_List", - "args": [ - { - "tag": "var", - "name": "a" - } - ] - } - ], - "result": { - "tag": "adt", - "name": "_List", - "args": [ - { - "tag": "var", - "name": "a" - } - ] - } - } - }, - { - "name": "sortWith", - "comment": "Sort values with a custom comparison function.\n\n```haskell\nsortWith flippedComparison [1..5] == [5,4,3,2,1]\n\nflippedComparison a b =\n case compare a b of\n LT -\u003e GT\n EQ -\u003e EQ\n GT -\u003e LT\n```\n\nThis is also the most general sort function, allowing you\nto define any other: `sort == sortWith compare`", - "raw": "sortWith : (a -\u003e a -\u003e Order) -\u003e [a] -\u003e [a]", - "type": { - "tag": "function", - "args": [ - { - "tag": "function", - "args": [ - { - "tag": "var", - "name": "a" - }, - { - "tag": "var", - "name": "a" - } - ], - "result": { - "tag": "adt", - "name": "Order", - "args": [] - } - }, - { - "tag": "adt", - "name": "_List", - "args": [ - { - "tag": "var", - "name": "a" - } - ] - } - ], - "result": { - "tag": "adt", - "name": "_List", - "args": [ - { - "tag": "var", - "name": "a" - } - ] - } - } - }, - { - "name": "sum", - "comment": "Get the sum of the list elements. `(sum [1..4] == 10)`", - "raw": "sum : [number] -\u003e number", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "_List", - "args": [ - { - "tag": "var", - "name": "number" - } - ] - } - ], - "result": { - "tag": "var", - "name": "number" - } - } - }, - { - "name": "tail", - "comment": "Extract the elements after the head of the list. List must be non-empty.\n`(tail [1,2,3] == [2,3])`", - "raw": "tail : [a] -\u003e [a]", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "_List", - "args": [ - { - "tag": "var", - "name": "a" - } - ] - } - ], - "result": { - "tag": "adt", - "name": "_List", - "args": [ - { - "tag": "var", - "name": "a" - } - ] - } - } - }, - { - "name": "take", - "comment": "Take the first n members of a list: `(take 2 [1,2,3,4] == [1,2])`", - "raw": "take : Int -\u003e [a] -\u003e [a]", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Int", - "args": [] - }, - { - "tag": "adt", - "name": "_List", - "args": [ - { - "tag": "var", - "name": "a" - } - ] - } - ], - "result": { - "tag": "adt", - "name": "_List", - "args": [ - { - "tag": "var", - "name": "a" - } - ] - } - } - }, - { - "name": "unzip", - "comment": "Decompose a list of tuples.", - "raw": "unzip : [(a,b)] -\u003e ([a],[b])", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "_List", - "args": [ - { - "tag": "adt", - "name": "_Tuple2", - "args": [ - { - "tag": "var", - "name": "a" - }, - { - "tag": "var", - "name": "b" - } - ] - } - ] - } - ], - "result": { - "tag": "adt", - "name": "_Tuple2", - "args": [ - { - "tag": "adt", - "name": "_List", - "args": [ - { - "tag": "var", - "name": "a" - } - ] - }, - { - "tag": "adt", - "name": "_List", - "args": [ - { - "tag": "var", - "name": "b" - } - ] - } - ] - } - } - }, - { - "name": "zip", - "comment": "Combine two lists, combining them into tuples pairwise.\nIf one list is longer, the extra elements are dropped.\n\n zip [1,2,3] [6,7] == [(1,6),(2,7)]\n zip == zipWith (,)", - "raw": "zip : [a] -\u003e [b] -\u003e [(a,b)]", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "_List", - "args": [ - { - "tag": "var", - "name": "a" - } - ] - }, - { - "tag": "adt", - "name": "_List", - "args": [ - { - "tag": "var", - "name": "b" - } - ] - } - ], - "result": { - "tag": "adt", - "name": "_List", - "args": [ - { - "tag": "adt", - "name": "_Tuple2", - "args": [ - { - "tag": "var", - "name": "a" - }, - { - "tag": "var", - "name": "b" - } - ] - } - ] - } - } - }, - { - "name": "zipWith", - "comment": "Combine two lists, combining them with the given function.\nIf one list is longer, the extra elements are dropped.\n\n zipWith (+) [1,2,3] [1,2,3,4] == [2,4,6]", - "raw": "zipWith : (a -\u003e b -\u003e c) -\u003e [a] -\u003e [b] -\u003e [c]", - "type": { - "tag": "function", - "args": [ - { - "tag": "function", - "args": [ - { - "tag": "var", - "name": "a" - }, - { - "tag": "var", - "name": "b" - } - ], - "result": { - "tag": "var", - "name": "c" - } - }, - { - "tag": "adt", - "name": "_List", - "args": [ - { - "tag": "var", - "name": "a" - } - ] - }, - { - "tag": "adt", - "name": "_List", - "args": [ - { - "tag": "var", - "name": "b" - } - ] - } - ], - "result": { - "tag": "adt", - "name": "_List", - "args": [ - { - "tag": "var", - "name": "c" - } - ] - } - } - } - ] -}, -{ - "name": "Maybe", - "document": "Represents an optional value. Maybe it is there, maybe it is not.\n\n# Type and Constructors\n@docs Maybe\n\n# Taking Maybes apart\n@docs maybe, isJust, isNothing\n\n# Maybes and Lists\n@docs justs", - "aliases": [], - "datatypes": [ - { - "name": "Maybe", - "comment": "The Maybe datatype. Useful when a computation may or may not\nresult in a value (e.g. logarithm is defined only for positive\nnumbers).", - "raw": "data Maybe a = Just a | Nothing", - "typeVariables": [ - "a" - ], - "constructors": [ - { - "name": "Just", - "type": { - "tag": "function", - "args": [ - { - "tag": "var", - "name": "a" - } - ], - "result": { - "tag": "adt", - "name": "Maybe", - "args": [ - { - "tag": "var", - "name": "a" - } - ] - } - } - }, - { - "name": "Nothing", - "type": { - "tag": "adt", - "name": "Maybe", - "args": [ - { - "tag": "var", - "name": "a" - } - ] - } - } - ] - } - ], - "values": [ - { - "name": "cons", - "comment": "", - "raw": "cons : Maybe a -\u003e [a] -\u003e [a]", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Maybe", - "args": [ - { - "tag": "var", - "name": "a" - } - ] - }, - { - "tag": "adt", - "name": "_List", - "args": [ - { - "tag": "var", - "name": "a" - } - ] - } - ], - "result": { - "tag": "adt", - "name": "_List", - "args": [ - { - "tag": "var", - "name": "a" - } - ] - } - } - }, - { - "name": "isJust", - "comment": "Check if a maybe happens to be a `Just`.\n\n isJust (Just 42) == True\n isJust (Just []) == True\n isJust Nothing == False", - "raw": "isJust : Maybe a -\u003e Bool", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Maybe", - "args": [ - { - "tag": "var", - "name": "a" - } - ] - } - ], - "result": { - "tag": "adt", - "name": "Bool", - "args": [] - } - } - }, - { - "name": "isNothing", - "comment": "Check if constructed with `Nothing`.\n\n isNothing (Just 42) == False\n isNothing (Just []) == False\n isNothing Nothing == True", - "raw": "isNothing : Maybe a -\u003e Bool", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Maybe", - "args": [ - { - "tag": "var", - "name": "a" - } - ] - } - ], - "result": { - "tag": "adt", - "name": "Bool", - "args": [] - } - } - }, - { - "name": "justs", - "comment": "Filters out Nothings and extracts the remaining values.\n\n justs [Just 0, Nothing, Just 5, Just 7] == [0,5,7]", - "raw": "justs : [Maybe a] -\u003e [a]", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "_List", - "args": [ - { - "tag": "adt", - "name": "Maybe", - "args": [ - { - "tag": "var", - "name": "a" - } - ] - } - ] - } - ], - "result": { - "tag": "adt", - "name": "_List", - "args": [ - { - "tag": "var", - "name": "a" - } - ] - } - } - }, - { - "name": "maybe", - "comment": "Provide a default value and a function to extract the contents of a `Maybe`.\nWhen given `Nothing` you get the default, when given a `Just` you apply the\nfunction to the associated value.\n\n isPositive : Maybe Int -\u003e Bool\n isPositive maybeInt = maybe False (\\n -\u003e n \u003e 0) maybeInt\n\n map : (a -\u003e b) -\u003e Maybe a -\u003e Maybe b\n map f m = maybe Nothing (\\x -\u003e Just (f x)) m", - "raw": "maybe : b -\u003e (a -\u003e b) -\u003e Maybe a -\u003e b", - "type": { - "tag": "function", - "args": [ - { - "tag": "var", - "name": "b" - }, - { - "tag": "function", - "args": [ - { - "tag": "var", - "name": "a" - } - ], - "result": { - "tag": "var", - "name": "b" - } - }, - { - "tag": "adt", - "name": "Maybe", - "args": [ - { - "tag": "var", - "name": "a" - } - ] - } - ], - "result": { - "tag": "var", - "name": "b" - } - } - } - ] -}, -{ - "name": "Mouse", - "document": "Library for working with mouse input.\n\n# Position\n@docs position, x, y\n\n# Button Status\n@docs isDown, clicks", - "aliases": [], - "datatypes": [], - "values": [ - { - "name": "clicks", - "comment": "Always equal to unit. Event triggers on every mouse click.", - "raw": "clicks : Signal ()", - "type": { - "tag": "adt", - "name": "Signal", - "args": [ - { - "tag": "adt", - "name": "_Tuple0", - "args": [] - } - ] - } - }, - { - "name": "isDown", - "comment": "The current state of the left mouse-button.\nTrue when the button is down, and false otherwise.", - "raw": "isDown : Signal Bool", - "type": { - "tag": "adt", - "name": "Signal", - "args": [ - { - "tag": "adt", - "name": "Bool", - "args": [] - } - ] - } - }, - { - "name": "position", - "comment": "The current mouse position.", - "raw": "position : Signal (Int,Int)", - "type": { - "tag": "adt", - "name": "Signal", - "args": [ - { - "tag": "adt", - "name": "_Tuple2", - "args": [ - { - "tag": "adt", - "name": "Int", - "args": [] - }, - { - "tag": "adt", - "name": "Int", - "args": [] - } - ] - } - ] - } - }, - { - "name": "x", - "comment": "The current x-coordinate of the mouse.", - "raw": "x : Signal Int", - "type": { - "tag": "adt", - "name": "Signal", - "args": [ - { - "tag": "adt", - "name": "Int", - "args": [] - } - ] - } - }, - { - "name": "y", - "comment": "The current y-coordinate of the mouse.", - "raw": "y : Signal Int", - "type": { - "tag": "adt", - "name": "Signal", - "args": [ - { - "tag": "adt", - "name": "Int", - "args": [] - } - ] - } - } - ] -}, -{ - "name": "Random", - "document": "Since the core of Elm is pure, randomness must be handled via signals.\n\n# Random Numbers\n@docs range, float, floatList", - "aliases": [], - "datatypes": [], - "values": [ - { - "name": "float", - "comment": "Produces a new signal that changes whenever the input signal changes.\nThe new values are random numbers in [0..1).", - "raw": "float : Signal a -\u003e Signal Float", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Signal", - "args": [ - { - "tag": "var", - "name": "a" - } - ] - } - ], - "result": { - "tag": "adt", - "name": "Signal", - "args": [ - { - "tag": "adt", - "name": "Float", - "args": [] - } - ] - } - } - }, - { - "name": "floatList", - "comment": "Produces a new signal of lists that changes whenever the input signal\nchanges. The input signal specifies the length of the random list. Each value is\na random number in [0..1).", - "raw": "floatList : Signal Int -\u003e Signal [Float]", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Signal", - "args": [ - { - "tag": "adt", - "name": "Int", - "args": [] - } - ] - } - ], - "result": { - "tag": "adt", - "name": "Signal", - "args": [ - { - "tag": "adt", - "name": "_List", - "args": [ - { - "tag": "adt", - "name": "Float", - "args": [] - } - ] - } - ] - } - } - }, - { - "name": "range", - "comment": "Given a range from low to high and a signal of values, this produces\na new signal that changes whenever the input signal changes. The new\nvalues are random number between 'low' and 'high' inclusive.", - "raw": "range : Int -\u003e Int -\u003e Signal a -\u003e Signal Int", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Int", - "args": [] - }, - { - "tag": "adt", - "name": "Int", - "args": [] - }, - { - "tag": "adt", - "name": "Signal", - "args": [ - { - "tag": "var", - "name": "a" - } - ] - } - ], - "result": { - "tag": "adt", - "name": "Signal", - "args": [ - { - "tag": "adt", - "name": "Int", - "args": [] - } - ] - } - } - } - ] -}, -{ - "name": "Regex", - "document": "A library for working with regular expressions. It uses [the\nsame kind of regular expressions accepted by JavaScript](https://developer.mozilla.org/en/docs/Web/JavaScript/Guide/Regular_Expressions).\n\n# Create\n@docs regex, escape, caseInsensitive\n\n# Helpful Data Structures\n\nThese data structures are needed to help define functions like [`find`](#find)\nand [`replace`](#replace).\n\n@docs HowMany, Match\n\n# Use\n@docs contains, find, replace, split", - "aliases": [ - { - "name": "Match", - "comment": "A `Match` represents all of the details about a particular match in a string.\nHere are details on each field:\n\n * `match` — the full string of the match.\n * `submatches` — a regex might have [subpatterns, surrounded by\n parentheses](https://developer.mozilla.org/en/docs/Web/JavaScript/Guide/Regular_Expressions#Using_Parenthesized_Substring_Matches).\n If there are N subpatterns, there will be N elements in the `submatches` list.\n Each submatch in this list is a `Maybe` because not all subpatterns may trigger.\n For example, `(regex \"(a+)|(b+)\")` will either match many `a`’s or\n many `b`’s, but never both.\n * `index` — the index of the match in the original string.\n * `number` — if you find many matches, you can think of each one\n as being labeled with a `number` starting at one. So the first time you\n find a match, that is match `number` one. Second time is match `number` two.\n This is useful when paired with `replace All` if replacement is dependent on how\n many times a pattern has appeared before.", - "raw": "type Match = { match : String, submatches : [Maybe String], index : Int, number : Int }", - "typeVariables": [], - "type": { - "tag": "record", - "fields": [ - [ - "match", - { - "tag": "adt", - "name": "String", - "args": [] - } - ], - [ - "submatches", - { - "tag": "adt", - "name": "_List", - "args": [ - { - "tag": "adt", - "name": "Maybe", - "args": [ - { - "tag": "adt", - "name": "String", - "args": [] - } - ] - } - ] - } - ], - [ - "index", - { - "tag": "adt", - "name": "Int", - "args": [] - } - ], - [ - "number", - { - "tag": "adt", - "name": "Int", - "args": [] - } - ] - ], - "extension": null - } - } - ], - "datatypes": [ - { - "name": "HowMany", - "comment": "`HowMany` is used to specify how many matches you want to make. So\n`replace All` would replace every match, but `replace (AtMost 2)` would\nreplace at most two matches (i.e. zero, one, two, but never three or more).", - "raw": "data HowMany = All | AtMost Int", - "typeVariables": [], - "constructors": [ - { - "name": "All", - "type": { - "tag": "adt", - "name": "HowMany", - "args": [] - } - }, - { - "name": "AtMost", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Int", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "HowMany", - "args": [] - } - } - } - ] - }, - { - "name": "Regex", - "comment": "", - "raw": "data Regex = Regex", - "typeVariables": [], - "constructors": [ - { - "name": "Regex", - "type": { - "tag": "adt", - "name": "Regex", - "args": [] - } - } - ] - } - ], - "values": [ - { - "name": "caseInsensitive", - "comment": "Make a regex case insensitive", - "raw": "caseInsensitive : Regex -\u003e Regex", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Regex", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Regex", - "args": [] - } - } - }, - { - "name": "contains", - "comment": "Check to see if a Regex is contained in a string.\n\n```haskell\n contains (regex \"123\") \"12345\" == True\n contains (regex \"b+\") \"aabbcc\" == True\n\n contains (regex \"789\") \"12345\" == False\n contains (regex \"z+\") \"aabbcc\" == False\n```", - "raw": "contains : Regex -\u003e String -\u003e Bool", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Regex", - "args": [] - }, - { - "tag": "adt", - "name": "String", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Bool", - "args": [] - } - } - }, - { - "name": "escape", - "comment": "Escape strings to be regular expressions, making all special characters\nsafe. So `regex (escape \"^a+\")` will match exactly `\"^a+\"` instead of a series\nof `a`’s that start at the beginning of the line.", - "raw": "escape : String -\u003e String", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "String", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "String", - "args": [] - } - } - }, - { - "name": "find", - "comment": "Find matches in a string:\n\n```haskell\n findTwoCommas = find (AtMost 2) (regex \",\")\n\n -- map .index (findTwoCommas \"a,b,c,d,e\") == [1,3]\n -- map .index (findTwoCommas \"a b c d e\") == []\n\n places = find All (regex \"[oi]n a (\\\\w+)\") \"I am on a boat in a lake.\"\n\n -- map .match places == [\"on a boat\", \"in a lake\"]\n -- map .submatches places == [ [Just \"boat\"], [Just \"lake\"] ]\n```", - "raw": "find : HowMany -\u003e Regex -\u003e String -\u003e [Match]", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "HowMany", - "args": [] - }, - { - "tag": "adt", - "name": "Regex", - "args": [] - }, - { - "tag": "adt", - "name": "String", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "_List", - "args": [ - { - "tag": "adt", - "name": "Match", - "args": [] - } - ] - } - } - }, - { - "name": "regex", - "comment": "Create a Regex that matches patterns [as specified in JavaScript](https://developer.mozilla.org/en/docs/Web/JavaScript/Guide/Regular_Expressions#Writing_a_Regular_Expression_Pattern).\n\nBe careful to escape backslashes properly! For example, `\"\\w\"` is escaping the\nletter `w` which is probably not what you want. You probably want `\"\\\\w\"`\ninstead, which escapes the backslash.", - "raw": "regex : String -\u003e Regex", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "String", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Regex", - "args": [] - } - } - }, - { - "name": "replace", - "comment": "Replace matches. The function from `Match` to `String` lets\nyou use the details of a specific match when making replacements.\n\n```haskell\n devowel = replace All (regex \"[aeiou]\") (\\_ -\u003e \"\")\n\n -- devowel \"The quick brown fox\" == \"Th qck brwn fx\"\n\n reverseWords = replace All (regex \"\\\\w+\") (\\{match} -\u003e String.reverse match)\n\n -- reverseWords \"deliver mined parts\" == \"reviled denim strap\"\n```", - "raw": "replace : HowMany -\u003e Regex -\u003e (Match -\u003e String) -\u003e String -\u003e String", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "HowMany", - "args": [] - }, - { - "tag": "adt", - "name": "Regex", - "args": [] - }, - { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Match", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "String", - "args": [] - } - }, - { - "tag": "adt", - "name": "String", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "String", - "args": [] - } - } - }, - { - "name": "split", - "comment": "Split a string, using the regex as the separator.\n\n```haskell\n split (AtMost 1) (regex \",\") \"tom,99,90,85\" == [\"tom\",\"99,90,85\"]\n\n split All (regex \",\") \"a,b,c,d\" == [\"a\",\"b\",\"c\",\"d\"]\n```", - "raw": "split : HowMany -\u003e Regex -\u003e String -\u003e [String]", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "HowMany", - "args": [] - }, - { - "tag": "adt", - "name": "Regex", - "args": [] - }, - { - "tag": "adt", - "name": "String", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "_List", - "args": [ - { - "tag": "adt", - "name": "String", - "args": [] - } - ] - } - } - } - ] -}, -{ - "name": "Set", - "document": "A set of unique values. The values can be any comparable type. This\nincludes `Int`, `Float`, `Time`, `Char`, `String`, and tuples or lists\nof comparable types.\n\nInsert, remove, and query operations all take *O(log n)* time.\n\n# Build\n@docs empty, singleton, insert, remove\n\n# Query\n@docs member\n\n# Combine\n@docs union, intersect, diff\n\n# Lists\n@docs toList, fromList\n\n# Transform\n@docs map, foldl, foldr", - "aliases": [], - "datatypes": [], - "values": [ - { - "name": "diff", - "comment": "Get the difference between the first set and the second. Keeps values\nthat do not appear in the second set.", - "raw": "diff : Set comparable -\u003e Set comparable -\u003e Set comparable", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Set", - "args": [ - { - "tag": "var", - "name": "comparable" - } - ] - }, - { - "tag": "adt", - "name": "Set", - "args": [ - { - "tag": "var", - "name": "comparable" - } - ] - } - ], - "result": { - "tag": "adt", - "name": "Set", - "args": [ - { - "tag": "var", - "name": "comparable" - } - ] - } - } - }, - { - "name": "empty", - "comment": "Create an empty set.", - "raw": "empty : Set comparable", - "type": { - "tag": "adt", - "name": "Set", - "args": [ - { - "tag": "var", - "name": "comparable" - } - ] - } - }, - { - "name": "foldl", - "comment": "Fold over the values in a set, in order from lowest to highest.", - "raw": "foldl : (comparable -\u003e b -\u003e b) -\u003e b -\u003e Set comparable -\u003e b", - "type": { - "tag": "function", - "args": [ - { - "tag": "function", - "args": [ - { - "tag": "var", - "name": "comparable" - }, - { - "tag": "var", - "name": "b" - } - ], - "result": { - "tag": "var", - "name": "b" - } - }, - { - "tag": "var", - "name": "b" - }, - { - "tag": "adt", - "name": "Set", - "args": [ - { - "tag": "var", - "name": "comparable" - } - ] - } - ], - "result": { - "tag": "var", - "name": "b" - } - } - }, - { - "name": "foldr", - "comment": "Fold over the values in a set, in order from highest to lowest.", - "raw": "foldr : (comparable -\u003e b -\u003e b) -\u003e b -\u003e Set comparable -\u003e b", - "type": { - "tag": "function", - "args": [ - { - "tag": "function", - "args": [ - { - "tag": "var", - "name": "comparable" - }, - { - "tag": "var", - "name": "b" - } - ], - "result": { - "tag": "var", - "name": "b" - } - }, - { - "tag": "var", - "name": "b" - }, - { - "tag": "adt", - "name": "Set", - "args": [ - { - "tag": "var", - "name": "comparable" - } - ] - } - ], - "result": { - "tag": "var", - "name": "b" - } - } - }, - { - "name": "fromList", - "comment": "Convert a list into a set, removing any duplicates.", - "raw": "fromList : [comparable] -\u003e Set comparable", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "_List", - "args": [ - { - "tag": "var", - "name": "comparable" - } - ] - } - ], - "result": { - "tag": "adt", - "name": "Set", - "args": [ - { - "tag": "var", - "name": "comparable" - } - ] - } - } - }, - { - "name": "insert", - "comment": "Insert a value into a set.", - "raw": "insert : comparable -\u003e Set comparable -\u003e Set comparable", - "type": { - "tag": "function", - "args": [ - { - "tag": "var", - "name": "comparable" - }, - { - "tag": "adt", - "name": "Set", - "args": [ - { - "tag": "var", - "name": "comparable" - } - ] - } - ], - "result": { - "tag": "adt", - "name": "Set", - "args": [ - { - "tag": "var", - "name": "comparable" - } - ] - } - } - }, - { - "name": "intersect", - "comment": "Get the intersection of two sets. Keeps values that appear in both sets.", - "raw": "intersect : Set comparable -\u003e Set comparable -\u003e Set comparable", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Set", - "args": [ - { - "tag": "var", - "name": "comparable" - } - ] - }, - { - "tag": "adt", - "name": "Set", - "args": [ - { - "tag": "var", - "name": "comparable" - } - ] - } - ], - "result": { - "tag": "adt", - "name": "Set", - "args": [ - { - "tag": "var", - "name": "comparable" - } - ] - } - } - }, - { - "name": "map", - "comment": "Map a function onto a set, creating a new set with no duplicates.", - "raw": "map : (comparable -\u003e comparable') -\u003e Set comparable -\u003e Set comparable'", - "type": { - "tag": "function", - "args": [ - { - "tag": "function", - "args": [ - { - "tag": "var", - "name": "comparable" - } - ], - "result": { - "tag": "var", - "name": "comparable'" - } - }, - { - "tag": "adt", - "name": "Set", - "args": [ - { - "tag": "var", - "name": "comparable" - } - ] - } - ], - "result": { - "tag": "adt", - "name": "Set", - "args": [ - { - "tag": "var", - "name": "comparable'" - } - ] - } - } - }, - { - "name": "member", - "comment": "Determine if a value is in a set.", - "raw": "member : comparable -\u003e Set comparable -\u003e Bool", - "type": { - "tag": "function", - "args": [ - { - "tag": "var", - "name": "comparable" - }, - { - "tag": "adt", - "name": "Set", - "args": [ - { - "tag": "var", - "name": "comparable" - } - ] - } - ], - "result": { - "tag": "adt", - "name": "Bool", - "args": [] - } - } - }, - { - "name": "remove", - "comment": "Remove a value from a set. If the value is not found, no changes are made.", - "raw": "remove : comparable -\u003e Set comparable -\u003e Set comparable", - "type": { - "tag": "function", - "args": [ - { - "tag": "var", - "name": "comparable" - }, - { - "tag": "adt", - "name": "Set", - "args": [ - { - "tag": "var", - "name": "comparable" - } - ] - } - ], - "result": { - "tag": "adt", - "name": "Set", - "args": [ - { - "tag": "var", - "name": "comparable" - } - ] - } - } - }, - { - "name": "singleton", - "comment": "Create a set with one value.", - "raw": "singleton : comparable -\u003e Set comparable", - "type": { - "tag": "function", - "args": [ - { - "tag": "var", - "name": "comparable" - } - ], - "result": { - "tag": "adt", - "name": "Set", - "args": [ - { - "tag": "var", - "name": "comparable" - } - ] - } - } - }, - { - "name": "toList", - "comment": "Convert a set into a list.", - "raw": "toList : Set comparable -\u003e [comparable]", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Set", - "args": [ - { - "tag": "var", - "name": "comparable" - } - ] - } - ], - "result": { - "tag": "adt", - "name": "_List", - "args": [ - { - "tag": "var", - "name": "comparable" - } - ] - } - } - }, - { - "name": "union", - "comment": "Get the union of two sets. Keep all values.", - "raw": "union : Set comparable -\u003e Set comparable -\u003e Set comparable", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Set", - "args": [ - { - "tag": "var", - "name": "comparable" - } - ] - }, - { - "tag": "adt", - "name": "Set", - "args": [ - { - "tag": "var", - "name": "comparable" - } - ] - } - ], - "result": { - "tag": "adt", - "name": "Set", - "args": [ - { - "tag": "var", - "name": "comparable" - } - ] - } - } - } - ] -}, -{ - "name": "Signal", - "document": "The library for general signal manipulation. Includes lift functions up to\n`lift8` and infix lift operators `\u003c~` and `~`, combinations, filters, and\npast-dependence.\n\nSignals are time-varying values. Lifted functions are reevaluated whenever any of\ntheir input signals has an event. Signal events may be of the same value as the\nprevious value of the signal. Such signals are useful for timing and\npast-dependence.\n\nSome useful functions for working with time (e.g. setting FPS) and combining\nsignals and time (e.g. delaying updates, getting timestamps) can be found in\nthe [`Time`](/docs/Signal/Time.elm) library.\n\n# Combine\n@docs constant, lift, lift2, merge, merges, combine\n\n# Past-Dependence\n@docs foldp, count, countIf\n\n#Filters\n@docs keepIf, dropIf, keepWhen, dropWhen, dropRepeats, sampleOn\n\n# Pretty Lift\n@docs (\u003c~), (~)\n\n# Do you even lift?\n@docs lift3, lift4, lift5, lift6, lift7, lift8", - "aliases": [], - "datatypes": [ - { - "name": "Signal", - "comment": "", - "raw": "data Signal a = Signal", - "typeVariables": [ - "a" - ], - "constructors": [ - { - "name": "Signal", - "type": { - "tag": "adt", - "name": "Signal", - "args": [ - { - "tag": "var", - "name": "a" - } - ] - } - } - ] - } - ], - "values": [ - { - "name": "\u003c~", - "comment": "An alias for `lift`. A prettier way to apply a function to the current value\nof a signal.", - "raw": "(\u003c~) : (a -\u003e b) -\u003e Signal a -\u003e Signal b", - "type": { - "tag": "function", - "args": [ - { - "tag": "function", - "args": [ - { - "tag": "var", - "name": "a" - } - ], - "result": { - "tag": "var", - "name": "b" - } - }, - { - "tag": "adt", - "name": "Signal", - "args": [ - { - "tag": "var", - "name": "a" - } - ] - } - ], - "result": { - "tag": "adt", - "name": "Signal", - "args": [ - { - "tag": "var", - "name": "b" - } - ] - } - }, - "associativity": "left", - "precedence": 4 - }, - { - "name": "combine", - "comment": "Combine a list of signals into a signal of lists.", - "raw": "combine : [Signal a] -\u003e Signal [a]", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "_List", - "args": [ - { - "tag": "adt", - "name": "Signal", - "args": [ - { - "tag": "var", - "name": "a" - } - ] - } - ] - } - ], - "result": { - "tag": "adt", - "name": "Signal", - "args": [ - { - "tag": "adt", - "name": "_List", - "args": [ - { - "tag": "var", - "name": "a" - } - ] - } - ] - } - } - }, - { - "name": "constant", - "comment": "Create a constant signal that never changes.", - "raw": "constant : a -\u003e Signal a", - "type": { - "tag": "function", - "args": [ - { - "tag": "var", - "name": "a" - } - ], - "result": { - "tag": "adt", - "name": "Signal", - "args": [ - { - "tag": "var", - "name": "a" - } - ] - } - } - }, - { - "name": "count", - "comment": "Count the number of events that have occurred.", - "raw": "count : Signal a -\u003e Signal Int", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Signal", - "args": [ - { - "tag": "var", - "name": "a" - } - ] - } - ], - "result": { - "tag": "adt", - "name": "Signal", - "args": [ - { - "tag": "adt", - "name": "Int", - "args": [] - } - ] - } - } - }, - { - "name": "countIf", - "comment": "Count the number of events that have occurred that satisfy a given predicate.", - "raw": "countIf : (a -\u003e Bool) -\u003e Signal a -\u003e Signal Int", - "type": { - "tag": "function", - "args": [ - { - "tag": "function", - "args": [ - { - "tag": "var", - "name": "a" - } - ], - "result": { - "tag": "adt", - "name": "Bool", - "args": [] - } - }, - { - "tag": "adt", - "name": "Signal", - "args": [ - { - "tag": "var", - "name": "a" - } - ] - } - ], - "result": { - "tag": "adt", - "name": "Signal", - "args": [ - { - "tag": "adt", - "name": "Int", - "args": [] - } - ] - } - } - }, - { - "name": "dropIf", - "comment": "Drop events that satisfy the given predicate. Elm does not allow undefined\nsignals, so a base case must be provided in case the predicate is satisfied\ninitially.", - "raw": "dropIf : (a -\u003e Bool) -\u003e a -\u003e Signal a -\u003e Signal a", - "type": { - "tag": "function", - "args": [ - { - "tag": "function", - "args": [ - { - "tag": "var", - "name": "a" - } - ], - "result": { - "tag": "adt", - "name": "Bool", - "args": [] - } - }, - { - "tag": "var", - "name": "a" - }, - { - "tag": "adt", - "name": "Signal", - "args": [ - { - "tag": "var", - "name": "a" - } - ] - } - ], - "result": { - "tag": "adt", - "name": "Signal", - "args": [ - { - "tag": "var", - "name": "a" - } - ] - } - } - }, - { - "name": "dropRepeats", - "comment": "Drop updates that repeat the current value of the signal.\n\nImagine a signal `numbers` has initial value\n0 and then updates with values 0, 0, 1, 1, and 2. `dropRepeats numbers`\nis a signal that has initial value 0 and updates as follows: ignore 0,\nignore 0, update to 1, ignore 1, update to 2.", - "raw": "dropRepeats : Signal a -\u003e Signal a", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Signal", - "args": [ - { - "tag": "var", - "name": "a" - } - ] - } - ], - "result": { - "tag": "adt", - "name": "Signal", - "args": [ - { - "tag": "var", - "name": "a" - } - ] - } - } - }, - { - "name": "dropWhen", - "comment": "Drop events when the first signal is true. When the first signal becomes\nfalse, the most recent value of the second signal will be propagated. Until the\nfirst signal becomes true again, all events will be propagated. Elm does not\nallow undefined signals, s oa base case must be provided in case the first\nsignal is true initially.", - "raw": "dropWhen : Signal Bool -\u003e a -\u003e Signal a -\u003e Signal a", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Signal", - "args": [ - { - "tag": "adt", - "name": "Bool", - "args": [] - } - ] - }, - { - "tag": "var", - "name": "a" - }, - { - "tag": "adt", - "name": "Signal", - "args": [ - { - "tag": "var", - "name": "a" - } - ] - } - ], - "result": { - "tag": "adt", - "name": "Signal", - "args": [ - { - "tag": "var", - "name": "a" - } - ] - } - } - }, - { - "name": "foldp", - "comment": "Create a past-dependent signal. Each value given on the input signal will\nbe accumulated, producing a new output value.\n\nFor instance, `foldp (+) 0 (fps 40)` is the time the program has been running,\nupdated 40 times a second.", - "raw": "foldp : (a -\u003e b -\u003e b) -\u003e b -\u003e Signal a -\u003e Signal b", - "type": { - "tag": "function", - "args": [ - { - "tag": "function", - "args": [ - { - "tag": "var", - "name": "a" - }, - { - "tag": "var", - "name": "b" - } - ], - "result": { - "tag": "var", - "name": "b" - } - }, - { - "tag": "var", - "name": "b" - }, - { - "tag": "adt", - "name": "Signal", - "args": [ - { - "tag": "var", - "name": "a" - } - ] - } - ], - "result": { - "tag": "adt", - "name": "Signal", - "args": [ - { - "tag": "var", - "name": "b" - } - ] - } - } - }, - { - "name": "keepIf", - "comment": "Keep only events that satisfy the given predicate. Elm does not allow\nundefined signals, so a base case must be provided in case the predicate is\nnot satisfied initially.", - "raw": "keepIf : (a -\u003e Bool) -\u003e a -\u003e Signal a -\u003e Signal a", - "type": { - "tag": "function", - "args": [ - { - "tag": "function", - "args": [ - { - "tag": "var", - "name": "a" - } - ], - "result": { - "tag": "adt", - "name": "Bool", - "args": [] - } - }, - { - "tag": "var", - "name": "a" - }, - { - "tag": "adt", - "name": "Signal", - "args": [ - { - "tag": "var", - "name": "a" - } - ] - } - ], - "result": { - "tag": "adt", - "name": "Signal", - "args": [ - { - "tag": "var", - "name": "a" - } - ] - } - } - }, - { - "name": "keepWhen", - "comment": "Keep events only when the first signal is true. When the first signal\nbecomes true, the most recent value of the second signal will be propagated.\nUntil the first signal becomes false again, all events will be propagated. Elm\ndoes not allow undefined signals, so a base case must be provided in case the\nfirst signal is not true initially.", - "raw": "keepWhen : Signal Bool -\u003e a -\u003e Signal a -\u003e Signal a", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Signal", - "args": [ - { - "tag": "adt", - "name": "Bool", - "args": [] - } - ] - }, - { - "tag": "var", - "name": "a" - }, - { - "tag": "adt", - "name": "Signal", - "args": [ - { - "tag": "var", - "name": "a" - } - ] - } - ], - "result": { - "tag": "adt", - "name": "Signal", - "args": [ - { - "tag": "var", - "name": "a" - } - ] - } - } - }, - { - "name": "lift", - "comment": "Transform a signal with a given function.", - "raw": "lift : (a -\u003e b) -\u003e Signal a -\u003e Signal b", - "type": { - "tag": "function", - "args": [ - { - "tag": "function", - "args": [ - { - "tag": "var", - "name": "a" - } - ], - "result": { - "tag": "var", - "name": "b" - } - }, - { - "tag": "adt", - "name": "Signal", - "args": [ - { - "tag": "var", - "name": "a" - } - ] - } - ], - "result": { - "tag": "adt", - "name": "Signal", - "args": [ - { - "tag": "var", - "name": "b" - } - ] - } - } - }, - { - "name": "lift2", - "comment": "Combine two signals with a given function.", - "raw": "lift2 : (a -\u003e b -\u003e c) -\u003e Signal a -\u003e Signal b -\u003e Signal c", - "type": { - "tag": "function", - "args": [ - { - "tag": "function", - "args": [ - { - "tag": "var", - "name": "a" - }, - { - "tag": "var", - "name": "b" - } - ], - "result": { - "tag": "var", - "name": "c" - } - }, - { - "tag": "adt", - "name": "Signal", - "args": [ - { - "tag": "var", - "name": "a" - } - ] - }, - { - "tag": "adt", - "name": "Signal", - "args": [ - { - "tag": "var", - "name": "b" - } - ] - } - ], - "result": { - "tag": "adt", - "name": "Signal", - "args": [ - { - "tag": "var", - "name": "c" - } - ] - } - } - }, - { - "name": "lift3", - "comment": "", - "raw": "lift3 : (a -\u003e b -\u003e c -\u003e d) -\u003e Signal a -\u003e Signal b -\u003e Signal c -\u003e Signal d", - "type": { - "tag": "function", - "args": [ - { - "tag": "function", - "args": [ - { - "tag": "var", - "name": "a" - }, - { - "tag": "var", - "name": "b" - }, - { - "tag": "var", - "name": "c" - } - ], - "result": { - "tag": "var", - "name": "d" - } - }, - { - "tag": "adt", - "name": "Signal", - "args": [ - { - "tag": "var", - "name": "a" - } - ] - }, - { - "tag": "adt", - "name": "Signal", - "args": [ - { - "tag": "var", - "name": "b" - } - ] - }, - { - "tag": "adt", - "name": "Signal", - "args": [ - { - "tag": "var", - "name": "c" - } - ] - } - ], - "result": { - "tag": "adt", - "name": "Signal", - "args": [ - { - "tag": "var", - "name": "d" - } - ] - } - } - }, - { - "name": "lift4", - "comment": "", - "raw": "lift4 : (a -\u003e b -\u003e c -\u003e d -\u003e e) -\u003e Signal a -\u003e Signal b -\u003e Signal c -\u003e Signal d -\u003e Signal e", - "type": { - "tag": "function", - "args": [ - { - "tag": "function", - "args": [ - { - "tag": "var", - "name": "a" - }, - { - "tag": "var", - "name": "b" - }, - { - "tag": "var", - "name": "c" - }, - { - "tag": "var", - "name": "d" - } - ], - "result": { - "tag": "var", - "name": "e" - } - }, - { - "tag": "adt", - "name": "Signal", - "args": [ - { - "tag": "var", - "name": "a" - } - ] - }, - { - "tag": "adt", - "name": "Signal", - "args": [ - { - "tag": "var", - "name": "b" - } - ] - }, - { - "tag": "adt", - "name": "Signal", - "args": [ - { - "tag": "var", - "name": "c" - } - ] - }, - { - "tag": "adt", - "name": "Signal", - "args": [ - { - "tag": "var", - "name": "d" - } - ] - } - ], - "result": { - "tag": "adt", - "name": "Signal", - "args": [ - { - "tag": "var", - "name": "e" - } - ] - } - } - }, - { - "name": "lift5", - "comment": "", - "raw": "lift5 : (a -\u003e b -\u003e c -\u003e d -\u003e e -\u003e f) -\u003e Signal a -\u003e Signal b -\u003e Signal c -\u003e Signal d -\u003e Signal e -\u003e Signal f", - "type": { - "tag": "function", - "args": [ - { - "tag": "function", - "args": [ - { - "tag": "var", - "name": "a" - }, - { - "tag": "var", - "name": "b" - }, - { - "tag": "var", - "name": "c" - }, - { - "tag": "var", - "name": "d" - }, - { - "tag": "var", - "name": "e" - } - ], - "result": { - "tag": "var", - "name": "f" - } - }, - { - "tag": "adt", - "name": "Signal", - "args": [ - { - "tag": "var", - "name": "a" - } - ] - }, - { - "tag": "adt", - "name": "Signal", - "args": [ - { - "tag": "var", - "name": "b" - } - ] - }, - { - "tag": "adt", - "name": "Signal", - "args": [ - { - "tag": "var", - "name": "c" - } - ] - }, - { - "tag": "adt", - "name": "Signal", - "args": [ - { - "tag": "var", - "name": "d" - } - ] - }, - { - "tag": "adt", - "name": "Signal", - "args": [ - { - "tag": "var", - "name": "e" - } - ] - } - ], - "result": { - "tag": "adt", - "name": "Signal", - "args": [ - { - "tag": "var", - "name": "f" - } - ] - } - } - }, - { - "name": "lift6", - "comment": "", - "raw": "lift6 : (a -\u003e b -\u003e c -\u003e d -\u003e e -\u003e f -\u003e g)\n -\u003e Signal a -\u003e Signal b -\u003e Signal c -\u003e Signal d -\u003e Signal e -\u003e Signal f -\u003e Signal g", - "type": { - "tag": "function", - "args": [ - { - "tag": "function", - "args": [ - { - "tag": "var", - "name": "a" - }, - { - "tag": "var", - "name": "b" - }, - { - "tag": "var", - "name": "c" - }, - { - "tag": "var", - "name": "d" - }, - { - "tag": "var", - "name": "e" - }, - { - "tag": "var", - "name": "f" - } - ], - "result": { - "tag": "var", - "name": "g" - } - }, - { - "tag": "adt", - "name": "Signal", - "args": [ - { - "tag": "var", - "name": "a" - } - ] - }, - { - "tag": "adt", - "name": "Signal", - "args": [ - { - "tag": "var", - "name": "b" - } - ] - }, - { - "tag": "adt", - "name": "Signal", - "args": [ - { - "tag": "var", - "name": "c" - } - ] - }, - { - "tag": "adt", - "name": "Signal", - "args": [ - { - "tag": "var", - "name": "d" - } - ] - }, - { - "tag": "adt", - "name": "Signal", - "args": [ - { - "tag": "var", - "name": "e" - } - ] - }, - { - "tag": "adt", - "name": "Signal", - "args": [ - { - "tag": "var", - "name": "f" - } - ] - } - ], - "result": { - "tag": "adt", - "name": "Signal", - "args": [ - { - "tag": "var", - "name": "g" - } - ] - } - } - }, - { - "name": "lift7", - "comment": "", - "raw": "lift7 : (a -\u003e b -\u003e c -\u003e d -\u003e e -\u003e f -\u003e g -\u003e h)\n -\u003e Signal a -\u003e Signal b -\u003e Signal c -\u003e Signal d -\u003e Signal e -\u003e Signal f -\u003e Signal g -\u003e Signal h", - "type": { - "tag": "function", - "args": [ - { - "tag": "function", - "args": [ - { - "tag": "var", - "name": "a" - }, - { - "tag": "var", - "name": "b" - }, - { - "tag": "var", - "name": "c" - }, - { - "tag": "var", - "name": "d" - }, - { - "tag": "var", - "name": "e" - }, - { - "tag": "var", - "name": "f" - }, - { - "tag": "var", - "name": "g" - } - ], - "result": { - "tag": "var", - "name": "h" - } - }, - { - "tag": "adt", - "name": "Signal", - "args": [ - { - "tag": "var", - "name": "a" - } - ] - }, - { - "tag": "adt", - "name": "Signal", - "args": [ - { - "tag": "var", - "name": "b" - } - ] - }, - { - "tag": "adt", - "name": "Signal", - "args": [ - { - "tag": "var", - "name": "c" - } - ] - }, - { - "tag": "adt", - "name": "Signal", - "args": [ - { - "tag": "var", - "name": "d" - } - ] - }, - { - "tag": "adt", - "name": "Signal", - "args": [ - { - "tag": "var", - "name": "e" - } - ] - }, - { - "tag": "adt", - "name": "Signal", - "args": [ - { - "tag": "var", - "name": "f" - } - ] - }, - { - "tag": "adt", - "name": "Signal", - "args": [ - { - "tag": "var", - "name": "g" - } - ] - } - ], - "result": { - "tag": "adt", - "name": "Signal", - "args": [ - { - "tag": "var", - "name": "h" - } - ] - } - } - }, - { - "name": "lift8", - "comment": "", - "raw": "lift8 : (a -\u003e b -\u003e c -\u003e d -\u003e e -\u003e f -\u003e g -\u003e h -\u003e i)\n -\u003e Signal a -\u003e Signal b -\u003e Signal c -\u003e Signal d -\u003e Signal e -\u003e Signal f -\u003e Signal g -\u003e Signal h -\u003e Signal i", - "type": { - "tag": "function", - "args": [ - { - "tag": "function", - "args": [ - { - "tag": "var", - "name": "a" - }, - { - "tag": "var", - "name": "b" - }, - { - "tag": "var", - "name": "c" - }, - { - "tag": "var", - "name": "d" - }, - { - "tag": "var", - "name": "e" - }, - { - "tag": "var", - "name": "f" - }, - { - "tag": "var", - "name": "g" - }, - { - "tag": "var", - "name": "h" - } - ], - "result": { - "tag": "var", - "name": "i" - } - }, - { - "tag": "adt", - "name": "Signal", - "args": [ - { - "tag": "var", - "name": "a" - } - ] - }, - { - "tag": "adt", - "name": "Signal", - "args": [ - { - "tag": "var", - "name": "b" - } - ] - }, - { - "tag": "adt", - "name": "Signal", - "args": [ - { - "tag": "var", - "name": "c" - } - ] - }, - { - "tag": "adt", - "name": "Signal", - "args": [ - { - "tag": "var", - "name": "d" - } - ] - }, - { - "tag": "adt", - "name": "Signal", - "args": [ - { - "tag": "var", - "name": "e" - } - ] - }, - { - "tag": "adt", - "name": "Signal", - "args": [ - { - "tag": "var", - "name": "f" - } - ] - }, - { - "tag": "adt", - "name": "Signal", - "args": [ - { - "tag": "var", - "name": "g" - } - ] - }, - { - "tag": "adt", - "name": "Signal", - "args": [ - { - "tag": "var", - "name": "h" - } - ] - } - ], - "result": { - "tag": "adt", - "name": "Signal", - "args": [ - { - "tag": "var", - "name": "i" - } - ] - } - } - }, - { - "name": "merge", - "comment": "Merge two signals into one, biased towards the first signal if both signals\nupdate at the same time.", - "raw": "merge : Signal a -\u003e Signal a -\u003e Signal a", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Signal", - "args": [ - { - "tag": "var", - "name": "a" - } - ] - }, - { - "tag": "adt", - "name": "Signal", - "args": [ - { - "tag": "var", - "name": "a" - } - ] - } - ], - "result": { - "tag": "adt", - "name": "Signal", - "args": [ - { - "tag": "var", - "name": "a" - } - ] - } - } - }, - { - "name": "merges", - "comment": "Merge many signals into one, biased towards the left-most signal if multiple\nsignals update simultaneously.", - "raw": "merges : [Signal a] -\u003e Signal a", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "_List", - "args": [ - { - "tag": "adt", - "name": "Signal", - "args": [ - { - "tag": "var", - "name": "a" - } - ] - } - ] - } - ], - "result": { - "tag": "adt", - "name": "Signal", - "args": [ - { - "tag": "var", - "name": "a" - } - ] - } - } - }, - { - "name": "sampleOn", - "comment": "Sample from the second input every time an event occurs on the first input.\nFor example, `(sampleOn clicks (every second))` will give the approximate time\nof the latest click.", - "raw": "sampleOn : Signal a -\u003e Signal b -\u003e Signal b", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Signal", - "args": [ - { - "tag": "var", - "name": "a" - } - ] - }, - { - "tag": "adt", - "name": "Signal", - "args": [ - { - "tag": "var", - "name": "b" - } - ] - } - ], - "result": { - "tag": "adt", - "name": "Signal", - "args": [ - { - "tag": "var", - "name": "b" - } - ] - } - } - }, - { - "name": "~", - "comment": "Informally, an alias for `liftN`. Intersperse it between additional signal\narguments of the lifted function.\n\nFormally, signal application. This takes two signals, holding a function and\na value. It applies the current function to the current value.\n\nThe following expressions are equivalent:\n\n scene \u003c~ Window.dimensions ~ Mouse.position\n lift2 scene Window.dimensions Mouse.position", - "raw": "(~) : Signal (a -\u003e b) -\u003e Signal a -\u003e Signal b", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Signal", - "args": [ - { - "tag": "function", - "args": [ - { - "tag": "var", - "name": "a" - } - ], - "result": { - "tag": "var", - "name": "b" - } - } - ] - }, - { - "tag": "adt", - "name": "Signal", - "args": [ - { - "tag": "var", - "name": "a" - } - ] - } - ], - "result": { - "tag": "adt", - "name": "Signal", - "args": [ - { - "tag": "var", - "name": "b" - } - ] - } - }, - "associativity": "left", - "precedence": 4 - } - ] -}, -{ - "name": "String", - "document": "A built-in representation for efficient string manipulation. String literals\nare enclosed in `\"double quotes\"`. Strings are *not* lists of characters.\n\n# Basics\n@docs isEmpty, length, reverse, repeat\n\n# Building and Splitting\n@docs cons, uncons, append, concat, split, join, words, lines\n\n# Get Substrings\n@docs sub, left, right, dropLeft, dropRight\n\n# Check for Substrings\n@docs contains, startsWith, endsWith, indexes, indices\n\n# Conversions\n@docs show, toInt, toFloat, toList, fromList\n\n# Formatting\nCosmetic operations such as padding with extra characters or trimming whitespace.\n\n@docs toUpper, toLower,\n pad, padLeft, padRight,\n trim, trimLeft, trimRight\n\n# Higher-Order Functions\n@docs map, filter, foldl, foldr, any, all", - "aliases": [], - "datatypes": [], - "values": [ - { - "name": "all", - "comment": "Check to see if *all* characters satisfy a predicate.\n\n all isDigit \"90210\" == True\n all isDigit \"R2-D2\" == False\n all isDigit \"heart\" == False", - "raw": "all : (Char -\u003e Bool) -\u003e String -\u003e Bool", - "type": { - "tag": "function", - "args": [ - { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Char", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Bool", - "args": [] - } - }, - { - "tag": "adt", - "name": "String", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Bool", - "args": [] - } - } - }, - { - "name": "any", - "comment": "Check to see if *any* characters satisfy a predicate.\n\n any isDigit \"90210\" == True\n any isDigit \"R2-D2\" == True\n any isDigit \"heart\" == False", - "raw": "any : (Char -\u003e Bool) -\u003e String -\u003e Bool", - "type": { - "tag": "function", - "args": [ - { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Char", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Bool", - "args": [] - } - }, - { - "tag": "adt", - "name": "String", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Bool", - "args": [] - } - } - }, - { - "name": "append", - "comment": "Append two strings. You can also use [the `(++)` operator](/library/List.elm#++)\nto do this.\n\n append \"butter\" \"fly\" == \"butterfly\"", - "raw": "append : String -\u003e String -\u003e String", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "String", - "args": [] - }, - { - "tag": "adt", - "name": "String", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "String", - "args": [] - } - } - }, - { - "name": "concat", - "comment": "Concatenate many strings into one.\n\n concat [\"never\",\"the\",\"less\"] == \"nevertheless\"", - "raw": "concat : [String] -\u003e String", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "_List", - "args": [ - { - "tag": "adt", - "name": "String", - "args": [] - } - ] - } - ], - "result": { - "tag": "adt", - "name": "String", - "args": [] - } - } - }, - { - "name": "cons", - "comment": "Add a character to the beginning of a string", - "raw": "cons : Char -\u003e String -\u003e String", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Char", - "args": [] - }, - { - "tag": "adt", - "name": "String", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "String", - "args": [] - } - } - }, - { - "name": "contains", - "comment": "See if a string contains another one.\n\n contains \"the\" \"theory\" == True\n contains \"hat\" \"theory\" == False\n contains \"THE\" \"theory\" == False\n\nUse `Regex.contains` if you need something more flexible.", - "raw": "contains : String -\u003e String -\u003e Bool", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "String", - "args": [] - }, - { - "tag": "adt", - "name": "String", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Bool", - "args": [] - } - } - }, - { - "name": "dropLeft", - "comment": "Drop N characters from the left side of a string.", - "raw": "dropLeft : Int -\u003e String -\u003e String", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Int", - "args": [] - }, - { - "tag": "adt", - "name": "String", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "String", - "args": [] - } - } - }, - { - "name": "dropRight", - "comment": "Drop N characters from the right side of a string.", - "raw": "dropRight : Int -\u003e String -\u003e String", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Int", - "args": [] - }, - { - "tag": "adt", - "name": "String", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "String", - "args": [] - } - } - }, - { - "name": "endsWith", - "comment": "See if a string ends with another one.\n\n endsWith \"the\" \"theory\" == False\n endsWith \"ory\" \"theory\" == True", - "raw": "endsWith : String -\u003e String -\u003e Bool", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "String", - "args": [] - }, - { - "tag": "adt", - "name": "String", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Bool", - "args": [] - } - } - }, - { - "name": "filter", - "comment": "Keep only the characters that satisfy the predicate:\n\n filter isDigit \"R2-D2\" == \"22\"", - "raw": "filter : (Char -\u003e Bool) -\u003e String -\u003e String", - "type": { - "tag": "function", - "args": [ - { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Char", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Bool", - "args": [] - } - }, - { - "tag": "adt", - "name": "String", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "String", - "args": [] - } - } - }, - { - "name": "foldl", - "comment": "Reduce a string from the left:\n\n foldl cons \"\" \"time\" == \"emit\"", - "raw": "foldl : (Char -\u003e b -\u003e b) -\u003e b -\u003e String -\u003e b", - "type": { - "tag": "function", - "args": [ - { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Char", - "args": [] - }, - { - "tag": "var", - "name": "b" - } - ], - "result": { - "tag": "var", - "name": "b" - } - }, - { - "tag": "var", - "name": "b" - }, - { - "tag": "adt", - "name": "String", - "args": [] - } - ], - "result": { - "tag": "var", - "name": "b" - } - } - }, - { - "name": "foldr", - "comment": "Reduce a string from the right:\n\n foldr cons \"\" \"time\" == \"time\"", - "raw": "foldr : (Char -\u003e b -\u003e b) -\u003e b -\u003e String -\u003e b", - "type": { - "tag": "function", - "args": [ - { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Char", - "args": [] - }, - { - "tag": "var", - "name": "b" - } - ], - "result": { - "tag": "var", - "name": "b" - } - }, - { - "tag": "var", - "name": "b" - }, - { - "tag": "adt", - "name": "String", - "args": [] - } - ], - "result": { - "tag": "var", - "name": "b" - } - } - }, - { - "name": "fromList", - "comment": "Convert a list of characters into a String. Can be useful if you\nwant to create a string primarly by consing, perhaps for decoding\nsomething.\n\n fromList ['a','b','c'] == \"abc\"", - "raw": "fromList : [Char] -\u003e String", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "_List", - "args": [ - { - "tag": "adt", - "name": "Char", - "args": [] - } - ] - } - ], - "result": { - "tag": "adt", - "name": "String", - "args": [] - } - } - }, - { - "name": "indexes", - "comment": "Get all of the indexes for a substring.\n\n indexes \"i\" \"Mississippi\" == [1,4,7,10]\n indexes \"ss\" \"Mississippi\" == [2,5]\n indexes \"needle\" \"haystack\" == []", - "raw": "indexes : String -\u003e String -\u003e [Int]", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "String", - "args": [] - }, - { - "tag": "adt", - "name": "String", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "_List", - "args": [ - { - "tag": "adt", - "name": "Int", - "args": [] - } - ] - } - } - }, - { - "name": "indices", - "comment": "Alias for `indexes`", - "raw": "indices : String -\u003e String -\u003e [Int]", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "String", - "args": [] - }, - { - "tag": "adt", - "name": "String", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "_List", - "args": [ - { - "tag": "adt", - "name": "Int", - "args": [] - } - ] - } - } - }, - { - "name": "isEmpty", - "comment": "Check if a string is empty.\n\n isEmpty \"\" == True\n isEmpty \"the world\" == False", - "raw": "isEmpty : String -\u003e Bool", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "String", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Bool", - "args": [] - } - } - }, - { - "name": "join", - "comment": "Put many strings together with a given separator.\n\n join \" \" [\"cat\",\"dog\",\"cow\"] == \"cat dog cow\"\n join \"/\" [\"home\",\"evan\",\"Desktop\"] == \"home/evan/Desktop\"", - "raw": "join : String -\u003e [String] -\u003e String", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "String", - "args": [] - }, - { - "tag": "adt", - "name": "_List", - "args": [ - { - "tag": "adt", - "name": "String", - "args": [] - } - ] - } - ], - "result": { - "tag": "adt", - "name": "String", - "args": [] - } - } - }, - { - "name": "left", - "comment": "Take N characters from the left side of a string.", - "raw": "left : Int -\u003e String -\u003e String", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Int", - "args": [] - }, - { - "tag": "adt", - "name": "String", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "String", - "args": [] - } - } - }, - { - "name": "length", - "comment": "Get the length of a string.\n\n length \"innumerable\" == 11", - "raw": "length : String -\u003e Int", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "String", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Int", - "args": [] - } - } - }, - { - "name": "lines", - "comment": "Break a string into lines, splitting on newlines.\n\n lines \"How are you?\\nGood? == [\"How are you?\", \"Good?\"]", - "raw": "lines : String -\u003e [String]", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "String", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "_List", - "args": [ - { - "tag": "adt", - "name": "String", - "args": [] - } - ] - } - } - }, - { - "name": "map", - "comment": "Transform every character in a string\n\n map (\\c -\u003e if c == '/' then '.' else c) \"a/b/c\" == \"a.b.c\"", - "raw": "map : (Char -\u003e Char) -\u003e String -\u003e String", - "type": { - "tag": "function", - "args": [ - { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Char", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Char", - "args": [] - } - }, - { - "tag": "adt", - "name": "String", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "String", - "args": [] - } - } - }, - { - "name": "pad", - "comment": "Pad a string on both sides until it has a given length.\n\n pad 5 ' ' \"1\" == \" 1 \"\n pad 5 ' ' \"11\" == \" 11 \"\n pad 5 ' ' \"121\" == \" 121 \"", - "raw": "pad : Int -\u003e Char -\u003e String -\u003e String", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Int", - "args": [] - }, - { - "tag": "adt", - "name": "Char", - "args": [] - }, - { - "tag": "adt", - "name": "String", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "String", - "args": [] - } - } - }, - { - "name": "padLeft", - "comment": "Pad a string on the left until it has a given length.\n\n pad 5 '.' \"1\" == \"....1\"\n pad 5 '.' \"11\" == \"...11\"\n pad 5 '.' \"121\" == \"..121\"", - "raw": "padLeft : Int -\u003e Char -\u003e String -\u003e String", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Int", - "args": [] - }, - { - "tag": "adt", - "name": "Char", - "args": [] - }, - { - "tag": "adt", - "name": "String", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "String", - "args": [] - } - } - }, - { - "name": "padRight", - "comment": "Pad a string on the right until it has a given length.\n\n pad 5 '.' \"1\" == \"1....\"\n pad 5 '.' \"11\" == \"11...\"\n pad 5 '.' \"121\" == \"121..\"", - "raw": "padRight : Int -\u003e Char -\u003e String -\u003e String", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Int", - "args": [] - }, - { - "tag": "adt", - "name": "Char", - "args": [] - }, - { - "tag": "adt", - "name": "String", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "String", - "args": [] - } - } - }, - { - "name": "repeat", - "comment": "Repeat a string N times.\n\n repeat 3 \"ha\" == \"hahaha\"", - "raw": "repeat : Int -\u003e String -\u003e String", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Int", - "args": [] - }, - { - "tag": "adt", - "name": "String", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "String", - "args": [] - } - } - }, - { - "name": "reverse", - "comment": "Reverse a string.\n\n reverse \"stressed\" == \"desserts\"", - "raw": "reverse : String -\u003e String", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "String", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "String", - "args": [] - } - } - }, - { - "name": "right", - "comment": "Take N characters from the right side of a string.", - "raw": "right : Int -\u003e String -\u003e String", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Int", - "args": [] - }, - { - "tag": "adt", - "name": "String", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "String", - "args": [] - } - } - }, - { - "name": "show", - "comment": "Turn any kind of value into a string.\n\n show 42 == \"42\"\n show [1,2] == \"[1,2]\"", - "raw": "show : a -\u003e String", - "type": { - "tag": "function", - "args": [ - { - "tag": "var", - "name": "a" - } - ], - "result": { - "tag": "adt", - "name": "String", - "args": [] - } - } - }, - { - "name": "split", - "comment": "Split a string using a given separator.\n\n split \",\" \"cat,dog,cow\" == [\"cat\",\"dog\",\"cow\"]\n split \"/\" \"home/evan/Desktop/\" == [\"home\",\"evan\",\"Desktop\"]\n\nUse `Regex.split` if you need something more flexible.", - "raw": "split : String -\u003e String -\u003e [String]", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "String", - "args": [] - }, - { - "tag": "adt", - "name": "String", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "_List", - "args": [ - { - "tag": "adt", - "name": "String", - "args": [] - } - ] - } - } - }, - { - "name": "startsWith", - "comment": "See if a string starts with another one.\n\n startsWith \"the\" \"theory\" == True\n startsWith \"ory\" \"theory\" == False", - "raw": "startsWith : String -\u003e String -\u003e Bool", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "String", - "args": [] - }, - { - "tag": "adt", - "name": "String", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Bool", - "args": [] - } - } - }, - { - "name": "sub", - "comment": "Take a substring given a start and end index. Negative indexes\nare taken starting from the *end* of the list.\n\n sub 7 9 \"snakes on a plane!\" == \"on\"\n sub 0 6 \"snakes on a plane!\" == \"snakes\"\n sub 0 -7 \"snakes on a plane!\" == \"snakes on a\"\n sub -6 -1 \"snakes on a plane!\" == \"plane\"", - "raw": "sub : Int -\u003e Int -\u003e String -\u003e String", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Int", - "args": [] - }, - { - "tag": "adt", - "name": "Int", - "args": [] - }, - { - "tag": "adt", - "name": "String", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "String", - "args": [] - } - } - }, - { - "name": "toFloat", - "comment": "Try to convert a string into a float, failing on improperly formatted strings.\n\n toFloat \"123\" == Just 123.0\n toFloat \"-42\" == Just -42.0\n toFloat \"3.1\" == Just 3.1\n toFloat \"31a\" == Nothing", - "raw": "toFloat : String -\u003e Maybe Float", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "String", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Maybe", - "args": [ - { - "tag": "adt", - "name": "Float", - "args": [] - } - ] - } - } - }, - { - "name": "toInt", - "comment": "Try to convert a string into an int, failing on improperly formatted strings.\n\n toInt \"123\" == Just 123\n toInt \"-42\" == Just -42\n toInt \"3.1\" == Nothing\n toInt \"31a\" == Nothing", - "raw": "toInt : String -\u003e Maybe Int", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "String", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Maybe", - "args": [ - { - "tag": "adt", - "name": "Int", - "args": [] - } - ] - } - } - }, - { - "name": "toList", - "comment": "Convert a string to a list of characters.\n\n toList \"abc\" == ['a','b','c']", - "raw": "toList : String -\u003e [Char]", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "String", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "_List", - "args": [ - { - "tag": "adt", - "name": "Char", - "args": [] - } - ] - } - } - }, - { - "name": "toLower", - "comment": "Convert a string to all lower case. Useful for case insensitive comparisons.", - "raw": "toLower : String -\u003e String", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "String", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "String", - "args": [] - } - } - }, - { - "name": "toUpper", - "comment": "Convert a string to all upper case. Useful for case insensitive comparisons\nand VIRTUAL YELLING.", - "raw": "toUpper : String -\u003e String", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "String", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "String", - "args": [] - } - } - }, - { - "name": "trim", - "comment": "Get rid of whitespace on both sides of a string.\n\n trim \" hats \\n\" == \"hats\"", - "raw": "trim : String -\u003e String", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "String", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "String", - "args": [] - } - } - }, - { - "name": "trimLeft", - "comment": "Get rid of whitespace on the left of a string.\n\n trimLeft \" hats \\n\" == \"hats \\n\"", - "raw": "trimLeft : String -\u003e String", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "String", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "String", - "args": [] - } - } - }, - { - "name": "trimRight", - "comment": "Get rid of whitespace on the left of a string.\n\n trimRight \" hats \\n\" == \" hats\"", - "raw": "trimRight : String -\u003e String", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "String", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "String", - "args": [] - } - } - }, - { - "name": "uncons", - "comment": "Split a non-empty string into its head and tail. This lets you\npattern match on strings exactly as you would with lists.\n\n uncons \"abc\" == Just ('a',\"bc\")\n uncons \"\" == Nothing", - "raw": "uncons : String -\u003e Maybe (Char, String)", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "String", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Maybe", - "args": [ - { - "tag": "adt", - "name": "_Tuple2", - "args": [ - { - "tag": "adt", - "name": "Char", - "args": [] - }, - { - "tag": "adt", - "name": "String", - "args": [] - } - ] - } - ] - } - } - }, - { - "name": "words", - "comment": "Break a string into words, splitting on chunks of whitespace.\n\n words \"How are \\t you? \\n Good?\" == [\"How\",\"are\",\"you?\",\"Good?\"]", - "raw": "words : String -\u003e [String]", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "String", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "_List", - "args": [ - { - "tag": "adt", - "name": "String", - "args": [] - } - ] - } - } - } - ] -}, -{ - "name": "Text", - "document": "A library for styling and displaying text. Whlie the `String` library\nfocuses on representing and manipulating strings of character strings, the\n`Text` library focuses on how those strings should look on screen. It lets\nyou make text bold or italic, set the typeface, set the text size, etc.\n\n# Creating Text\n@docs toText\n\n# Creating Elements\n\nEach of the following functions places `Text` into a box. The function you use\ndetermines the alignment of the text.\n\n@docs leftAligned, rightAligned, centered, justified\n\n# Links and Style\n@docs link, Style, style, defaultStyle, Line\n\n# Convenience Functions\n\nThere are two convenience functions for creating an `Element` which can be\nuseful when debugging or prototyping:\n\n@docs plainText, asText\n\nThere are also a bunch of functions to set parts of a `Style` individually:\n\n@docs typeface, monospace, height, color, bold, italic, line", - "aliases": [ - { - "name": "Style", - "comment": "Representation of all the ways you can style `Text`. If the `typeface` list\nis empty or the `height` is `Nothing`, the users will fall back on their\nbrowser's default settings. The following `Style` is black, 16 pixel tall,\nunderlined, and Times New Roman (assuming that typeface is available on the\nuser's computer):\n\n { typeface = [ \"Times New Roman\", \"serif\" ]\n , height = Just 16\n , color = black\n , bold = False\n , italic = False\n , line = Just Under\n }", - "raw": "type Style =\n { typeface : [String]\n , height : Maybe Float\n , color : Color\n , bold : Bool\n , italic : Bool\n , line : Maybe Line\n }", - "typeVariables": [], - "type": { - "tag": "record", - "fields": [ - [ - "typeface", - { - "tag": "adt", - "name": "_List", - "args": [ - { - "tag": "adt", - "name": "String", - "args": [] - } - ] - } - ], - [ - "height", - { - "tag": "adt", - "name": "Maybe", - "args": [ - { - "tag": "adt", - "name": "Float", - "args": [] - } - ] - } - ], - [ - "color", - { - "tag": "adt", - "name": "Color", - "args": [] - } - ], - [ - "bold", - { - "tag": "adt", - "name": "Bool", - "args": [] - } - ], - [ - "italic", - { - "tag": "adt", - "name": "Bool", - "args": [] - } - ], - [ - "line", - { - "tag": "adt", - "name": "Maybe", - "args": [ - { - "tag": "adt", - "name": "Line", - "args": [] - } - ] - } - ] - ], - "extension": null - } - } - ], - "datatypes": [ - { - "name": "Line", - "comment": "Styles for lines on text. This allows you to add an underline, an overline,\nor a strike out text:\n\n line Under (toText \"underline\")\n line Over (toText \"overline\")\n line Through (toText \"strike out\")", - "raw": "data Line = Under | Over | Through", - "typeVariables": [], - "constructors": [ - { - "name": "Under", - "type": { - "tag": "adt", - "name": "Line", - "args": [] - } - }, - { - "name": "Over", - "type": { - "tag": "adt", - "name": "Line", - "args": [] - } - }, - { - "name": "Through", - "type": { - "tag": "adt", - "name": "Line", - "args": [] - } - } - ] - }, - { - "name": "Text", - "comment": "", - "raw": "data Text = Text", - "typeVariables": [], - "constructors": [ - { - "name": "Text", - "type": { - "tag": "adt", - "name": "Text", - "args": [] - } - } - ] - } - ], - "values": [ - { - "name": "asText", - "comment": "Convert anything to its textual representation and make it displayable in\nthe browser:\n\n asText value = text (monospace (show value))\n\nExcellent for debugging.", - "raw": "asText : a -\u003e Element", - "type": { - "tag": "function", - "args": [ - { - "tag": "var", - "name": "a" - } - ], - "result": { - "tag": "adt", - "name": "Element", - "args": [] - } - } - }, - { - "name": "bold", - "comment": "Make text bold:\n\n toText \"sometimes you want \" ++ bold (toText \"emphasis\")", - "raw": "bold : Text -\u003e Text", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Text", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Text", - "args": [] - } - } - }, - { - "name": "centered", - "comment": "`Text` is centered in the text block. There is equal spacing on either side\nof a line of text.", - "raw": "centered : Text -\u003e Element", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Text", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Element", - "args": [] - } - } - }, - { - "name": "color", - "comment": "Set the color of some text:\n\n color red (toText \"Red\")", - "raw": "color : Color -\u003e Text -\u003e Text", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Color", - "args": [] - }, - { - "tag": "adt", - "name": "Text", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Text", - "args": [] - } - } - }, - { - "name": "defaultStyle", - "comment": "Plain black text. It uses the browsers default typeface and text height.\nNo decorations are used:\n\n { typeface = []\n , height = Nothing\n , color = black\n , bold = False\n , italic = False\n , line = Nothing\n }", - "raw": "defaultStyle : Style", - "type": { - "tag": "adt", - "name": "Style", - "args": [] - } - }, - { - "name": "height", - "comment": "Set the height of some text:\n\n height 40 (toText \"Title\")", - "raw": "height : Float -\u003e Text -\u003e Text", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Float", - "args": [] - }, - { - "tag": "adt", - "name": "Text", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Text", - "args": [] - } - } - }, - { - "name": "italic", - "comment": "Make text italic:\n\n toText \"make it \" ++ italic (toText \"important\")", - "raw": "italic : Text -\u003e Text", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Text", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Text", - "args": [] - } - } - }, - { - "name": "justified", - "comment": "`Text` is aligned along the left and right sides of the text block. Word\nspacing is adjusted to make this possible.", - "raw": "justified : Text -\u003e Element", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Text", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Element", - "args": [] - } - } - }, - { - "name": "leftAligned", - "comment": "`Text` is aligned along the left side of the text block. This is sometimes\nknown as *ragged right*.", - "raw": "leftAligned : Text -\u003e Element", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Text", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Element", - "args": [] - } - } - }, - { - "name": "line", - "comment": "Put lines on text:\n\n line Under (toText \"underlined\")\n line Over (toText \"overlined\")\n line Through (toText \"strike out\")", - "raw": "line : Line -\u003e Text -\u003e Text", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Line", - "args": [] - }, - { - "tag": "adt", - "name": "Text", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Text", - "args": [] - } - } - }, - { - "name": "link", - "comment": "Create a link by providing a URL and the text of the link:\n\n link \"http://elm-lang.org\" (toText \"Elm Website\")", - "raw": "link : String -\u003e Text -\u003e Text", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "String", - "args": [] - }, - { - "tag": "adt", - "name": "Text", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Text", - "args": [] - } - } - }, - { - "name": "markdown", - "comment": "for internal use only", - "raw": "markdown : Element", - "type": { - "tag": "adt", - "name": "Element", - "args": [] - } - }, - { - "name": "monospace", - "comment": "Switch to a monospace typeface. Good for code snippets.\n\n monospace (toText \"foldl (+) 0 [1,2,3]\")", - "raw": "monospace : Text -\u003e Text", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Text", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Text", - "args": [] - } - } - }, - { - "name": "plainText", - "comment": "Display a string with no styling:\n\n plainText string = leftAligned (toText string)", - "raw": "plainText : String -\u003e Element", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "String", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Element", - "args": [] - } - } - }, - { - "name": "rightAligned", - "comment": "`Text` is aligned along the right side of the text block. This is sometimes\nknown as *ragged left*.", - "raw": "rightAligned : Text -\u003e Element", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Text", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Element", - "args": [] - } - } - }, - { - "name": "style", - "comment": "Set the style of some text. For example, if you design a `Style` called\n`footerStyle` that is specifically for the bottom of your page, you could apply\nit to text like this:\n\n style footerStyle (toText \"the old prince / 2007\")", - "raw": "style : Style -\u003e Text -\u003e Text", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Style", - "args": [] - }, - { - "tag": "adt", - "name": "Text", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Text", - "args": [] - } - } - }, - { - "name": "toText", - "comment": "Convert a string into text which can be styled and displayed. To show the\nstring `\"Hello World!\"` on screen in italics, you could say:\n\n main = leftAligned (italic (toText \"Hello World!\"))", - "raw": "toText : String -\u003e Text", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "String", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Text", - "args": [] - } - } - }, - { - "name": "typeface", - "comment": "Provide a list of prefered typefaces for some text.\n\n [\"helvetica\",\"arial\",\"sans-serif\"]\n\nNot every browser has access to the same typefaces, so rendering will use the\nfirst typeface in the list that is found on the user's computer. If there are\nno matches, it will use their default typeface. This works the same as the CSS\nfont-family property.", - "raw": "typeface : [String] -\u003e Text -\u003e Text", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "_List", - "args": [ - { - "tag": "adt", - "name": "String", - "args": [] - } - ] - }, - { - "tag": "adt", - "name": "Text", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Text", - "args": [] - } - } - } - ] -}, -{ - "name": "Time", - "document": "Library for working with time.\n\n# Units\n@docs Time, millisecond, second, minute, hour,\n inMilliseconds, inSeconds, inMinutes, inHours\n\n# Tickers\n@docs fps, fpsWhen, every\n\n# Timing\n@docs timestamp, delay, since", - "aliases": [ - { - "name": "Time", - "comment": "Type alias to make it clearer when you are working with time values.\nUsing the `Time` constants instead of raw numbers is very highly recommended.", - "raw": "type Time = Float", - "typeVariables": [], - "type": { - "tag": "adt", - "name": "Float", - "args": [] - } - } - ], - "datatypes": [], - "values": [ - { - "name": "delay", - "comment": "Delay a signal by a certain amount of time. So `(delay second Mouse.clicks)`\nwill update one second later than any mouse click.", - "raw": "delay : Time -\u003e Signal a -\u003e Signal a", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Time", - "args": [] - }, - { - "tag": "adt", - "name": "Signal", - "args": [ - { - "tag": "var", - "name": "a" - } - ] - } - ], - "result": { - "tag": "adt", - "name": "Signal", - "args": [ - { - "tag": "var", - "name": "a" - } - ] - } - } - }, - { - "name": "every", - "comment": "Takes a time interval t. The resulting signal is the current time, updated\nevery t.", - "raw": "every : Time -\u003e Signal Time", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Time", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Signal", - "args": [ - { - "tag": "adt", - "name": "Time", - "args": [] - } - ] - } - } - }, - { - "name": "fps", - "comment": "Takes desired number of frames per second (fps). The resulting signal\ngives a sequence of time deltas as quickly as possible until it reaches\nthe desired FPS. A time delta is the time between the last frame and the\ncurrent frame.", - "raw": "fps : number -\u003e Signal Time", - "type": { - "tag": "function", - "args": [ - { - "tag": "var", - "name": "number" - } - ], - "result": { - "tag": "adt", - "name": "Signal", - "args": [ - { - "tag": "adt", - "name": "Time", - "args": [] - } - ] - } - } - }, - { - "name": "fpsWhen", - "comment": "Same as the fps function, but you can turn it on and off. Allows you\nto do brief animations based on user input without major inefficiencies.\nThe first time delta after a pause is always zero, no matter how long\nthe pause was. This way summing the deltas will actually give the amount\nof time that the output signal has been running.", - "raw": "fpsWhen : number -\u003e Signal Bool -\u003e Signal Time", - "type": { - "tag": "function", - "args": [ - { - "tag": "var", - "name": "number" - }, - { - "tag": "adt", - "name": "Signal", - "args": [ - { - "tag": "adt", - "name": "Bool", - "args": [] - } - ] - } - ], - "result": { - "tag": "adt", - "name": "Signal", - "args": [ - { - "tag": "adt", - "name": "Time", - "args": [] - } - ] - } - } - }, - { - "name": "hour", - "comment": "", - "raw": "hour : Time", - "type": { - "tag": "adt", - "name": "Time", - "args": [] - } - }, - { - "name": "inHours", - "comment": "", - "raw": "inHours : Time -\u003e Float", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Time", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Float", - "args": [] - } - } - }, - { - "name": "inMilliseconds", - "comment": "", - "raw": "inMilliseconds : Time -\u003e Float", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Time", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Float", - "args": [] - } - } - }, - { - "name": "inMinutes", - "comment": "", - "raw": "inMinutes : Time -\u003e Float", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Time", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Float", - "args": [] - } - } - }, - { - "name": "inSeconds", - "comment": "", - "raw": "inSeconds : Time -\u003e Float", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Time", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Float", - "args": [] - } - } - }, - { - "name": "millisecond", - "comment": "Units of time, making it easier to specify things like a half-second\n`(500 * milliseconds)` without remembering Elm’s underlying units of time.", - "raw": "millisecond : Time", - "type": { - "tag": "adt", - "name": "Time", - "args": [] - } - }, - { - "name": "minute", - "comment": "", - "raw": "minute : Time", - "type": { - "tag": "adt", - "name": "Time", - "args": [] - } - }, - { - "name": "second", - "comment": "", - "raw": "second : Time", - "type": { - "tag": "adt", - "name": "Time", - "args": [] - } - }, - { - "name": "since", - "comment": "Takes a time `t` and any signal. The resulting boolean signal is true for\ntime `t` after every event on the input signal. So ``(second `since`\nMouse.clicks)`` would result in a signal that is true for one second after\neach mouse click and false otherwise.", - "raw": "since : Time -\u003e Signal a -\u003e Signal Bool", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Time", - "args": [] - }, - { - "tag": "adt", - "name": "Signal", - "args": [ - { - "tag": "var", - "name": "a" - } - ] - } - ], - "result": { - "tag": "adt", - "name": "Signal", - "args": [ - { - "tag": "adt", - "name": "Bool", - "args": [] - } - ] - } - } - }, - { - "name": "timestamp", - "comment": "Add a timestamp to any signal. Timestamps increase monotonically. When you\ncreate `(timestamp Mouse.x)`, an initial timestamp is produced. The timestamp\nupdates whenever `Mouse.x` updates.\n\nTimestamp updates are tied to individual events, so\n`(timestamp Mouse.x)` and `(timestamp Mouse.y)` will always have the same\ntimestamp because they rely on the same underlying event (`Mouse.position`).", - "raw": "timestamp : Signal a -\u003e Signal (Time, a)", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Signal", - "args": [ - { - "tag": "var", - "name": "a" - } - ] - } - ], - "result": { - "tag": "adt", - "name": "Signal", - "args": [ - { - "tag": "adt", - "name": "_Tuple2", - "args": [ - { - "tag": "adt", - "name": "Time", - "args": [] - }, - { - "tag": "var", - "name": "a" - } - ] - } - ] - } - } - } - ] -}, -{ - "name": "Touch", - "document": "This is an early version of the touch library. It will likely grow to\ninclude gestures that would be useful for both games and web-pages.\n\n# Touches\n@docs Touch, touches\n\n# Gestures\n@docs taps", - "aliases": [ - { - "name": "Touch", - "comment": "Every `Touch` has `xy` coordinates. It also has an identifier\n`id` to distinguish one touch from another.\n\nA touch also keeps info about the initial point and time of contact:\n`x0`, `y0`, and `t0`. This helps compute more complicated gestures\nlike taps, drags, and swipes which need to know about timing or direction.", - "raw": "type Touch = { x:Int, y:Int, id:Int, x0:Int, y0:Int, t0:Time }", - "typeVariables": [], - "type": { - "tag": "record", - "fields": [ - [ - "x", - { - "tag": "adt", - "name": "Int", - "args": [] - } - ], - [ - "y", - { - "tag": "adt", - "name": "Int", - "args": [] - } - ], - [ - "id", - { - "tag": "adt", - "name": "Int", - "args": [] - } - ], - [ - "x0", - { - "tag": "adt", - "name": "Int", - "args": [] - } - ], - [ - "y0", - { - "tag": "adt", - "name": "Int", - "args": [] - } - ], - [ - "t0", - { - "tag": "adt", - "name": "Time", - "args": [] - } - ] - ], - "extension": null - } - } - ], - "datatypes": [], - "values": [ - { - "name": "taps", - "comment": "The last position that was tapped. Default value is `{x=0,y=0}`.\nUpdates whenever the user taps the screen.", - "raw": "taps : Signal { x:Int, y:Int }", - "type": { - "tag": "adt", - "name": "Signal", - "args": [ - { - "tag": "record", - "fields": [ - [ - "x", - { - "tag": "adt", - "name": "Int", - "args": [] - } - ], - [ - "y", - { - "tag": "adt", - "name": "Int", - "args": [] - } - ] - ], - "extension": null - } - ] - } - }, - { - "name": "touches", - "comment": "A list of ongoing touches.", - "raw": "touches : Signal [Touch]", - "type": { - "tag": "adt", - "name": "Signal", - "args": [ - { - "tag": "adt", - "name": "_List", - "args": [ - { - "tag": "adt", - "name": "Touch", - "args": [] - } - ] - } - ] - } - } - ] -}, -{ - "name": "Trampoline", - "document": "A [trampoline](http://en.wikipedia.org/wiki/Tail-recursive_function#Through_trampolining)\nmakes it possible to recursively call a function without growing the stack.\n\nPopular JavaScript implementations do not perform any tail-call elimination, so\nrecursive functions can cause a stack overflow if they go to deep. Trampolines\npermit unbounded recursion despite limitations in JavaScript.\n\nThis strategy may create many intermediate closures, which is very expensive in\nJavaScript, so use this library only when it is essential that you recurse deeply.\n\n# Trampolines\n@docs trampoline, Trampoline", - "aliases": [], - "datatypes": [ - { - "name": "Trampoline", - "comment": "A way to build computations that may be deeply recursive. We will take an\nexample of a tail-recursive function and rewrite it in a way that lets us use\na trampoline:\n\n length : [a] -\u003e Int\n length list = length' 0 list\n\n length' : Int -\u003e [a] -\u003e Int\n length' accum list =\n case list of\n [] -\u003e accum\n hd::tl -\u003e length' (accum+1) tl\n\nThis finds the length of a list, but if the list is too long, it may cause a\nstack overflow. We can rewrite it as follows:\n\n length : [a] -\u003e Int\n length list = trampoline (length' 0 list)\n\n length' : Int -\u003e [a] -\u003e Trampoline Int\n length' accum list =\n case list of\n [] -\u003e Done accum\n hd::tl -\u003e Continue (\\() -\u003e length' (accum+1) tl)\n\nNow it uses a trampoline and can recurse without growing the stack!", - "raw": "data Trampoline a = Done a | Continue (() -\u003e Trampoline a)", - "typeVariables": [ - "a" - ], - "constructors": [ - { - "name": "Done", - "type": { - "tag": "function", - "args": [ - { - "tag": "var", - "name": "a" - } - ], - "result": { - "tag": "adt", - "name": "Trampoline", - "args": [ - { - "tag": "var", - "name": "a" - } - ] - } - } - }, - { - "name": "Continue", - "type": { - "tag": "function", - "args": [ - { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "_Tuple0", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Trampoline", - "args": [ - { - "tag": "var", - "name": "a" - } - ] - } - } - ], - "result": { - "tag": "adt", - "name": "Trampoline", - "args": [ - { - "tag": "var", - "name": "a" - } - ] - } - } - } - ] - } - ], - "values": [ - { - "name": "trampoline", - "comment": "Evaluate a trampolined value in constant space.", - "raw": "trampoline : Trampoline a -\u003e a", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Trampoline", - "args": [ - { - "tag": "var", - "name": "a" - } - ] - } - ], - "result": { - "tag": "var", - "name": "a" - } - } - } - ] -}, -{ - "name": "Transform2D", - "document": "A library for performing [2D matrix transformations][affine].\nIt is used primarily with the `groupTransform` function from `Graphics.Collage` and\nallows you to do things like rotation, scaling, translation, shearing, and reflection.\n\nNote that all the matrices in this library are 3x3 matrices of homogeneous\ncoordinates, used for [affine transformations][affine]. Since the bottom row as\nalways `0 0 1` in these matrices, it is omitted in the diagrams below.\n\n [affine]: http://en.wikipedia.org/wiki/Transformation_matrix#Affine_transformations\n\n# Transforms\n@docs identity, matrix, rotation, translation, scale, scaleX, scaleY\n\n# Multiplication\n@docs multiply", - "aliases": [], - "datatypes": [ - { - "name": "Transform2D", - "comment": "", - "raw": "data Transform2D = Transform2D", - "typeVariables": [], - "constructors": [ - { - "name": "Transform2D", - "type": { - "tag": "adt", - "name": "Transform2D", - "args": [] - } - } - ] - } - ], - "values": [ - { - "name": "identity", - "comment": "Create an identity transform. Transforming by the identity does\nnot change anything, but it can come in handy as a default or\nbase case.\n\n / 1 0 0 \\\n \\ 0 1 0 /", - "raw": "identity : Transform2D", - "type": { - "tag": "adt", - "name": "Transform2D", - "args": [] - } - }, - { - "name": "matrix", - "comment": "Creates a transformation matrix. This lets you create transforms\nsuch as scales, shears, reflections, and translations.\n\n matrix a b c d x y\n\n / a b x \\\n \\ c d y /\n\nNote that `x` and `y` are the translation values.", - "raw": "matrix : Float -\u003e Float -\u003e Float -\u003e Float -\u003e Float -\u003e Float -\u003e Transform2D", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Float", - "args": [] - }, - { - "tag": "adt", - "name": "Float", - "args": [] - }, - { - "tag": "adt", - "name": "Float", - "args": [] - }, - { - "tag": "adt", - "name": "Float", - "args": [] - }, - { - "tag": "adt", - "name": "Float", - "args": [] - }, - { - "tag": "adt", - "name": "Float", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Transform2D", - "args": [] - } - } - }, - { - "name": "multiply", - "comment": "Multiplies two transforms together:\n\n multiply m n\n\n / ma mb mx \\ / na nb nx \\\n | mc md my | . | nc nd ny |\n \\ 0 0 1 / \\ 0 0 1 /", - "raw": "multiply : Transform2D -\u003e Transform2D -\u003e Transform2D", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Transform2D", - "args": [] - }, - { - "tag": "adt", - "name": "Transform2D", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Transform2D", - "args": [] - } - } - }, - { - "name": "rotation", - "comment": "Creates a [rotation matrix](http://en.wikipedia.org/wiki/Rotation_matrix).\nGiven an angle t, it creates a counterclockwise rotation matrix:\n\n / cos t -sin t 0 \\\n \\ sin t cos t 0 /", - "raw": "rotation : Float -\u003e Transform2D", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Float", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Transform2D", - "args": [] - } - } - }, - { - "name": "scale", - "comment": "Creates a transformation matrix for scaling by a all directions:\n\n scale s\n\n / s 0 0 \\\n \\ 0 s 0 /", - "raw": "scale : Float -\u003e Transform2D", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Float", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Transform2D", - "args": [] - } - } - }, - { - "name": "scaleX", - "comment": "Creates a transformation for horizontal scaling", - "raw": "scaleX : Float -\u003e Transform2D", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Float", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Transform2D", - "args": [] - } - } - }, - { - "name": "scaleY", - "comment": "Creates a transformation for vertical scaling", - "raw": "scaleY : Float -\u003e Transform2D", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Float", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Transform2D", - "args": [] - } - } - }, - { - "name": "translation", - "comment": "Creates a transformation matrix for translation:\n\n translation x y\n\n / 1 0 x \\\n \\ 0 1 y /", - "raw": "translation : Float -\u003e Float -\u003e Transform2D", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Float", - "args": [] - }, - { - "tag": "adt", - "name": "Float", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Transform2D", - "args": [] - } - } - } - ] -}, -{ - "name": "WebSocket", - "document": "A library for low latency HTTP communication. See the HTTP library for\nstandard requests like GET, POST, etc. The API of this library is likely to\nchange to make it more flexible.\n\n# Open a Connection\n@docs connect", - "aliases": [], - "datatypes": [], - "values": [ - { - "name": "connect", - "comment": "Create a web-socket. The first argument is the URL of the desired\nweb-socket server. The input signal holds the outgoing messages,\nand the resulting signal contains the incoming ones.", - "raw": "connect : String -\u003e Signal String -\u003e Signal String", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "String", - "args": [] - }, - { - "tag": "adt", - "name": "Signal", - "args": [ - { - "tag": "adt", - "name": "String", - "args": [] - } - ] - } - ], - "result": { - "tag": "adt", - "name": "Signal", - "args": [ - { - "tag": "adt", - "name": "String", - "args": [] - } - ] - } - } - } - ] -}, -{ - "name": "Window", - "document": "Provides information about the container that your Elm program lives in.\nWhen you embed Elm in a `\u003cdiv\u003e` it gives the dimensions of the container, not\nthe whole window.\n\n# Dimensions\n@docs dimensions, width, height", - "aliases": [], - "datatypes": [], - "values": [ - { - "name": "dimensions", - "comment": "The current width and height of the window (i.e. the area viewable to the\nuser, not including scroll bars).", - "raw": "dimensions : Signal (Int,Int)", - "type": { - "tag": "adt", - "name": "Signal", - "args": [ - { - "tag": "adt", - "name": "_Tuple2", - "args": [ - { - "tag": "adt", - "name": "Int", - "args": [] - }, - { - "tag": "adt", - "name": "Int", - "args": [] - } - ] - } - ] - } - }, - { - "name": "height", - "comment": "The current height of the window.", - "raw": "height : Signal Int", - "type": { - "tag": "adt", - "name": "Signal", - "args": [ - { - "tag": "adt", - "name": "Int", - "args": [] - } - ] - } - }, - { - "name": "width", - "comment": "The current width of the window.", - "raw": "width : Signal Int", - "type": { - "tag": "adt", - "name": "Signal", - "args": [ - { - "tag": "adt", - "name": "Int", - "args": [] - } - ] - } - } - ] -}, -{ - "name": "Graphics.Collage", - "document": "The collage API is for freeform graphics. You can move, rotate, scale, etc.\nall sorts of forms including lines, shapes, images, and elements.\n\n# Unstructured Graphics\n@docs collage\n \n# Creating Forms\n@docs toForm, filled, textured, gradient, outlined, traced\n \n# Transforming Forms\n@docs move, moveX, moveY, scale, rotate, alpha\n \n# Grouping Forms\nGrouping forms makes it easier to write modular graphics code. You can create\na form that is a composite of many subforms. From there it is easy to transform\nit as a single unit.\n\n@docs group, groupTransform\n \n# Shapes\n@docs rect, oval, square, circle, ngon, polygon\n\n# Paths\n@docs segment, path\n \n# Line Styles\n@docs solid, dashed, dotted, LineStyle, LineCap, LineJoin, defaultLine", - "aliases": [ - { - "name": "Form", - "comment": "", - "raw": "type Form = {\n theta : Float,\n scale : Float,\n x : Float,\n y : Float,\n alpha : Float,\n form : BasicForm\n }", - "typeVariables": [], - "type": { - "tag": "record", - "fields": [ - [ - "theta", - { - "tag": "adt", - "name": "Float", - "args": [] - } - ], - [ - "scale", - { - "tag": "adt", - "name": "Float", - "args": [] - } - ], - [ - "x", - { - "tag": "adt", - "name": "Float", - "args": [] - } - ], - [ - "y", - { - "tag": "adt", - "name": "Float", - "args": [] - } - ], - [ - "alpha", - { - "tag": "adt", - "name": "Float", - "args": [] - } - ], - [ - "form", - { - "tag": "adt", - "name": "BasicForm", - "args": [] - } - ] - ], - "extension": null - } - }, - { - "name": "LineStyle", - "comment": "All of the attributes of a line style. This lets you build up a line style\nhowever you want. You can also update existing line styles with record updates.", - "raw": "type LineStyle = {\n color : Color,\n width : Float,\n cap : LineCap,\n join : LineJoin,\n dashing : [Int],\n dashOffset : Int\n }", - "typeVariables": [], - "type": { - "tag": "record", - "fields": [ - [ - "color", - { - "tag": "adt", - "name": "Color", - "args": [] - } - ], - [ - "width", - { - "tag": "adt", - "name": "Float", - "args": [] - } - ], - [ - "cap", - { - "tag": "adt", - "name": "LineCap", - "args": [] - } - ], - [ - "join", - { - "tag": "adt", - "name": "LineJoin", - "args": [] - } - ], - [ - "dashing", - { - "tag": "adt", - "name": "_List", - "args": [ - { - "tag": "adt", - "name": "Int", - "args": [] - } - ] - } - ], - [ - "dashOffset", - { - "tag": "adt", - "name": "Int", - "args": [] - } - ] - ], - "extension": null - } - }, - { - "name": "Path", - "comment": "", - "raw": "type Path = [(Float,Float)]", - "typeVariables": [], - "type": { - "tag": "adt", - "name": "_List", - "args": [ - { - "tag": "adt", - "name": "_Tuple2", - "args": [ - { - "tag": "adt", - "name": "Float", - "args": [] - }, - { - "tag": "adt", - "name": "Float", - "args": [] - } - ] - } - ] - } - }, - { - "name": "Shape", - "comment": "", - "raw": "type Shape = [(Float,Float)]", - "typeVariables": [], - "type": { - "tag": "adt", - "name": "_List", - "args": [ - { - "tag": "adt", - "name": "_Tuple2", - "args": [ - { - "tag": "adt", - "name": "Float", - "args": [] - }, - { - "tag": "adt", - "name": "Float", - "args": [] - } - ] - } - ] - } - } - ], - "datatypes": [ - { - "name": "BasicForm", - "comment": "", - "raw": "data BasicForm\n = FPath LineStyle Path\n | FShape (Either LineStyle FillStyle) Shape\n | FImage Int Int (Int,Int) String\n | FElement Element\n | FGroup Transform2D [Form]", - "typeVariables": [], - "constructors": [ - { - "name": "FPath", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "LineStyle", - "args": [] - }, - { - "tag": "adt", - "name": "Path", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "BasicForm", - "args": [] - } - } - }, - { - "name": "FShape", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Either", - "args": [ - { - "tag": "adt", - "name": "LineStyle", - "args": [] - }, - { - "tag": "adt", - "name": "FillStyle", - "args": [] - } - ] - }, - { - "tag": "adt", - "name": "Shape", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "BasicForm", - "args": [] - } - } - }, - { - "name": "FImage", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Int", - "args": [] - }, - { - "tag": "adt", - "name": "Int", - "args": [] - }, - { - "tag": "adt", - "name": "_Tuple2", - "args": [ - { - "tag": "adt", - "name": "Int", - "args": [] - }, - { - "tag": "adt", - "name": "Int", - "args": [] - } - ] - }, - { - "tag": "adt", - "name": "String", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "BasicForm", - "args": [] - } - } - }, - { - "name": "FElement", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Element", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "BasicForm", - "args": [] - } - } - }, - { - "name": "FGroup", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Transform2D", - "args": [] - }, - { - "tag": "adt", - "name": "_List", - "args": [ - { - "tag": "adt", - "name": "Form", - "args": [] - } - ] - } - ], - "result": { - "tag": "adt", - "name": "BasicForm", - "args": [] - } - } - } - ] - }, - { - "name": "FillStyle", - "comment": "", - "raw": "data FillStyle\n = Solid Color\n | Texture String\n | Grad Gradient", - "typeVariables": [], - "constructors": [ - { - "name": "Solid", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Color", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "FillStyle", - "args": [] - } - } - }, - { - "name": "Texture", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "String", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "FillStyle", - "args": [] - } - } - }, - { - "name": "Grad", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Gradient", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "FillStyle", - "args": [] - } - } - } - ] - }, - { - "name": "LineCap", - "comment": "The shape of the ends of a line.", - "raw": "data LineCap = Flat | Round | Padded", - "typeVariables": [], - "constructors": [ - { - "name": "Flat", - "type": { - "tag": "adt", - "name": "LineCap", - "args": [] - } - }, - { - "name": "Round", - "type": { - "tag": "adt", - "name": "LineCap", - "args": [] - } - }, - { - "name": "Padded", - "type": { - "tag": "adt", - "name": "LineCap", - "args": [] - } - } - ] - }, - { - "name": "LineJoin", - "comment": "The shape of the “joints” of a line, where each line segment\nmeets. `Sharp` takes an argument to limit the length of the joint. This\ndefaults to 10.", - "raw": "data LineJoin = Smooth | Sharp Float | Clipped", - "typeVariables": [], - "constructors": [ - { - "name": "Smooth", - "type": { - "tag": "adt", - "name": "LineJoin", - "args": [] - } - }, - { - "name": "Sharp", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Float", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "LineJoin", - "args": [] - } - } - }, - { - "name": "Clipped", - "type": { - "tag": "adt", - "name": "LineJoin", - "args": [] - } - } - ] - } - ], - "values": [ - { - "name": "alpha", - "comment": "Set the alpha of a `Form`. The default is 1, and 0 is totally transparent.", - "raw": "alpha : Float -\u003e Form -\u003e Form", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Float", - "args": [] - }, - { - "tag": "adt", - "name": "Form", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Form", - "args": [] - } - } - }, - { - "name": "circle", - "comment": "A circle with a given radius.", - "raw": "circle : Float -\u003e Shape", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Float", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Shape", - "args": [] - } - } - }, - { - "name": "collage", - "comment": "A collage is a collection of 2D forms. There are no strict positioning\nrelationships between forms, so you are free to do all kinds of 2D graphics.", - "raw": "collage : Int -\u003e Int -\u003e [Form] -\u003e Element", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Int", - "args": [] - }, - { - "tag": "adt", - "name": "Int", - "args": [] - }, - { - "tag": "adt", - "name": "_List", - "args": [ - { - "tag": "adt", - "name": "Form", - "args": [] - } - ] - } - ], - "result": { - "tag": "adt", - "name": "Element", - "args": [] - } - } - }, - { - "name": "dashed", - "comment": "Create a dashed line style with a given color. Dashing equals `[8,4]`.", - "raw": "dashed : Color -\u003e LineStyle", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Color", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "LineStyle", - "args": [] - } - } - }, - { - "name": "defaultLine", - "comment": "The default line style, which is solid black with flat caps and sharp joints.\nYou can use record updates to build the line style you\nwant. For example, to make a thicker line, you could say:\n\n { defaultLine | width \u003c- 10 }", - "raw": "defaultLine : LineStyle", - "type": { - "tag": "adt", - "name": "LineStyle", - "args": [] - } - }, - { - "name": "dotted", - "comment": "Create a dotted line style with a given color. Dashing equals `[3,3]`.", - "raw": "dotted : Color -\u003e LineStyle", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Color", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "LineStyle", - "args": [] - } - } - }, - { - "name": "filled", - "comment": "Create a filled in shape.", - "raw": "filled : Color -\u003e Shape -\u003e Form", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Color", - "args": [] - }, - { - "tag": "adt", - "name": "Shape", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Form", - "args": [] - } - } - }, - { - "name": "form", - "comment": "", - "raw": "form : BasicForm -\u003e Form", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "BasicForm", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Form", - "args": [] - } - } - }, - { - "name": "gradient", - "comment": "Fill a shape with a [gradient](/library/Color.elm#linear).", - "raw": "gradient : Gradient -\u003e Shape -\u003e Form", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Gradient", - "args": [] - }, - { - "tag": "adt", - "name": "Shape", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Form", - "args": [] - } - } - }, - { - "name": "group", - "comment": "Flatten many forms into a single `Form`. This lets you move and rotate them\nas a single unit, making it possible to build small, modular components.", - "raw": "group : [Form] -\u003e Form", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "_List", - "args": [ - { - "tag": "adt", - "name": "Form", - "args": [] - } - ] - } - ], - "result": { - "tag": "adt", - "name": "Form", - "args": [] - } - } - }, - { - "name": "groupTransform", - "comment": "Flatten many forms into a single `Form` and then apply a matrix\ntransformation.", - "raw": "groupTransform : Transform2D -\u003e [Form] -\u003e Form", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Transform2D", - "args": [] - }, - { - "tag": "adt", - "name": "_List", - "args": [ - { - "tag": "adt", - "name": "Form", - "args": [] - } - ] - } - ], - "result": { - "tag": "adt", - "name": "Form", - "args": [] - } - } - }, - { - "name": "move", - "comment": "Move a form by the given amount. This is a relative translation so\n`(move (10,10) form)` would move `form` ten pixels up and ten pixels to the\nright.", - "raw": "move : (Float,Float) -\u003e Form -\u003e Form", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "_Tuple2", - "args": [ - { - "tag": "adt", - "name": "Float", - "args": [] - }, - { - "tag": "adt", - "name": "Float", - "args": [] - } - ] - }, - { - "tag": "adt", - "name": "Form", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Form", - "args": [] - } - } - }, - { - "name": "moveX", - "comment": "Move a shape in the x direction. This is relative so `(moveX 10 form)` moves\n`form` 10 pixels to the right.", - "raw": "moveX : Float -\u003e Form -\u003e Form", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Float", - "args": [] - }, - { - "tag": "adt", - "name": "Form", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Form", - "args": [] - } - } - }, - { - "name": "moveY", - "comment": "Move a shape in the y direction. This is relative so `(moveY 10 form)` moves\n`form` upwards by 10 pixels.", - "raw": "moveY : Float -\u003e Form -\u003e Form", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Float", - "args": [] - }, - { - "tag": "adt", - "name": "Form", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Form", - "args": [] - } - } - }, - { - "name": "ngon", - "comment": "A regular polygon with N sides. The first argument specifies the number\nof sides and the second is the radius. So to create a pentagon with radius\n30 you would say:\n\n ngon 5 30", - "raw": "ngon : Int -\u003e Float -\u003e Shape", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Int", - "args": [] - }, - { - "tag": "adt", - "name": "Float", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Shape", - "args": [] - } - } - }, - { - "name": "outlined", - "comment": "Outline a shape with a given line style.", - "raw": "outlined : LineStyle -\u003e Shape -\u003e Form", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "LineStyle", - "args": [] - }, - { - "tag": "adt", - "name": "Shape", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Form", - "args": [] - } - } - }, - { - "name": "oval", - "comment": "An oval with a given width and height.", - "raw": "oval : Float -\u003e Float -\u003e Shape", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Float", - "args": [] - }, - { - "tag": "adt", - "name": "Float", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Shape", - "args": [] - } - } - }, - { - "name": "path", - "comment": "Create a path that follows a sequence of points.", - "raw": "path : [(Float,Float)] -\u003e Path", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "_List", - "args": [ - { - "tag": "adt", - "name": "_Tuple2", - "args": [ - { - "tag": "adt", - "name": "Float", - "args": [] - }, - { - "tag": "adt", - "name": "Float", - "args": [] - } - ] - } - ] - } - ], - "result": { - "tag": "adt", - "name": "Path", - "args": [] - } - } - }, - { - "name": "polygon", - "comment": "Create an arbitrary polygon by specifying its corners in order.\n`polygon` will automatically close all shapes, so the given list\nof points does not need to start and end with the same position.", - "raw": "polygon : [(Float,Float)] -\u003e Shape", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "_List", - "args": [ - { - "tag": "adt", - "name": "_Tuple2", - "args": [ - { - "tag": "adt", - "name": "Float", - "args": [] - }, - { - "tag": "adt", - "name": "Float", - "args": [] - } - ] - } - ] - } - ], - "result": { - "tag": "adt", - "name": "Shape", - "args": [] - } - } - }, - { - "name": "rect", - "comment": "A rectangle with a given width and height.", - "raw": "rect : Float -\u003e Float -\u003e Shape", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Float", - "args": [] - }, - { - "tag": "adt", - "name": "Float", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Shape", - "args": [] - } - } - }, - { - "name": "rotate", - "comment": "Rotate a form by a given angle. Rotate takes standard Elm angles (radians)\nand turns things counterclockwise. So to turn `form` 30° to the left\nyou would say, `(rotate (degrees 30) form)`.", - "raw": "rotate : Float -\u003e Form -\u003e Form", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Float", - "args": [] - }, - { - "tag": "adt", - "name": "Form", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Form", - "args": [] - } - } - }, - { - "name": "scale", - "comment": "Scale a form by a given factor. Scaling by 2 doubles the size.", - "raw": "scale : Float -\u003e Form -\u003e Form", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Float", - "args": [] - }, - { - "tag": "adt", - "name": "Form", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Form", - "args": [] - } - } - }, - { - "name": "segment", - "comment": "Create a path along a given line segment.", - "raw": "segment : (Float,Float) -\u003e (Float,Float) -\u003e Path", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "_Tuple2", - "args": [ - { - "tag": "adt", - "name": "Float", - "args": [] - }, - { - "tag": "adt", - "name": "Float", - "args": [] - } - ] - }, - { - "tag": "adt", - "name": "_Tuple2", - "args": [ - { - "tag": "adt", - "name": "Float", - "args": [] - }, - { - "tag": "adt", - "name": "Float", - "args": [] - } - ] - } - ], - "result": { - "tag": "adt", - "name": "Path", - "args": [] - } - } - }, - { - "name": "solid", - "comment": "Create a solid line style with a given color.", - "raw": "solid : Color -\u003e LineStyle", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Color", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "LineStyle", - "args": [] - } - } - }, - { - "name": "sprite", - "comment": "Create a sprite from a sprite sheet. It cuts out a rectangle\nat a given position.", - "raw": "sprite : Int -\u003e Int -\u003e (Int,Int) -\u003e String -\u003e Form", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Int", - "args": [] - }, - { - "tag": "adt", - "name": "Int", - "args": [] - }, - { - "tag": "adt", - "name": "_Tuple2", - "args": [ - { - "tag": "adt", - "name": "Int", - "args": [] - }, - { - "tag": "adt", - "name": "Int", - "args": [] - } - ] - }, - { - "tag": "adt", - "name": "String", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Form", - "args": [] - } - } - }, - { - "name": "square", - "comment": "A square with a given edge length.", - "raw": "square : Float -\u003e Shape", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Float", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Shape", - "args": [] - } - } - }, - { - "name": "textured", - "comment": "Create a textured shape. The texture is described by some url and is\ntiled to fill the entire shape.", - "raw": "textured : String -\u003e Shape -\u003e Form", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "String", - "args": [] - }, - { - "tag": "adt", - "name": "Shape", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Form", - "args": [] - } - } - }, - { - "name": "toForm", - "comment": "Turn any `Element` into a `Form`. This lets you use text, gifs, and video\nin your collage. This means you can move, rotate, and scale\nan `Element` however you want.", - "raw": "toForm : Element -\u003e Form", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Element", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Form", - "args": [] - } - } - }, - { - "name": "traced", - "comment": "Trace a path with a given line style.", - "raw": "traced : LineStyle -\u003e Path -\u003e Form", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "LineStyle", - "args": [] - }, - { - "tag": "adt", - "name": "Path", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Form", - "args": [] - } - } - } - ] -}, -{ - "name": "Graphics.Element", - "document": "Graphical elements that snap together to build complex widgets and layouts.\nEach Element is a rectangle with a known width and height, making them easy to\ncombine and position.\n\n# Images\n@docs image, fittedImage, croppedImage, tiledImage\n\n# Styling\n@docs width, height, size, color, opacity, link, tag\n\n# Inspection\n@docs widthOf, heightOf, sizeOf\n\n# Layout\n@docs flow, up, down, left, right, inward, outward\n\n## Layout Aliases\nThere are also some convenience functions for working\nwith `flow` in specific cases:\n\n@docs layers, above, below, beside\n\n# Positioning\n@docs empty, spacer, container\n\n## Specific Positions\n\nTo create a `Position` you can use any of the built-in positions\nwhich cover nine common positions.\n@docs middle, midTop, midBottom, midLeft, midRight, topLeft, topRight,\n bottomLeft, bottomRight\n\nIf you need more precision, you can create custom positions.\n\n@docs absolute, relative, middleAt, midTopAt, midBottomAt, midLeftAt,\n midRightAt, topLeftAt, topRightAt, bottomLeftAt, bottomRightAt", - "aliases": [ - { - "name": "Element", - "comment": "", - "raw": "type Element = { props : Properties, element : ElementPrim }", - "typeVariables": [], - "type": { - "tag": "record", - "fields": [ - [ - "props", - { - "tag": "adt", - "name": "Properties", - "args": [] - } - ], - [ - "element", - { - "tag": "adt", - "name": "ElementPrim", - "args": [] - } - ] - ], - "extension": null - } - }, - { - "name": "Position", - "comment": "", - "raw": "type Position = { horizontal : Three, vertical : Three, x : Pos, y : Pos }", - "typeVariables": [], - "type": { - "tag": "record", - "fields": [ - [ - "horizontal", - { - "tag": "adt", - "name": "Three", - "args": [] - } - ], - [ - "vertical", - { - "tag": "adt", - "name": "Three", - "args": [] - } - ], - [ - "x", - { - "tag": "adt", - "name": "Pos", - "args": [] - } - ], - [ - "y", - { - "tag": "adt", - "name": "Pos", - "args": [] - } - ] - ], - "extension": null - } - }, - { - "name": "Properties", - "comment": "", - "raw": "type Properties = {\n id : Int,\n width : Int,\n height : Int,\n opacity : Float,\n color : Maybe Color,\n href : JSString,\n tag : JSString,\n hover : (),\n click : ()\n }", - "typeVariables": [], - "type": { - "tag": "record", - "fields": [ - [ - "id", - { - "tag": "adt", - "name": "Int", - "args": [] - } - ], - [ - "width", - { - "tag": "adt", - "name": "Int", - "args": [] - } - ], - [ - "height", - { - "tag": "adt", - "name": "Int", - "args": [] - } - ], - [ - "opacity", - { - "tag": "adt", - "name": "Float", - "args": [] - } - ], - [ - "color", - { - "tag": "adt", - "name": "Maybe", - "args": [ - { - "tag": "adt", - "name": "Color", - "args": [] - } - ] - } - ], - [ - "href", - { - "tag": "adt", - "name": "JSString", - "args": [] - } - ], - [ - "tag", - { - "tag": "adt", - "name": "JSString", - "args": [] - } - ], - [ - "hover", - { - "tag": "adt", - "name": "_Tuple0", - "args": [] - } - ], - [ - "click", - { - "tag": "adt", - "name": "_Tuple0", - "args": [] - } - ] - ], - "extension": null - } - } - ], - "datatypes": [ - { - "name": "Direction", - "comment": "", - "raw": "data Direction = DUp | DDown | DLeft | DRight | DIn | DOut", - "typeVariables": [], - "constructors": [ - { - "name": "DUp", - "type": { - "tag": "adt", - "name": "Direction", - "args": [] - } - }, - { - "name": "DDown", - "type": { - "tag": "adt", - "name": "Direction", - "args": [] - } - }, - { - "name": "DLeft", - "type": { - "tag": "adt", - "name": "Direction", - "args": [] - } - }, - { - "name": "DRight", - "type": { - "tag": "adt", - "name": "Direction", - "args": [] - } - }, - { - "name": "DIn", - "type": { - "tag": "adt", - "name": "Direction", - "args": [] - } - }, - { - "name": "DOut", - "type": { - "tag": "adt", - "name": "Direction", - "args": [] - } - } - ] - }, - { - "name": "ElementPrim", - "comment": "", - "raw": "data ElementPrim\n = Image ImageStyle Int Int JSString\n | Container Position Element\n | Flow Direction [Element]\n | Spacer\n | RawHtml\n | Custom", - "typeVariables": [], - "constructors": [ - { - "name": "Image", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "ImageStyle", - "args": [] - }, - { - "tag": "adt", - "name": "Int", - "args": [] - }, - { - "tag": "adt", - "name": "Int", - "args": [] - }, - { - "tag": "adt", - "name": "JSString", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "ElementPrim", - "args": [] - } - } - }, - { - "name": "Container", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Position", - "args": [] - }, - { - "tag": "adt", - "name": "Element", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "ElementPrim", - "args": [] - } - } - }, - { - "name": "Flow", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Direction", - "args": [] - }, - { - "tag": "adt", - "name": "_List", - "args": [ - { - "tag": "adt", - "name": "Element", - "args": [] - } - ] - } - ], - "result": { - "tag": "adt", - "name": "ElementPrim", - "args": [] - } - } - }, - { - "name": "Spacer", - "type": { - "tag": "adt", - "name": "ElementPrim", - "args": [] - } - }, - { - "name": "RawHtml", - "type": { - "tag": "adt", - "name": "ElementPrim", - "args": [] - } - }, - { - "name": "Custom", - "type": { - "tag": "adt", - "name": "ElementPrim", - "args": [] - } - } - ] - }, - { - "name": "ImageStyle", - "comment": "", - "raw": "data ImageStyle = Plain | Fitted | Cropped (Int,Int) | Tiled", - "typeVariables": [], - "constructors": [ - { - "name": "Plain", - "type": { - "tag": "adt", - "name": "ImageStyle", - "args": [] - } - }, - { - "name": "Fitted", - "type": { - "tag": "adt", - "name": "ImageStyle", - "args": [] - } - }, - { - "name": "Cropped", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "_Tuple2", - "args": [ - { - "tag": "adt", - "name": "Int", - "args": [] - }, - { - "tag": "adt", - "name": "Int", - "args": [] - } - ] - } - ], - "result": { - "tag": "adt", - "name": "ImageStyle", - "args": [] - } - } - }, - { - "name": "Tiled", - "type": { - "tag": "adt", - "name": "ImageStyle", - "args": [] - } - } - ] - }, - { - "name": "Pos", - "comment": "", - "raw": "data Pos = Absolute Int | Relative Float", - "typeVariables": [], - "constructors": [ - { - "name": "Absolute", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Int", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Pos", - "args": [] - } - } - }, - { - "name": "Relative", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Float", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Pos", - "args": [] - } - } - } - ] - }, - { - "name": "Three", - "comment": "", - "raw": "data Three = P | Z | N", - "typeVariables": [], - "constructors": [ - { - "name": "P", - "type": { - "tag": "adt", - "name": "Three", - "args": [] - } - }, - { - "name": "Z", - "type": { - "tag": "adt", - "name": "Three", - "args": [] - } - }, - { - "name": "N", - "type": { - "tag": "adt", - "name": "Three", - "args": [] - } - } - ] - } - ], - "values": [ - { - "name": "above", - "comment": "Stack elements vertically.\nTo put `a` above `b` you would say: ``a `above` b``", - "raw": "above : Element -\u003e Element -\u003e Element", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Element", - "args": [] - }, - { - "tag": "adt", - "name": "Element", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Element", - "args": [] - } - } - }, - { - "name": "absolute", - "comment": "", - "raw": "absolute : Int -\u003e Pos", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Int", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Pos", - "args": [] - } - } - }, - { - "name": "below", - "comment": "Stack elements vertically.\nTo put `a` below `b` you would say: ``a `below` b``", - "raw": "below : Element -\u003e Element -\u003e Element", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Element", - "args": [] - }, - { - "tag": "adt", - "name": "Element", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Element", - "args": [] - } - } - }, - { - "name": "beside", - "comment": "Put elements beside each other horizontally.\nTo put `a` beside `b` you would say: ``a `beside` b``", - "raw": "beside : Element -\u003e Element -\u003e Element", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Element", - "args": [] - }, - { - "tag": "adt", - "name": "Element", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Element", - "args": [] - } - } - }, - { - "name": "bottomLeft", - "comment": "", - "raw": "bottomLeft : Position", - "type": { - "tag": "adt", - "name": "Position", - "args": [] - } - }, - { - "name": "bottomLeftAt", - "comment": "", - "raw": "bottomLeftAt : Pos -\u003e Pos -\u003e Position", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Pos", - "args": [] - }, - { - "tag": "adt", - "name": "Pos", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Position", - "args": [] - } - } - }, - { - "name": "bottomRight", - "comment": "", - "raw": "bottomRight : Position", - "type": { - "tag": "adt", - "name": "Position", - "args": [] - } - }, - { - "name": "bottomRightAt", - "comment": "", - "raw": "bottomRightAt : Pos -\u003e Pos -\u003e Position", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Pos", - "args": [] - }, - { - "tag": "adt", - "name": "Pos", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Position", - "args": [] - } - } - }, - { - "name": "color", - "comment": "Create an `Element` with a given background color.", - "raw": "color : Color -\u003e Element -\u003e Element", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Color", - "args": [] - }, - { - "tag": "adt", - "name": "Element", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Element", - "args": [] - } - } - }, - { - "name": "container", - "comment": "Put an element in a container. This lets you position the element really\neasily, and there are tons of ways to set the `Position`.\nTo center `element` exactly in a 300-by-300 square you would say:\n\n container 300 300 middle element\n\nBy setting the color of the container, you can create borders.", - "raw": "container : Int -\u003e Int -\u003e Position -\u003e Element -\u003e Element", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Int", - "args": [] - }, - { - "tag": "adt", - "name": "Int", - "args": [] - }, - { - "tag": "adt", - "name": "Position", - "args": [] - }, - { - "tag": "adt", - "name": "Element", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Element", - "args": [] - } - } - }, - { - "name": "croppedImage", - "comment": "Create a cropped image. Take a rectangle out of the picture starting\nat the given top left coordinate. If you have a 140-by-140 image,\nthe following will cut a 100-by-100 square out of the middle of it.\n\n croppedImage (20,20) 100 100 \"yogi.jpg\"", - "raw": "croppedImage : (Int,Int) -\u003e Int -\u003e Int -\u003e String -\u003e Element", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "_Tuple2", - "args": [ - { - "tag": "adt", - "name": "Int", - "args": [] - }, - { - "tag": "adt", - "name": "Int", - "args": [] - } - ] - }, - { - "tag": "adt", - "name": "Int", - "args": [] - }, - { - "tag": "adt", - "name": "Int", - "args": [] - }, - { - "tag": "adt", - "name": "String", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Element", - "args": [] - } - } - }, - { - "name": "down", - "comment": "", - "raw": "down : Direction", - "type": { - "tag": "adt", - "name": "Direction", - "args": [] - } - }, - { - "name": "empty", - "comment": "An Element that takes up no space. Good for things that appear conditionally:\n\n flow down [ img1, if showMore then img2 else empty ]", - "raw": "empty : Element", - "type": { - "tag": "adt", - "name": "Element", - "args": [] - } - }, - { - "name": "fittedImage", - "comment": "Create a fitted image given a width, height, and image source.\nThis will crop the picture to best fill the given dimensions.", - "raw": "fittedImage : Int -\u003e Int -\u003e String -\u003e Element", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Int", - "args": [] - }, - { - "tag": "adt", - "name": "Int", - "args": [] - }, - { - "tag": "adt", - "name": "String", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Element", - "args": [] - } - } - }, - { - "name": "flow", - "comment": "Have a list of elements flow in a particular direction.\nThe `Direction` starts from the first element in the list.\n\n flow right [a,b,c]\n\n +---+---+---+\n | a | b | c |\n +---+---+---+", - "raw": "flow : Direction -\u003e [Element] -\u003e Element", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Direction", - "args": [] - }, - { - "tag": "adt", - "name": "_List", - "args": [ - { - "tag": "adt", - "name": "Element", - "args": [] - } - ] - } - ], - "result": { - "tag": "adt", - "name": "Element", - "args": [] - } - } - }, - { - "name": "height", - "comment": "Create an `Element` with a given height.", - "raw": "height : Int -\u003e Element -\u003e Element", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Int", - "args": [] - }, - { - "tag": "adt", - "name": "Element", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Element", - "args": [] - } - } - }, - { - "name": "heightOf", - "comment": "Get the height of an Element", - "raw": "heightOf : Element -\u003e Int", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Element", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Int", - "args": [] - } - } - }, - { - "name": "image", - "comment": "Create an image given a width, height, and image source.", - "raw": "image : Int -\u003e Int -\u003e String -\u003e Element", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Int", - "args": [] - }, - { - "tag": "adt", - "name": "Int", - "args": [] - }, - { - "tag": "adt", - "name": "String", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Element", - "args": [] - } - } - }, - { - "name": "inward", - "comment": "", - "raw": "inward : Direction", - "type": { - "tag": "adt", - "name": "Direction", - "args": [] - } - }, - { - "name": "layers", - "comment": "Layer elements on top of each other, starting from the bottom:\n`layers == flow outward`", - "raw": "layers : [Element] -\u003e Element", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "_List", - "args": [ - { - "tag": "adt", - "name": "Element", - "args": [] - } - ] - } - ], - "result": { - "tag": "adt", - "name": "Element", - "args": [] - } - } - }, - { - "name": "left", - "comment": "", - "raw": "left : Direction", - "type": { - "tag": "adt", - "name": "Direction", - "args": [] - } - }, - { - "name": "link", - "comment": "Create an `Element` that is a hyper-link.", - "raw": "link : String -\u003e Element -\u003e Element", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "String", - "args": [] - }, - { - "tag": "adt", - "name": "Element", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Element", - "args": [] - } - } - }, - { - "name": "midBottom", - "comment": "", - "raw": "midBottom : Position", - "type": { - "tag": "adt", - "name": "Position", - "args": [] - } - }, - { - "name": "midBottomAt", - "comment": "", - "raw": "midBottomAt : Pos -\u003e Pos -\u003e Position", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Pos", - "args": [] - }, - { - "tag": "adt", - "name": "Pos", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Position", - "args": [] - } - } - }, - { - "name": "midLeft", - "comment": "", - "raw": "midLeft : Position", - "type": { - "tag": "adt", - "name": "Position", - "args": [] - } - }, - { - "name": "midLeftAt", - "comment": "", - "raw": "midLeftAt : Pos -\u003e Pos -\u003e Position", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Pos", - "args": [] - }, - { - "tag": "adt", - "name": "Pos", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Position", - "args": [] - } - } - }, - { - "name": "midRight", - "comment": "", - "raw": "midRight : Position", - "type": { - "tag": "adt", - "name": "Position", - "args": [] - } - }, - { - "name": "midRightAt", - "comment": "", - "raw": "midRightAt : Pos -\u003e Pos -\u003e Position", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Pos", - "args": [] - }, - { - "tag": "adt", - "name": "Pos", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Position", - "args": [] - } - } - }, - { - "name": "midTop", - "comment": "", - "raw": "midTop : Position", - "type": { - "tag": "adt", - "name": "Position", - "args": [] - } - }, - { - "name": "midTopAt", - "comment": "", - "raw": "midTopAt : Pos -\u003e Pos -\u003e Position", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Pos", - "args": [] - }, - { - "tag": "adt", - "name": "Pos", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Position", - "args": [] - } - } - }, - { - "name": "middle", - "comment": "", - "raw": "middle : Position", - "type": { - "tag": "adt", - "name": "Position", - "args": [] - } - }, - { - "name": "middleAt", - "comment": "", - "raw": "middleAt : Pos -\u003e Pos -\u003e Position", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Pos", - "args": [] - }, - { - "tag": "adt", - "name": "Pos", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Position", - "args": [] - } - } - }, - { - "name": "opacity", - "comment": "Create an `Element` with a given opacity. Opacity is a number between 0 and 1\nwhere 0 means totally clear.", - "raw": "opacity : Float -\u003e Element -\u003e Element", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Float", - "args": [] - }, - { - "tag": "adt", - "name": "Element", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Element", - "args": [] - } - } - }, - { - "name": "outward", - "comment": "", - "raw": "outward : Direction", - "type": { - "tag": "adt", - "name": "Direction", - "args": [] - } - }, - { - "name": "relative", - "comment": "", - "raw": "relative : Float -\u003e Pos", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Float", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Pos", - "args": [] - } - } - }, - { - "name": "right", - "comment": "", - "raw": "right : Direction", - "type": { - "tag": "adt", - "name": "Direction", - "args": [] - } - }, - { - "name": "size", - "comment": "Create an `Element` with a new width and height.", - "raw": "size : Int -\u003e Int -\u003e Element -\u003e Element", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Int", - "args": [] - }, - { - "tag": "adt", - "name": "Int", - "args": [] - }, - { - "tag": "adt", - "name": "Element", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Element", - "args": [] - } - } - }, - { - "name": "sizeOf", - "comment": "Get the width and height of an Element", - "raw": "sizeOf : Element -\u003e (Int,Int)", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Element", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "_Tuple2", - "args": [ - { - "tag": "adt", - "name": "Int", - "args": [] - }, - { - "tag": "adt", - "name": "Int", - "args": [] - } - ] - } - } - }, - { - "name": "spacer", - "comment": "Create an empty box. This is useful for getting your spacing right and\nfor making borders.", - "raw": "spacer : Int -\u003e Int -\u003e Element", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Int", - "args": [] - }, - { - "tag": "adt", - "name": "Int", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Element", - "args": [] - } - } - }, - { - "name": "tag", - "comment": "Create an `Element` with a tag. This lets you link directly to it.\nThe element `(tag \"all-about-badgers\" thirdParagraph)` can be reached\nwith a link like this: `/facts-about-animals.elm#all-about-badgers`", - "raw": "tag : String -\u003e Element -\u003e Element", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "String", - "args": [] - }, - { - "tag": "adt", - "name": "Element", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Element", - "args": [] - } - } - }, - { - "name": "tiledImage", - "comment": "", - "raw": "tiledImage : Int -\u003e Int -\u003e String -\u003e Element", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Int", - "args": [] - }, - { - "tag": "adt", - "name": "Int", - "args": [] - }, - { - "tag": "adt", - "name": "String", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Element", - "args": [] - } - } - }, - { - "name": "topLeft", - "comment": "", - "raw": "topLeft : Position", - "type": { - "tag": "adt", - "name": "Position", - "args": [] - } - }, - { - "name": "topLeftAt", - "comment": "", - "raw": "topLeftAt : Pos -\u003e Pos -\u003e Position", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Pos", - "args": [] - }, - { - "tag": "adt", - "name": "Pos", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Position", - "args": [] - } - } - }, - { - "name": "topRight", - "comment": "", - "raw": "topRight : Position", - "type": { - "tag": "adt", - "name": "Position", - "args": [] - } - }, - { - "name": "topRightAt", - "comment": "", - "raw": "topRightAt : Pos -\u003e Pos -\u003e Position", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Pos", - "args": [] - }, - { - "tag": "adt", - "name": "Pos", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Position", - "args": [] - } - } - }, - { - "name": "up", - "comment": "", - "raw": "up : Direction", - "type": { - "tag": "adt", - "name": "Direction", - "args": [] - } - }, - { - "name": "width", - "comment": "Create an `Element` with a given width.", - "raw": "width : Int -\u003e Element -\u003e Element", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Int", - "args": [] - }, - { - "tag": "adt", - "name": "Element", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Element", - "args": [] - } - } - }, - { - "name": "widthOf", - "comment": "Get the width of an Element", - "raw": "widthOf : Element -\u003e Int", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Element", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Int", - "args": [] - } - } - } - ] -}, -{ - "name": "Graphics.Input", - "document": "This module is for creating standard input widgets such as buttons and\ntext fields. All functions in this library follow a general pattern in which\nyou create an `Input` that many elements can report to:\n\n```haskell\nclicks : Input ()\nclicks = input ()\n\nclickableYogi : Element\nclickableYogi = clickable clicks.handle () (image 40 40 \"/yogi.jpg\")\n```\n\nWhenever the user clicks on the resulting `clickableYogi` element, it sends an\nupdate to the `clicks` input. You will see this pattern again and again in\nexamples in this library, so just read on to get a better idea of how it works!\n\n# Creating Inputs\n@docs Input, input\n\n# Basic Input Elements\n\nTo learn about text fields, see the\n[`Graphics.Input.Field`](Graphics-Input-Field) library.\n\n@docs button, customButton, checkbox, dropDown\n\n# Clicks and Hovers\n@docs clickable, hoverable", - "aliases": [ - { - "name": "Input", - "comment": "This is the key abstraction of this library. An `Input` is a record\nof two fields:\n\n 1. `signal` — all values coming to this input from “the world”\n 2. `handle` — a way to refer to this particular input and send it values\n\nThis will make more sense as you see more examples.", - "raw": "type Input a = { signal : Signal a, handle : Handle a }", - "typeVariables": [ - "a" - ], - "type": { - "tag": "record", - "fields": [ - [ - "signal", - { - "tag": "adt", - "name": "Signal", - "args": [ - { - "tag": "var", - "name": "a" - } - ] - } - ], - [ - "handle", - { - "tag": "adt", - "name": "Handle", - "args": [ - { - "tag": "var", - "name": "a" - } - ] - } - ] - ], - "extension": null - } - } - ], - "datatypes": [ - { - "name": "Handle", - "comment": "", - "raw": "data Handle a = Handle", - "typeVariables": [ - "a" - ], - "constructors": [ - { - "name": "Handle", - "type": { - "tag": "adt", - "name": "Handle", - "args": [ - { - "tag": "var", - "name": "a" - } - ] - } - } - ] - } - ], - "values": [ - { - "name": "button", - "comment": "Create a standard button. The following example begins making a basic\ncalculator:\n\n data Keys = Number Int | Plus | Minus | Clear\n\n keys : Input Keys\n keys = input Clear\n\n calculator : Element\n calculator =\n flow right [ button keys.handle (Number 1) \"1\"\n , button keys.handle (Number 2) \"2\"\n , button keys.handle Plus \"+\"\n ]\n\nIf the user presses the \"+\" button, `keys.signal` will update to `Plus`. If the\nusers presses \"2\", `keys.signal` will update to `(Number 2)`.", - "raw": "button : Handle a -\u003e a -\u003e String -\u003e Element", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Handle", - "args": [ - { - "tag": "var", - "name": "a" - } - ] - }, - { - "tag": "var", - "name": "a" - }, - { - "tag": "adt", - "name": "String", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Element", - "args": [] - } - } - }, - { - "name": "checkbox", - "comment": "Create a checkbox. The following example creates three synced checkboxes:\n\n check : Input Bool\n check = input False\n\n boxes : Bool -\u003e Element\n boxes checked =\n let box = container 40 40 middle (checkbox check.handle id checked)\n in flow right [ box, box, box ]\n\n main : Signal Element\n main = boxes \u003c~ check.signal", - "raw": "checkbox : Handle a -\u003e (Bool -\u003e a) -\u003e Bool -\u003e Element", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Handle", - "args": [ - { - "tag": "var", - "name": "a" - } - ] - }, - { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Bool", - "args": [] - } - ], - "result": { - "tag": "var", - "name": "a" - } - }, - { - "tag": "adt", - "name": "Bool", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Element", - "args": [] - } - } - }, - { - "name": "clickable", - "comment": "Detect mouse clicks on a specific `Element`. In the following example,\nwe will create a clickable picture called `cat`.\n\n data Picture = Cat | Hat\n\n picture : Input Picture\n picture = input Cat\n\n cat : Element\n cat = image 30 30 \"/cat.jpg\"\n |\u003e clickable picture.handle Cat\n\n hat : Element\n hat = image 30 30 \"/hat.jpg\"\n |\u003e clickable picture.handle Hat\n\nWhen the user clicks on the `cat` element, `picture.signal` receives\nan update containing the value `Cat`. When the user clicks on the `hat` element,\n`picture.signal` receives an update containing the value `Hat`. This lets you\ndistinguish which element was clicked. In a more complex example, they could be\ndistinguished with IDs or more complex data structures.", - "raw": "clickable : Handle a -\u003e a -\u003e Element -\u003e Element", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Handle", - "args": [ - { - "tag": "var", - "name": "a" - } - ] - }, - { - "tag": "var", - "name": "a" - }, - { - "tag": "adt", - "name": "Element", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Element", - "args": [] - } - } - }, - { - "name": "customButton", - "comment": "Same as `button` but lets you customize buttons to look however you want.\n\n click : Input ()\n click = input ()\n\n prettyButton : Element\n prettyButton =\n customButton click.handle\n (image 100 40 \"/button_up.jpg\")\n (image 100 40 \"/button_hover.jpg\")\n (image 100 40 \"/button_down.jpg\")", - "raw": "customButton : Handle a -\u003e a -\u003e Element -\u003e Element -\u003e Element -\u003e Element", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Handle", - "args": [ - { - "tag": "var", - "name": "a" - } - ] - }, - { - "tag": "var", - "name": "a" - }, - { - "tag": "adt", - "name": "Element", - "args": [] - }, - { - "tag": "adt", - "name": "Element", - "args": [] - }, - { - "tag": "adt", - "name": "Element", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Element", - "args": [] - } - } - }, - { - "name": "dropDown", - "comment": "Create a drop-down menu. The following drop-down lets you choose your\nfavorite British sport:\n\n data Sport = Football | Cricket | Snooker\n\n sport : Input (Maybe Sport)\n sport = input Nothing\n\n sportDropDown : Element\n sportDropDown =\n dropDown sport.handle\n [ (\"\" , Nothing)\n , (\"Football\", Just Football)\n , (\"Cricket\" , Just Cricket)\n , (\"Snooker\" , Just Snooker)\n ]\n\nIf the user selects \"Football\" from the drop down menue, `sport.signal`\nwill update to `Just Football`.", - "raw": "dropDown : Handle a -\u003e [(String,a)] -\u003e Element", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Handle", - "args": [ - { - "tag": "var", - "name": "a" - } - ] - }, - { - "tag": "adt", - "name": "_List", - "args": [ - { - "tag": "adt", - "name": "_Tuple2", - "args": [ - { - "tag": "adt", - "name": "String", - "args": [] - }, - { - "tag": "var", - "name": "a" - } - ] - } - ] - } - ], - "result": { - "tag": "adt", - "name": "Element", - "args": [] - } - } - }, - { - "name": "hoverable", - "comment": "Detect mouse hovers over a specific `Element`. In the following example,\nwe will create a hoverable picture called `cat`.\n\n hover : Input Bool\n hover = input False\n\n cat : Element\n cat = image 30 30 \"/cat.jpg\"\n |\u003e hoverable hover.handle id\n\nWhen the mouse hovers above the `cat` element, `hover.signal` will become\n`True`. When the mouse leaves it, `hover.signal` will become `False`.", - "raw": "hoverable : Handle a -\u003e (Bool -\u003e a) -\u003e Element -\u003e Element", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Handle", - "args": [ - { - "tag": "var", - "name": "a" - } - ] - }, - { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Bool", - "args": [] - } - ], - "result": { - "tag": "var", - "name": "a" - } - }, - { - "tag": "adt", - "name": "Element", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Element", - "args": [] - } - } - }, - { - "name": "input", - "comment": "This creates a new `Input`. You provide a single argument that will serve\nas the initial value of the input’s `signal`. For example:\n\n numbers : Input Int\n numbers = input 42\n\nThe initial value of `numbers.signal` is 42, and you will be able\nto pipe updates to the input using `numbers.handle`.\n\nNote: This is an inherently impure function. Specifically, `(input ())` and\n`(input ())` are actually two different inputs with different signals and handles.", - "raw": "input : a -\u003e Input a", - "type": { - "tag": "function", - "args": [ - { - "tag": "var", - "name": "a" - } - ], - "result": { - "tag": "adt", - "name": "Input", - "args": [ - { - "tag": "var", - "name": "a" - } - ] - } - } - } - ] -}, -{ - "name": "Graphics.Input.Field", - "document": "This library provides an API for creating and updating text fields.\nText fields use exactly the same approach as [`Graphics.Input`](Graphics-Input)\nfor modelling user input, allowing you to keep track of new events and update\ntext fields programmatically.\n\n# Create Fields\n@docs field, password, email\n\n# Field Content\n@docs Content, Selection, Direction, noContent\n\n# Field Style\n@docs Style, Outline, noOutline, Highlight, noHighlight, Dimensions, uniformly", - "aliases": [ - { - "name": "Content", - "comment": "Represents the current content of a text field. For example:\n\n content = Content \"She sells sea shells\" (Selection 0 3 Backward)\n\nThis means the user highlighted the substring `\"She\"` backwards. The value of\n`content.string` is `\"She sells sea shells\"`.", - "raw": "type Content = { string:String, selection:Selection }", - "typeVariables": [], - "type": { - "tag": "record", - "fields": [ - [ - "string", - { - "tag": "adt", - "name": "String", - "args": [] - } - ], - [ - "selection", - { - "tag": "adt", - "name": "Selection", - "args": [] - } - ] - ], - "extension": null - } - }, - { - "name": "Dimensions", - "comment": "For setting dimensions of a fields padding or border. The left, right, top,\nand bottom may all have different sizes. The following example creates\ndimensions such that the left and right are twice as wide as the top and bottom:\n\n myDimensions : Int -\u003e Dimensions\n myDimensions n = { left = 2 * n, right = 2 * n, top = n, bottom = n }", - "raw": "type Dimensions = { left:Int, right:Int, top:Int, bottom:Int }", - "typeVariables": [], - "type": { - "tag": "record", - "fields": [ - [ - "left", - { - "tag": "adt", - "name": "Int", - "args": [] - } - ], - [ - "right", - { - "tag": "adt", - "name": "Int", - "args": [] - } - ], - [ - "top", - { - "tag": "adt", - "name": "Int", - "args": [] - } - ], - [ - "bottom", - { - "tag": "adt", - "name": "Int", - "args": [] - } - ] - ], - "extension": null - } - }, - { - "name": "Highlight", - "comment": "When a field has focus, it has a blue highlight around it by default. The\n`Highlight` lets you set the `color` and `width` of this highlight. Set the\n`width` to zero to turn the highlight off. Here is an example highlight that\nis blue and thin:\n\n { color = blue, width = 1 }", - "raw": "type Highlight = { color:Color, width:Int }", - "typeVariables": [], - "type": { - "tag": "record", - "fields": [ - [ - "color", - { - "tag": "adt", - "name": "Color", - "args": [] - } - ], - [ - "width", - { - "tag": "adt", - "name": "Int", - "args": [] - } - ] - ], - "extension": null - } - }, - { - "name": "Outline", - "comment": "A field can have a outline around it. This lets you set its color, width,\nand radius. The radius allows you to round the corners of your field. Set the\nwidth to zero to make it invisible. Here is an example outline that is grey\nand thin with slightly rounded corners:\n\n { color = grey, width = uniformly 1, radius = 4 }", - "raw": "type Outline = { color:Color, width:Dimensions, radius:Int }", - "typeVariables": [], - "type": { - "tag": "record", - "fields": [ - [ - "color", - { - "tag": "adt", - "name": "Color", - "args": [] - } - ], - [ - "width", - { - "tag": "adt", - "name": "Dimensions", - "args": [] - } - ], - [ - "radius", - { - "tag": "adt", - "name": "Int", - "args": [] - } - ] - ], - "extension": null - } - }, - { - "name": "Selection", - "comment": "The selection within a text field. `start` is never greater than `end`:\n\n Selection 0 0 Forward -- cursor precedes all characters\n\n Selection 5 9 Backward -- highlighting characters starting after\n -- the 5th and ending after the 9th", - "raw": "type Selection = { start:Int, end:Int, direction:Direction }", - "typeVariables": [], - "type": { - "tag": "record", - "fields": [ - [ - "start", - { - "tag": "adt", - "name": "Int", - "args": [] - } - ], - [ - "end", - { - "tag": "adt", - "name": "Int", - "args": [] - } - ], - [ - "direction", - { - "tag": "adt", - "name": "Direction", - "args": [] - } - ] - ], - "extension": null - } - }, - { - "name": "Style", - "comment": "Describe the style of a text box. `style` describes the style of the text\nitself using [`Text.Style`](/Text#Style). `outline` describes the glowing blue\noutline that shows up when the field has focus. `outline` describes the line\nsurrounding the text field, and `padding` adds whitespace between the `outline`\nand the text.\n\nThe width and height of the text box *includes* the `padding` and `outline`.\nSay we have a text box that is 40 pixels tall. It has a uniform outline of\n1 pixel and a uniform padding of 5 pixels. Both of these must be subtracted\nfrom the total height to determine how much room there is for text. The\n`padding` and `outline` appear on the top and bottom, so there will be 28\nvertical pixels remaining for the text (40 - 1 - 5 - 5 - 1).", - "raw": "type Style =\n { padding : Dimensions\n , outline : Outline\n , highlight : Highlight\n , style : Text.Style\n }", - "typeVariables": [], - "type": { - "tag": "record", - "fields": [ - [ - "padding", - { - "tag": "adt", - "name": "Dimensions", - "args": [] - } - ], - [ - "outline", - { - "tag": "adt", - "name": "Outline", - "args": [] - } - ], - [ - "highlight", - { - "tag": "adt", - "name": "Highlight", - "args": [] - } - ], - [ - "style", - { - "tag": "adt", - "name": "Text.Style", - "args": [] - } - ] - ], - "extension": null - } - } - ], - "datatypes": [ - { - "name": "Direction", - "comment": "The direction of selection. When the user highlights a selection in a text\nfield, they must do it in a particular direction. This determines which end of\nthe selection moves when they change the selection by pressing Shift-Left or\nShift-Right.", - "raw": "data Direction = Forward | Backward", - "typeVariables": [], - "constructors": [ - { - "name": "Forward", - "type": { - "tag": "adt", - "name": "Direction", - "args": [] - } - }, - { - "name": "Backward", - "type": { - "tag": "adt", - "name": "Direction", - "args": [] - } - } - ] - } - ], - "values": [ - { - "name": "defaultStyle", - "comment": "The default style for a text field. The outline is `Color.grey` with width\n1 and radius 2. The highlight is `Color.blue` with width 1, and the default\ntext color is black.", - "raw": "defaultStyle : Style", - "type": { - "tag": "adt", - "name": "Style", - "args": [] - } - }, - { - "name": "email", - "comment": "Same as `field` but it adds an annotation that this field is for email\naddresses. This is helpful for auto-complete and for mobile users who may\nget a custom keyboard with an `@` and `.com` button.", - "raw": "email : Style -\u003e Handle a -\u003e (Content -\u003e a) -\u003e String -\u003e Content -\u003e Element", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Style", - "args": [] - }, - { - "tag": "adt", - "name": "Handle", - "args": [ - { - "tag": "var", - "name": "a" - } - ] - }, - { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Content", - "args": [] - } - ], - "result": { - "tag": "var", - "name": "a" - } - }, - { - "tag": "adt", - "name": "String", - "args": [] - }, - { - "tag": "adt", - "name": "Content", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Element", - "args": [] - } - } - }, - { - "name": "field", - "comment": "Create a text field. The following example creates a time-varying element\ncalled `nameField`. As the user types their name, the field will be updated\nto match what they have entered.\n\n name : Input Content\n name = input noContent\n\n nameField : Signal Element\n nameField = field defaultStyle name.handle id \"Name\" \u003c~ name.signal\n\nWhen we use the `field` function, we first give it a visual style. This is\nthe first argument so that it is easier to define your own custom field\n(`myField = field myStyle`). The next two arguments are a `Handle` and a\nhandler function that processes or augments events before sending them along\nto the associated `Input`. In the example above we use the `id` function to\npass events along unchanged to the `name` `Input`. We then provide the\nplace-holder message to use when no input has been provided yet. Finally,\nwe give the current `Content` of the field. This argument is last because\nit is most likely to change frequently, making function composition easier.", - "raw": "field : Style -\u003e Handle a -\u003e (Content -\u003e a) -\u003e String -\u003e Content -\u003e Element", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Style", - "args": [] - }, - { - "tag": "adt", - "name": "Handle", - "args": [ - { - "tag": "var", - "name": "a" - } - ] - }, - { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Content", - "args": [] - } - ], - "result": { - "tag": "var", - "name": "a" - } - }, - { - "tag": "adt", - "name": "String", - "args": [] - }, - { - "tag": "adt", - "name": "Content", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Element", - "args": [] - } - } - }, - { - "name": "noContent", - "comment": "A field with no content:\n\n Content \"\" (Selection 0 0 Forward)", - "raw": "noContent : Content", - "type": { - "tag": "adt", - "name": "Content", - "args": [] - } - }, - { - "name": "noHighlight", - "comment": "An highlight with zero width, so you cannot see it.", - "raw": "noHighlight : Highlight", - "type": { - "tag": "adt", - "name": "Highlight", - "args": [] - } - }, - { - "name": "noOutline", - "comment": "An outline with zero width, so you cannot see it.", - "raw": "noOutline : Outline", - "type": { - "tag": "adt", - "name": "Outline", - "args": [] - } - }, - { - "name": "password", - "comment": "Same as `field` but the UI element blocks out each characters.", - "raw": "password : Style -\u003e Handle a -\u003e (Content -\u003e a) -\u003e String -\u003e Content -\u003e Element", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Style", - "args": [] - }, - { - "tag": "adt", - "name": "Handle", - "args": [ - { - "tag": "var", - "name": "a" - } - ] - }, - { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Content", - "args": [] - } - ], - "result": { - "tag": "var", - "name": "a" - } - }, - { - "tag": "adt", - "name": "String", - "args": [] - }, - { - "tag": "adt", - "name": "Content", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Element", - "args": [] - } - } - }, - { - "name": "uniformly", - "comment": "Create uniform dimensions:\n\n uniformly 4 == { left=4, right=4, top=4, bottom=4 }\n\nThe following example creates an outline where the left, right, top, and bottom\nedges all have width 1:\n\n Outline grey (uniformly 1) 4", - "raw": "uniformly : Int -\u003e Dimensions", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "Int", - "args": [] - } - ], - "result": { - "tag": "adt", - "name": "Dimensions", - "args": [] - } - } - } - ] -}, -{ - "name": "JavaScript.Experimental", - "document": "A pair of very experimental functions for converting between\nElm records and JavaScript objects. It currently uses a best effort\nconversion that can cause runtime errors. This API should change and\nimprove as we find its key failings.\n\n# Converting between Elm records and JS Objects\n@docs toRecord, fromRecord", - "aliases": [], - "datatypes": [], - "values": [ - { - "name": "fromRecord", - "comment": "Turn arbitrary Elm records into JavaScript objects.\nLists become arrays, nested records are allowed. No ADTs.\n\n -- OK records\n { student=\"Steve\", scores=[83,94,99,72] }\n { errorLevel=10, critical=True }\n\n -- BAD records\n { answer = Nothing }\n { result = Left \"An error occurred\" }", - "raw": "fromRecord : a -\u003e JSObject", - "type": { - "tag": "function", - "args": [ - { - "tag": "var", - "name": "a" - } - ], - "result": { - "tag": "adt", - "name": "JSObject", - "args": [] - } - } - }, - { - "name": "toRecord", - "comment": "Turn arbitrary JavaScript objects into Elm records.\nArrays are converted into lists, nested objects are allowed.\nNo `null` values or non-homogeneous arrays.\n\n -- OK objects\n { student:\"Steve\", scores:[83,94,99,72] }\n { errorLevel:10, critical:true }\n\n -- BAD objects\n { answer:null }\n { info:[true,42,'what'] }", - "raw": "toRecord : JSObject -\u003e a", - "type": { - "tag": "function", - "args": [ - { - "tag": "adt", - "name": "JSObject", + "name": "Array", + "document": "A library for fast immutable arrays. The elements in an array must have the\nsame type. The arrays are implemented in Relaxed Radix Balanced-Trees for fast\nreads, updates, and appends.\n\n# Creating Arrays\n@docs empty, repeat, initialize, fromList\n\n# Basics\n@docs length, push, append\n\n# Get and Set\n@docs get, getOrElse, getOrFail, set\n\n# Taking Arrays Apart\n@docs slice, toList, toIndexedList\n\n# Mapping and Folding\n@docs map, indexedMap, foldl, foldr", + "aliases": [], + "datatypes": [ + { + "name": "Array", + "comment": "", + "raw": "data Array a = Array", + "typeVariables": [ + "a" + ], + "constructors": [ + { + "name": "Array", + "type": { + "tag": "adt", + "name": "Array", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + } + ] + } + ], + "values": [ + { + "name": "append", + "comment": "Append two arrays to a new one.\n\n append (array 2 42) (array 3 81) == fromList [42,42,81,81,81]", + "raw": "append : Array a -\u003e Array a -\u003e Array a", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Array", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + }, + { + "tag": "adt", + "name": "Array", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + ], + "result": { + "tag": "adt", + "name": "Array", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + } + }, + { + "name": "empty", + "comment": "Return an empty array.\n\n length empty == 0", + "raw": "empty : Array a", + "type": { + "tag": "adt", + "name": "Array", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + }, + { + "name": "filter", + "comment": "Keep only elements that satisfy the predicate:\n\n filter isEven (fromList [1..6]) == (fromList [2,4,6])", + "raw": "filter : (a -\u003e Bool) -\u003e Array a -\u003e Array a", + "type": { + "tag": "function", + "args": [ + { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "a" + } + ], + "result": { + "tag": "adt", + "name": "Bool", + "args": [] + } + }, + { + "tag": "adt", + "name": "Array", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + ], + "result": { + "tag": "adt", + "name": "Array", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + } + }, + { + "name": "foldl", + "comment": "Reduce an array from the left. Read `foldl` as “fold from the left”.\n\n foldl (::) [] (fromList [1,2,3]) == [3,2,1]", + "raw": "foldl : (a -\u003e b -\u003e b) -\u003e b -\u003e Array a -\u003e b", + "type": { + "tag": "function", + "args": [ + { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "a" + }, + { + "tag": "var", + "name": "b" + } + ], + "result": { + "tag": "var", + "name": "b" + } + }, + { + "tag": "var", + "name": "b" + }, + { + "tag": "adt", + "name": "Array", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + ], + "result": { + "tag": "var", + "name": "b" + } + } + }, + { + "name": "foldr", + "comment": "Reduce an array from the right. Read `foldr` as “fold from the right”.\n\n foldr (+) 0 (repeat 3 5) == 15", + "raw": "foldr : (a -\u003e b -\u003e b) -\u003e b -\u003e Array a -\u003e b", + "type": { + "tag": "function", + "args": [ + { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "a" + }, + { + "tag": "var", + "name": "b" + } + ], + "result": { + "tag": "var", + "name": "b" + } + }, + { + "tag": "var", + "name": "b" + }, + { + "tag": "adt", + "name": "Array", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + ], + "result": { + "tag": "var", + "name": "b" + } + } + }, + { + "name": "fromList", + "comment": "Create an array from a list.", + "raw": "fromList : [a] -\u003e Array a", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + ], + "result": { + "tag": "adt", + "name": "Array", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + } + }, + { + "name": "get", + "comment": "Return Just the element at the index or Nothing if the index is out of range.\n\n get 2 (fromList [3,2,1]) == Just 2\n get 5 (fromList [3,2,1]) == Nothing\n get -1 (fromList [3,2,1]) == Nothing", + "raw": "get : Int -\u003e Array a -\u003e Maybe a", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Int", + "args": [] + }, + { + "tag": "adt", + "name": "Array", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + ], + "result": { + "tag": "adt", + "name": "Maybe", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + } + }, + { + "name": "getOrElse", + "comment": "Get the element at the index. Or if the index is out of range, a default\nvalue is returned.\n\n getOrElse 0 2 (fromList [3,2,1]) == 1\n getOrElse 0 5 (fromList [3,2,1]) == 0", + "raw": "getOrElse : a -\u003e Int -\u003e Array a -\u003e a", + "type": { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "a" + }, + { + "tag": "adt", + "name": "Int", + "args": [] + }, + { + "tag": "adt", + "name": "Array", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + ], + "result": { + "tag": "var", + "name": "a" + } + } + }, + { + "name": "getOrFail", + "comment": "Get the element at a particular index.\n\n getOrFail 2 (A.fromList [3,2,1]) == 1\n\nWarning: this function will result in a runtime error if the index is not found,\nso it is best to use `get` or `getOrElse` unless you are sure the index will be\nfound.", + "raw": "getOrFail : Int -\u003e Array a -\u003e a", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Int", + "args": [] + }, + { + "tag": "adt", + "name": "Array", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + ], + "result": { + "tag": "var", + "name": "a" + } + } + }, + { + "name": "indexedMap", + "comment": "Apply a function on every element with its index as first argument.\n\n indexedMap (*) (fromList [5,5,5]) == fromList [0,5,10]", + "raw": "indexedMap : (Int -\u003e a -\u003e b) -\u003e Array a -\u003e Array b", + "type": { + "tag": "function", + "args": [ + { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Int", + "args": [] + }, + { + "tag": "var", + "name": "a" + } + ], + "result": { + "tag": "var", + "name": "b" + } + }, + { + "tag": "adt", + "name": "Array", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + ], + "result": { + "tag": "adt", + "name": "Array", + "args": [ + { + "tag": "var", + "name": "b" + } + ] + } + } + }, + { + "name": "initialize", + "comment": "Initialize an array. `initialize n f` creates an array of length `n` with\nthe element at index `i` initialized to the result of `(f i)`.\n\n initialize 4 id == fromList [0,1,2,3]\n initialize 4 (\\n -\u003e n*n) == fromList [0,1,4,9]\n initialize 4 (always 0) == fromList [0,0,0,0]", + "raw": "initialize : Int -\u003e (Int -\u003e a) -\u003e Array a", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Int", + "args": [] + }, + { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Int", + "args": [] + } + ], + "result": { + "tag": "var", + "name": "a" + } + } + ], + "result": { + "tag": "adt", + "name": "Array", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + } + }, + { + "name": "length", + "comment": "Return the length of an array.\n\n length (fromList [1,2,3]) == 3", + "raw": "length : Array a -\u003e Int", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Array", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + ], + "result": { + "tag": "adt", + "name": "Int", + "args": [] + } + } + }, + { + "name": "map", + "comment": "Apply a function on every element in an array.\n\n map sqrt (fromList [1,4,9]) == fromList [1,2,3]", + "raw": "map : (a -\u003e b) -\u003e Array a -\u003e Array b", + "type": { + "tag": "function", + "args": [ + { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "a" + } + ], + "result": { + "tag": "var", + "name": "b" + } + }, + { + "tag": "adt", + "name": "Array", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + ], + "result": { + "tag": "adt", + "name": "Array", + "args": [ + { + "tag": "var", + "name": "b" + } + ] + } + } + }, + { + "name": "push", + "comment": "Push an element to the end of an array.\n\n push 3 (fromList [1,2]) == fromList [1,2,3]", + "raw": "push : a -\u003e Array a -\u003e Array a", + "type": { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "a" + }, + { + "tag": "adt", + "name": "Array", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + ], + "result": { + "tag": "adt", + "name": "Array", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + } + }, + { + "name": "repeat", + "comment": "Creates an array with a given length, filled with a default element.\n\n repeat 5 0 == fromList [0,0,0,0,0]\n repeat 3 \"cat\" == fromList [\"cat\",\"cat\",\"cat\"]\n\nNotice that `repeat 3 x` is the same as `initialize 3 (always x)`.", + "raw": "repeat : Int -\u003e a -\u003e Array a", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Int", + "args": [] + }, + { + "tag": "var", + "name": "a" + } + ], + "result": { + "tag": "adt", + "name": "Array", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + } + }, + { + "name": "set", + "comment": "Set the element at a particular index. Returns an updated array.\nIf the index is out of range, the array is unaltered.\n\n set 1 7 (fromList [1,2,3]) == fromList [1,7,3]", + "raw": "set : Int -\u003e a -\u003e Array a -\u003e Array a", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Int", + "args": [] + }, + { + "tag": "var", + "name": "a" + }, + { + "tag": "adt", + "name": "Array", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + ], + "result": { + "tag": "adt", + "name": "Array", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + } + }, + { + "name": "slice", + "comment": "Get a sub-section of an array: `(slice start end array)`. The `start` is a\nzero-based index where we will start our slice. The `end` is a zero-based index\nthat indicates the end of the slice. The slice extracts up to but not including\n`end`.\n\n slice 0 3 (fromList [0,1,2,3,4]) == fromList [0,1,2]\n slice 1 4 (fromList [0,1,2,3,4]) == fromList [1,2,3]\n\nBoth the `start` and `end` indexes can be negative, indicating an offset from\nthe end of the array.\n\n slice 1 -1 (fromList [0,1,2,3,4]) == fromList [1,2,3]\n slice -2 5 (fromList [0,1,2,3,4]) == fromList [3,4]\n\nThis makes it pretty easy to `pop` the last element off of an array: `slice 0 -1 array`", + "raw": "slice : Int -\u003e Int -\u003e Array a -\u003e Array a", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Int", + "args": [] + }, + { + "tag": "adt", + "name": "Int", + "args": [] + }, + { + "tag": "adt", + "name": "Array", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + ], + "result": { + "tag": "adt", + "name": "Array", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + } + }, + { + "name": "toIndexedList", + "comment": "Create an indexed list from an array. Each element of the array will be\npaired with its index.\n\n toIndexedList (fromList [\"cat\",\"dog\"]) == [(0,\"cat\"), (1,\"dog\")]", + "raw": "toIndexedList : Array a -\u003e [(Int, a)]", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Array", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + ], + "result": { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "adt", + "name": "_Tuple2", + "args": [ + { + "tag": "adt", + "name": "Int", + "args": [] + }, + { + "tag": "var", + "name": "a" + } + ] + } + ] + } + } + }, + { + "name": "toList", + "comment": "Create a list of elements from an array.\n\n toList (fromList [3,5,8]) == [3,5,8]", + "raw": "toList : Array a -\u003e [a]", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Array", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + ], + "result": { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + } + } + ] +}, +{ + "name": "Basics", + "document": "Tons of useful functions that get imported by default.\n\nThe following libraries also get imported by default: List, Signal,\nText, Maybe, Time, Graphics.Element, Color, Graphics.Collage.\n\n# Equality\n@docs (==), (/=)\n\n# Comparison\n\nThese functions only work on `comparable` types. This includes numbers,\ncharacters, strings, lists of comparable things, and tuples of comparable\nthings. Note that tuples with 7 or more elements are not comparable; why\nare your tuples so big?\n\n@docs (\u003c), (\u003e), (\u003c=), (\u003e=), max, min, Order, compare\n\n# Booleans\n@docs not, (&&), (||), xor, otherwise\n\n# Mathematics\n@docs (+), (-), (*), (/), (^), div, rem, mod, abs, sqrt, clamp, logBase, e\n\n# Trigonometry\n@docs pi, cos, sin, tan, acos, asin, atan, atan2\n\n# Number Conversions\n@docs round, floor, ceiling, truncate, toFloat\n\n# Angle Conversions\nAll angle conversions result in “standard Elm angles”\nwhich happen to be radians.\n\n@docs degrees, radians, turns\n\n# Polar Coordinates\n@docs toPolar, fromPolar\n\n# Floating Point Checks\n@docs isNaN, isInfinite\n\n# Tuples\n@docs fst, snd\n\n# Higher-Order Helpers\n@docs id, (\u003c|), (|\u003e), (.), always, flip, curry, uncurry", + "aliases": [], + "datatypes": [ + { + "name": "Order", + "comment": "Represents the relative ordering of two things.\nThe relations are less than, equal to, and greater than.", + "raw": "data Order = LT | EQ | GT", + "typeVariables": [], + "constructors": [ + { + "name": "LT", + "type": { + "tag": "adt", + "name": "Order", + "args": [] + } + }, + { + "name": "EQ", + "type": { + "tag": "adt", + "name": "Order", + "args": [] + } + }, + { + "name": "GT", + "type": { + "tag": "adt", + "name": "Order", + "args": [] + } + } + ] + } + ], + "values": [ + { + "name": "&&", + "comment": "The and operator. True if both inputs are True.\nThis operator short-circuits if the first argument is False.", + "raw": "(&&) : Bool -\u003e Bool -\u003e Bool", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Bool", + "args": [] + }, + { + "tag": "adt", + "name": "Bool", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Bool", + "args": [] + } + }, + "associativity": "right", + "precedence": 3 + }, + { + "name": "*", + "comment": "", + "raw": "(*) : number -\u003e number -\u003e number", + "type": { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "number" + }, + { + "tag": "var", + "name": "number" + } + ], + "result": { + "tag": "var", + "name": "number" + } + }, + "associativity": "left", + "precedence": 7 + }, + { + "name": "+", + "comment": "", + "raw": "(+) : number -\u003e number -\u003e number", + "type": { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "number" + }, + { + "tag": "var", + "name": "number" + } + ], + "result": { + "tag": "var", + "name": "number" + } + }, + "associativity": "left", + "precedence": 6 + }, + { + "name": "-", + "comment": "", + "raw": "(-) : number -\u003e number -\u003e number", + "type": { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "number" + }, + { + "tag": "var", + "name": "number" + } + ], + "result": { + "tag": "var", + "name": "number" + } + }, + "associativity": "left", + "precedence": 6 + }, + { + "name": ".", + "comment": "Function composition: `(f . g == (\\\\x -\u003e f (g x)))`", + "raw": "(.) : (b -\u003e c) -\u003e (a -\u003e b) -\u003e (a -\u003e c)", + "type": { + "tag": "function", + "args": [ + { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "b" + } + ], + "result": { + "tag": "var", + "name": "c" + } + }, + { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "a" + } + ], + "result": { + "tag": "var", + "name": "b" + } + }, + { + "tag": "var", + "name": "a" + } + ], + "result": { + "tag": "var", + "name": "c" + } + }, + "associativity": "right", + "precedence": 9 + }, + { + "name": "/", + "comment": "Floating point division.", + "raw": "(/) : Float -\u003e Float -\u003e Float", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Float", + "args": [] + }, + { + "tag": "adt", + "name": "Float", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Float", + "args": [] + } + }, + "associativity": "left", + "precedence": 7 + }, + { + "name": "/=", + "comment": "", + "raw": "(/=) : a -\u003e a -\u003e Bool", + "type": { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "a" + }, + { + "tag": "var", + "name": "a" + } + ], + "result": { + "tag": "adt", + "name": "Bool", + "args": [] + } + }, + "associativity": "non", + "precedence": 4 + }, + { + "name": "\u003c", + "comment": "", + "raw": "(\u003c) : comparable -\u003e comparable -\u003e Bool", + "type": { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "comparable" + }, + { + "tag": "var", + "name": "comparable" + } + ], + "result": { + "tag": "adt", + "name": "Bool", + "args": [] + } + }, + "associativity": "non", + "precedence": 4 + }, + { + "name": "\u003c=", + "comment": "", + "raw": "(\u003c=) : comparable -\u003e comparable -\u003e Bool", + "type": { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "comparable" + }, + { + "tag": "var", + "name": "comparable" + } + ], + "result": { + "tag": "adt", + "name": "Bool", + "args": [] + } + }, + "associativity": "non", + "precedence": 4 + }, + { + "name": "\u003c|", + "comment": "Function application `f \u003c| x == f x`. This function is useful for avoiding\nparenthesis. Consider the following code to create a text element:\n\n text (monospace (toText \"code\"))\n\nThis can also be written as:\n\n text . monospace \u003c| toText \"code\"", + "raw": "(\u003c|) : (a -\u003e b) -\u003e a -\u003e b", + "type": { + "tag": "function", + "args": [ + { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "a" + } + ], + "result": { + "tag": "var", + "name": "b" + } + }, + { + "tag": "var", + "name": "a" + } + ], + "result": { + "tag": "var", + "name": "b" + } + }, + "associativity": "right", + "precedence": 0 + }, + { + "name": "==", + "comment": "", + "raw": "(==) : a -\u003e a -\u003e Bool", + "type": { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "a" + }, + { + "tag": "var", + "name": "a" + } + ], + "result": { + "tag": "adt", + "name": "Bool", + "args": [] + } + }, + "associativity": "non", + "precedence": 4 + }, + { + "name": "\u003e", + "comment": "", + "raw": "(\u003e) : comparable -\u003e comparable -\u003e Bool", + "type": { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "comparable" + }, + { + "tag": "var", + "name": "comparable" + } + ], + "result": { + "tag": "adt", + "name": "Bool", + "args": [] + } + }, + "associativity": "non", + "precedence": 4 + }, + { + "name": "\u003e=", + "comment": "", + "raw": "(\u003e=) : comparable -\u003e comparable -\u003e Bool", + "type": { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "comparable" + }, + { + "tag": "var", + "name": "comparable" + } + ], + "result": { + "tag": "adt", + "name": "Bool", + "args": [] + } + }, + "associativity": "non", + "precedence": 4 + }, + { + "name": "^", + "comment": "Exponentiation: `3^2 == 9`", + "raw": "(^) : number -\u003e number -\u003e number", + "type": { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "number" + }, + { + "tag": "var", + "name": "number" + } + ], + "result": { + "tag": "var", + "name": "number" + } + }, + "associativity": "left", + "precedence": 8 + }, + { + "name": "abs", + "comment": "Take the absolute value of a number.", + "raw": "abs : number -\u003e number", + "type": { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "number" + } + ], + "result": { + "tag": "var", + "name": "number" + } + } + }, + { + "name": "acos", + "comment": "", + "raw": "acos : Float -\u003e Float", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Float", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Float", + "args": [] + } + } + }, + { + "name": "always", + "comment": "Creates a [constant function](http://en.wikipedia.org/wiki/Constant_function),\na function that *always* returns the same value regardless of what input you give.\nIt is defined as:\n\n always a b = a\n\nIt totally ignores the second argument, so `always 42` is a function that always\nreturns 42. When you are dealing with higher-order functions, this comes in\nhandy more often than you might expect. For example, creating a zeroed out list\nof length ten would be:\n\n map (always 0) [0..9]", + "raw": "always : a -\u003e b -\u003e a", + "type": { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "a" + }, + { + "tag": "var", + "name": "b" + } + ], + "result": { + "tag": "var", + "name": "a" + } + } + }, + { + "name": "asin", + "comment": "", + "raw": "asin : Float -\u003e Float", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Float", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Float", + "args": [] + } + } + }, + { + "name": "atan", + "comment": "You probably do not want to use this. It takes `(y/x)` as the\nargument, so there is no way to know whether the negative signs comes from\nthe `y` or `x`. Thus, the resulting angle is always between π/2 and -π/2\n(in quadrants I and IV). You probably want to use `atan2` instead.", + "raw": "atan : Float -\u003e Float", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Float", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Float", + "args": [] + } + } + }, + { + "name": "atan2", + "comment": "This helps you find the angle of a cartesian coordinate.\nYou will almost certainly want to use this instead of `atan`.\nSo `atan2 y x` computes *atan(y/x)* but also keeps track of which\nquadrant the angle should really be in. The result will be between\nπ and -π, giving you the full range of angles.", + "raw": "atan2 : Float -\u003e Float -\u003e Float", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Float", + "args": [] + }, + { + "tag": "adt", + "name": "Float", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Float", + "args": [] + } + } + }, + { + "name": "ceiling", + "comment": "Ceiling function, rounding up.", + "raw": "ceiling : Float -\u003e Int", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Float", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Int", + "args": [] + } + } + }, + { + "name": "clamp", + "comment": "Clamps a number within a given range. With the expression\n`clamp 100 200 x` the results are as follows:\n\n 100 if x \u003c 100\n x if 100 \u003c= x \u003c 200\n 200 if 200 \u003c= x", + "raw": "clamp : number -\u003e number -\u003e number -\u003e number", + "type": { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "number" + }, + { + "tag": "var", + "name": "number" + }, + { + "tag": "var", + "name": "number" + } + ], + "result": { + "tag": "var", + "name": "number" + } + } + }, + { + "name": "compare", + "comment": "Compare any two comparable values. Comparable values include `String`, `Char`,\n`Int`, `Float`, `Time`, or a list or tuple containing comparable values.\nThese are also the only values that work as `Dict` keys or `Set` members.", + "raw": "compare : comparable -\u003e comparable -\u003e Order", + "type": { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "comparable" + }, + { + "tag": "var", + "name": "comparable" + } + ], + "result": { + "tag": "adt", + "name": "Order", + "args": [] + } + } + }, + { + "name": "cos", + "comment": "", + "raw": "cos : Float -\u003e Float", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Float", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Float", + "args": [] + } + } + }, + { + "name": "curry", + "comment": "Change how arguments are passed to a function.\nThis splits paired arguments into two separate arguments.", + "raw": "curry : ((a,b) -\u003e c) -\u003e a -\u003e b -\u003e c", + "type": { + "tag": "function", + "args": [ + { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "_Tuple2", + "args": [ + { + "tag": "var", + "name": "a" + }, + { + "tag": "var", + "name": "b" + } + ] + } + ], + "result": { + "tag": "var", + "name": "c" + } + }, + { + "tag": "var", + "name": "a" + }, + { + "tag": "var", + "name": "b" + } + ], + "result": { + "tag": "var", + "name": "c" + } + } + }, + { + "name": "degrees", + "comment": "Convert degrees to standard Elm angles (radians).", + "raw": "degrees : Float -\u003e Float", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Float", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Float", + "args": [] + } + } + }, + { + "name": "div", + "comment": "Integer division, remainder is discarded.", + "raw": "div : Int -\u003e Int -\u003e Int", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Int", + "args": [] + }, + { + "tag": "adt", + "name": "Int", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Int", + "args": [] + } + }, + "associativity": "left", + "precedence": 7 + }, + { + "name": "e", + "comment": "An approximation of e.", + "raw": "e : Float", + "type": { + "tag": "adt", + "name": "Float", + "args": [] + } + }, + { + "name": "flip", + "comment": "Flips the order of the first two arguments to a function.", + "raw": "flip : (a -\u003e b -\u003e c) -\u003e (b -\u003e a -\u003e c)", + "type": { + "tag": "function", + "args": [ + { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "a" + }, + { + "tag": "var", + "name": "b" + } + ], + "result": { + "tag": "var", + "name": "c" + } + }, + { + "tag": "var", + "name": "b" + }, + { + "tag": "var", + "name": "a" + } + ], + "result": { + "tag": "var", + "name": "c" + } + } + }, + { + "name": "floor", + "comment": "Floor function, rounding down.", + "raw": "floor : Float -\u003e Int", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Float", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Int", + "args": [] + } + } + }, + { + "name": "fromPolar", + "comment": "Start with polar coordinates (r,θ)\nand get out cartesian coordinates (x,y).", + "raw": "fromPolar : (Float,Float) -\u003e (Float,Float)", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "_Tuple2", + "args": [ + { + "tag": "adt", + "name": "Float", + "args": [] + }, + { + "tag": "adt", + "name": "Float", + "args": [] + } + ] + } + ], + "result": { + "tag": "adt", + "name": "_Tuple2", + "args": [ + { + "tag": "adt", + "name": "Float", + "args": [] + }, + { + "tag": "adt", + "name": "Float", + "args": [] + } + ] + } + } + }, + { + "name": "fst", + "comment": "Given a 2-tuple, returns the first value.", + "raw": "fst : (a,b) -\u003e a", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "_Tuple2", + "args": [ + { + "tag": "var", + "name": "a" + }, + { + "tag": "var", + "name": "b" + } + ] + } + ], + "result": { + "tag": "var", + "name": "a" + } + } + }, + { + "name": "id", + "comment": "Given a value, returns exactly the same value.", + "raw": "id : a -\u003e a", + "type": { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "a" + } + ], + "result": { + "tag": "var", + "name": "a" + } + } + }, + { + "name": "isInfinite", + "comment": "", + "raw": "isInfinite : Float -\u003e Bool", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Float", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Bool", + "args": [] + } + } + }, + { + "name": "isNaN", + "comment": "", + "raw": "isNaN : Float -\u003e Bool", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Float", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Bool", + "args": [] + } + } + }, + { + "name": "logBase", + "comment": "Calculate the logarithm of a number with a given base: `logBase 10 100 == 2`", + "raw": "logBase : number -\u003e number -\u003e number", + "type": { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "number" + }, + { + "tag": "var", + "name": "number" + } + ], + "result": { + "tag": "var", + "name": "number" + } + } + }, + { + "name": "max", + "comment": "Given two comparables, returns the larger one.", + "raw": "max : comparable -\u003e comparable -\u003e comparable", + "type": { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "comparable" + }, + { + "tag": "var", + "name": "comparable" + } + ], + "result": { + "tag": "var", + "name": "comparable" + } + } + }, + { + "name": "min", + "comment": "Given two comparables, returns the smaller one.", + "raw": "min : comparable -\u003e comparable -\u003e comparable", + "type": { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "comparable" + }, + { + "tag": "var", + "name": "comparable" + } + ], + "result": { + "tag": "var", + "name": "comparable" + } + } + }, + { + "name": "mod", + "comment": "Perform modular arithmetic: ``7 `mod` 2 == 1``", + "raw": "mod : Int -\u003e Int -\u003e Int", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Int", + "args": [] + }, + { + "tag": "adt", + "name": "Int", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Int", + "args": [] + } + }, + "associativity": "left", + "precedence": 7 + }, + { + "name": "not", + "comment": "Negate a boolean value: `(not True == False)` and `(not False == True)`", + "raw": "not : Bool -\u003e Bool", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Bool", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Bool", + "args": [] + } + } + }, + { + "name": "otherwise", + "comment": "Equal to true. Useful as the last case of a multi-way-if.", + "raw": "otherwise : Bool", + "type": { + "tag": "adt", + "name": "Bool", + "args": [] + } + }, + { + "name": "pi", + "comment": "An approximation of pi.", + "raw": "pi : Float", + "type": { + "tag": "adt", + "name": "Float", + "args": [] + } + }, + { + "name": "radians", + "comment": "Convert radians to standard Elm angles (radians).", + "raw": "radians : Float -\u003e Float", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Float", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Float", + "args": [] + } + } + }, + { + "name": "rem", + "comment": "Finds the remainder after dividing one number by another: ``4 `rem` 3 == 1``", + "raw": "rem : Int -\u003e Int -\u003e Int", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Int", + "args": [] + }, + { + "tag": "adt", + "name": "Int", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Int", + "args": [] + } + }, + "associativity": "left", + "precedence": 7 + }, + { + "name": "round", + "comment": "Round a number to the nearest integer.", + "raw": "round : Float -\u003e Int", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Float", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Int", + "args": [] + } + } + }, + { + "name": "sin", + "comment": "", + "raw": "sin : Float -\u003e Float", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Float", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Float", + "args": [] + } + } + }, + { + "name": "snd", + "comment": "Given a 2-tuple, returns the second value.", + "raw": "snd : (a,b) -\u003e b", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "_Tuple2", + "args": [ + { + "tag": "var", + "name": "a" + }, + { + "tag": "var", + "name": "b" + } + ] + } + ], + "result": { + "tag": "var", + "name": "b" + } + } + }, + { + "name": "sqrt", + "comment": "Take the square root of a number.", + "raw": "sqrt : number -\u003e number", + "type": { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "number" + } + ], + "result": { + "tag": "var", + "name": "number" + } + } + }, + { + "name": "tan", + "comment": "", + "raw": "tan : Float -\u003e Float", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Float", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Float", + "args": [] + } + } + }, + { + "name": "toFloat", + "comment": "Convert an integer into a float.", + "raw": "toFloat : Int -\u003e Float", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Int", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Float", + "args": [] + } + } + }, + { + "name": "toPolar", + "comment": "Start with cartesian coordinates (x,y)\nand get out polar coordinates (r,θ).", + "raw": "toPolar : (Float,Float) -\u003e (Float,Float)", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "_Tuple2", + "args": [ + { + "tag": "adt", + "name": "Float", + "args": [] + }, + { + "tag": "adt", + "name": "Float", + "args": [] + } + ] + } + ], + "result": { + "tag": "adt", + "name": "_Tuple2", + "args": [ + { + "tag": "adt", + "name": "Float", + "args": [] + }, + { + "tag": "adt", + "name": "Float", + "args": [] + } + ] + } + } + }, + { + "name": "truncate", + "comment": "Truncate a decimal number, rounding towards zero.", + "raw": "truncate : Float -\u003e Int", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Float", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Int", + "args": [] + } + } + }, + { + "name": "turns", + "comment": "Convert turns to standard Elm angles (radians).\nOne turn is equal to 360°.", + "raw": "turns : Float -\u003e Float", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Float", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Float", + "args": [] + } + } + }, + { + "name": "uncurry", + "comment": "Change how arguments are passed to a function.\nThis combines two arguments into a single pair.", + "raw": "uncurry : (a -\u003e b -\u003e c) -\u003e (a,b) -\u003e c", + "type": { + "tag": "function", + "args": [ + { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "a" + }, + { + "tag": "var", + "name": "b" + } + ], + "result": { + "tag": "var", + "name": "c" + } + }, + { + "tag": "adt", + "name": "_Tuple2", + "args": [ + { + "tag": "var", + "name": "a" + }, + { + "tag": "var", + "name": "b" + } + ] + } + ], + "result": { + "tag": "var", + "name": "c" + } + } + }, + { + "name": "xor", + "comment": "The exclusive-or operator. True if exactly one input is True.", + "raw": "xor : Bool -\u003e Bool -\u003e Bool", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Bool", + "args": [] + }, + { + "tag": "adt", + "name": "Bool", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Bool", + "args": [] + } + } + }, + { + "name": "|\u003e", + "comment": "Forward function application `x |\u003e f == f x`. This function is useful\nfor avoiding parenthesis and writing code in a more natural way.\nConsider the following code to create a pentagon:\n\n scale 2 (move (10,10) (filled blue (ngon 5 30)))\n\nThis can also be written as:\n\n ngon 5 30 |\u003e filled blue\n |\u003e move (10,10)\n |\u003e scale 2", + "raw": "(|\u003e) : a -\u003e (a -\u003e b) -\u003e b", + "type": { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "a" + }, + { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "a" + } + ], + "result": { + "tag": "var", + "name": "b" + } + } + ], + "result": { + "tag": "var", + "name": "b" + } + }, + "associativity": "left", + "precedence": 0 + }, + { + "name": "||", + "comment": "The or operator. True if one or both inputs are True.\nThis operator short-circuits if the first argument is True.", + "raw": "(||) : Bool -\u003e Bool -\u003e Bool", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Bool", + "args": [] + }, + { + "tag": "adt", + "name": "Bool", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Bool", + "args": [] + } + }, + "associativity": "right", + "precedence": 2 + } + ] +}, +{ + "name": "Bitwise", + "document": "Library for [bitwise operations](http://en.wikipedia.org/wiki/Bitwise_operation).\n\n# Basic Operations\n\n@docs and, or, xor, complement\n\n# Bit Shifts\n\n@docs shiftLeft, shiftRight, shiftRightLogical", + "aliases": [], + "datatypes": [], + "values": [ + { + "name": "and", + "comment": "Bitwise AND", + "raw": "and : Int -\u003e Int -\u003e Int", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Int", + "args": [] + }, + { + "tag": "adt", + "name": "Int", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Int", + "args": [] + } + } + }, + { + "name": "complement", + "comment": "Flip each bit individually, often called bitwise NOT", + "raw": "complement : Int -\u003e Int", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Int", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Int", + "args": [] + } + } + }, + { + "name": "or", + "comment": "Bitwise OR", + "raw": "or : Int -\u003e Int -\u003e Int", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Int", + "args": [] + }, + { + "tag": "adt", + "name": "Int", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Int", + "args": [] + } + } + }, + { + "name": "shiftLeft", + "comment": "Shift bits to the left by a given offset, filling new bits with zeros.\nThis can be used to multiply numbers by powers of two.\n\n 8 `shiftLeft` 1 == 16\n 8 `shiftLeft` 2 == 32", + "raw": "shiftLeft : Int -\u003e Int -\u003e Int", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Int", + "args": [] + }, + { + "tag": "adt", + "name": "Int", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Int", + "args": [] + } + } + }, + { + "name": "shiftRight", + "comment": "Shift bits to the right by a given offset, filling new bits with\nwhatever is the topmost bit. This can be used to divide numbers by powers of two.\n\n 32 `shiftRight` 1 == 16\n 32 `shiftRight` 2 == 8\n -32 `shiftRight` 1 == -16\n\nThis is called an [arithmatic right\nshift](http://en.wikipedia.org/wiki/Bitwise_operation#Arithmetic_shift),\noften written (\u003e\u003e), and sometimes called a sign-propagating\nright shift because it fills empty spots with copies of the highest bit.", + "raw": "shiftRight : Int -\u003e Int -\u003e Int", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Int", + "args": [] + }, + { + "tag": "adt", + "name": "Int", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Int", + "args": [] + } + } + }, + { + "name": "shiftRightLogical", + "comment": "Shift bits to the right by a given offset, filling new bits with\nzeros.\n\n 32 `shiftRightLogical` 1 == 16\n 32 `shiftRightLogical` 2 == 8\n -32 `shiftRightLogical` 1 == 2147483632\n\nThis is called an [logical right\nshift](http://en.wikipedia.org/wiki/Bitwise_operation#Logical_shift), often written (\u003e\u003e\u003e),\nand sometimes called a zero-fill right shift because it fills empty spots\nwith zeros.", + "raw": "shiftRightLogical : Int -\u003e Int -\u003e Int", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Int", + "args": [] + }, + { + "tag": "adt", + "name": "Int", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Int", + "args": [] + } + } + }, + { + "name": "xor", + "comment": "Bitwise XOR", + "raw": "xor : Int -\u003e Int -\u003e Int", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Int", + "args": [] + }, + { + "tag": "adt", + "name": "Int", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Int", + "args": [] + } + } + } + ] +}, +{ + "name": "Char", + "document": "Functions for working with characters. Character literals are enclosed in\n`'a'` pair of single quotes.\n\n# Classification\n@docs isUpper, isLower, isDigit, isOctDigit, isHexDigit\n\n# Conversion\n@docs toUpper, toLower, toLocaleUpper, toLocaleLower, toCode, fromCode", + "aliases": [ + { + "name": "KeyCode", + "comment": "", + "raw": "type KeyCode = Int", + "typeVariables": [], + "type": { + "tag": "adt", + "name": "Int", + "args": [] + } + } + ], + "datatypes": [], + "values": [ + { + "name": "fromCode", + "comment": "Convert from unicode.", + "raw": "fromCode : KeyCode -\u003e Char", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "KeyCode", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Char", + "args": [] + } + } + }, + { + "name": "isDigit", + "comment": "True for ASCII digits `[0-9]`.", + "raw": "isDigit : Char -\u003e Bool", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Char", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Bool", + "args": [] + } + } + }, + { + "name": "isHexDigit", + "comment": "True for ASCII hexadecimal digits `[0-9a-fA-F]`.", + "raw": "isHexDigit : Char -\u003e Bool", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Char", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Bool", + "args": [] + } + } + }, + { + "name": "isLower", + "comment": "True for lower case letters.", + "raw": "isLower : Char -\u003e Bool", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Char", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Bool", + "args": [] + } + } + }, + { + "name": "isOctDigit", + "comment": "True for ASCII octal digits `[0-7]`.", + "raw": "isOctDigit : Char -\u003e Bool", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Char", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Bool", + "args": [] + } + } + }, + { + "name": "isUpper", + "comment": "True for upper case letters.", + "raw": "isUpper : Char -\u003e Bool", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Char", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Bool", + "args": [] + } + } + }, + { + "name": "toCode", + "comment": "Convert to unicode. Used with the `Keyboard` library, which expects the\ninput to be uppercase.", + "raw": "toCode : Char -\u003e KeyCode", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Char", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "KeyCode", + "args": [] + } + } + }, + { + "name": "toLocaleLower", + "comment": "Convert to lower case, according to any locale-specific case mappings.", + "raw": "toLocaleLower : Char -\u003e Char", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Char", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Char", + "args": [] + } + } + }, + { + "name": "toLocaleUpper", + "comment": "Convert to upper case, according to any locale-specific case mappings.", + "raw": "toLocaleUpper : Char -\u003e Char", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Char", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Char", + "args": [] + } + } + }, + { + "name": "toLower", + "comment": "Convert to lower case.", + "raw": "toLower : Char -\u003e Char", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Char", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Char", + "args": [] + } + } + }, + { + "name": "toUpper", + "comment": "Convert to upper case.", + "raw": "toUpper : Char -\u003e Char", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Char", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Char", + "args": [] + } + } + } + ] +}, +{ + "name": "Color", + "document": "Library for working with colors. Includes\n[RGB](https://en.wikipedia.org/wiki/RGB_color_model) and\n[HSV](http://en.wikipedia.org/wiki/HSL_and_HSV) creation, gradients, and\nbuilt-in names.\n\n# Creation\n@docs rgb, rgba, hsv, hsva, greyscale, grayscale\n\n# From Other Colors\n@docs complement\n\n# Gradients\n@docs linear, radial\n\n# Built-in Colors\nThese colors come from the [Tango\npalette](http://tango.freedesktop.org/Tango_Icon_Theme_Guidelines)\nwhich provides aesthetically reasonable defaults for colors. Each color also\ncomes with a light and dark version.\n\n### Standard\n@docs red, orange, yellow, green, blue, purple, brown\n\n### Light\n@docs lightRed, lightOrange, lightYellow, lightGreen, lightBlue, lightPurple,\n lightBrown\n\n### Dark\n@docs darkRed, darkOrange, darkYellow, darkGreen, darkBlue, darkPurple,\n darkBrown\n\n### Eight Shades of Grey\nThese colors are a compatible series of shades of grey, fitting nicely\nwith the Tango palette.\n@docs white, lightGrey, grey, darkGrey, lightCharcoal, charcoal, darkCharcoal, black\n\nThese are identical to the *grey* versions. It seems the spelling is regional, but\nthat has never helped me remember which one I should be writing.\n@docs lightGray, gray, darkGray", + "aliases": [], + "datatypes": [ + { + "name": "Color", + "comment": "", + "raw": "data Color = Color Int Int Int Float", + "typeVariables": [], + "constructors": [ + { + "name": "Color", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Int", + "args": [] + }, + { + "tag": "adt", + "name": "Int", + "args": [] + }, + { + "tag": "adt", + "name": "Int", + "args": [] + }, + { + "tag": "adt", + "name": "Float", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Color", + "args": [] + } + } + } + ] + }, + { + "name": "Gradient", + "comment": "", + "raw": "data Gradient\n = Linear (Float,Float) (Float,Float) [(Float,Color)]\n | Radial (Float,Float) Float (Float,Float) Float [(Float,Color)]", + "typeVariables": [], + "constructors": [ + { + "name": "Linear", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "_Tuple2", + "args": [ + { + "tag": "adt", + "name": "Float", + "args": [] + }, + { + "tag": "adt", + "name": "Float", + "args": [] + } + ] + }, + { + "tag": "adt", + "name": "_Tuple2", + "args": [ + { + "tag": "adt", + "name": "Float", + "args": [] + }, + { + "tag": "adt", + "name": "Float", + "args": [] + } + ] + }, + { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "adt", + "name": "_Tuple2", + "args": [ + { + "tag": "adt", + "name": "Float", + "args": [] + }, + { + "tag": "adt", + "name": "Color", + "args": [] + } + ] + } + ] + } + ], + "result": { + "tag": "adt", + "name": "Gradient", + "args": [] + } + } + }, + { + "name": "Radial", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "_Tuple2", + "args": [ + { + "tag": "adt", + "name": "Float", + "args": [] + }, + { + "tag": "adt", + "name": "Float", + "args": [] + } + ] + }, + { + "tag": "adt", + "name": "Float", + "args": [] + }, + { + "tag": "adt", + "name": "_Tuple2", + "args": [ + { + "tag": "adt", + "name": "Float", + "args": [] + }, + { + "tag": "adt", + "name": "Float", + "args": [] + } + ] + }, + { + "tag": "adt", + "name": "Float", + "args": [] + }, + { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "adt", + "name": "_Tuple2", + "args": [ + { + "tag": "adt", + "name": "Float", + "args": [] + }, + { + "tag": "adt", + "name": "Color", + "args": [] + } + ] + } + ] + } + ], + "result": { + "tag": "adt", + "name": "Gradient", + "args": [] + } + } + } + ] + } + ], + "values": [ + { + "name": "black", + "comment": "", + "raw": "black : Color", + "type": { + "tag": "adt", + "name": "Color", + "args": [] + } + }, + { + "name": "blue", + "comment": "", + "raw": "blue : Color", + "type": { + "tag": "adt", + "name": "Color", + "args": [] + } + }, + { + "name": "brown", + "comment": "", + "raw": "brown : Color", + "type": { + "tag": "adt", + "name": "Color", + "args": [] + } + }, + { + "name": "charcoal", + "comment": "", + "raw": "charcoal : Color", + "type": { + "tag": "adt", + "name": "Color", + "args": [] + } + }, + { + "name": "complement", + "comment": "Produce a “complementary color”.\nThe two colors will accent each other.", + "raw": "complement : Color -\u003e Color", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Color", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Color", + "args": [] + } + } + }, + { + "name": "darkBlue", + "comment": "", + "raw": "darkBlue : Color", + "type": { + "tag": "adt", + "name": "Color", + "args": [] + } + }, + { + "name": "darkBrown", + "comment": "", + "raw": "darkBrown : Color", + "type": { + "tag": "adt", + "name": "Color", + "args": [] + } + }, + { + "name": "darkCharcoal", + "comment": "", + "raw": "darkCharcoal : Color", + "type": { + "tag": "adt", + "name": "Color", + "args": [] + } + }, + { + "name": "darkGray", + "comment": "", + "raw": "darkGray : Color", + "type": { + "tag": "adt", + "name": "Color", + "args": [] + } + }, + { + "name": "darkGreen", + "comment": "", + "raw": "darkGreen : Color", + "type": { + "tag": "adt", + "name": "Color", + "args": [] + } + }, + { + "name": "darkGrey", + "comment": "", + "raw": "darkGrey : Color", + "type": { + "tag": "adt", + "name": "Color", + "args": [] + } + }, + { + "name": "darkOrange", + "comment": "", + "raw": "darkOrange : Color", + "type": { + "tag": "adt", + "name": "Color", + "args": [] + } + }, + { + "name": "darkPurple", + "comment": "", + "raw": "darkPurple : Color", + "type": { + "tag": "adt", + "name": "Color", + "args": [] + } + }, + { + "name": "darkRed", + "comment": "", + "raw": "darkRed : Color", + "type": { + "tag": "adt", + "name": "Color", + "args": [] + } + }, + { + "name": "darkYellow", + "comment": "", + "raw": "darkYellow : Color", + "type": { + "tag": "adt", + "name": "Color", + "args": [] + } + }, + { + "name": "gray", + "comment": "", + "raw": "gray : Color", + "type": { + "tag": "adt", + "name": "Color", + "args": [] + } + }, + { + "name": "grayscale", + "comment": "Produce a gray based on the input. 0 is white, 1 is black.", + "raw": "grayscale : Float -\u003e Color", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Float", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Color", + "args": [] + } + } + }, + { + "name": "green", + "comment": "", + "raw": "green : Color", + "type": { + "tag": "adt", + "name": "Color", + "args": [] + } + }, + { + "name": "grey", + "comment": "", + "raw": "grey : Color", + "type": { + "tag": "adt", + "name": "Color", + "args": [] + } + }, + { + "name": "greyscale", + "comment": "", + "raw": "greyscale : Float -\u003e Color", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Float", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Color", + "args": [] + } + } + }, + { + "name": "hsv", + "comment": "Create [HSV colors](http://en.wikipedia.org/wiki/HSL_and_HSV). This is very\nconvenient for creating colors that cycle and shift. Hue is an angle and should\nbe given in standard Elm angles (radians).", + "raw": "hsv : Float -\u003e Float -\u003e Float -\u003e Color", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Float", + "args": [] + }, + { + "tag": "adt", + "name": "Float", + "args": [] + }, + { + "tag": "adt", + "name": "Float", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Color", + "args": [] + } + } + }, + { + "name": "hsva", + "comment": "Create [HSV colors](http://en.wikipedia.org/wiki/HSL_and_HSV)\nwith an alpha component for transparency.", + "raw": "hsva : Float -\u003e Float -\u003e Float -\u003e Float -\u003e Color", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Float", + "args": [] + }, + { + "tag": "adt", + "name": "Float", + "args": [] + }, + { + "tag": "adt", + "name": "Float", + "args": [] + }, + { + "tag": "adt", + "name": "Float", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Color", + "args": [] + } + } + }, + { + "name": "lightBlue", + "comment": "", + "raw": "lightBlue : Color", + "type": { + "tag": "adt", + "name": "Color", + "args": [] + } + }, + { + "name": "lightBrown", + "comment": "", + "raw": "lightBrown : Color", + "type": { + "tag": "adt", + "name": "Color", + "args": [] + } + }, + { + "name": "lightCharcoal", + "comment": "", + "raw": "lightCharcoal : Color", + "type": { + "tag": "adt", + "name": "Color", + "args": [] + } + }, + { + "name": "lightGray", + "comment": "", + "raw": "lightGray : Color", + "type": { + "tag": "adt", + "name": "Color", + "args": [] + } + }, + { + "name": "lightGreen", + "comment": "", + "raw": "lightGreen : Color", + "type": { + "tag": "adt", + "name": "Color", + "args": [] + } + }, + { + "name": "lightGrey", + "comment": "", + "raw": "lightGrey : Color", + "type": { + "tag": "adt", + "name": "Color", + "args": [] + } + }, + { + "name": "lightOrange", + "comment": "", + "raw": "lightOrange : Color", + "type": { + "tag": "adt", + "name": "Color", + "args": [] + } + }, + { + "name": "lightPurple", + "comment": "", + "raw": "lightPurple : Color", + "type": { + "tag": "adt", + "name": "Color", + "args": [] + } + }, + { + "name": "lightRed", + "comment": "", + "raw": "lightRed : Color", + "type": { + "tag": "adt", + "name": "Color", + "args": [] + } + }, + { + "name": "lightYellow", + "comment": "", + "raw": "lightYellow : Color", + "type": { + "tag": "adt", + "name": "Color", + "args": [] + } + }, + { + "name": "linear", + "comment": "Create a linear gradient. Takes a start and end point and then a series of\n“color stops” that indicate how to interpolate between the start and\nend points. See [this example](/edit/examples/Elements/LinearGradient.elm) for a\nmore visual explanation.", + "raw": "linear : (number, number) -\u003e (number, number) -\u003e [(Float,Color)] -\u003e Gradient", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "_Tuple2", + "args": [ + { + "tag": "var", + "name": "number" + }, + { + "tag": "var", + "name": "number" + } + ] + }, + { + "tag": "adt", + "name": "_Tuple2", + "args": [ + { + "tag": "var", + "name": "number" + }, + { + "tag": "var", + "name": "number" + } + ] + }, + { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "adt", + "name": "_Tuple2", + "args": [ + { + "tag": "adt", + "name": "Float", + "args": [] + }, + { + "tag": "adt", + "name": "Color", + "args": [] + } + ] + } + ] + } + ], + "result": { + "tag": "adt", + "name": "Gradient", + "args": [] + } + } + }, + { + "name": "orange", + "comment": "", + "raw": "orange : Color", + "type": { + "tag": "adt", + "name": "Color", + "args": [] + } + }, + { + "name": "purple", + "comment": "", + "raw": "purple : Color", + "type": { + "tag": "adt", + "name": "Color", + "args": [] + } + }, + { + "name": "radial", + "comment": "Create a radial gradient. First takes a start point and inner radius. Then\ntakes an end point and outer radius. It then takes a series of “color\nstops” that indicate how to interpolate between the inner and outer\ncircles. See [this example](/edit/examples/Elements/RadialGradient.elm) for a\nmore visual explanation.", + "raw": "radial : (number,number) -\u003e number -\u003e (number,number) -\u003e number -\u003e [(Float,Color)] -\u003e Gradient", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "_Tuple2", + "args": [ + { + "tag": "var", + "name": "number" + }, + { + "tag": "var", + "name": "number" + } + ] + }, + { + "tag": "var", + "name": "number" + }, + { + "tag": "adt", + "name": "_Tuple2", + "args": [ + { + "tag": "var", + "name": "number" + }, + { + "tag": "var", + "name": "number" + } + ] + }, + { + "tag": "var", + "name": "number" + }, + { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "adt", + "name": "_Tuple2", + "args": [ + { + "tag": "adt", + "name": "Float", + "args": [] + }, + { + "tag": "adt", + "name": "Color", + "args": [] + } + ] + } + ] + } + ], + "result": { + "tag": "adt", + "name": "Gradient", + "args": [] + } + } + }, + { + "name": "red", + "comment": "", + "raw": "red : Color", + "type": { + "tag": "adt", + "name": "Color", + "args": [] + } + }, + { + "name": "rgb", + "comment": "Create RGB colors from numbers between 0 and 255 inclusive.", + "raw": "rgb : Int -\u003e Int -\u003e Int -\u003e Color", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Int", + "args": [] + }, + { + "tag": "adt", + "name": "Int", + "args": [] + }, + { + "tag": "adt", + "name": "Int", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Color", + "args": [] + } + } + }, + { + "name": "rgba", + "comment": "Create RGB colors with an alpha component for transparency.\nThe alpha component is specified with numbers between 0 and 1.", + "raw": "rgba : Int -\u003e Int -\u003e Int -\u003e Float -\u003e Color", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Int", + "args": [] + }, + { + "tag": "adt", + "name": "Int", + "args": [] + }, + { + "tag": "adt", + "name": "Int", + "args": [] + }, + { + "tag": "adt", + "name": "Float", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Color", + "args": [] + } + } + }, + { + "name": "white", + "comment": "", + "raw": "white : Color", + "type": { + "tag": "adt", + "name": "Color", + "args": [] + } + }, + { + "name": "yellow", + "comment": "", + "raw": "yellow : Color", + "type": { + "tag": "adt", + "name": "Color", + "args": [] + } + } + ] +}, +{ + "name": "Date", + "document": "Library for working with dates. Email the mailing list if you encounter\nissues with internationalization or locale formatting.\n\n# Conversions\n@docs read, toTime, fromTime\n\n# Extractions\n@docs year, month, Month, day, dayOfWeek, Day, hour, minute, second", + "aliases": [], + "datatypes": [ + { + "name": "Date", + "comment": "", + "raw": "data Date = Date", + "typeVariables": [], + "constructors": [ + { + "name": "Date", + "type": { + "tag": "adt", + "name": "Date", + "args": [] + } + } + ] + }, + { + "name": "Day", + "comment": "Represents the days of the week.", + "raw": "data Day = Mon | Tue | Wed | Thu | Fri | Sat | Sun", + "typeVariables": [], + "constructors": [ + { + "name": "Mon", + "type": { + "tag": "adt", + "name": "Day", + "args": [] + } + }, + { + "name": "Tue", + "type": { + "tag": "adt", + "name": "Day", + "args": [] + } + }, + { + "name": "Wed", + "type": { + "tag": "adt", + "name": "Day", + "args": [] + } + }, + { + "name": "Thu", + "type": { + "tag": "adt", + "name": "Day", + "args": [] + } + }, + { + "name": "Fri", + "type": { + "tag": "adt", + "name": "Day", + "args": [] + } + }, + { + "name": "Sat", + "type": { + "tag": "adt", + "name": "Day", + "args": [] + } + }, + { + "name": "Sun", + "type": { + "tag": "adt", + "name": "Day", + "args": [] + } + } + ] + }, + { + "name": "Month", + "comment": "Represents the month of the year.", + "raw": "data Month = Jan | Feb | Mar | Apr\n | May | Jun | Jul | Aug\n | Sep | Oct | Nov | Dec", + "typeVariables": [], + "constructors": [ + { + "name": "Jan", + "type": { + "tag": "adt", + "name": "Month", + "args": [] + } + }, + { + "name": "Feb", + "type": { + "tag": "adt", + "name": "Month", + "args": [] + } + }, + { + "name": "Mar", + "type": { + "tag": "adt", + "name": "Month", + "args": [] + } + }, + { + "name": "Apr", + "type": { + "tag": "adt", + "name": "Month", + "args": [] + } + }, + { + "name": "May", + "type": { + "tag": "adt", + "name": "Month", + "args": [] + } + }, + { + "name": "Jun", + "type": { + "tag": "adt", + "name": "Month", + "args": [] + } + }, + { + "name": "Jul", + "type": { + "tag": "adt", + "name": "Month", + "args": [] + } + }, + { + "name": "Aug", + "type": { + "tag": "adt", + "name": "Month", + "args": [] + } + }, + { + "name": "Sep", + "type": { + "tag": "adt", + "name": "Month", + "args": [] + } + }, + { + "name": "Oct", + "type": { + "tag": "adt", + "name": "Month", + "args": [] + } + }, + { + "name": "Nov", + "type": { + "tag": "adt", + "name": "Month", + "args": [] + } + }, + { + "name": "Dec", + "type": { + "tag": "adt", + "name": "Month", + "args": [] + } + } + ] + } + ], + "values": [ + { + "name": "day", + "comment": "Extract the day of a given date. Given the date 23 June 1990 at 11:45AM\nthis returns the integer `23`.", + "raw": "day : Date -\u003e Int", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Date", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Int", + "args": [] + } + } + }, + { + "name": "dayOfWeek", + "comment": "Extract the day of the week for a given date. Given the date 23 June\n1990 at 11:45AM this returns the Day `Thu` as defined below.", + "raw": "dayOfWeek : Date -\u003e Day", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Date", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Day", + "args": [] + } + } + }, + { + "name": "fromTime", + "comment": "Take a UNIX time and convert it to a `Date`", + "raw": "fromTime : Time -\u003e Date", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Time", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Date", + "args": [] + } + } + }, + { + "name": "hour", + "comment": "Extract the hour of a given date. Given the date 23 June 1990 at 11:45AM\nthis returns the integer `11`.", + "raw": "hour : Date -\u003e Int", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Date", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Int", + "args": [] + } + } + }, + { + "name": "minute", + "comment": "Extract the minute of a given date. Given the date 23 June 1990 at 11:45AM\nthis returns the integer `45`.", + "raw": "minute : Date -\u003e Int", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Date", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Int", + "args": [] + } + } + }, + { + "name": "month", + "comment": "Extract the month of a given date. Given the date 23 June 1990 at 11:45AM\nthis returns the Month `Jun` as defined below.", + "raw": "month : Date -\u003e Month", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Date", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Month", + "args": [] + } + } + }, + { + "name": "read", + "comment": "Attempt to read a date from a string.", + "raw": "read : String -\u003e Maybe Date", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "String", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Maybe", + "args": [ + { + "tag": "adt", + "name": "Date", + "args": [] + } + ] + } + } + }, + { + "name": "second", + "comment": "Extract the second of a given date. Given the date 23 June 1990 at 11:45AM\nthis returns the integer `0`.", + "raw": "second : Date -\u003e Int", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Date", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Int", + "args": [] + } + } + }, + { + "name": "toTime", + "comment": "Convert a date into a time since midnight (UTC) of 1 January 1990 (i.e.\n[UNIX time](http://en.wikipedia.org/wiki/Unix_time)). Given the date 23 June\n1990 at 11:45AM this returns the corresponding time.", + "raw": "toTime : Date -\u003e Time", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Date", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Time", + "args": [] + } + } + }, + { + "name": "year", + "comment": "Extract the year of a given date. Given the date 23 June 1990 at 11:45AM\nthis returns the integer `1990`.", + "raw": "year : Date -\u003e Int", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Date", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Int", + "args": [] + } + } + } + ] +}, +{ + "name": "Debug", + "document": "This library is for investigating bugs or performance problems. It should\n*not* be used in production code.\n\n@docs log", + "aliases": [], + "datatypes": [], + "values": [ + { + "name": "log", + "comment": "Log a tagged value on the developer console, and then return the value.\n\n 1 + log \"number\" 1 -- equals 2, logs \"number: 1\"\n length (log \"start\" []) -- equals 0, logs \"start: []\"\n\nNotice that `log` is not a pure function! It should *only* be used for\ninvestigating bugs or performance problems.", + "raw": "log : String -\u003e a -\u003e a", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "String", + "args": [] + }, + { + "tag": "var", + "name": "a" + } + ], + "result": { + "tag": "var", + "name": "a" + } + } + } + ] +}, +{ + "name": "Dict", + "document": "A dictionary mapping unique keys to values. The keys can be any comparable\ntype. This includes `Int`, `Float`, `Time`, `Char`, `String`, and tuples or\nlists of comparable types.\n\nInsert, remove, and query operations all take *O(log n)* time.\n\n# Build\n@docs empty, singleton, insert, update, remove\n\n# Query\n@docs member, get, getOrElse, getOrFail\n\n# Combine\n@docs union, intersect, diff\n\n# Lists\n@docs keys, values, toList, fromList\n\n# Transform\n@docs map, foldl, foldr, filter, partition", + "aliases": [], + "datatypes": [], + "values": [ + { + "name": "diff", + "comment": "Keep a key-value pair when its key does not appear in the second dictionary.\nPreference is given to the first dictionary.", + "raw": "diff : Dict comparable v -\u003e Dict comparable v -\u003e Dict comparable v", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Dict", + "args": [ + { + "tag": "var", + "name": "comparable" + }, + { + "tag": "var", + "name": "v" + } + ] + }, + { + "tag": "adt", + "name": "Dict", + "args": [ + { + "tag": "var", + "name": "comparable" + }, + { + "tag": "var", + "name": "v" + } + ] + } + ], + "result": { + "tag": "adt", + "name": "Dict", + "args": [ + { + "tag": "var", + "name": "comparable" + }, + { + "tag": "var", + "name": "v" + } + ] + } + } + }, + { + "name": "empty", + "comment": "Create an empty dictionary.", + "raw": "empty : Dict comparable v", + "type": { + "tag": "adt", + "name": "Dict", + "args": [ + { + "tag": "var", + "name": "comparable" + }, + { + "tag": "var", + "name": "v" + } + ] + } + }, + { + "name": "filter", + "comment": "Keep a key-value pair when it satisfies a predicate.", + "raw": "filter : (comparable -\u003e v -\u003e Bool) -\u003e Dict comparable v -\u003e Dict comparable v", + "type": { + "tag": "function", + "args": [ + { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "comparable" + }, + { + "tag": "var", + "name": "v" + } + ], + "result": { + "tag": "adt", + "name": "Bool", + "args": [] + } + }, + { + "tag": "adt", + "name": "Dict", + "args": [ + { + "tag": "var", + "name": "comparable" + }, + { + "tag": "var", + "name": "v" + } + ] + } + ], + "result": { + "tag": "adt", + "name": "Dict", + "args": [ + { + "tag": "var", + "name": "comparable" + }, + { + "tag": "var", + "name": "v" + } + ] + } + } + }, + { + "name": "foldl", + "comment": "Fold over the key-value pairs in a dictionary, in order from lowest\nkey to highest key.", + "raw": "foldl : (comparable -\u003e v -\u003e b -\u003e b) -\u003e b -\u003e Dict comparable v -\u003e b", + "type": { + "tag": "function", + "args": [ + { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "comparable" + }, + { + "tag": "var", + "name": "v" + }, + { + "tag": "var", + "name": "b" + } + ], + "result": { + "tag": "var", + "name": "b" + } + }, + { + "tag": "var", + "name": "b" + }, + { + "tag": "adt", + "name": "Dict", + "args": [ + { + "tag": "var", + "name": "comparable" + }, + { + "tag": "var", + "name": "v" + } + ] + } + ], + "result": { + "tag": "var", + "name": "b" + } + } + }, + { + "name": "foldr", + "comment": "Fold over the key-value pairs in a dictionary, in order from highest\nkey to lowest key.", + "raw": "foldr : (comparable -\u003e v -\u003e b -\u003e b) -\u003e b -\u003e Dict comparable v -\u003e b", + "type": { + "tag": "function", + "args": [ + { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "comparable" + }, + { + "tag": "var", + "name": "v" + }, + { + "tag": "var", + "name": "b" + } + ], + "result": { + "tag": "var", + "name": "b" + } + }, + { + "tag": "var", + "name": "b" + }, + { + "tag": "adt", + "name": "Dict", + "args": [ + { + "tag": "var", + "name": "comparable" + }, + { + "tag": "var", + "name": "v" + } + ] + } + ], + "result": { + "tag": "var", + "name": "b" + } + } + }, + { + "name": "fromList", + "comment": "Convert an association list into a dictionary.", + "raw": "fromList : [(comparable,v)] -\u003e Dict comparable v", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "adt", + "name": "_Tuple2", + "args": [ + { + "tag": "var", + "name": "comparable" + }, + { + "tag": "var", + "name": "v" + } + ] + } + ] + } + ], + "result": { + "tag": "adt", + "name": "Dict", + "args": [ + { + "tag": "var", + "name": "comparable" + }, + { + "tag": "var", + "name": "v" + } + ] + } + } + }, + { + "name": "get", + "comment": "Get the value associated with a key. If the key is not found, return\n`Nothing`. This is useful when you are not sure if a key will be in the\ndictionary.\n\n animals = fromList [ (\"Tom\", Cat), (\"Jerry\", Mouse) ]\n\n get \"Tom\" animals == Just Cat\n get \"Mouse\" animals == Just Mouse\n get \"Spike\" animals == Nothing\n\nThe `getOrElse` and `getOrFail` are built-in ways to handle common ways of\nusing the resulting `Maybe`.", + "raw": "get : comparable -\u003e Dict comparable v -\u003e Maybe v", + "type": { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "comparable" + }, + { + "tag": "adt", + "name": "Dict", + "args": [ + { + "tag": "var", + "name": "comparable" + }, + { + "tag": "var", + "name": "v" + } + ] + } + ], + "result": { + "tag": "adt", + "name": "Maybe", + "args": [ + { + "tag": "var", + "name": "v" + } + ] + } + } + }, + { + "name": "getOrElse", + "comment": "Get the value associated with a key. If the key is not found,\nreturn a default value.\n\n animals = fromList [ (\"Tom\", Cat), (\"Jerry\", Mouse) ]\n\n getOrElse Dog \"Tom\" animals == Cat\n getOrElse Dog \"Mouse\" animals == Mouse\n getOrElse Dog \"Spike\" animals == Dog", + "raw": "getOrElse : v -\u003e comparable -\u003e Dict comparable v -\u003e v", + "type": { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "v" + }, + { + "tag": "var", + "name": "comparable" + }, + { + "tag": "adt", + "name": "Dict", + "args": [ + { + "tag": "var", + "name": "comparable" + }, + { + "tag": "var", + "name": "v" + } + ] + } + ], + "result": { + "tag": "var", + "name": "v" + } + } + }, + { + "name": "getOrFail", + "comment": "Get the value associated with a key.\n\n animals = fromList [ (\"Tom\", Cat), (\"Jerry\", Mouse) ]\n\n getOrFail \"Tom\" animals == Cat\n getOrFail \"Mouse\" animals == Mouse\n getOrFail \"Spike\" animals == -- Runtime Error!\n\nWarning: this function will result in a runtime error if the key is not found,\nso it is best to use `get` or `getOrElse` unless you are sure the key will be\nfound.", + "raw": "getOrFail : comparable -\u003e Dict comparable v -\u003e v", + "type": { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "comparable" + }, + { + "tag": "adt", + "name": "Dict", + "args": [ + { + "tag": "var", + "name": "comparable" + }, + { + "tag": "var", + "name": "v" + } + ] + } + ], + "result": { + "tag": "var", + "name": "v" + } + } + }, + { + "name": "insert", + "comment": "Insert a key-value pair into a dictionary. Replaces value when there is\na collision.", + "raw": "insert : comparable -\u003e v -\u003e Dict comparable v -\u003e Dict comparable v", + "type": { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "comparable" + }, + { + "tag": "var", + "name": "v" + }, + { + "tag": "adt", + "name": "Dict", + "args": [ + { + "tag": "var", + "name": "comparable" + }, + { + "tag": "var", + "name": "v" + } + ] + } + ], + "result": { + "tag": "adt", + "name": "Dict", + "args": [ + { + "tag": "var", + "name": "comparable" + }, + { + "tag": "var", + "name": "v" + } + ] + } + } + }, + { + "name": "intersect", + "comment": "Keep a key-value pair when its key appears in the second dictionary.\nPreference is given to values in the first dictionary.", + "raw": "intersect : Dict comparable v -\u003e Dict comparable v -\u003e Dict comparable v", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Dict", + "args": [ + { + "tag": "var", + "name": "comparable" + }, + { + "tag": "var", + "name": "v" + } + ] + }, + { + "tag": "adt", + "name": "Dict", + "args": [ + { + "tag": "var", + "name": "comparable" + }, + { + "tag": "var", + "name": "v" + } + ] + } + ], + "result": { + "tag": "adt", + "name": "Dict", + "args": [ + { + "tag": "var", + "name": "comparable" + }, + { + "tag": "var", + "name": "v" + } + ] + } + } + }, + { + "name": "keys", + "comment": "Get all of the keys in a dictionary.", + "raw": "keys : Dict comparable v -\u003e [comparable]", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Dict", + "args": [ + { + "tag": "var", + "name": "comparable" + }, + { + "tag": "var", + "name": "v" + } + ] + } + ], + "result": { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "var", + "name": "comparable" + } + ] + } + } + }, + { + "name": "map", + "comment": "Apply a function to all values in a dictionary.", + "raw": "map : (a -\u003e b) -\u003e Dict comparable a -\u003e Dict comparable b", + "type": { + "tag": "function", + "args": [ + { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "a" + } + ], + "result": { + "tag": "var", + "name": "b" + } + }, + { + "tag": "adt", + "name": "Dict", + "args": [ + { + "tag": "var", + "name": "comparable" + }, + { + "tag": "var", + "name": "a" + } + ] + } + ], + "result": { + "tag": "adt", + "name": "Dict", + "args": [ + { + "tag": "var", + "name": "comparable" + }, + { + "tag": "var", + "name": "b" + } + ] + } + } + }, + { + "name": "member", + "comment": "Determine if a key is in a dictionary.", + "raw": "member : comparable -\u003e Dict comparable v -\u003e Bool", + "type": { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "comparable" + }, + { + "tag": "adt", + "name": "Dict", + "args": [ + { + "tag": "var", + "name": "comparable" + }, + { + "tag": "var", + "name": "v" + } + ] + } + ], + "result": { + "tag": "adt", + "name": "Bool", + "args": [] + } + } + }, + { + "name": "partition", + "comment": "Partition a dictionary according to a predicate. The first dictionary\ncontains all key-value pairs which satisfy the predicate, and the second\ncontains the rest.", + "raw": "partition : (comparable -\u003e v -\u003e Bool) -\u003e Dict comparable v -\u003e (Dict comparable v, Dict comparable v)", + "type": { + "tag": "function", + "args": [ + { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "comparable" + }, + { + "tag": "var", + "name": "v" + } + ], + "result": { + "tag": "adt", + "name": "Bool", + "args": [] + } + }, + { + "tag": "adt", + "name": "Dict", + "args": [ + { + "tag": "var", + "name": "comparable" + }, + { + "tag": "var", + "name": "v" + } + ] + } + ], + "result": { + "tag": "adt", + "name": "_Tuple2", + "args": [ + { + "tag": "adt", + "name": "Dict", + "args": [ + { + "tag": "var", + "name": "comparable" + }, + { + "tag": "var", + "name": "v" + } + ] + }, + { + "tag": "adt", + "name": "Dict", + "args": [ + { + "tag": "var", + "name": "comparable" + }, + { + "tag": "var", + "name": "v" + } + ] + } + ] + } + } + }, + { + "name": "remove", + "comment": "Remove a key-value pair from a dictionary. If the key is not found,\nno changes are made.", + "raw": "remove : comparable -\u003e Dict comparable v -\u003e Dict comparable v", + "type": { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "comparable" + }, + { + "tag": "adt", + "name": "Dict", + "args": [ + { + "tag": "var", + "name": "comparable" + }, + { + "tag": "var", + "name": "v" + } + ] + } + ], + "result": { + "tag": "adt", + "name": "Dict", + "args": [ + { + "tag": "var", + "name": "comparable" + }, + { + "tag": "var", + "name": "v" + } + ] + } + } + }, + { + "name": "singleton", + "comment": "Create a dictionary with one key-value pair.", + "raw": "singleton : comparable -\u003e v -\u003e Dict comparable v", + "type": { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "comparable" + }, + { + "tag": "var", + "name": "v" + } + ], + "result": { + "tag": "adt", + "name": "Dict", + "args": [ + { + "tag": "var", + "name": "comparable" + }, + { + "tag": "var", + "name": "v" + } + ] + } + } + }, + { + "name": "toList", + "comment": "Convert a dictionary into an association list of key-value pairs.", + "raw": "toList : Dict comparable v -\u003e [(comparable,v)]", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Dict", + "args": [ + { + "tag": "var", + "name": "comparable" + }, + { + "tag": "var", + "name": "v" + } + ] + } + ], + "result": { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "adt", + "name": "_Tuple2", + "args": [ + { + "tag": "var", + "name": "comparable" + }, + { + "tag": "var", + "name": "v" + } + ] + } + ] + } + } + }, + { + "name": "union", + "comment": "Combine two dictionaries. If there is a collision, preference is given\nto the first dictionary.", + "raw": "union : Dict comparable v -\u003e Dict comparable v -\u003e Dict comparable v", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Dict", + "args": [ + { + "tag": "var", + "name": "comparable" + }, + { + "tag": "var", + "name": "v" + } + ] + }, + { + "tag": "adt", + "name": "Dict", + "args": [ + { + "tag": "var", + "name": "comparable" + }, + { + "tag": "var", + "name": "v" + } + ] + } + ], + "result": { + "tag": "adt", + "name": "Dict", + "args": [ + { + "tag": "var", + "name": "comparable" + }, + { + "tag": "var", + "name": "v" + } + ] + } + } + }, + { + "name": "update", + "comment": "Update the value of a dictionary for a specific key with a given function.", + "raw": "update : comparable -\u003e (Maybe v -\u003e Maybe v) -\u003e Dict comparable v -\u003e Dict comparable v", + "type": { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "comparable" + }, + { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Maybe", + "args": [ + { + "tag": "var", + "name": "v" + } + ] + } + ], + "result": { + "tag": "adt", + "name": "Maybe", + "args": [ + { + "tag": "var", + "name": "v" + } + ] + } + }, + { + "tag": "adt", + "name": "Dict", + "args": [ + { + "tag": "var", + "name": "comparable" + }, + { + "tag": "var", + "name": "v" + } + ] + } + ], + "result": { + "tag": "adt", + "name": "Dict", + "args": [ + { + "tag": "var", + "name": "comparable" + }, + { + "tag": "var", + "name": "v" + } + ] + } + } + }, + { + "name": "values", + "comment": "Get all of the values in a dictionary.", + "raw": "values : Dict comparable v -\u003e [v]", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Dict", + "args": [ + { + "tag": "var", + "name": "comparable" + }, + { + "tag": "var", + "name": "v" + } + ] + } + ], + "result": { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "var", + "name": "v" + } + ] + } + } + } + ] +}, +{ + "name": "Either", + "document": "Represents any data that can take two different types.\n\n# Type and Constructors\n@docs Either\n\n# Taking Eithers apart\n@docs either, isLeft, isRight\n\n# Eithers and Lists\n@docs lefts, rights, partition", + "aliases": [], + "datatypes": [ + { + "name": "Either", + "comment": "Represents any data may take two forms. For example, a user ID may be\neither an `Int` or a `String`.\n\nThis can also be used for error handling `(Either String a)` where\nerror messages are stored on the left, and the correct values\n(“right” values) are stored on the right.", + "raw": "data Either a b = Left a | Right b", + "typeVariables": [ + "a", + "b" + ], + "constructors": [ + { + "name": "Left", + "type": { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "a" + } + ], + "result": { + "tag": "adt", + "name": "Either", + "args": [ + { + "tag": "var", + "name": "a" + }, + { + "tag": "var", + "name": "b" + } + ] + } + } + }, + { + "name": "Right", + "type": { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "b" + } + ], + "result": { + "tag": "adt", + "name": "Either", + "args": [ + { + "tag": "var", + "name": "a" + }, + { + "tag": "var", + "name": "b" + } + ] + } + } + } + ] + } + ], + "values": [ + { + "name": "either", + "comment": "Apply the first function to a `Left` and the second function to a `Right`.\nThis allows the extraction of a value from an `Either`.\n\n either (\\n -\u003e n + 1) sqrt (Left 4) == 5\n either (\\n -\u003e n + 1) sqrt (Right 4) == 2\n\n map : (a -\u003e b) -\u003e Either err a -\u003e Either err b\n map f e = either Left (\\x -\u003e Right (f x)) e", + "raw": "either : (a -\u003e c) -\u003e (b -\u003e c) -\u003e Either a b -\u003e c", + "type": { + "tag": "function", + "args": [ + { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "a" + } + ], + "result": { + "tag": "var", + "name": "c" + } + }, + { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "b" + } + ], + "result": { + "tag": "var", + "name": "c" + } + }, + { + "tag": "adt", + "name": "Either", + "args": [ + { + "tag": "var", + "name": "a" + }, + { + "tag": "var", + "name": "b" + } + ] + } + ], + "result": { + "tag": "var", + "name": "c" + } + } + }, + { + "name": "isLeft", + "comment": "True if the value is a `Left`.\n\n isLeft (Left \"Cat\") == True\n isLeft (Right 1123) == False", + "raw": "isLeft : Either a b -\u003e Bool", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Either", + "args": [ + { + "tag": "var", + "name": "a" + }, + { + "tag": "var", + "name": "b" + } + ] + } + ], + "result": { + "tag": "adt", + "name": "Bool", + "args": [] + } + } + }, + { + "name": "isRight", + "comment": "True if the value is a `Right`.\n\n isRight (Left \"Cat\") == False\n isRight (Right 1123) == True", + "raw": "isRight : Either a b -\u003e Bool", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Either", + "args": [ + { + "tag": "var", + "name": "a" + }, + { + "tag": "var", + "name": "b" + } + ] + } + ], + "result": { + "tag": "adt", + "name": "Bool", + "args": [] + } + } + }, + { + "name": "lefts", + "comment": "Keep only the values held in `Left` values.\n\n lefts [Left 3, Right 'a', Left 5, Right \"eight\"] == [3,5]", + "raw": "lefts : [Either a b] -\u003e [a]", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "adt", + "name": "Either", + "args": [ + { + "tag": "var", + "name": "a" + }, + { + "tag": "var", + "name": "b" + } + ] + } + ] + } + ], + "result": { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + } + }, + { + "name": "partition", + "comment": "Split into two lists, lefts on the left and rights on the right. So we\nhave the equivalence: `(partition es == (lefts es, rights es))`\n\n partition [Left 3, Right 'a', Left 5, Right 'b'] == ([3,5],['a','b'])", + "raw": "partition : [Either a b] -\u003e ([a],[b])", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "adt", + "name": "Either", + "args": [ + { + "tag": "var", + "name": "a" + }, + { + "tag": "var", + "name": "b" + } + ] + } + ] + } + ], + "result": { + "tag": "adt", + "name": "_Tuple2", + "args": [ + { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + }, + { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "var", + "name": "b" + } + ] + } + ] + } + } + }, + { + "name": "rights", + "comment": "Keep only the values held in `Right` values.\n\n rights [Left 3, Right 'a', Left 5, Right 'b'] == ['a','b']", + "raw": "rights : [Either a b] -\u003e [b]", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "adt", + "name": "Either", + "args": [ + { + "tag": "var", + "name": "a" + }, + { + "tag": "var", + "name": "b" + } + ] + } + ] + } + ], + "result": { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "var", + "name": "b" + } + ] + } + } + } + ] +}, +{ + "name": "Http", + "document": "A library for asynchronous HTTP requests. See the `WebSocket`\nlibrary if you have very strict latency requirements.\n\n# Sending Requests\n@docs send, sendGet\n\n# Creating Requests\n@docs get, post, request\n\n# Responses\n@docs Response", + "aliases": [ + { + "name": "Request", + "comment": "", + "raw": "type Request a = {\n verb : String,\n url : String,\n body : a,\n headers : [(String,String)]\n }", + "typeVariables": [ + "a" + ], + "type": { + "tag": "record", + "fields": [ + [ + "verb", + { + "tag": "adt", + "name": "String", + "args": [] + } + ], + [ + "url", + { + "tag": "adt", + "name": "String", + "args": [] + } + ], + [ + "body", + { + "tag": "var", + "name": "a" + } + ], + [ + "headers", + { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "adt", + "name": "_Tuple2", + "args": [ + { + "tag": "adt", + "name": "String", + "args": [] + }, + { + "tag": "adt", + "name": "String", + "args": [] + } + ] + } + ] + } + ] + ], + "extension": null + } + } + ], + "datatypes": [ + { + "name": "Response", + "comment": "The datatype for responses. Success contains only the returned message.\nFailures contain both an error code and an error message.", + "raw": "data Response a = Success a | Waiting | Failure Int String", + "typeVariables": [ + "a" + ], + "constructors": [ + { + "name": "Success", + "type": { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "a" + } + ], + "result": { + "tag": "adt", + "name": "Response", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + } + }, + { + "name": "Waiting", + "type": { + "tag": "adt", + "name": "Response", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + }, + { + "name": "Failure", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Int", + "args": [] + }, + { + "tag": "adt", + "name": "String", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Response", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + } + } + ] + } + ], + "values": [ + { + "name": "get", + "comment": "Create a GET request to the given url.", + "raw": "get : String -\u003e Request String", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "String", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Request", + "args": [ + { + "tag": "adt", + "name": "String", + "args": [] + } + ] + } + } + }, + { + "name": "post", + "comment": "Create a POST request to the given url, carrying the given data.", + "raw": "post : String -\u003e String -\u003e Request String", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "String", + "args": [] + }, + { + "tag": "adt", + "name": "String", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Request", + "args": [ + { + "tag": "adt", + "name": "String", + "args": [] + } + ] + } + } + }, + { + "name": "request", + "comment": "Create a customized request. Arguments are request type (get, post, put,\ndelete, etc.), target url, data, and a list of additional headers.", + "raw": "request : String -\u003e String -\u003e String -\u003e [(String,String)] -\u003e Request String", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "String", + "args": [] + }, + { + "tag": "adt", + "name": "String", + "args": [] + }, + { + "tag": "adt", + "name": "String", + "args": [] + }, + { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "adt", + "name": "_Tuple2", + "args": [ + { + "tag": "adt", + "name": "String", + "args": [] + }, + { + "tag": "adt", + "name": "String", + "args": [] + } + ] + } + ] + } + ], + "result": { + "tag": "adt", + "name": "Request", + "args": [ + { + "tag": "adt", + "name": "String", + "args": [] + } + ] + } + } + }, + { + "name": "send", + "comment": "Performs an HTTP request with the given requests. Produces a signal\nthat carries the responses.", + "raw": "send : Signal (Request a) -\u003e Signal (Response String)", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "adt", + "name": "Request", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + ] + } + ], + "result": { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "adt", + "name": "Response", + "args": [ + { + "tag": "adt", + "name": "String", + "args": [] + } + ] + } + ] + } + } + }, + { + "name": "sendGet", + "comment": "Performs an HTTP GET request with the given urls. Produces a signal\nthat carries the responses.", + "raw": "sendGet : Signal String -\u003e Signal (Response String)", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "adt", + "name": "String", + "args": [] + } + ] + } + ], + "result": { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "adt", + "name": "Response", + "args": [ + { + "tag": "adt", + "name": "String", + "args": [] + } + ] + } + ] + } + } + } + ] +}, +{ + "name": "Json", + "document": "Library for working with [JSON](https://en.wikipedia.org/wiki/JSON) values.\n\n@docs Value, fromString, toString", + "aliases": [], + "datatypes": [ + { + "name": "Value", + "comment": "This datatype can represent all valid JSON values. A `Value` can be sent\nthrough ports, and the runtime will do a conversion like this:\n\n [2,'abc',null] == Array [Number 2, String \"abc\", Null]\n\nJSON is an intentional subset of JavaScript values which excludes functions.\nThis ensures that impure functions cannot sneak into Elm through ports.", + "raw": "data Value\n = String String\n | Number Float\n | Boolean Bool\n | Null\n | Array [Value]\n | Object (Dict.Dict String Value)", + "typeVariables": [], + "constructors": [ + { + "name": "String", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "String", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Value", + "args": [] + } + } + }, + { + "name": "Number", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Float", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Value", + "args": [] + } + } + }, + { + "name": "Boolean", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Bool", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Value", + "args": [] + } + } + }, + { + "name": "Null", + "type": { + "tag": "adt", + "name": "Value", + "args": [] + } + }, + { + "name": "Array", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "adt", + "name": "Value", + "args": [] + } + ] + } + ], + "result": { + "tag": "adt", + "name": "Value", + "args": [] + } + } + }, + { + "name": "Object", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Dict.Dict", + "args": [ + { + "tag": "adt", + "name": "String", + "args": [] + }, + { + "tag": "adt", + "name": "Value", + "args": [] + } + ] + } + ], + "result": { + "tag": "adt", + "name": "Value", + "args": [] + } + } + } + ] + } + ], + "values": [ + { + "name": "fromString", + "comment": "Parse a string representation of a proper JSON object into\nits Elm representation.\n\n fromString \"null\" == Just Null\n fromString \"[true,3]\" == Just (Array [Boolean True, Number 3])\n fromString \"{'abc':4}\" == Just (Object (Dict.fromList [(\"abc\", Number 4)]))", + "raw": "fromString : String -\u003e Maybe Value", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "String", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Maybe", + "args": [ + { + "tag": "adt", + "name": "Value", + "args": [] + } + ] + } + } + }, + { + "name": "toString", + "comment": "Convert a `Value` into a prettified string.\nThe first argument is a separator token (e.g. \\\" \\\", \\\"\\\\n\\\", etc.) that will\nbe used for indentation in the prettified string version of the JSON.\n\n toString \"\" Null == \"null\"\n toString \"\" (Number 4.0) == \"4.0\"", + "raw": "toString : String -\u003e Value -\u003e String", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "String", + "args": [] + }, + { + "tag": "adt", + "name": "Value", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "String", + "args": [] + } + } + } + ] +}, +{ + "name": "Keyboard", + "document": "Library for working with keyboard input.\n\n# Representing Keys\n@docs KeyCode\n\n# Directions\n@docs arrows, wasd, directions\n\n# Specific Keys\n@docs shift, enter, space, ctrl\n\n# General Keypresses\n@docs isDown, keysDown, lastPressed", + "aliases": [ + { + "name": "KeyCode", + "comment": "Type alias to make it clearer what integers are supposed to represent\nin this library. Use `Char.toCode` and `Char.fromCode` to convert key codes\nto characters. Use the uppercase character with `toCode`.", + "raw": "type KeyCode = Int", + "typeVariables": [], + "type": { + "tag": "adt", + "name": "Int", + "args": [] + } + } + ], + "datatypes": [], + "values": [ + { + "name": "arrows", + "comment": "A signal of records indicating which arrow keys are pressed.\n\n`{ x = 0, y = 0 }` when pressing no arrows.\u003cbr\u003e\n`{ x =-1, y = 0 }` when pressing the left arrow.\u003cbr\u003e\n`{ x = 1, y = 1 }` when pressing the up and right arrows.\u003cbr\u003e\n`{ x = 0, y =-1 }` when pressing the down, left, and right arrows.", + "raw": "arrows : Signal { x:Int, y:Int }", + "type": { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "record", + "fields": [ + [ + "x", + { + "tag": "adt", + "name": "Int", + "args": [] + } + ], + [ + "y", + { + "tag": "adt", + "name": "Int", + "args": [] + } + ] + ], + "extension": null + } + ] + } + }, + { + "name": "ctrl", + "comment": "Whether the control key is pressed.", + "raw": "ctrl : Signal Bool", + "type": { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "adt", + "name": "Bool", + "args": [] + } + ] + } + }, + { + "name": "directions", + "comment": "Custom key directions to support different locales. The order is up, down,\nleft, right.", + "raw": "directions : KeyCode -\u003e KeyCode -\u003e KeyCode -\u003e KeyCode -\u003e Signal { x:Int, y:Int }", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "KeyCode", + "args": [] + }, + { + "tag": "adt", + "name": "KeyCode", + "args": [] + }, + { + "tag": "adt", + "name": "KeyCode", + "args": [] + }, + { + "tag": "adt", + "name": "KeyCode", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "record", + "fields": [ + [ + "x", + { + "tag": "adt", + "name": "Int", + "args": [] + } + ], + [ + "y", + { + "tag": "adt", + "name": "Int", + "args": [] + } + ] + ], + "extension": null + } + ] + } + } + }, + { + "name": "enter", + "comment": "Whether the enter key is pressed.", + "raw": "enter : Signal Bool", + "type": { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "adt", + "name": "Bool", + "args": [] + } + ] + } + }, + { + "name": "isDown", + "comment": "Whether an arbitrary key is pressed.", + "raw": "isDown : KeyCode -\u003e Signal Bool", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "KeyCode", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "adt", + "name": "Bool", + "args": [] + } + ] + } + } + }, + { + "name": "keysDown", + "comment": "List of keys that are currently down.", + "raw": "keysDown : Signal [KeyCode]", + "type": { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "adt", + "name": "KeyCode", + "args": [] + } + ] + } + ] + } + }, + { + "name": "lastPressed", + "comment": "The latest key that has been pressed.", + "raw": "lastPressed : Signal KeyCode", + "type": { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "adt", + "name": "KeyCode", + "args": [] + } + ] + } + }, + { + "name": "shift", + "comment": "Whether the shift key is pressed.", + "raw": "shift : Signal Bool", + "type": { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "adt", + "name": "Bool", + "args": [] + } + ] + } + }, + { + "name": "space", + "comment": "Whether the space key is pressed.", + "raw": "space : Signal Bool", + "type": { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "adt", + "name": "Bool", + "args": [] + } + ] + } + }, + { + "name": "wasd", + "comment": "Just like the arrows signal, but this uses keys w, a, s, and d,\nwhich are common controls for many computer games.", + "raw": "wasd : Signal { x:Int, y:Int }", + "type": { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "record", + "fields": [ + [ + "x", + { + "tag": "adt", + "name": "Int", + "args": [] + } + ], + [ + "y", + { + "tag": "adt", + "name": "Int", + "args": [] + } + ] + ], + "extension": null + } + ] + } + } + ] +}, +{ + "name": "List", + "document": "A library for manipulating lists of values. Every value in a\nlist must have the same type.\n\n# Basics\n@docs (::), (++), isEmpty, length, reverse, map\n\n# Sub-lists\n@docs head, tail, last, filter, take, drop\n\n# Putting Lists Together\n@docs concat, concatMap, join, intersperse, zip, zipWith, repeat\n\n# Taking Lists Apart\n@docs partition, unzip\n\n# Folds\n@docs foldr, foldl, foldr1, foldl1, scanl, scanl1\n\n# Special Folds\n@docs sum, product, maximum, minimum, all, any, and, or\n\n# Sorting\n@docs sort, sortBy, sortWith", + "aliases": [], + "datatypes": [], + "values": [ + { + "name": "++", + "comment": "Puts two appendable things together:\n\n [1,1] ++ [2,3] == [1,1,2,3]\n \"abc\" ++ \"123\" == \"abc123\"", + "raw": "(++) : appendable -\u003e appendable -\u003e appendable", + "type": { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "appendable" + }, + { + "tag": "var", + "name": "appendable" + } + ], + "result": { + "tag": "var", + "name": "appendable" + } + }, + "associativity": "right", + "precedence": 5 + }, + { + "name": "::", + "comment": "Add an element to the front of a list `(1 :: [2,3] == [1,2,3])`", + "raw": "(::) : a -\u003e [a] -\u003e [a]", + "type": { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "a" + }, + { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + ], + "result": { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + }, + "associativity": "right", + "precedence": 5 + }, + { + "name": "all", + "comment": "Check to see if all elements satisfy the predicate.", + "raw": "all : (a -\u003e Bool) -\u003e [a] -\u003e Bool", + "type": { + "tag": "function", + "args": [ + { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "a" + } + ], + "result": { + "tag": "adt", + "name": "Bool", + "args": [] + } + }, + { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + ], + "result": { + "tag": "adt", + "name": "Bool", + "args": [] + } + } + }, + { + "name": "and", + "comment": "Check to see if all elements are True.", + "raw": "and : [Bool] -\u003e Bool", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "adt", + "name": "Bool", + "args": [] + } + ] + } + ], + "result": { + "tag": "adt", + "name": "Bool", + "args": [] + } + } + }, + { + "name": "any", + "comment": "Check to see if any elements satisfy the predicate.", + "raw": "any : (a -\u003e Bool) -\u003e [a] -\u003e Bool", + "type": { + "tag": "function", + "args": [ + { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "a" + } + ], + "result": { + "tag": "adt", + "name": "Bool", + "args": [] + } + }, + { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + ], + "result": { + "tag": "adt", + "name": "Bool", + "args": [] + } + } + }, + { + "name": "concat", + "comment": "Concatenate a list of appendable things:\n\n concat [[1,2],[3],[4,5]] == [1,2,3,4,5]\n concat [\"tree\",\"house\"] == \"treehouse\"", + "raw": "concat : [appendable] -\u003e appendable", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "var", + "name": "appendable" + } + ] + } + ], + "result": { + "tag": "var", + "name": "appendable" + } + } + }, + { + "name": "concatMap", + "comment": "Map a given function onto a list and flatten the resulting lists.\n\n concatMap f xs == concat (map f xs)", + "raw": "concatMap : (a -\u003e appendable) -\u003e [a] -\u003e appendable", + "type": { + "tag": "function", + "args": [ + { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "a" + } + ], + "result": { + "tag": "var", + "name": "appendable" + } + }, + { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + ], + "result": { + "tag": "var", + "name": "appendable" + } + } + }, + { + "name": "drop", + "comment": "Drop the first n members of a list: `(drop 2 [1,2,3,4] == [3,4])`", + "raw": "drop : Int -\u003e [a] -\u003e [a]", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Int", + "args": [] + }, + { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + ], + "result": { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + } + }, + { + "name": "filter", + "comment": "Keep only elements that satisfy the predicate:\n`(filter isEven [1..6] == [2,4,6])`", + "raw": "filter : (a -\u003e Bool) -\u003e [a] -\u003e [a]", + "type": { + "tag": "function", + "args": [ + { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "a" + } + ], + "result": { + "tag": "adt", + "name": "Bool", + "args": [] + } + }, + { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + ], + "result": { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + } + }, + { + "name": "foldl", + "comment": "Reduce a list from the left: `(foldl (::) [] [1,2,3] == [3,2,1])`", + "raw": "foldl : (a -\u003e b -\u003e b) -\u003e b -\u003e [a] -\u003e b", + "type": { + "tag": "function", + "args": [ + { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "a" + }, + { + "tag": "var", + "name": "b" + } + ], + "result": { + "tag": "var", + "name": "b" + } + }, + { + "tag": "var", + "name": "b" + }, + { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + ], + "result": { + "tag": "var", + "name": "b" + } + } + }, + { + "name": "foldl1", + "comment": "Reduce a list from the left without a base case. List must be non-empty.", + "raw": "foldl1 : (a -\u003e a -\u003e a) -\u003e [a] -\u003e a", + "type": { + "tag": "function", + "args": [ + { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "a" + }, + { + "tag": "var", + "name": "a" + } + ], + "result": { + "tag": "var", + "name": "a" + } + }, + { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + ], + "result": { + "tag": "var", + "name": "a" + } + } + }, + { + "name": "foldr", + "comment": "Reduce a list from the right: `(foldr (+) 0 [1,2,3] == 6)`", + "raw": "foldr : (a -\u003e b -\u003e b) -\u003e b -\u003e [a] -\u003e b", + "type": { + "tag": "function", + "args": [ + { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "a" + }, + { + "tag": "var", + "name": "b" + } + ], + "result": { + "tag": "var", + "name": "b" + } + }, + { + "tag": "var", + "name": "b" + }, + { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + ], + "result": { + "tag": "var", + "name": "b" + } + } + }, + { + "name": "foldr1", + "comment": "Reduce a list from the right without a base case. List must be non-empty.", + "raw": "foldr1 : (a -\u003e a -\u003e a) -\u003e [a] -\u003e a", + "type": { + "tag": "function", + "args": [ + { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "a" + }, + { + "tag": "var", + "name": "a" + } + ], + "result": { + "tag": "var", + "name": "a" + } + }, + { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + ], + "result": { + "tag": "var", + "name": "a" + } + } + }, + { + "name": "head", + "comment": "Extract the first element of a list. List must be non-empty.\n`(head [1,2,3] == 1)`", + "raw": "head : [a] -\u003e a", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + ], + "result": { + "tag": "var", + "name": "a" + } + } + }, + { + "name": "intersperse", + "comment": "Places the given value between all members of the given list.\n\n intersperse \"on\" [\"turtles\",\"turtles\",\"turtles\"] == [\"turtles\",\"on\",\"turtles\",\"on\",\"turtles\"]", + "raw": "intersperse : a -\u003e [a] -\u003e [a]", + "type": { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "a" + }, + { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + ], + "result": { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + } + }, + { + "name": "isEmpty", + "comment": "Check if a list is empty `(isEmpty [] == True)`", + "raw": "isEmpty : [a] -\u003e Bool", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + ], + "result": { + "tag": "adt", + "name": "Bool", + "args": [] + } + } + }, + { + "name": "join", + "comment": "Places the given value between all of the lists in the second\nargument and concatenates the result.\n\n join \"a\" [\"H\",\"w\",\"ii\",\"n\"] == \"Hawaiian\"", + "raw": "join : appendable -\u003e [appendable] -\u003e appendable", + "type": { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "appendable" + }, + { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "var", + "name": "appendable" + } + ] + } + ], + "result": { + "tag": "var", + "name": "appendable" + } + } + }, + { + "name": "last", + "comment": "Extract the last element of a list. List must be non-empty.\n`(last [1,2,3] == 3)`", + "raw": "last : [a] -\u003e a", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + ], + "result": { + "tag": "var", + "name": "a" + } + } + }, + { + "name": "length", + "comment": "Determine the length of a list: `(length [1,2,3] == 3)`", + "raw": "length : [a] -\u003e Int", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + ], + "result": { + "tag": "adt", + "name": "Int", + "args": [] + } + } + }, + { + "name": "map", + "comment": "Apply a function to every element of a list: `(map sqrt [1,4,9] == [1,2,3])`", + "raw": "map : (a -\u003e b) -\u003e [a] -\u003e [b]", + "type": { + "tag": "function", + "args": [ + { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "a" + } + ], + "result": { + "tag": "var", + "name": "b" + } + }, + { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + ], + "result": { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "var", + "name": "b" + } + ] + } + } + }, + { + "name": "maximum", + "comment": "Find the maximum element in a non-empty list: `maximum [1,4,2] == 4`", + "raw": "maximum : [comparable] -\u003e comparable", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "var", + "name": "comparable" + } + ] + } + ], + "result": { + "tag": "var", + "name": "comparable" + } + } + }, + { + "name": "minimum", + "comment": "Find the minimum element in a non-empty list: `minimum [3,2,1] == 1`", + "raw": "minimum : [comparable] -\u003e comparable", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "var", + "name": "comparable" + } + ] + } + ], + "result": { + "tag": "var", + "name": "comparable" + } + } + }, + { + "name": "or", + "comment": "Check to see if any elements are True.", + "raw": "or : [Bool] -\u003e Bool", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "adt", + "name": "Bool", + "args": [] + } + ] + } + ], + "result": { + "tag": "adt", + "name": "Bool", + "args": [] + } + } + }, + { + "name": "partition", + "comment": "Partition a list based on a predicate. The first list contains all values\nthat satisfy the predicate, and the second list contains all the value that do\nnot.\n\n partition (\\x -\u003e x \u003c 3) [0..5] == ([0,1,2], [3,4,5])\n partition isEven [0..5] == ([0,2,4], [1,3,5])", + "raw": "partition : (a -\u003e Bool) -\u003e [a] -\u003e ([a],[a])", + "type": { + "tag": "function", + "args": [ + { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "a" + } + ], + "result": { + "tag": "adt", + "name": "Bool", + "args": [] + } + }, + { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + ], + "result": { + "tag": "adt", + "name": "_Tuple2", + "args": [ + { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + }, + { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + ] + } + } + }, + { + "name": "product", + "comment": "Get the product of the list elements. `(product [1..4] == 24)`", + "raw": "product : [number] -\u003e number", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "var", + "name": "number" + } + ] + } + ], + "result": { + "tag": "var", + "name": "number" + } + } + }, + { + "name": "repeat", + "comment": "Creates a list with *n* copies of a value:\n`(repeat 3 (0,0) == [(0,0),(0,0),(0,0)]`", + "raw": "repeat : Int -\u003e a -\u003e [a]", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Int", + "args": [] + }, + { + "tag": "var", + "name": "a" + } + ], + "result": { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + } + }, + { + "name": "reverse", + "comment": "Reverse a list. `(reverse [1..4] == [4,3,2,1])`", + "raw": "reverse : [a] -\u003e [a]", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + ], + "result": { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + } + }, + { + "name": "scanl", + "comment": "Reduce a list from the left, building up all of the intermediate results into a list.\n\n scanl (+) 0 [1,2,3,4] == [0,1,3,6,10]", + "raw": "scanl : (a -\u003e b -\u003e b) -\u003e b -\u003e [a] -\u003e [b]", + "type": { + "tag": "function", + "args": [ + { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "a" + }, + { + "tag": "var", + "name": "b" + } + ], + "result": { + "tag": "var", + "name": "b" + } + }, + { + "tag": "var", + "name": "b" + }, + { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + ], + "result": { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "var", + "name": "b" + } + ] + } + } + }, + { + "name": "scanl1", + "comment": "Same as scanl but it doesn't require a base case. List must be non-empty.\n\n scanl1 (+) [1,2,3,4] == [1,3,6,10]", + "raw": "scanl1 : (a -\u003e a -\u003e a) -\u003e [a] -\u003e [a]", + "type": { + "tag": "function", + "args": [ + { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "a" + }, + { + "tag": "var", + "name": "a" + } + ], + "result": { + "tag": "var", + "name": "a" + } + }, + { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + ], + "result": { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + } + }, + { + "name": "sort", + "comment": "Sort values from lowest to highest: `sort [3,1,5] == [1,3,5]`", + "raw": "sort : [comparable] -\u003e [comparable]", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "var", + "name": "comparable" + } + ] + } + ], + "result": { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "var", + "name": "comparable" + } + ] + } + } + }, + { + "name": "sortBy", + "comment": "Sort values by a derived property.\n\n```haskell\nalice = { name=\"Alice\", height=1.62 }\nbob = { name=\"Bob\" , height=1.85 }\nchuck = { name=\"Chuck\", height=1.76 }\n\nsortBy .name [chuck,alice,bob] == [alice,bob,chuck]\nsortBy .height [chuck,alice,bob] == [alice,chuck,bob]\n\nsortBy String.length [\"mouse\",\"cat\"] == [\"cat\",\"mouse\"]\n```", + "raw": "sortBy : (a -\u003e comparable) -\u003e [a] -\u003e [a]", + "type": { + "tag": "function", + "args": [ + { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "a" + } + ], + "result": { + "tag": "var", + "name": "comparable" + } + }, + { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + ], + "result": { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + } + }, + { + "name": "sortWith", + "comment": "Sort values with a custom comparison function.\n\n```haskell\nsortWith flippedComparison [1..5] == [5,4,3,2,1]\n\nflippedComparison a b =\n case compare a b of\n LT -\u003e GT\n EQ -\u003e EQ\n GT -\u003e LT\n```\n\nThis is also the most general sort function, allowing you\nto define any other: `sort == sortWith compare`", + "raw": "sortWith : (a -\u003e a -\u003e Order) -\u003e [a] -\u003e [a]", + "type": { + "tag": "function", + "args": [ + { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "a" + }, + { + "tag": "var", + "name": "a" + } + ], + "result": { + "tag": "adt", + "name": "Order", + "args": [] + } + }, + { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + ], + "result": { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + } + }, + { + "name": "sum", + "comment": "Get the sum of the list elements. `(sum [1..4] == 10)`", + "raw": "sum : [number] -\u003e number", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "var", + "name": "number" + } + ] + } + ], + "result": { + "tag": "var", + "name": "number" + } + } + }, + { + "name": "tail", + "comment": "Extract the elements after the head of the list. List must be non-empty.\n`(tail [1,2,3] == [2,3])`", + "raw": "tail : [a] -\u003e [a]", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + ], + "result": { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + } + }, + { + "name": "take", + "comment": "Take the first n members of a list: `(take 2 [1,2,3,4] == [1,2])`", + "raw": "take : Int -\u003e [a] -\u003e [a]", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Int", + "args": [] + }, + { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + ], + "result": { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + } + }, + { + "name": "unzip", + "comment": "Decompose a list of tuples. \n\n unzip [(0, True), (17, False), (1337, True)] == ([0,17,1337], [True,False,True])", + "raw": "unzip : [(a,b)] -\u003e ([a],[b])", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "adt", + "name": "_Tuple2", + "args": [ + { + "tag": "var", + "name": "a" + }, + { + "tag": "var", + "name": "b" + } + ] + } + ] + } + ], + "result": { + "tag": "adt", + "name": "_Tuple2", + "args": [ + { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + }, + { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "var", + "name": "b" + } + ] + } + ] + } + } + }, + { + "name": "zip", + "comment": "Combine two lists, combining them into tuples pairwise.\nIf one list is longer, the extra elements are dropped.\n\n zip [1,2,3] [6,7] == [(1,6),(2,7)]\n zip == zipWith (,)", + "raw": "zip : [a] -\u003e [b] -\u003e [(a,b)]", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + }, + { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "var", + "name": "b" + } + ] + } + ], + "result": { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "adt", + "name": "_Tuple2", + "args": [ + { + "tag": "var", + "name": "a" + }, + { + "tag": "var", + "name": "b" + } + ] + } + ] + } + } + }, + { + "name": "zipWith", + "comment": "Combine two lists, combining them with the given function.\nIf one list is longer, the extra elements are dropped.\n\n zipWith (+) [1,2,3] [1,2,3,4] == [2,4,6]", + "raw": "zipWith : (a -\u003e b -\u003e c) -\u003e [a] -\u003e [b] -\u003e [c]", + "type": { + "tag": "function", + "args": [ + { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "a" + }, + { + "tag": "var", + "name": "b" + } + ], + "result": { + "tag": "var", + "name": "c" + } + }, + { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + }, + { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "var", + "name": "b" + } + ] + } + ], + "result": { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "var", + "name": "c" + } + ] + } + } + } + ] +}, +{ + "name": "Maybe", + "document": "Represents an optional value. Maybe it is there, maybe it is not.\n\n# Type and Constructors\n@docs Maybe\n\n# Taking Maybes apart\n@docs maybe, isJust, isNothing\n\n# Maybes and Lists\n@docs justs", + "aliases": [], + "datatypes": [ + { + "name": "Maybe", + "comment": "The Maybe datatype. Useful when a computation may or may not\nresult in a value (e.g. logarithm is defined only for positive\nnumbers).", + "raw": "data Maybe a = Just a | Nothing", + "typeVariables": [ + "a" + ], + "constructors": [ + { + "name": "Just", + "type": { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "a" + } + ], + "result": { + "tag": "adt", + "name": "Maybe", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + } + }, + { + "name": "Nothing", + "type": { + "tag": "adt", + "name": "Maybe", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + } + ] + } + ], + "values": [ + { + "name": "cons", + "comment": "", + "raw": "cons : Maybe a -\u003e [a] -\u003e [a]", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Maybe", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + }, + { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + ], + "result": { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + } + }, + { + "name": "isJust", + "comment": "Check if a maybe happens to be a `Just`.\n\n isJust (Just 42) == True\n isJust (Just []) == True\n isJust Nothing == False", + "raw": "isJust : Maybe a -\u003e Bool", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Maybe", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + ], + "result": { + "tag": "adt", + "name": "Bool", + "args": [] + } + } + }, + { + "name": "isNothing", + "comment": "Check if constructed with `Nothing`.\n\n isNothing (Just 42) == False\n isNothing (Just []) == False\n isNothing Nothing == True", + "raw": "isNothing : Maybe a -\u003e Bool", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Maybe", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + ], + "result": { + "tag": "adt", + "name": "Bool", + "args": [] + } + } + }, + { + "name": "justs", + "comment": "Filters out Nothings and extracts the remaining values.\n\n justs [Just 0, Nothing, Just 5, Just 7] == [0,5,7]", + "raw": "justs : [Maybe a] -\u003e [a]", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "adt", + "name": "Maybe", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + ] + } + ], + "result": { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + } + }, + { + "name": "maybe", + "comment": "Provide a default value and a function to extract the contents of a `Maybe`.\nWhen given `Nothing` you get the default, when given a `Just` you apply the\nfunction to the associated value.\n\n isPositive : Maybe Int -\u003e Bool\n isPositive maybeInt = maybe False (\\n -\u003e n \u003e 0) maybeInt\n\n map : (a -\u003e b) -\u003e Maybe a -\u003e Maybe b\n map f m = maybe Nothing (\\x -\u003e Just (f x)) m", + "raw": "maybe : b -\u003e (a -\u003e b) -\u003e Maybe a -\u003e b", + "type": { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "b" + }, + { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "a" + } + ], + "result": { + "tag": "var", + "name": "b" + } + }, + { + "tag": "adt", + "name": "Maybe", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + ], + "result": { + "tag": "var", + "name": "b" + } + } + } + ] +}, +{ + "name": "Mouse", + "document": "Library for working with mouse input.\n\n# Position\n@docs position, x, y\n\n# Button Status\n@docs isDown, clicks", + "aliases": [], + "datatypes": [], + "values": [ + { + "name": "clicks", + "comment": "Always equal to unit. Event triggers on every mouse click.", + "raw": "clicks : Signal ()", + "type": { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "adt", + "name": "_Tuple0", + "args": [] + } + ] + } + }, + { + "name": "isDown", + "comment": "The current state of the left mouse-button.\nTrue when the button is down, and false otherwise.", + "raw": "isDown : Signal Bool", + "type": { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "adt", + "name": "Bool", + "args": [] + } + ] + } + }, + { + "name": "position", + "comment": "The current mouse position.", + "raw": "position : Signal (Int,Int)", + "type": { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "adt", + "name": "_Tuple2", + "args": [ + { + "tag": "adt", + "name": "Int", + "args": [] + }, + { + "tag": "adt", + "name": "Int", + "args": [] + } + ] + } + ] + } + }, + { + "name": "x", + "comment": "The current x-coordinate of the mouse.", + "raw": "x : Signal Int", + "type": { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "adt", + "name": "Int", + "args": [] + } + ] + } + }, + { + "name": "y", + "comment": "The current y-coordinate of the mouse.", + "raw": "y : Signal Int", + "type": { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "adt", + "name": "Int", + "args": [] + } + ] + } + } + ] +}, +{ + "name": "Random", + "document": "Since the core of Elm is pure, randomness must be handled via signals.\n\n# Random Numbers\n@docs range, float, floatList", + "aliases": [], + "datatypes": [], + "values": [ + { + "name": "float", + "comment": "Produces a new signal that changes whenever the input signal changes.\nThe new values are random numbers in [0..1).", + "raw": "float : Signal a -\u003e Signal Float", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + ], + "result": { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "adt", + "name": "Float", + "args": [] + } + ] + } + } + }, + { + "name": "floatList", + "comment": "Produces a new signal of lists that changes whenever the input signal\nchanges. The input signal specifies the length of the random list. Each value is\na random number in [0..1).", + "raw": "floatList : Signal Int -\u003e Signal [Float]", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "adt", + "name": "Int", + "args": [] + } + ] + } + ], + "result": { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "adt", + "name": "Float", + "args": [] + } + ] + } + ] + } + } + }, + { + "name": "range", + "comment": "Given a range from low to high and a signal of values, this produces\na new signal that changes whenever the input signal changes. The new\nvalues are random number between 'low' and 'high' inclusive.", + "raw": "range : Int -\u003e Int -\u003e Signal a -\u003e Signal Int", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Int", + "args": [] + }, + { + "tag": "adt", + "name": "Int", + "args": [] + }, + { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + ], + "result": { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "adt", + "name": "Int", + "args": [] + } + ] + } + } + } + ] +}, +{ + "name": "Regex", + "document": "A library for working with regular expressions. It uses [the\nsame kind of regular expressions accepted by JavaScript](https://developer.mozilla.org/en/docs/Web/JavaScript/Guide/Regular_Expressions).\n\n# Create\n@docs regex, escape, caseInsensitive\n\n# Helpful Data Structures\n\nThese data structures are needed to help define functions like [`find`](#find)\nand [`replace`](#replace).\n\n@docs HowMany, Match\n\n# Use\n@docs contains, find, replace, split", + "aliases": [ + { + "name": "Match", + "comment": "A `Match` represents all of the details about a particular match in a string.\nHere are details on each field:\n\n * `match` — the full string of the match.\n * `submatches` — a regex might have [subpatterns, surrounded by\n parentheses](https://developer.mozilla.org/en/docs/Web/JavaScript/Guide/Regular_Expressions#Using_Parenthesized_Substring_Matches).\n If there are N subpatterns, there will be N elements in the `submatches` list.\n Each submatch in this list is a `Maybe` because not all subpatterns may trigger.\n For example, `(regex \"(a+)|(b+)\")` will either match many `a`’s or\n many `b`’s, but never both.\n * `index` — the index of the match in the original string.\n * `number` — if you find many matches, you can think of each one\n as being labeled with a `number` starting at one. So the first time you\n find a match, that is match `number` one. Second time is match `number` two.\n This is useful when paired with `replace All` if replacement is dependent on how\n many times a pattern has appeared before.", + "raw": "type Match = { match : String, submatches : [Maybe String], index : Int, number : Int }", + "typeVariables": [], + "type": { + "tag": "record", + "fields": [ + [ + "match", + { + "tag": "adt", + "name": "String", + "args": [] + } + ], + [ + "submatches", + { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "adt", + "name": "Maybe", + "args": [ + { + "tag": "adt", + "name": "String", + "args": [] + } + ] + } + ] + } + ], + [ + "index", + { + "tag": "adt", + "name": "Int", + "args": [] + } + ], + [ + "number", + { + "tag": "adt", + "name": "Int", + "args": [] + } + ] + ], + "extension": null + } + } + ], + "datatypes": [ + { + "name": "HowMany", + "comment": "`HowMany` is used to specify how many matches you want to make. So\n`replace All` would replace every match, but `replace (AtMost 2)` would\nreplace at most two matches (i.e. zero, one, two, but never three or more).", + "raw": "data HowMany = All | AtMost Int", + "typeVariables": [], + "constructors": [ + { + "name": "All", + "type": { + "tag": "adt", + "name": "HowMany", + "args": [] + } + }, + { + "name": "AtMost", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Int", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "HowMany", + "args": [] + } + } + } + ] + }, + { + "name": "Regex", + "comment": "", + "raw": "data Regex = Regex", + "typeVariables": [], + "constructors": [ + { + "name": "Regex", + "type": { + "tag": "adt", + "name": "Regex", + "args": [] + } + } + ] + } + ], + "values": [ + { + "name": "caseInsensitive", + "comment": "Make a regex case insensitive", + "raw": "caseInsensitive : Regex -\u003e Regex", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Regex", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Regex", + "args": [] + } + } + }, + { + "name": "contains", + "comment": "Check to see if a Regex is contained in a string.\n\n```haskell\n contains (regex \"123\") \"12345\" == True\n contains (regex \"b+\") \"aabbcc\" == True\n\n contains (regex \"789\") \"12345\" == False\n contains (regex \"z+\") \"aabbcc\" == False\n```", + "raw": "contains : Regex -\u003e String -\u003e Bool", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Regex", + "args": [] + }, + { + "tag": "adt", + "name": "String", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Bool", + "args": [] + } + } + }, + { + "name": "escape", + "comment": "Escape strings to be regular expressions, making all special characters\nsafe. So `regex (escape \"^a+\")` will match exactly `\"^a+\"` instead of a series\nof `a`’s that start at the beginning of the line.", + "raw": "escape : String -\u003e String", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "String", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "String", + "args": [] + } + } + }, + { + "name": "find", + "comment": "Find matches in a string:\n\n```haskell\n findTwoCommas = find (AtMost 2) (regex \",\")\n\n -- map .index (findTwoCommas \"a,b,c,d,e\") == [1,3]\n -- map .index (findTwoCommas \"a b c d e\") == []\n\n places = find All (regex \"[oi]n a (\\\\w+)\") \"I am on a boat in a lake.\"\n\n -- map .match places == [\"on a boat\", \"in a lake\"]\n -- map .submatches places == [ [Just \"boat\"], [Just \"lake\"] ]\n```", + "raw": "find : HowMany -\u003e Regex -\u003e String -\u003e [Match]", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "HowMany", + "args": [] + }, + { + "tag": "adt", + "name": "Regex", + "args": [] + }, + { + "tag": "adt", + "name": "String", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "adt", + "name": "Match", + "args": [] + } + ] + } + } + }, + { + "name": "regex", + "comment": "Create a Regex that matches patterns [as specified in JavaScript](https://developer.mozilla.org/en/docs/Web/JavaScript/Guide/Regular_Expressions#Writing_a_Regular_Expression_Pattern).\n\nBe careful to escape backslashes properly! For example, `\"\\w\"` is escaping the\nletter `w` which is probably not what you want. You probably want `\"\\\\w\"`\ninstead, which escapes the backslash.", + "raw": "regex : String -\u003e Regex", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "String", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Regex", + "args": [] + } + } + }, + { + "name": "replace", + "comment": "Replace matches. The function from `Match` to `String` lets\nyou use the details of a specific match when making replacements.\n\n```haskell\n devowel = replace All (regex \"[aeiou]\") (\\_ -\u003e \"\")\n\n -- devowel \"The quick brown fox\" == \"Th qck brwn fx\"\n\n reverseWords = replace All (regex \"\\\\w+\") (\\{match} -\u003e String.reverse match)\n\n -- reverseWords \"deliver mined parts\" == \"reviled denim strap\"\n```", + "raw": "replace : HowMany -\u003e Regex -\u003e (Match -\u003e String) -\u003e String -\u003e String", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "HowMany", + "args": [] + }, + { + "tag": "adt", + "name": "Regex", + "args": [] + }, + { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Match", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "String", + "args": [] + } + }, + { + "tag": "adt", + "name": "String", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "String", + "args": [] + } + } + }, + { + "name": "split", + "comment": "Split a string, using the regex as the separator.\n\n```haskell\n split (AtMost 1) (regex \",\") \"tom,99,90,85\" == [\"tom\",\"99,90,85\"]\n\n split All (regex \",\") \"a,b,c,d\" == [\"a\",\"b\",\"c\",\"d\"]\n```", + "raw": "split : HowMany -\u003e Regex -\u003e String -\u003e [String]", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "HowMany", + "args": [] + }, + { + "tag": "adt", + "name": "Regex", + "args": [] + }, + { + "tag": "adt", + "name": "String", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "adt", + "name": "String", + "args": [] + } + ] + } + } + } + ] +}, +{ + "name": "Set", + "document": "A set of unique values. The values can be any comparable type. This\nincludes `Int`, `Float`, `Time`, `Char`, `String`, and tuples or lists\nof comparable types.\n\nInsert, remove, and query operations all take *O(log n)* time.\n\n# Build\n@docs empty, singleton, insert, remove\n\n# Query\n@docs member\n\n# Combine\n@docs union, intersect, diff\n\n# Lists\n@docs toList, fromList\n\n# Transform\n@docs map, foldl, foldr, filter, partition", + "aliases": [], + "datatypes": [], + "values": [ + { + "name": "diff", + "comment": "Get the difference between the first set and the second. Keeps values\nthat do not appear in the second set.", + "raw": "diff : Set comparable -\u003e Set comparable -\u003e Set comparable", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Set", + "args": [ + { + "tag": "var", + "name": "comparable" + } + ] + }, + { + "tag": "adt", + "name": "Set", + "args": [ + { + "tag": "var", + "name": "comparable" + } + ] + } + ], + "result": { + "tag": "adt", + "name": "Set", + "args": [ + { + "tag": "var", + "name": "comparable" + } + ] + } + } + }, + { + "name": "empty", + "comment": "Create an empty set.", + "raw": "empty : Set comparable", + "type": { + "tag": "adt", + "name": "Set", + "args": [ + { + "tag": "var", + "name": "comparable" + } + ] + } + }, + { + "name": "filter", + "comment": "Create a new set consisting only of elements which satisfy a predicate.", + "raw": "filter : (comparable -\u003e Bool) -\u003e Set comparable -\u003e Set comparable", + "type": { + "tag": "function", + "args": [ + { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "comparable" + } + ], + "result": { + "tag": "adt", + "name": "Bool", + "args": [] + } + }, + { + "tag": "adt", + "name": "Set", + "args": [ + { + "tag": "var", + "name": "comparable" + } + ] + } + ], + "result": { + "tag": "adt", + "name": "Set", + "args": [ + { + "tag": "var", + "name": "comparable" + } + ] + } + } + }, + { + "name": "foldl", + "comment": "Fold over the values in a set, in order from lowest to highest.", + "raw": "foldl : (comparable -\u003e b -\u003e b) -\u003e b -\u003e Set comparable -\u003e b", + "type": { + "tag": "function", + "args": [ + { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "comparable" + }, + { + "tag": "var", + "name": "b" + } + ], + "result": { + "tag": "var", + "name": "b" + } + }, + { + "tag": "var", + "name": "b" + }, + { + "tag": "adt", + "name": "Set", + "args": [ + { + "tag": "var", + "name": "comparable" + } + ] + } + ], + "result": { + "tag": "var", + "name": "b" + } + } + }, + { + "name": "foldr", + "comment": "Fold over the values in a set, in order from highest to lowest.", + "raw": "foldr : (comparable -\u003e b -\u003e b) -\u003e b -\u003e Set comparable -\u003e b", + "type": { + "tag": "function", + "args": [ + { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "comparable" + }, + { + "tag": "var", + "name": "b" + } + ], + "result": { + "tag": "var", + "name": "b" + } + }, + { + "tag": "var", + "name": "b" + }, + { + "tag": "adt", + "name": "Set", + "args": [ + { + "tag": "var", + "name": "comparable" + } + ] + } + ], + "result": { + "tag": "var", + "name": "b" + } + } + }, + { + "name": "fromList", + "comment": "Convert a list into a set, removing any duplicates.", + "raw": "fromList : [comparable] -\u003e Set comparable", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "var", + "name": "comparable" + } + ] + } + ], + "result": { + "tag": "adt", + "name": "Set", + "args": [ + { + "tag": "var", + "name": "comparable" + } + ] + } + } + }, + { + "name": "insert", + "comment": "Insert a value into a set.", + "raw": "insert : comparable -\u003e Set comparable -\u003e Set comparable", + "type": { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "comparable" + }, + { + "tag": "adt", + "name": "Set", + "args": [ + { + "tag": "var", + "name": "comparable" + } + ] + } + ], + "result": { + "tag": "adt", + "name": "Set", + "args": [ + { + "tag": "var", + "name": "comparable" + } + ] + } + } + }, + { + "name": "intersect", + "comment": "Get the intersection of two sets. Keeps values that appear in both sets.", + "raw": "intersect : Set comparable -\u003e Set comparable -\u003e Set comparable", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Set", + "args": [ + { + "tag": "var", + "name": "comparable" + } + ] + }, + { + "tag": "adt", + "name": "Set", + "args": [ + { + "tag": "var", + "name": "comparable" + } + ] + } + ], + "result": { + "tag": "adt", + "name": "Set", + "args": [ + { + "tag": "var", + "name": "comparable" + } + ] + } + } + }, + { + "name": "map", + "comment": "Map a function onto a set, creating a new set with no duplicates.", + "raw": "map : (comparable -\u003e comparable') -\u003e Set comparable -\u003e Set comparable'", + "type": { + "tag": "function", + "args": [ + { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "comparable" + } + ], + "result": { + "tag": "var", + "name": "comparable'" + } + }, + { + "tag": "adt", + "name": "Set", + "args": [ + { + "tag": "var", + "name": "comparable" + } + ] + } + ], + "result": { + "tag": "adt", + "name": "Set", + "args": [ + { + "tag": "var", + "name": "comparable'" + } + ] + } + } + }, + { + "name": "member", + "comment": "Determine if a value is in a set.", + "raw": "member : comparable -\u003e Set comparable -\u003e Bool", + "type": { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "comparable" + }, + { + "tag": "adt", + "name": "Set", + "args": [ + { + "tag": "var", + "name": "comparable" + } + ] + } + ], + "result": { + "tag": "adt", + "name": "Bool", + "args": [] + } + } + }, + { + "name": "partition", + "comment": "Create two new sets; the first consisting of elements which satisfy a\npredicate, the second consisting of elements which do not.", + "raw": "partition : (comparable -\u003e Bool) -\u003e Set comparable -\u003e (Set comparable, Set comparable)", + "type": { + "tag": "function", + "args": [ + { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "comparable" + } + ], + "result": { + "tag": "adt", + "name": "Bool", + "args": [] + } + }, + { + "tag": "adt", + "name": "Set", + "args": [ + { + "tag": "var", + "name": "comparable" + } + ] + } + ], + "result": { + "tag": "adt", + "name": "_Tuple2", + "args": [ + { + "tag": "adt", + "name": "Set", + "args": [ + { + "tag": "var", + "name": "comparable" + } + ] + }, + { + "tag": "adt", + "name": "Set", + "args": [ + { + "tag": "var", + "name": "comparable" + } + ] + } + ] + } + } + }, + { + "name": "remove", + "comment": "Remove a value from a set. If the value is not found, no changes are made.", + "raw": "remove : comparable -\u003e Set comparable -\u003e Set comparable", + "type": { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "comparable" + }, + { + "tag": "adt", + "name": "Set", + "args": [ + { + "tag": "var", + "name": "comparable" + } + ] + } + ], + "result": { + "tag": "adt", + "name": "Set", + "args": [ + { + "tag": "var", + "name": "comparable" + } + ] + } + } + }, + { + "name": "singleton", + "comment": "Create a set with one value.", + "raw": "singleton : comparable -\u003e Set comparable", + "type": { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "comparable" + } + ], + "result": { + "tag": "adt", + "name": "Set", + "args": [ + { + "tag": "var", + "name": "comparable" + } + ] + } + } + }, + { + "name": "toList", + "comment": "Convert a set into a list.", + "raw": "toList : Set comparable -\u003e [comparable]", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Set", + "args": [ + { + "tag": "var", + "name": "comparable" + } + ] + } + ], + "result": { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "var", + "name": "comparable" + } + ] + } + } + }, + { + "name": "union", + "comment": "Get the union of two sets. Keep all values.", + "raw": "union : Set comparable -\u003e Set comparable -\u003e Set comparable", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Set", + "args": [ + { + "tag": "var", + "name": "comparable" + } + ] + }, + { + "tag": "adt", + "name": "Set", + "args": [ + { + "tag": "var", + "name": "comparable" + } + ] + } + ], + "result": { + "tag": "adt", + "name": "Set", + "args": [ + { + "tag": "var", + "name": "comparable" + } + ] + } + } + } + ] +}, +{ + "name": "Signal", + "document": "The library for general signal manipulation. Includes lift functions up to\n`lift8` and infix lift operators `\u003c~` and `~`, combinations, filters, and\npast-dependence.\n\nSignals are time-varying values. Lifted functions are reevaluated whenever any of\ntheir input signals has an event. Signal events may be of the same value as the\nprevious value of the signal. Such signals are useful for timing and\npast-dependence.\n\nSome useful functions for working with time (e.g. setting FPS) and combining\nsignals and time (e.g. delaying updates, getting timestamps) can be found in\nthe `Time` library.\n\n# Combine\n@docs constant, lift, lift2, merge, merges, combine\n\n# Past-Dependence\n@docs foldp, count, countIf\n\n#Filters\n@docs keepIf, dropIf, keepWhen, dropWhen, dropRepeats, sampleOn\n\n# Pretty Lift\n@docs (\u003c~), (~)\n\n# Do you even lift?\n@docs lift3, lift4, lift5, lift6, lift7, lift8", + "aliases": [], + "datatypes": [ + { + "name": "Signal", + "comment": "", + "raw": "data Signal a = Signal", + "typeVariables": [ + "a" + ], + "constructors": [ + { + "name": "Signal", + "type": { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + } + ] + } + ], + "values": [ + { + "name": "\u003c~", + "comment": "An alias for `lift`. A prettier way to apply a function to the current value\nof a signal.", + "raw": "(\u003c~) : (a -\u003e b) -\u003e Signal a -\u003e Signal b", + "type": { + "tag": "function", + "args": [ + { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "a" + } + ], + "result": { + "tag": "var", + "name": "b" + } + }, + { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + ], + "result": { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "var", + "name": "b" + } + ] + } + }, + "associativity": "left", + "precedence": 4 + }, + { + "name": "combine", + "comment": "Combine a list of signals into a signal of lists.", + "raw": "combine : [Signal a] -\u003e Signal [a]", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + ] + } + ], + "result": { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + ] + } + } + }, + { + "name": "constant", + "comment": "Create a constant signal that never changes.", + "raw": "constant : a -\u003e Signal a", + "type": { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "a" + } + ], + "result": { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + } + }, + { + "name": "count", + "comment": "Count the number of events that have occurred.", + "raw": "count : Signal a -\u003e Signal Int", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + ], + "result": { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "adt", + "name": "Int", + "args": [] + } + ] + } + } + }, + { + "name": "countIf", + "comment": "Count the number of events that have occurred that satisfy a given predicate.", + "raw": "countIf : (a -\u003e Bool) -\u003e Signal a -\u003e Signal Int", + "type": { + "tag": "function", + "args": [ + { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "a" + } + ], + "result": { + "tag": "adt", + "name": "Bool", + "args": [] + } + }, + { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + ], + "result": { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "adt", + "name": "Int", + "args": [] + } + ] + } + } + }, + { + "name": "dropIf", + "comment": "Drop events that satisfy the given predicate. Elm does not allow undefined\nsignals, so a base case must be provided in case the predicate is satisfied\ninitially.", + "raw": "dropIf : (a -\u003e Bool) -\u003e a -\u003e Signal a -\u003e Signal a", + "type": { + "tag": "function", + "args": [ + { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "a" + } + ], + "result": { + "tag": "adt", + "name": "Bool", + "args": [] + } + }, + { + "tag": "var", + "name": "a" + }, + { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + ], + "result": { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + } + }, + { + "name": "dropRepeats", + "comment": "Drop updates that repeat the current value of the signal.\n\nImagine a signal `numbers` has initial value\n0 and then updates with values 0, 0, 1, 1, and 2. `dropRepeats numbers`\nis a signal that has initial value 0 and updates as follows: ignore 0,\nignore 0, update to 1, ignore 1, update to 2.", + "raw": "dropRepeats : Signal a -\u003e Signal a", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + ], + "result": { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + } + }, + { + "name": "dropWhen", + "comment": "Drop events when the first signal is true. Elm does not allow undefined\nsignals, so a base case must be provided in case the first signal is true\ninitially.", + "raw": "dropWhen : Signal Bool -\u003e a -\u003e Signal a -\u003e Signal a", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "adt", + "name": "Bool", + "args": [] + } + ] + }, + { + "tag": "var", + "name": "a" + }, + { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + ], + "result": { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + } + }, + { + "name": "foldp", + "comment": "Create a past-dependent signal. Each value given on the input signal will\nbe accumulated, producing a new output value.\n\nFor instance, `foldp (+) 0 (fps 40)` is the time the program has been running,\nupdated 40 times a second.", + "raw": "foldp : (a -\u003e b -\u003e b) -\u003e b -\u003e Signal a -\u003e Signal b", + "type": { + "tag": "function", + "args": [ + { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "a" + }, + { + "tag": "var", + "name": "b" + } + ], + "result": { + "tag": "var", + "name": "b" + } + }, + { + "tag": "var", + "name": "b" + }, + { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + ], + "result": { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "var", + "name": "b" + } + ] + } + } + }, + { + "name": "keepIf", + "comment": "Keep only events that satisfy the given predicate. Elm does not allow\nundefined signals, so a base case must be provided in case the predicate is\nnot satisfied initially.", + "raw": "keepIf : (a -\u003e Bool) -\u003e a -\u003e Signal a -\u003e Signal a", + "type": { + "tag": "function", + "args": [ + { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "a" + } + ], + "result": { + "tag": "adt", + "name": "Bool", + "args": [] + } + }, + { + "tag": "var", + "name": "a" + }, + { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + ], + "result": { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + } + }, + { + "name": "keepWhen", + "comment": "Keep events only when the first signal is true. Elm does not allow undefined\nsignals, so a base case must be provided in case the first signal is not true\ninitially.", + "raw": "keepWhen : Signal Bool -\u003e a -\u003e Signal a -\u003e Signal a", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "adt", + "name": "Bool", + "args": [] + } + ] + }, + { + "tag": "var", + "name": "a" + }, + { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + ], + "result": { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + } + }, + { + "name": "lift", + "comment": "Transform a signal with a given function.", + "raw": "lift : (a -\u003e b) -\u003e Signal a -\u003e Signal b", + "type": { + "tag": "function", + "args": [ + { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "a" + } + ], + "result": { + "tag": "var", + "name": "b" + } + }, + { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + ], + "result": { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "var", + "name": "b" + } + ] + } + } + }, + { + "name": "lift2", + "comment": "Combine two signals with a given function.", + "raw": "lift2 : (a -\u003e b -\u003e c) -\u003e Signal a -\u003e Signal b -\u003e Signal c", + "type": { + "tag": "function", + "args": [ + { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "a" + }, + { + "tag": "var", + "name": "b" + } + ], + "result": { + "tag": "var", + "name": "c" + } + }, + { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + }, + { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "var", + "name": "b" + } + ] + } + ], + "result": { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "var", + "name": "c" + } + ] + } + } + }, + { + "name": "lift3", + "comment": "", + "raw": "lift3 : (a -\u003e b -\u003e c -\u003e d) -\u003e Signal a -\u003e Signal b -\u003e Signal c -\u003e Signal d", + "type": { + "tag": "function", + "args": [ + { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "a" + }, + { + "tag": "var", + "name": "b" + }, + { + "tag": "var", + "name": "c" + } + ], + "result": { + "tag": "var", + "name": "d" + } + }, + { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + }, + { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "var", + "name": "b" + } + ] + }, + { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "var", + "name": "c" + } + ] + } + ], + "result": { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "var", + "name": "d" + } + ] + } + } + }, + { + "name": "lift4", + "comment": "", + "raw": "lift4 : (a -\u003e b -\u003e c -\u003e d -\u003e e) -\u003e Signal a -\u003e Signal b -\u003e Signal c -\u003e Signal d -\u003e Signal e", + "type": { + "tag": "function", + "args": [ + { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "a" + }, + { + "tag": "var", + "name": "b" + }, + { + "tag": "var", + "name": "c" + }, + { + "tag": "var", + "name": "d" + } + ], + "result": { + "tag": "var", + "name": "e" + } + }, + { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + }, + { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "var", + "name": "b" + } + ] + }, + { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "var", + "name": "c" + } + ] + }, + { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "var", + "name": "d" + } + ] + } + ], + "result": { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "var", + "name": "e" + } + ] + } + } + }, + { + "name": "lift5", + "comment": "", + "raw": "lift5 : (a -\u003e b -\u003e c -\u003e d -\u003e e -\u003e f) -\u003e Signal a -\u003e Signal b -\u003e Signal c -\u003e Signal d -\u003e Signal e -\u003e Signal f", + "type": { + "tag": "function", + "args": [ + { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "a" + }, + { + "tag": "var", + "name": "b" + }, + { + "tag": "var", + "name": "c" + }, + { + "tag": "var", + "name": "d" + }, + { + "tag": "var", + "name": "e" + } + ], + "result": { + "tag": "var", + "name": "f" + } + }, + { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + }, + { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "var", + "name": "b" + } + ] + }, + { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "var", + "name": "c" + } + ] + }, + { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "var", + "name": "d" + } + ] + }, + { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "var", + "name": "e" + } + ] + } + ], + "result": { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "var", + "name": "f" + } + ] + } + } + }, + { + "name": "lift6", + "comment": "", + "raw": "lift6 : (a -\u003e b -\u003e c -\u003e d -\u003e e -\u003e f -\u003e g)\n -\u003e Signal a -\u003e Signal b -\u003e Signal c -\u003e Signal d -\u003e Signal e -\u003e Signal f -\u003e Signal g", + "type": { + "tag": "function", + "args": [ + { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "a" + }, + { + "tag": "var", + "name": "b" + }, + { + "tag": "var", + "name": "c" + }, + { + "tag": "var", + "name": "d" + }, + { + "tag": "var", + "name": "e" + }, + { + "tag": "var", + "name": "f" + } + ], + "result": { + "tag": "var", + "name": "g" + } + }, + { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + }, + { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "var", + "name": "b" + } + ] + }, + { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "var", + "name": "c" + } + ] + }, + { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "var", + "name": "d" + } + ] + }, + { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "var", + "name": "e" + } + ] + }, + { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "var", + "name": "f" + } + ] + } + ], + "result": { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "var", + "name": "g" + } + ] + } + } + }, + { + "name": "lift7", + "comment": "", + "raw": "lift7 : (a -\u003e b -\u003e c -\u003e d -\u003e e -\u003e f -\u003e g -\u003e h)\n -\u003e Signal a -\u003e Signal b -\u003e Signal c -\u003e Signal d -\u003e Signal e -\u003e Signal f -\u003e Signal g -\u003e Signal h", + "type": { + "tag": "function", + "args": [ + { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "a" + }, + { + "tag": "var", + "name": "b" + }, + { + "tag": "var", + "name": "c" + }, + { + "tag": "var", + "name": "d" + }, + { + "tag": "var", + "name": "e" + }, + { + "tag": "var", + "name": "f" + }, + { + "tag": "var", + "name": "g" + } + ], + "result": { + "tag": "var", + "name": "h" + } + }, + { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + }, + { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "var", + "name": "b" + } + ] + }, + { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "var", + "name": "c" + } + ] + }, + { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "var", + "name": "d" + } + ] + }, + { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "var", + "name": "e" + } + ] + }, + { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "var", + "name": "f" + } + ] + }, + { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "var", + "name": "g" + } + ] + } + ], + "result": { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "var", + "name": "h" + } + ] + } + } + }, + { + "name": "lift8", + "comment": "", + "raw": "lift8 : (a -\u003e b -\u003e c -\u003e d -\u003e e -\u003e f -\u003e g -\u003e h -\u003e i)\n -\u003e Signal a -\u003e Signal b -\u003e Signal c -\u003e Signal d -\u003e Signal e -\u003e Signal f -\u003e Signal g -\u003e Signal h -\u003e Signal i", + "type": { + "tag": "function", + "args": [ + { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "a" + }, + { + "tag": "var", + "name": "b" + }, + { + "tag": "var", + "name": "c" + }, + { + "tag": "var", + "name": "d" + }, + { + "tag": "var", + "name": "e" + }, + { + "tag": "var", + "name": "f" + }, + { + "tag": "var", + "name": "g" + }, + { + "tag": "var", + "name": "h" + } + ], + "result": { + "tag": "var", + "name": "i" + } + }, + { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + }, + { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "var", + "name": "b" + } + ] + }, + { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "var", + "name": "c" + } + ] + }, + { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "var", + "name": "d" + } + ] + }, + { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "var", + "name": "e" + } + ] + }, + { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "var", + "name": "f" + } + ] + }, + { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "var", + "name": "g" + } + ] + }, + { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "var", + "name": "h" + } + ] + } + ], + "result": { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "var", + "name": "i" + } + ] + } + } + }, + { + "name": "merge", + "comment": "Merge two signals into one, biased towards the first signal if both signals\nupdate at the same time.", + "raw": "merge : Signal a -\u003e Signal a -\u003e Signal a", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + }, + { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + ], + "result": { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + } + }, + { + "name": "merges", + "comment": "Merge many signals into one, biased towards the left-most signal if multiple\nsignals update simultaneously.", + "raw": "merges : [Signal a] -\u003e Signal a", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + ] + } + ], + "result": { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + } + }, + { + "name": "sampleOn", + "comment": "Sample from the second input every time an event occurs on the first input.\nFor example, `(sampleOn clicks (every second))` will give the approximate time\nof the latest click.", + "raw": "sampleOn : Signal a -\u003e Signal b -\u003e Signal b", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + }, + { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "var", + "name": "b" + } + ] + } + ], + "result": { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "var", + "name": "b" + } + ] + } + } + }, + { + "name": "~", + "comment": "Informally, an alias for `liftN`. Intersperse it between additional signal\narguments of the lifted function.\n\nFormally, signal application. This takes two signals, holding a function and\na value. It applies the current function to the current value.\n\nThe following expressions are equivalent:\n\n scene \u003c~ Window.dimensions ~ Mouse.position\n lift2 scene Window.dimensions Mouse.position", + "raw": "(~) : Signal (a -\u003e b) -\u003e Signal a -\u003e Signal b", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "a" + } + ], + "result": { + "tag": "var", + "name": "b" + } + } + ] + }, + { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + ], + "result": { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "var", + "name": "b" + } + ] + } + }, + "associativity": "left", + "precedence": 4 + } + ] +}, +{ + "name": "String", + "document": "A built-in representation for efficient string manipulation. String literals\nare enclosed in `\"double quotes\"`. Strings are *not* lists of characters.\n\n# Basics\n@docs isEmpty, length, reverse, repeat\n\n# Building and Splitting\n@docs cons, uncons, append, concat, split, join, words, lines\n\n# Get Substrings\n@docs slice, left, right, dropLeft, dropRight\n\n# Check for Substrings\n@docs contains, startsWith, endsWith, indexes, indices\n\n# Conversions\n@docs show, toInt, toFloat, toList, fromList\n\n# Formatting\nCosmetic operations such as padding with extra characters or trimming whitespace.\n\n@docs toUpper, toLower,\n pad, padLeft, padRight,\n trim, trimLeft, trimRight\n\n# Higher-Order Functions\n@docs map, filter, foldl, foldr, any, all", + "aliases": [], + "datatypes": [], + "values": [ + { + "name": "all", + "comment": "Check to see if *all* characters satisfy a predicate.\n\n all isDigit \"90210\" == True\n all isDigit \"R2-D2\" == False\n all isDigit \"heart\" == False", + "raw": "all : (Char -\u003e Bool) -\u003e String -\u003e Bool", + "type": { + "tag": "function", + "args": [ + { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Char", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Bool", + "args": [] + } + }, + { + "tag": "adt", + "name": "String", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Bool", + "args": [] + } + } + }, + { + "name": "any", + "comment": "Check to see if *any* characters satisfy a predicate.\n\n any isDigit \"90210\" == True\n any isDigit \"R2-D2\" == True\n any isDigit \"heart\" == False", + "raw": "any : (Char -\u003e Bool) -\u003e String -\u003e Bool", + "type": { + "tag": "function", + "args": [ + { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Char", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Bool", + "args": [] + } + }, + { + "tag": "adt", + "name": "String", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Bool", + "args": [] + } + } + }, + { + "name": "append", + "comment": "Append two strings. You can also use [the `(++)` operator](/library/List.elm#++)\nto do this.\n\n append \"butter\" \"fly\" == \"butterfly\"", + "raw": "append : String -\u003e String -\u003e String", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "String", + "args": [] + }, + { + "tag": "adt", + "name": "String", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "String", + "args": [] + } + } + }, + { + "name": "concat", + "comment": "Concatenate many strings into one.\n\n concat [\"never\",\"the\",\"less\"] == \"nevertheless\"", + "raw": "concat : [String] -\u003e String", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "adt", + "name": "String", + "args": [] + } + ] + } + ], + "result": { + "tag": "adt", + "name": "String", + "args": [] + } + } + }, + { + "name": "cons", + "comment": "Add a character to the beginning of a string", + "raw": "cons : Char -\u003e String -\u003e String", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Char", + "args": [] + }, + { + "tag": "adt", + "name": "String", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "String", + "args": [] + } + } + }, + { + "name": "contains", + "comment": "See if a string contains another one.\n\n contains \"the\" \"theory\" == True\n contains \"hat\" \"theory\" == False\n contains \"THE\" \"theory\" == False\n\nUse `Regex.contains` if you need something more flexible.", + "raw": "contains : String -\u003e String -\u003e Bool", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "String", + "args": [] + }, + { + "tag": "adt", + "name": "String", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Bool", + "args": [] + } + } + }, + { + "name": "dropLeft", + "comment": "Drop N characters from the left side of a string.", + "raw": "dropLeft : Int -\u003e String -\u003e String", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Int", + "args": [] + }, + { + "tag": "adt", + "name": "String", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "String", + "args": [] + } + } + }, + { + "name": "dropRight", + "comment": "Drop N characters from the right side of a string.", + "raw": "dropRight : Int -\u003e String -\u003e String", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Int", + "args": [] + }, + { + "tag": "adt", + "name": "String", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "String", + "args": [] + } + } + }, + { + "name": "endsWith", + "comment": "See if a string ends with another one.\n\n endsWith \"the\" \"theory\" == False\n endsWith \"ory\" \"theory\" == True", + "raw": "endsWith : String -\u003e String -\u003e Bool", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "String", + "args": [] + }, + { + "tag": "adt", + "name": "String", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Bool", + "args": [] + } + } + }, + { + "name": "filter", + "comment": "Keep only the characters that satisfy the predicate:\n\n filter isDigit \"R2-D2\" == \"22\"", + "raw": "filter : (Char -\u003e Bool) -\u003e String -\u003e String", + "type": { + "tag": "function", + "args": [ + { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Char", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Bool", + "args": [] + } + }, + { + "tag": "adt", + "name": "String", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "String", + "args": [] + } + } + }, + { + "name": "foldl", + "comment": "Reduce a string from the left:\n\n foldl cons \"\" \"time\" == \"emit\"", + "raw": "foldl : (Char -\u003e b -\u003e b) -\u003e b -\u003e String -\u003e b", + "type": { + "tag": "function", + "args": [ + { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Char", + "args": [] + }, + { + "tag": "var", + "name": "b" + } + ], + "result": { + "tag": "var", + "name": "b" + } + }, + { + "tag": "var", + "name": "b" + }, + { + "tag": "adt", + "name": "String", + "args": [] + } + ], + "result": { + "tag": "var", + "name": "b" + } + } + }, + { + "name": "foldr", + "comment": "Reduce a string from the right:\n\n foldr cons \"\" \"time\" == \"time\"", + "raw": "foldr : (Char -\u003e b -\u003e b) -\u003e b -\u003e String -\u003e b", + "type": { + "tag": "function", + "args": [ + { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Char", + "args": [] + }, + { + "tag": "var", + "name": "b" + } + ], + "result": { + "tag": "var", + "name": "b" + } + }, + { + "tag": "var", + "name": "b" + }, + { + "tag": "adt", + "name": "String", + "args": [] + } + ], + "result": { + "tag": "var", + "name": "b" + } + } + }, + { + "name": "fromList", + "comment": "Convert a list of characters into a String. Can be useful if you\nwant to create a string primarly by consing, perhaps for decoding\nsomething.\n\n fromList ['a','b','c'] == \"abc\"", + "raw": "fromList : [Char] -\u003e String", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "adt", + "name": "Char", + "args": [] + } + ] + } + ], + "result": { + "tag": "adt", + "name": "String", + "args": [] + } + } + }, + { + "name": "indexes", + "comment": "Get all of the indexes for a substring.\n\n indexes \"i\" \"Mississippi\" == [1,4,7,10]\n indexes \"ss\" \"Mississippi\" == [2,5]\n indexes \"needle\" \"haystack\" == []", + "raw": "indexes : String -\u003e String -\u003e [Int]", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "String", + "args": [] + }, + { + "tag": "adt", + "name": "String", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "adt", + "name": "Int", + "args": [] + } + ] + } + } + }, + { + "name": "indices", + "comment": "Alias for `indexes`", + "raw": "indices : String -\u003e String -\u003e [Int]", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "String", + "args": [] + }, + { + "tag": "adt", + "name": "String", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "adt", + "name": "Int", + "args": [] + } + ] + } + } + }, + { + "name": "isEmpty", + "comment": "Check if a string is empty.\n\n isEmpty \"\" == True\n isEmpty \"the world\" == False", + "raw": "isEmpty : String -\u003e Bool", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "String", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Bool", + "args": [] + } + } + }, + { + "name": "join", + "comment": "Put many strings together with a given separator.\n\n join \" \" [\"cat\",\"dog\",\"cow\"] == \"cat dog cow\"\n join \"/\" [\"home\",\"evan\",\"Desktop\"] == \"home/evan/Desktop\"", + "raw": "join : String -\u003e [String] -\u003e String", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "String", + "args": [] + }, + { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "adt", + "name": "String", + "args": [] + } + ] + } + ], + "result": { + "tag": "adt", + "name": "String", + "args": [] + } + } + }, + { + "name": "left", + "comment": "Take N characters from the left side of a string.", + "raw": "left : Int -\u003e String -\u003e String", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Int", + "args": [] + }, + { + "tag": "adt", + "name": "String", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "String", + "args": [] + } + } + }, + { + "name": "length", + "comment": "Get the length of a string.\n\n length \"innumerable\" == 11", + "raw": "length : String -\u003e Int", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "String", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Int", + "args": [] + } + } + }, + { + "name": "lines", + "comment": "Break a string into lines, splitting on newlines.\n\n lines \"How are you?\\nGood? == [\"How are you?\", \"Good?\"]", + "raw": "lines : String -\u003e [String]", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "String", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "adt", + "name": "String", + "args": [] + } + ] + } + } + }, + { + "name": "map", + "comment": "Transform every character in a string\n\n map (\\c -\u003e if c == '/' then '.' else c) \"a/b/c\" == \"a.b.c\"", + "raw": "map : (Char -\u003e Char) -\u003e String -\u003e String", + "type": { + "tag": "function", + "args": [ + { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Char", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Char", + "args": [] + } + }, + { + "tag": "adt", + "name": "String", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "String", + "args": [] + } + } + }, + { + "name": "pad", + "comment": "Pad a string on both sides until it has a given length.\n\n pad 5 ' ' \"1\" == \" 1 \"\n pad 5 ' ' \"11\" == \" 11 \"\n pad 5 ' ' \"121\" == \" 121 \"", + "raw": "pad : Int -\u003e Char -\u003e String -\u003e String", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Int", + "args": [] + }, + { + "tag": "adt", + "name": "Char", + "args": [] + }, + { + "tag": "adt", + "name": "String", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "String", + "args": [] + } + } + }, + { + "name": "padLeft", + "comment": "Pad a string on the left until it has a given length.\n\n padLeft 5 '.' \"1\" == \"....1\"\n padLeft 5 '.' \"11\" == \"...11\"\n padLeft 5 '.' \"121\" == \"..121\"", + "raw": "padLeft : Int -\u003e Char -\u003e String -\u003e String", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Int", + "args": [] + }, + { + "tag": "adt", + "name": "Char", + "args": [] + }, + { + "tag": "adt", + "name": "String", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "String", + "args": [] + } + } + }, + { + "name": "padRight", + "comment": "Pad a string on the right until it has a given length.\n\n padRight 5 '.' \"1\" == \"1....\"\n padRight 5 '.' \"11\" == \"11...\"\n padRight 5 '.' \"121\" == \"121..\"", + "raw": "padRight : Int -\u003e Char -\u003e String -\u003e String", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Int", + "args": [] + }, + { + "tag": "adt", + "name": "Char", + "args": [] + }, + { + "tag": "adt", + "name": "String", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "String", + "args": [] + } + } + }, + { + "name": "repeat", + "comment": "Repeat a string N times.\n\n repeat 3 \"ha\" == \"hahaha\"", + "raw": "repeat : Int -\u003e String -\u003e String", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Int", + "args": [] + }, + { + "tag": "adt", + "name": "String", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "String", + "args": [] + } + } + }, + { + "name": "reverse", + "comment": "Reverse a string.\n\n reverse \"stressed\" == \"desserts\"", + "raw": "reverse : String -\u003e String", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "String", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "String", + "args": [] + } + } + }, + { + "name": "right", + "comment": "Take N characters from the right side of a string.", + "raw": "right : Int -\u003e String -\u003e String", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Int", + "args": [] + }, + { + "tag": "adt", + "name": "String", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "String", + "args": [] + } + } + }, + { + "name": "show", + "comment": "Turn any kind of value into a string.\n\n show 42 == \"42\"\n show [1,2] == \"[1,2]\"", + "raw": "show : a -\u003e String", + "type": { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "a" + } + ], + "result": { + "tag": "adt", + "name": "String", + "args": [] + } + } + }, + { + "name": "slice", + "comment": "Take a substring given a start and end index. Negative indexes\nare taken starting from the *end* of the list.\n\n slice 7 9 \"snakes on a plane!\" == \"on\"\n slice 0 6 \"snakes on a plane!\" == \"snakes\"\n slice 0 -7 \"snakes on a plane!\" == \"snakes on a\"\n slice -6 -1 \"snakes on a plane!\" == \"plane\"", + "raw": "slice : Int -\u003e Int -\u003e String -\u003e String", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Int", + "args": [] + }, + { + "tag": "adt", + "name": "Int", + "args": [] + }, + { + "tag": "adt", + "name": "String", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "String", + "args": [] + } + } + }, + { + "name": "split", + "comment": "Split a string using a given separator.\n\n split \",\" \"cat,dog,cow\" == [\"cat\",\"dog\",\"cow\"]\n split \"/\" \"home/evan/Desktop/\" == [\"home\",\"evan\",\"Desktop\", \"\"]\n\nUse `Regex.split` if you need something more flexible.", + "raw": "split : String -\u003e String -\u003e [String]", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "String", + "args": [] + }, + { + "tag": "adt", + "name": "String", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "adt", + "name": "String", + "args": [] + } + ] + } + } + }, + { + "name": "startsWith", + "comment": "See if a string starts with another one.\n\n startsWith \"the\" \"theory\" == True\n startsWith \"ory\" \"theory\" == False", + "raw": "startsWith : String -\u003e String -\u003e Bool", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "String", + "args": [] + }, + { + "tag": "adt", + "name": "String", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Bool", + "args": [] + } + } + }, + { + "name": "toFloat", + "comment": "Try to convert a string into a float, failing on improperly formatted strings.\n\n toFloat \"123\" == Just 123.0\n toFloat \"-42\" == Just -42.0\n toFloat \"3.1\" == Just 3.1\n toFloat \"31a\" == Nothing", + "raw": "toFloat : String -\u003e Maybe Float", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "String", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Maybe", + "args": [ + { + "tag": "adt", + "name": "Float", + "args": [] + } + ] + } + } + }, + { + "name": "toInt", + "comment": "Try to convert a string into an int, failing on improperly formatted strings.\n\n toInt \"123\" == Just 123\n toInt \"-42\" == Just -42\n toInt \"3.1\" == Nothing\n toInt \"31a\" == Nothing", + "raw": "toInt : String -\u003e Maybe Int", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "String", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Maybe", + "args": [ + { + "tag": "adt", + "name": "Int", + "args": [] + } + ] + } + } + }, + { + "name": "toList", + "comment": "Convert a string to a list of characters.\n\n toList \"abc\" == ['a','b','c']", + "raw": "toList : String -\u003e [Char]", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "String", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "adt", + "name": "Char", + "args": [] + } + ] + } + } + }, + { + "name": "toLower", + "comment": "Convert a string to all lower case. Useful for case insensitive comparisons.", + "raw": "toLower : String -\u003e String", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "String", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "String", + "args": [] + } + } + }, + { + "name": "toUpper", + "comment": "Convert a string to all upper case. Useful for case insensitive comparisons\nand VIRTUAL YELLING.", + "raw": "toUpper : String -\u003e String", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "String", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "String", + "args": [] + } + } + }, + { + "name": "trim", + "comment": "Get rid of whitespace on both sides of a string.\n\n trim \" hats \\n\" == \"hats\"", + "raw": "trim : String -\u003e String", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "String", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "String", + "args": [] + } + } + }, + { + "name": "trimLeft", + "comment": "Get rid of whitespace on the left of a string.\n\n trimLeft \" hats \\n\" == \"hats \\n\"", + "raw": "trimLeft : String -\u003e String", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "String", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "String", + "args": [] + } + } + }, + { + "name": "trimRight", + "comment": "Get rid of whitespace on the left of a string.\n\n trimRight \" hats \\n\" == \" hats\"", + "raw": "trimRight : String -\u003e String", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "String", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "String", + "args": [] + } + } + }, + { + "name": "uncons", + "comment": "Split a non-empty string into its head and tail. This lets you\npattern match on strings exactly as you would with lists.\n\n uncons \"abc\" == Just ('a',\"bc\")\n uncons \"\" == Nothing", + "raw": "uncons : String -\u003e Maybe (Char, String)", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "String", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Maybe", + "args": [ + { + "tag": "adt", + "name": "_Tuple2", + "args": [ + { + "tag": "adt", + "name": "Char", + "args": [] + }, + { + "tag": "adt", + "name": "String", + "args": [] + } + ] + } + ] + } + } + }, + { + "name": "words", + "comment": "Break a string into words, splitting on chunks of whitespace.\n\n words \"How are \\t you? \\n Good?\" == [\"How\",\"are\",\"you?\",\"Good?\"]", + "raw": "words : String -\u003e [String]", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "String", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "adt", + "name": "String", + "args": [] + } + ] + } + } + } + ] +}, +{ + "name": "Text", + "document": "A library for styling and displaying text. Whlie the `String` library\nfocuses on representing and manipulating strings of character strings, the\n`Text` library focuses on how those strings should look on screen. It lets\nyou make text bold or italic, set the typeface, set the text size, etc.\n\n# Creating Text\n@docs toText\n\n# Creating Elements\n\nEach of the following functions places `Text` into a box. The function you use\ndetermines the alignment of the text.\n\n@docs leftAligned, rightAligned, centered, justified\n\n# Links and Style\n@docs link, Style, style, defaultStyle, Line\n\n# Convenience Functions\n\nThere are two convenience functions for creating an `Element` which can be\nuseful when debugging or prototyping:\n\n@docs plainText, asText\n\nThere are also a bunch of functions to set parts of a `Style` individually:\n\n@docs typeface, monospace, height, color, bold, italic, line", + "aliases": [ + { + "name": "Style", + "comment": "Representation of all the ways you can style `Text`. If the `typeface` list\nis empty or the `height` is `Nothing`, the users will fall back on their\nbrowser's default settings. The following `Style` is black, 16 pixel tall,\nunderlined, and Times New Roman (assuming that typeface is available on the\nuser's computer):\n\n { typeface = [ \"Times New Roman\", \"serif\" ]\n , height = Just 16\n , color = black\n , bold = False\n , italic = False\n , line = Just Under\n }", + "raw": "type Style =\n { typeface : [String]\n , height : Maybe Float\n , color : Color\n , bold : Bool\n , italic : Bool\n , line : Maybe Line\n }", + "typeVariables": [], + "type": { + "tag": "record", + "fields": [ + [ + "typeface", + { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "adt", + "name": "String", + "args": [] + } + ] + } + ], + [ + "height", + { + "tag": "adt", + "name": "Maybe", + "args": [ + { + "tag": "adt", + "name": "Float", + "args": [] + } + ] + } + ], + [ + "color", + { + "tag": "adt", + "name": "Color", + "args": [] + } + ], + [ + "bold", + { + "tag": "adt", + "name": "Bool", + "args": [] + } + ], + [ + "italic", + { + "tag": "adt", + "name": "Bool", + "args": [] + } + ], + [ + "line", + { + "tag": "adt", + "name": "Maybe", + "args": [ + { + "tag": "adt", + "name": "Line", + "args": [] + } + ] + } + ] + ], + "extension": null + } + } + ], + "datatypes": [ + { + "name": "Line", + "comment": "Styles for lines on text. This allows you to add an underline, an overline,\nor a strike out text:\n\n line Under (toText \"underline\")\n line Over (toText \"overline\")\n line Through (toText \"strike out\")", + "raw": "data Line = Under | Over | Through", + "typeVariables": [], + "constructors": [ + { + "name": "Under", + "type": { + "tag": "adt", + "name": "Line", + "args": [] + } + }, + { + "name": "Over", + "type": { + "tag": "adt", + "name": "Line", + "args": [] + } + }, + { + "name": "Through", + "type": { + "tag": "adt", + "name": "Line", + "args": [] + } + } + ] + }, + { + "name": "Text", + "comment": "", + "raw": "data Text = Text", + "typeVariables": [], + "constructors": [ + { + "name": "Text", + "type": { + "tag": "adt", + "name": "Text", + "args": [] + } + } + ] + } + ], + "values": [ + { + "name": "asText", + "comment": "Convert anything to its textual representation and make it displayable in\nthe browser:\n\n asText value = text (monospace (show value))\n\nExcellent for debugging.", + "raw": "asText : a -\u003e Element", + "type": { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "a" + } + ], + "result": { + "tag": "adt", + "name": "Element", + "args": [] + } + } + }, + { + "name": "bold", + "comment": "Make text bold:\n\n toText \"sometimes you want \" ++ bold (toText \"emphasis\")", + "raw": "bold : Text -\u003e Text", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Text", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Text", + "args": [] + } + } + }, + { + "name": "centered", + "comment": "`Text` is centered in the text block. There is equal spacing on either side\nof a line of text.", + "raw": "centered : Text -\u003e Element", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Text", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Element", + "args": [] + } + } + }, + { + "name": "color", + "comment": "Set the color of some text:\n\n color red (toText \"Red\")", + "raw": "color : Color -\u003e Text -\u003e Text", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Color", + "args": [] + }, + { + "tag": "adt", + "name": "Text", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Text", + "args": [] + } + } + }, + { + "name": "defaultStyle", + "comment": "Plain black text. It uses the browsers default typeface and text height.\nNo decorations are used:\n\n { typeface = []\n , height = Nothing\n , color = black\n , bold = False\n , italic = False\n , line = Nothing\n }", + "raw": "defaultStyle : Style", + "type": { + "tag": "adt", + "name": "Style", + "args": [] + } + }, + { + "name": "height", + "comment": "Set the height of some text:\n\n height 40 (toText \"Title\")", + "raw": "height : Float -\u003e Text -\u003e Text", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Float", + "args": [] + }, + { + "tag": "adt", + "name": "Text", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Text", + "args": [] + } + } + }, + { + "name": "italic", + "comment": "Make text italic:\n\n toText \"make it \" ++ italic (toText \"important\")", + "raw": "italic : Text -\u003e Text", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Text", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Text", + "args": [] + } + } + }, + { + "name": "justified", + "comment": "`Text` is aligned along the left and right sides of the text block. Word\nspacing is adjusted to make this possible.", + "raw": "justified : Text -\u003e Element", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Text", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Element", + "args": [] + } + } + }, + { + "name": "leftAligned", + "comment": "`Text` is aligned along the left side of the text block. This is sometimes\nknown as *ragged right*.", + "raw": "leftAligned : Text -\u003e Element", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Text", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Element", + "args": [] + } + } + }, + { + "name": "line", + "comment": "Put lines on text:\n\n line Under (toText \"underlined\")\n line Over (toText \"overlined\")\n line Through (toText \"strike out\")", + "raw": "line : Line -\u003e Text -\u003e Text", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Line", + "args": [] + }, + { + "tag": "adt", + "name": "Text", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Text", + "args": [] + } + } + }, + { + "name": "link", + "comment": "Create a link by providing a URL and the text of the link:\n\n link \"http://elm-lang.org\" (toText \"Elm Website\")", + "raw": "link : String -\u003e Text -\u003e Text", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "String", + "args": [] + }, + { + "tag": "adt", + "name": "Text", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Text", + "args": [] + } + } + }, + { + "name": "markdown", + "comment": "for internal use only", + "raw": "markdown : Element", + "type": { + "tag": "adt", + "name": "Element", + "args": [] + } + }, + { + "name": "monospace", + "comment": "Switch to a monospace typeface. Good for code snippets.\n\n monospace (toText \"foldl (+) 0 [1,2,3]\")", + "raw": "monospace : Text -\u003e Text", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Text", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Text", + "args": [] + } + } + }, + { + "name": "plainText", + "comment": "Display a string with no styling:\n\n plainText string = leftAligned (toText string)", + "raw": "plainText : String -\u003e Element", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "String", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Element", + "args": [] + } + } + }, + { + "name": "rightAligned", + "comment": "`Text` is aligned along the right side of the text block. This is sometimes\nknown as *ragged left*.", + "raw": "rightAligned : Text -\u003e Element", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Text", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Element", + "args": [] + } + } + }, + { + "name": "style", + "comment": "Set the style of some text. For example, if you design a `Style` called\n`footerStyle` that is specifically for the bottom of your page, you could apply\nit to text like this:\n\n style footerStyle (toText \"the old prince / 2007\")", + "raw": "style : Style -\u003e Text -\u003e Text", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Style", + "args": [] + }, + { + "tag": "adt", + "name": "Text", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Text", + "args": [] + } + } + }, + { + "name": "toText", + "comment": "Convert a string into text which can be styled and displayed. To show the\nstring `\"Hello World!\"` on screen in italics, you could say:\n\n main = leftAligned (italic (toText \"Hello World!\"))", + "raw": "toText : String -\u003e Text", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "String", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Text", + "args": [] + } + } + }, + { + "name": "typeface", + "comment": "Provide a list of prefered typefaces for some text.\n\n [\"helvetica\",\"arial\",\"sans-serif\"]\n\nNot every browser has access to the same typefaces, so rendering will use the\nfirst typeface in the list that is found on the user's computer. If there are\nno matches, it will use their default typeface. This works the same as the CSS\nfont-family property.", + "raw": "typeface : [String] -\u003e Text -\u003e Text", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "adt", + "name": "String", + "args": [] + } + ] + }, + { + "tag": "adt", + "name": "Text", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Text", + "args": [] + } + } + } + ] +}, +{ + "name": "Time", + "document": "Library for working with time.\n\n# Units\n@docs Time, millisecond, second, minute, hour,\n inMilliseconds, inSeconds, inMinutes, inHours\n\n# Tickers\n@docs fps, fpsWhen, every\n\n# Timing\n@docs timestamp, delay, since", + "aliases": [ + { + "name": "Time", + "comment": "Type alias to make it clearer when you are working with time values.\nUsing the `Time` constants instead of raw numbers is very highly recommended.", + "raw": "type Time = Float", + "typeVariables": [], + "type": { + "tag": "adt", + "name": "Float", + "args": [] + } + } + ], + "datatypes": [], + "values": [ + { + "name": "delay", + "comment": "Delay a signal by a certain amount of time. So `(delay second Mouse.clicks)`\nwill update one second later than any mouse click.", + "raw": "delay : Time -\u003e Signal a -\u003e Signal a", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Time", + "args": [] + }, + { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + ], + "result": { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + } + }, + { + "name": "every", + "comment": "Takes a time interval t. The resulting signal is the current time, updated\nevery t.", + "raw": "every : Time -\u003e Signal Time", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Time", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "adt", + "name": "Time", + "args": [] + } + ] + } + } + }, + { + "name": "fps", + "comment": "Takes desired number of frames per second (fps). The resulting signal\ngives a sequence of time deltas as quickly as possible until it reaches\nthe desired FPS. A time delta is the time between the last frame and the\ncurrent frame.", + "raw": "fps : number -\u003e Signal Time", + "type": { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "number" + } + ], + "result": { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "adt", + "name": "Time", + "args": [] + } + ] + } + } + }, + { + "name": "fpsWhen", + "comment": "Same as the fps function, but you can turn it on and off. Allows you\nto do brief animations based on user input without major inefficiencies.\nThe first time delta after a pause is always zero, no matter how long\nthe pause was. This way summing the deltas will actually give the amount\nof time that the output signal has been running.", + "raw": "fpsWhen : number -\u003e Signal Bool -\u003e Signal Time", + "type": { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "number" + }, + { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "adt", + "name": "Bool", + "args": [] + } + ] + } + ], + "result": { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "adt", + "name": "Time", + "args": [] + } + ] + } + } + }, + { + "name": "hour", + "comment": "", + "raw": "hour : Time", + "type": { + "tag": "adt", + "name": "Time", + "args": [] + } + }, + { + "name": "inHours", + "comment": "", + "raw": "inHours : Time -\u003e Float", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Time", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Float", + "args": [] + } + } + }, + { + "name": "inMilliseconds", + "comment": "", + "raw": "inMilliseconds : Time -\u003e Float", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Time", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Float", + "args": [] + } + } + }, + { + "name": "inMinutes", + "comment": "", + "raw": "inMinutes : Time -\u003e Float", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Time", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Float", + "args": [] + } + } + }, + { + "name": "inSeconds", + "comment": "", + "raw": "inSeconds : Time -\u003e Float", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Time", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Float", + "args": [] + } + } + }, + { + "name": "millisecond", + "comment": "Units of time, making it easier to specify things like a half-second\n`(500 * milliseconds)` without remembering Elm’s underlying units of time.", + "raw": "millisecond : Time", + "type": { + "tag": "adt", + "name": "Time", + "args": [] + } + }, + { + "name": "minute", + "comment": "", + "raw": "minute : Time", + "type": { + "tag": "adt", + "name": "Time", + "args": [] + } + }, + { + "name": "second", + "comment": "", + "raw": "second : Time", + "type": { + "tag": "adt", + "name": "Time", + "args": [] + } + }, + { + "name": "since", + "comment": "Takes a time `t` and any signal. The resulting boolean signal is true for\ntime `t` after every event on the input signal. So ``(second `since`\nMouse.clicks)`` would result in a signal that is true for one second after\neach mouse click and false otherwise.", + "raw": "since : Time -\u003e Signal a -\u003e Signal Bool", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Time", + "args": [] + }, + { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + ], + "result": { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "adt", + "name": "Bool", + "args": [] + } + ] + } + } + }, + { + "name": "timestamp", + "comment": "Add a timestamp to any signal. Timestamps increase monotonically. When you\ncreate `(timestamp Mouse.x)`, an initial timestamp is produced. The timestamp\nupdates whenever `Mouse.x` updates.\n\nTimestamp updates are tied to individual events, so\n`(timestamp Mouse.x)` and `(timestamp Mouse.y)` will always have the same\ntimestamp because they rely on the same underlying event (`Mouse.position`).", + "raw": "timestamp : Signal a -\u003e Signal (Time, a)", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + ], + "result": { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "adt", + "name": "_Tuple2", + "args": [ + { + "tag": "adt", + "name": "Time", + "args": [] + }, + { + "tag": "var", + "name": "a" + } + ] + } + ] + } + } + } + ] +}, +{ + "name": "Touch", + "document": "This is an early version of the touch library. It will likely grow to\ninclude gestures that would be useful for both games and web-pages.\n\n# Touches\n@docs Touch, touches\n\n# Gestures\n@docs taps", + "aliases": [ + { + "name": "Touch", + "comment": "Every `Touch` has `xy` coordinates. It also has an identifier\n`id` to distinguish one touch from another.\n\nA touch also keeps info about the initial point and time of contact:\n`x0`, `y0`, and `t0`. This helps compute more complicated gestures\nlike taps, drags, and swipes which need to know about timing or direction.", + "raw": "type Touch = { x:Int, y:Int, id:Int, x0:Int, y0:Int, t0:Time }", + "typeVariables": [], + "type": { + "tag": "record", + "fields": [ + [ + "x", + { + "tag": "adt", + "name": "Int", + "args": [] + } + ], + [ + "y", + { + "tag": "adt", + "name": "Int", + "args": [] + } + ], + [ + "id", + { + "tag": "adt", + "name": "Int", + "args": [] + } + ], + [ + "x0", + { + "tag": "adt", + "name": "Int", + "args": [] + } + ], + [ + "y0", + { + "tag": "adt", + "name": "Int", + "args": [] + } + ], + [ + "t0", + { + "tag": "adt", + "name": "Time", + "args": [] + } + ] + ], + "extension": null + } + } + ], + "datatypes": [], + "values": [ + { + "name": "taps", + "comment": "The last position that was tapped. Default value is `{x=0,y=0}`.\nUpdates whenever the user taps the screen.", + "raw": "taps : Signal { x:Int, y:Int }", + "type": { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "record", + "fields": [ + [ + "x", + { + "tag": "adt", + "name": "Int", + "args": [] + } + ], + [ + "y", + { + "tag": "adt", + "name": "Int", + "args": [] + } + ] + ], + "extension": null + } + ] + } + }, + { + "name": "touches", + "comment": "A list of ongoing touches.", + "raw": "touches : Signal [Touch]", + "type": { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "adt", + "name": "Touch", + "args": [] + } + ] + } + ] + } + } + ] +}, +{ + "name": "Trampoline", + "document": "A [trampoline](http://en.wikipedia.org/wiki/Tail-recursive_function#Through_trampolining)\nmakes it possible to recursively call a function without growing the stack.\n\nPopular JavaScript implementations do not perform any tail-call elimination, so\nrecursive functions can cause a stack overflow if they go to deep. Trampolines\npermit unbounded recursion despite limitations in JavaScript.\n\nThis strategy may create many intermediate closures, which is very expensive in\nJavaScript, so use this library only when it is essential that you recurse deeply.\n\n# Trampolines\n@docs trampoline, Trampoline", + "aliases": [], + "datatypes": [ + { + "name": "Trampoline", + "comment": "A way to build computations that may be deeply recursive. We will take an\nexample of a tail-recursive function and rewrite it in a way that lets us use\na trampoline:\n\n length : [a] -\u003e Int\n length list = length' 0 list\n\n length' : Int -\u003e [a] -\u003e Int\n length' accum list =\n case list of\n [] -\u003e accum\n hd::tl -\u003e length' (accum+1) tl\n\nThis finds the length of a list, but if the list is too long, it may cause a\nstack overflow. We can rewrite it as follows:\n\n length : [a] -\u003e Int\n length list = trampoline (length' 0 list)\n\n length' : Int -\u003e [a] -\u003e Trampoline Int\n length' accum list =\n case list of\n [] -\u003e Done accum\n hd::tl -\u003e Continue (\\() -\u003e length' (accum+1) tl)\n\nNow it uses a trampoline and can recurse without growing the stack!", + "raw": "data Trampoline a = Done a | Continue (() -\u003e Trampoline a)", + "typeVariables": [ + "a" + ], + "constructors": [ + { + "name": "Done", + "type": { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "a" + } + ], + "result": { + "tag": "adt", + "name": "Trampoline", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + } + }, + { + "name": "Continue", + "type": { + "tag": "function", + "args": [ + { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "_Tuple0", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Trampoline", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + } + ], + "result": { + "tag": "adt", + "name": "Trampoline", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + } + } + ] + } + ], + "values": [ + { + "name": "trampoline", + "comment": "Evaluate a trampolined value in constant space.", + "raw": "trampoline : Trampoline a -\u003e a", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Trampoline", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + ], + "result": { + "tag": "var", + "name": "a" + } + } + } + ] +}, +{ + "name": "Transform2D", + "document": "A library for performing [2D matrix transformations][affine].\nIt is used primarily with the `groupTransform` function from `Graphics.Collage` and\nallows you to do things like rotation, scaling, translation, shearing, and reflection.\n\nNote that all the matrices in this library are 3x3 matrices of homogeneous\ncoordinates, used for [affine transformations][affine]. Since the bottom row as\nalways `0 0 1` in these matrices, it is omitted in the diagrams below.\n\n [affine]: http://en.wikipedia.org/wiki/Transformation_matrix#Affine_transformations\n\n# Transforms\n@docs identity, matrix, rotation, translation, scale, scaleX, scaleY\n\n# Multiplication\n@docs multiply", + "aliases": [], + "datatypes": [ + { + "name": "Transform2D", + "comment": "", + "raw": "data Transform2D = Transform2D", + "typeVariables": [], + "constructors": [ + { + "name": "Transform2D", + "type": { + "tag": "adt", + "name": "Transform2D", + "args": [] + } + } + ] + } + ], + "values": [ + { + "name": "identity", + "comment": "Create an identity transform. Transforming by the identity does\nnot change anything, but it can come in handy as a default or\nbase case.\n\n / 1 0 0 \\\n \\ 0 1 0 /", + "raw": "identity : Transform2D", + "type": { + "tag": "adt", + "name": "Transform2D", + "args": [] + } + }, + { + "name": "matrix", + "comment": "Creates a transformation matrix. This lets you create transforms\nsuch as scales, shears, reflections, and translations.\n\n matrix a b c d x y\n\n / a b x \\\n \\ c d y /\n\nNote that `x` and `y` are the translation values.", + "raw": "matrix : Float -\u003e Float -\u003e Float -\u003e Float -\u003e Float -\u003e Float -\u003e Transform2D", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Float", + "args": [] + }, + { + "tag": "adt", + "name": "Float", + "args": [] + }, + { + "tag": "adt", + "name": "Float", + "args": [] + }, + { + "tag": "adt", + "name": "Float", + "args": [] + }, + { + "tag": "adt", + "name": "Float", + "args": [] + }, + { + "tag": "adt", + "name": "Float", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Transform2D", + "args": [] + } + } + }, + { + "name": "multiply", + "comment": "Multiplies two transforms together:\n\n multiply m n\n\n / ma mb mx \\ / na nb nx \\\n | mc md my | . | nc nd ny |\n \\ 0 0 1 / \\ 0 0 1 /", + "raw": "multiply : Transform2D -\u003e Transform2D -\u003e Transform2D", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Transform2D", + "args": [] + }, + { + "tag": "adt", + "name": "Transform2D", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Transform2D", + "args": [] + } + } + }, + { + "name": "rotation", + "comment": "Creates a [rotation matrix](http://en.wikipedia.org/wiki/Rotation_matrix).\nGiven an angle t, it creates a counterclockwise rotation matrix:\n\n / cos t -sin t 0 \\\n \\ sin t cos t 0 /", + "raw": "rotation : Float -\u003e Transform2D", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Float", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Transform2D", + "args": [] + } + } + }, + { + "name": "scale", + "comment": "Creates a transformation matrix for scaling by a all directions:\n\n scale s\n\n / s 0 0 \\\n \\ 0 s 0 /", + "raw": "scale : Float -\u003e Transform2D", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Float", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Transform2D", + "args": [] + } + } + }, + { + "name": "scaleX", + "comment": "Creates a transformation for horizontal scaling", + "raw": "scaleX : Float -\u003e Transform2D", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Float", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Transform2D", + "args": [] + } + } + }, + { + "name": "scaleY", + "comment": "Creates a transformation for vertical scaling", + "raw": "scaleY : Float -\u003e Transform2D", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Float", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Transform2D", + "args": [] + } + } + }, + { + "name": "translation", + "comment": "Creates a transformation matrix for translation:\n\n translation x y\n\n / 1 0 x \\\n \\ 0 1 y /", + "raw": "translation : Float -\u003e Float -\u003e Transform2D", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Float", + "args": [] + }, + { + "tag": "adt", + "name": "Float", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Transform2D", + "args": [] + } + } + } + ] +}, +{ + "name": "WebSocket", + "document": "A library for low latency HTTP communication. See the HTTP library for\nstandard requests like GET, POST, etc. The API of this library is likely to\nchange to make it more flexible.\n\n# Open a Connection\n@docs connect", + "aliases": [], + "datatypes": [], + "values": [ + { + "name": "connect", + "comment": "Create a web-socket. The first argument is the URL of the desired\nweb-socket server. The input signal holds the outgoing messages,\nand the resulting signal contains the incoming ones.", + "raw": "connect : String -\u003e Signal String -\u003e Signal String", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "String", + "args": [] + }, + { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "adt", + "name": "String", + "args": [] + } + ] + } + ], + "result": { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "adt", + "name": "String", + "args": [] + } + ] + } + } + } + ] +}, +{ + "name": "Window", + "document": "Provides information about the container that your Elm program lives in.\nWhen you embed Elm in a `\u003cdiv\u003e` it gives the dimensions of the container, not\nthe whole window.\n\n# Dimensions\n@docs dimensions, width, height", + "aliases": [], + "datatypes": [], + "values": [ + { + "name": "dimensions", + "comment": "The current width and height of the window (i.e. the area viewable to the\nuser, not including scroll bars).", + "raw": "dimensions : Signal (Int,Int)", + "type": { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "adt", + "name": "_Tuple2", + "args": [ + { + "tag": "adt", + "name": "Int", + "args": [] + }, + { + "tag": "adt", + "name": "Int", + "args": [] + } + ] + } + ] + } + }, + { + "name": "height", + "comment": "The current height of the window.", + "raw": "height : Signal Int", + "type": { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "adt", + "name": "Int", + "args": [] + } + ] + } + }, + { + "name": "width", + "comment": "The current width of the window.", + "raw": "width : Signal Int", + "type": { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "adt", + "name": "Int", + "args": [] + } + ] + } + } + ] +}, +{ + "name": "Graphics.Collage", + "document": "The collage API is for freeform graphics. You can move, rotate, scale, etc.\nall sorts of forms including lines, shapes, images, and elements.\n\n# Unstructured Graphics\n@docs collage\n \n# Creating Forms\n@docs toForm, filled, textured, gradient, outlined, traced\n \n# Transforming Forms\n@docs move, moveX, moveY, scale, rotate, alpha\n \n# Grouping Forms\nGrouping forms makes it easier to write modular graphics code. You can create\na form that is a composite of many subforms. From there it is easy to transform\nit as a single unit.\n\n@docs group, groupTransform\n \n# Shapes\n@docs rect, oval, square, circle, ngon, polygon\n\n# Paths\n@docs segment, path\n \n# Line Styles\n@docs solid, dashed, dotted, LineStyle, LineCap, LineJoin, defaultLine", + "aliases": [ + { + "name": "Form", + "comment": "", + "raw": "type Form = {\n theta : Float,\n scale : Float,\n x : Float,\n y : Float,\n alpha : Float,\n form : BasicForm\n }", + "typeVariables": [], + "type": { + "tag": "record", + "fields": [ + [ + "theta", + { + "tag": "adt", + "name": "Float", + "args": [] + } + ], + [ + "scale", + { + "tag": "adt", + "name": "Float", + "args": [] + } + ], + [ + "x", + { + "tag": "adt", + "name": "Float", + "args": [] + } + ], + [ + "y", + { + "tag": "adt", + "name": "Float", + "args": [] + } + ], + [ + "alpha", + { + "tag": "adt", + "name": "Float", + "args": [] + } + ], + [ + "form", + { + "tag": "adt", + "name": "BasicForm", + "args": [] + } + ] + ], + "extension": null + } + }, + { + "name": "LineStyle", + "comment": "All of the attributes of a line style. This lets you build up a line style\nhowever you want. You can also update existing line styles with record updates.", + "raw": "type LineStyle = {\n color : Color,\n width : Float,\n cap : LineCap,\n join : LineJoin,\n dashing : [Int],\n dashOffset : Int\n }", + "typeVariables": [], + "type": { + "tag": "record", + "fields": [ + [ + "color", + { + "tag": "adt", + "name": "Color", + "args": [] + } + ], + [ + "width", + { + "tag": "adt", + "name": "Float", + "args": [] + } + ], + [ + "cap", + { + "tag": "adt", + "name": "LineCap", + "args": [] + } + ], + [ + "join", + { + "tag": "adt", + "name": "LineJoin", + "args": [] + } + ], + [ + "dashing", + { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "adt", + "name": "Int", + "args": [] + } + ] + } + ], + [ + "dashOffset", + { + "tag": "adt", + "name": "Int", + "args": [] + } + ] + ], + "extension": null + } + }, + { + "name": "Path", + "comment": "", + "raw": "type Path = [(Float,Float)]", + "typeVariables": [], + "type": { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "adt", + "name": "_Tuple2", + "args": [ + { + "tag": "adt", + "name": "Float", + "args": [] + }, + { + "tag": "adt", + "name": "Float", + "args": [] + } + ] + } + ] + } + }, + { + "name": "Shape", + "comment": "", + "raw": "type Shape = [(Float,Float)]", + "typeVariables": [], + "type": { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "adt", + "name": "_Tuple2", + "args": [ + { + "tag": "adt", + "name": "Float", + "args": [] + }, + { + "tag": "adt", + "name": "Float", + "args": [] + } + ] + } + ] + } + } + ], + "datatypes": [ + { + "name": "BasicForm", + "comment": "", + "raw": "data BasicForm\n = FPath LineStyle Path\n | FShape (Either LineStyle FillStyle) Shape\n | FImage Int Int (Int,Int) String\n | FElement Element\n | FGroup Transform2D [Form]", + "typeVariables": [], + "constructors": [ + { + "name": "FPath", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "LineStyle", + "args": [] + }, + { + "tag": "adt", + "name": "Path", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "BasicForm", + "args": [] + } + } + }, + { + "name": "FShape", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Either", + "args": [ + { + "tag": "adt", + "name": "LineStyle", + "args": [] + }, + { + "tag": "adt", + "name": "FillStyle", + "args": [] + } + ] + }, + { + "tag": "adt", + "name": "Shape", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "BasicForm", + "args": [] + } + } + }, + { + "name": "FImage", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Int", + "args": [] + }, + { + "tag": "adt", + "name": "Int", + "args": [] + }, + { + "tag": "adt", + "name": "_Tuple2", + "args": [ + { + "tag": "adt", + "name": "Int", + "args": [] + }, + { + "tag": "adt", + "name": "Int", + "args": [] + } + ] + }, + { + "tag": "adt", + "name": "String", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "BasicForm", + "args": [] + } + } + }, + { + "name": "FElement", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Element", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "BasicForm", + "args": [] + } + } + }, + { + "name": "FGroup", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Transform2D", + "args": [] + }, + { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "adt", + "name": "Form", + "args": [] + } + ] + } + ], + "result": { + "tag": "adt", + "name": "BasicForm", + "args": [] + } + } + } + ] + }, + { + "name": "FillStyle", + "comment": "", + "raw": "data FillStyle\n = Solid Color\n | Texture String\n | Grad Gradient", + "typeVariables": [], + "constructors": [ + { + "name": "Solid", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Color", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "FillStyle", + "args": [] + } + } + }, + { + "name": "Texture", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "String", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "FillStyle", + "args": [] + } + } + }, + { + "name": "Grad", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Gradient", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "FillStyle", + "args": [] + } + } + } + ] + }, + { + "name": "LineCap", + "comment": "The shape of the ends of a line.", + "raw": "data LineCap = Flat | Round | Padded", + "typeVariables": [], + "constructors": [ + { + "name": "Flat", + "type": { + "tag": "adt", + "name": "LineCap", + "args": [] + } + }, + { + "name": "Round", + "type": { + "tag": "adt", + "name": "LineCap", + "args": [] + } + }, + { + "name": "Padded", + "type": { + "tag": "adt", + "name": "LineCap", + "args": [] + } + } + ] + }, + { + "name": "LineJoin", + "comment": "The shape of the “joints” of a line, where each line segment\nmeets. `Sharp` takes an argument to limit the length of the joint. This\ndefaults to 10.", + "raw": "data LineJoin = Smooth | Sharp Float | Clipped", + "typeVariables": [], + "constructors": [ + { + "name": "Smooth", + "type": { + "tag": "adt", + "name": "LineJoin", + "args": [] + } + }, + { + "name": "Sharp", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Float", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "LineJoin", + "args": [] + } + } + }, + { + "name": "Clipped", + "type": { + "tag": "adt", + "name": "LineJoin", + "args": [] + } + } + ] + } + ], + "values": [ + { + "name": "alpha", + "comment": "Set the alpha of a `Form`. The default is 1, and 0 is totally transparent.", + "raw": "alpha : Float -\u003e Form -\u003e Form", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Float", + "args": [] + }, + { + "tag": "adt", + "name": "Form", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Form", + "args": [] + } + } + }, + { + "name": "circle", + "comment": "A circle with a given radius.", + "raw": "circle : Float -\u003e Shape", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Float", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Shape", + "args": [] + } + } + }, + { + "name": "collage", + "comment": "A collage is a collection of 2D forms. There are no strict positioning\nrelationships between forms, so you are free to do all kinds of 2D graphics.", + "raw": "collage : Int -\u003e Int -\u003e [Form] -\u003e Element", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Int", + "args": [] + }, + { + "tag": "adt", + "name": "Int", + "args": [] + }, + { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "adt", + "name": "Form", + "args": [] + } + ] + } + ], + "result": { + "tag": "adt", + "name": "Element", + "args": [] + } + } + }, + { + "name": "dashed", + "comment": "Create a dashed line style with a given color. Dashing equals `[8,4]`.", + "raw": "dashed : Color -\u003e LineStyle", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Color", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "LineStyle", + "args": [] + } + } + }, + { + "name": "defaultLine", + "comment": "The default line style, which is solid black with flat caps and sharp joints.\nYou can use record updates to build the line style you\nwant. For example, to make a thicker line, you could say:\n\n { defaultLine | width \u003c- 10 }", + "raw": "defaultLine : LineStyle", + "type": { + "tag": "adt", + "name": "LineStyle", + "args": [] + } + }, + { + "name": "dotted", + "comment": "Create a dotted line style with a given color. Dashing equals `[3,3]`.", + "raw": "dotted : Color -\u003e LineStyle", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Color", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "LineStyle", + "args": [] + } + } + }, + { + "name": "filled", + "comment": "Create a filled in shape.", + "raw": "filled : Color -\u003e Shape -\u003e Form", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Color", + "args": [] + }, + { + "tag": "adt", + "name": "Shape", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Form", + "args": [] + } + } + }, + { + "name": "form", + "comment": "", + "raw": "form : BasicForm -\u003e Form", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "BasicForm", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Form", + "args": [] + } + } + }, + { + "name": "gradient", + "comment": "Fill a shape with a [gradient](/library/Color.elm#linear).", + "raw": "gradient : Gradient -\u003e Shape -\u003e Form", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Gradient", + "args": [] + }, + { + "tag": "adt", + "name": "Shape", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Form", + "args": [] + } + } + }, + { + "name": "group", + "comment": "Flatten many forms into a single `Form`. This lets you move and rotate them\nas a single unit, making it possible to build small, modular components.", + "raw": "group : [Form] -\u003e Form", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "adt", + "name": "Form", + "args": [] + } + ] + } + ], + "result": { + "tag": "adt", + "name": "Form", + "args": [] + } + } + }, + { + "name": "groupTransform", + "comment": "Flatten many forms into a single `Form` and then apply a matrix\ntransformation.", + "raw": "groupTransform : Transform2D -\u003e [Form] -\u003e Form", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Transform2D", + "args": [] + }, + { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "adt", + "name": "Form", + "args": [] + } + ] + } + ], + "result": { + "tag": "adt", + "name": "Form", + "args": [] + } + } + }, + { + "name": "move", + "comment": "Move a form by the given amount. This is a relative translation so\n`(move (10,10) form)` would move `form` ten pixels up and ten pixels to the\nright.", + "raw": "move : (Float,Float) -\u003e Form -\u003e Form", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "_Tuple2", + "args": [ + { + "tag": "adt", + "name": "Float", + "args": [] + }, + { + "tag": "adt", + "name": "Float", + "args": [] + } + ] + }, + { + "tag": "adt", + "name": "Form", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Form", + "args": [] + } + } + }, + { + "name": "moveX", + "comment": "Move a shape in the x direction. This is relative so `(moveX 10 form)` moves\n`form` 10 pixels to the right.", + "raw": "moveX : Float -\u003e Form -\u003e Form", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Float", + "args": [] + }, + { + "tag": "adt", + "name": "Form", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Form", + "args": [] + } + } + }, + { + "name": "moveY", + "comment": "Move a shape in the y direction. This is relative so `(moveY 10 form)` moves\n`form` upwards by 10 pixels.", + "raw": "moveY : Float -\u003e Form -\u003e Form", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Float", + "args": [] + }, + { + "tag": "adt", + "name": "Form", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Form", + "args": [] + } + } + }, + { + "name": "ngon", + "comment": "A regular polygon with N sides. The first argument specifies the number\nof sides and the second is the radius. So to create a pentagon with radius\n30 you would say:\n\n ngon 5 30", + "raw": "ngon : Int -\u003e Float -\u003e Shape", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Int", + "args": [] + }, + { + "tag": "adt", + "name": "Float", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Shape", + "args": [] + } + } + }, + { + "name": "outlined", + "comment": "Outline a shape with a given line style.", + "raw": "outlined : LineStyle -\u003e Shape -\u003e Form", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "LineStyle", + "args": [] + }, + { + "tag": "adt", + "name": "Shape", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Form", + "args": [] + } + } + }, + { + "name": "oval", + "comment": "An oval with a given width and height.", + "raw": "oval : Float -\u003e Float -\u003e Shape", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Float", + "args": [] + }, + { + "tag": "adt", + "name": "Float", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Shape", + "args": [] + } + } + }, + { + "name": "path", + "comment": "Create a path that follows a sequence of points.", + "raw": "path : [(Float,Float)] -\u003e Path", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "adt", + "name": "_Tuple2", + "args": [ + { + "tag": "adt", + "name": "Float", + "args": [] + }, + { + "tag": "adt", + "name": "Float", + "args": [] + } + ] + } + ] + } + ], + "result": { + "tag": "adt", + "name": "Path", + "args": [] + } + } + }, + { + "name": "polygon", + "comment": "Create an arbitrary polygon by specifying its corners in order.\n`polygon` will automatically close all shapes, so the given list\nof points does not need to start and end with the same position.", + "raw": "polygon : [(Float,Float)] -\u003e Shape", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "adt", + "name": "_Tuple2", + "args": [ + { + "tag": "adt", + "name": "Float", + "args": [] + }, + { + "tag": "adt", + "name": "Float", + "args": [] + } + ] + } + ] + } + ], + "result": { + "tag": "adt", + "name": "Shape", + "args": [] + } + } + }, + { + "name": "rect", + "comment": "A rectangle with a given width and height.", + "raw": "rect : Float -\u003e Float -\u003e Shape", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Float", + "args": [] + }, + { + "tag": "adt", + "name": "Float", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Shape", + "args": [] + } + } + }, + { + "name": "rotate", + "comment": "Rotate a form by a given angle. Rotate takes standard Elm angles (radians)\nand turns things counterclockwise. So to turn `form` 30° to the left\nyou would say, `(rotate (degrees 30) form)`.", + "raw": "rotate : Float -\u003e Form -\u003e Form", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Float", + "args": [] + }, + { + "tag": "adt", + "name": "Form", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Form", + "args": [] + } + } + }, + { + "name": "scale", + "comment": "Scale a form by a given factor. Scaling by 2 doubles the size.", + "raw": "scale : Float -\u003e Form -\u003e Form", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Float", + "args": [] + }, + { + "tag": "adt", + "name": "Form", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Form", + "args": [] + } + } + }, + { + "name": "segment", + "comment": "Create a path along a given line segment.", + "raw": "segment : (Float,Float) -\u003e (Float,Float) -\u003e Path", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "_Tuple2", + "args": [ + { + "tag": "adt", + "name": "Float", + "args": [] + }, + { + "tag": "adt", + "name": "Float", + "args": [] + } + ] + }, + { + "tag": "adt", + "name": "_Tuple2", + "args": [ + { + "tag": "adt", + "name": "Float", + "args": [] + }, + { + "tag": "adt", + "name": "Float", + "args": [] + } + ] + } + ], + "result": { + "tag": "adt", + "name": "Path", + "args": [] + } + } + }, + { + "name": "solid", + "comment": "Create a solid line style with a given color.", + "raw": "solid : Color -\u003e LineStyle", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Color", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "LineStyle", + "args": [] + } + } + }, + { + "name": "sprite", + "comment": "Create a sprite from a sprite sheet. It cuts out a rectangle\nat a given position.", + "raw": "sprite : Int -\u003e Int -\u003e (Int,Int) -\u003e String -\u003e Form", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Int", + "args": [] + }, + { + "tag": "adt", + "name": "Int", + "args": [] + }, + { + "tag": "adt", + "name": "_Tuple2", + "args": [ + { + "tag": "adt", + "name": "Int", + "args": [] + }, + { + "tag": "adt", + "name": "Int", + "args": [] + } + ] + }, + { + "tag": "adt", + "name": "String", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Form", + "args": [] + } + } + }, + { + "name": "square", + "comment": "A square with a given edge length.", + "raw": "square : Float -\u003e Shape", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Float", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Shape", + "args": [] + } + } + }, + { + "name": "textured", + "comment": "Create a textured shape. The texture is described by some url and is\ntiled to fill the entire shape.", + "raw": "textured : String -\u003e Shape -\u003e Form", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "String", + "args": [] + }, + { + "tag": "adt", + "name": "Shape", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Form", + "args": [] + } + } + }, + { + "name": "toForm", + "comment": "Turn any `Element` into a `Form`. This lets you use text, gifs, and video\nin your collage. This means you can move, rotate, and scale\nan `Element` however you want.", + "raw": "toForm : Element -\u003e Form", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Element", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Form", + "args": [] + } + } + }, + { + "name": "traced", + "comment": "Trace a path with a given line style.", + "raw": "traced : LineStyle -\u003e Path -\u003e Form", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "LineStyle", + "args": [] + }, + { + "tag": "adt", + "name": "Path", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Form", + "args": [] + } + } + } + ] +}, +{ + "name": "Graphics.Element", + "document": "Graphical elements that snap together to build complex widgets and layouts.\nEach Element is a rectangle with a known width and height, making them easy to\ncombine and position.\n\n# Images\n@docs image, fittedImage, croppedImage, tiledImage\n\n# Styling\n@docs width, height, size, color, opacity, link, tag\n\n# Inspection\n@docs widthOf, heightOf, sizeOf\n\n# Layout\n@docs flow, up, down, left, right, inward, outward\n\n## Layout Aliases\nThere are also some convenience functions for working\nwith `flow` in specific cases:\n\n@docs layers, above, below, beside\n\n# Positioning\n@docs empty, spacer, container\n\n## Specific Positions\n\nTo create a `Position` you can use any of the built-in positions\nwhich cover nine common positions.\n@docs middle, midTop, midBottom, midLeft, midRight, topLeft, topRight,\n bottomLeft, bottomRight\n\nIf you need more precision, you can create custom positions.\n\n@docs absolute, relative, middleAt, midTopAt, midBottomAt, midLeftAt,\n midRightAt, topLeftAt, topRightAt, bottomLeftAt, bottomRightAt", + "aliases": [ + { + "name": "Element", + "comment": "", + "raw": "type Element = { props : Properties, element : ElementPrim }", + "typeVariables": [], + "type": { + "tag": "record", + "fields": [ + [ + "props", + { + "tag": "adt", + "name": "Properties", + "args": [] + } + ], + [ + "element", + { + "tag": "adt", + "name": "ElementPrim", + "args": [] + } + ] + ], + "extension": null + } + }, + { + "name": "Position", + "comment": "", + "raw": "type Position = { horizontal : Three, vertical : Three, x : Pos, y : Pos }", + "typeVariables": [], + "type": { + "tag": "record", + "fields": [ + [ + "horizontal", + { + "tag": "adt", + "name": "Three", + "args": [] + } + ], + [ + "vertical", + { + "tag": "adt", + "name": "Three", + "args": [] + } + ], + [ + "x", + { + "tag": "adt", + "name": "Pos", + "args": [] + } + ], + [ + "y", + { + "tag": "adt", + "name": "Pos", + "args": [] + } + ] + ], + "extension": null + } + }, + { + "name": "Properties", + "comment": "", + "raw": "type Properties = {\n id : Int,\n width : Int,\n height : Int,\n opacity : Float,\n color : Maybe Color,\n href : String,\n tag : String,\n hover : (),\n click : ()\n }", + "typeVariables": [], + "type": { + "tag": "record", + "fields": [ + [ + "id", + { + "tag": "adt", + "name": "Int", + "args": [] + } + ], + [ + "width", + { + "tag": "adt", + "name": "Int", + "args": [] + } + ], + [ + "height", + { + "tag": "adt", + "name": "Int", + "args": [] + } + ], + [ + "opacity", + { + "tag": "adt", + "name": "Float", + "args": [] + } + ], + [ + "color", + { + "tag": "adt", + "name": "Maybe", + "args": [ + { + "tag": "adt", + "name": "Color", + "args": [] + } + ] + } + ], + [ + "href", + { + "tag": "adt", + "name": "String", + "args": [] + } + ], + [ + "tag", + { + "tag": "adt", + "name": "String", + "args": [] + } + ], + [ + "hover", + { + "tag": "adt", + "name": "_Tuple0", + "args": [] + } + ], + [ + "click", + { + "tag": "adt", + "name": "_Tuple0", + "args": [] + } + ] + ], + "extension": null + } + } + ], + "datatypes": [ + { + "name": "Direction", + "comment": "", + "raw": "data Direction = DUp | DDown | DLeft | DRight | DIn | DOut", + "typeVariables": [], + "constructors": [ + { + "name": "DUp", + "type": { + "tag": "adt", + "name": "Direction", + "args": [] + } + }, + { + "name": "DDown", + "type": { + "tag": "adt", + "name": "Direction", + "args": [] + } + }, + { + "name": "DLeft", + "type": { + "tag": "adt", + "name": "Direction", + "args": [] + } + }, + { + "name": "DRight", + "type": { + "tag": "adt", + "name": "Direction", + "args": [] + } + }, + { + "name": "DIn", + "type": { + "tag": "adt", + "name": "Direction", + "args": [] + } + }, + { + "name": "DOut", + "type": { + "tag": "adt", + "name": "Direction", + "args": [] + } + } + ] + }, + { + "name": "ElementPrim", + "comment": "", + "raw": "data ElementPrim\n = Image ImageStyle Int Int String\n | Container Position Element\n | Flow Direction [Element]\n | Spacer\n | RawHtml\n | Custom", + "typeVariables": [], + "constructors": [ + { + "name": "Image", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "ImageStyle", + "args": [] + }, + { + "tag": "adt", + "name": "Int", + "args": [] + }, + { + "tag": "adt", + "name": "Int", + "args": [] + }, + { + "tag": "adt", + "name": "String", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "ElementPrim", + "args": [] + } + } + }, + { + "name": "Container", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Position", + "args": [] + }, + { + "tag": "adt", + "name": "Element", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "ElementPrim", + "args": [] + } + } + }, + { + "name": "Flow", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Direction", + "args": [] + }, + { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "adt", + "name": "Element", + "args": [] + } + ] + } + ], + "result": { + "tag": "adt", + "name": "ElementPrim", + "args": [] + } + } + }, + { + "name": "Spacer", + "type": { + "tag": "adt", + "name": "ElementPrim", + "args": [] + } + }, + { + "name": "RawHtml", + "type": { + "tag": "adt", + "name": "ElementPrim", + "args": [] + } + }, + { + "name": "Custom", + "type": { + "tag": "adt", + "name": "ElementPrim", + "args": [] + } + } + ] + }, + { + "name": "ImageStyle", + "comment": "", + "raw": "data ImageStyle = Plain | Fitted | Cropped (Int,Int) | Tiled", + "typeVariables": [], + "constructors": [ + { + "name": "Plain", + "type": { + "tag": "adt", + "name": "ImageStyle", + "args": [] + } + }, + { + "name": "Fitted", + "type": { + "tag": "adt", + "name": "ImageStyle", + "args": [] + } + }, + { + "name": "Cropped", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "_Tuple2", + "args": [ + { + "tag": "adt", + "name": "Int", + "args": [] + }, + { + "tag": "adt", + "name": "Int", + "args": [] + } + ] + } + ], + "result": { + "tag": "adt", + "name": "ImageStyle", + "args": [] + } + } + }, + { + "name": "Tiled", + "type": { + "tag": "adt", + "name": "ImageStyle", + "args": [] + } + } + ] + }, + { + "name": "Pos", + "comment": "", + "raw": "data Pos = Absolute Int | Relative Float", + "typeVariables": [], + "constructors": [ + { + "name": "Absolute", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Int", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Pos", + "args": [] + } + } + }, + { + "name": "Relative", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Float", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Pos", + "args": [] + } + } + } + ] + }, + { + "name": "Three", + "comment": "", + "raw": "data Three = P | Z | N", + "typeVariables": [], + "constructors": [ + { + "name": "P", + "type": { + "tag": "adt", + "name": "Three", + "args": [] + } + }, + { + "name": "Z", + "type": { + "tag": "adt", + "name": "Three", + "args": [] + } + }, + { + "name": "N", + "type": { + "tag": "adt", + "name": "Three", + "args": [] + } + } + ] + } + ], + "values": [ + { + "name": "above", + "comment": "Stack elements vertically.\nTo put `a` above `b` you would say: ``a `above` b``", + "raw": "above : Element -\u003e Element -\u003e Element", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Element", + "args": [] + }, + { + "tag": "adt", + "name": "Element", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Element", + "args": [] + } + } + }, + { + "name": "absolute", + "comment": "", + "raw": "absolute : Int -\u003e Pos", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Int", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Pos", + "args": [] + } + } + }, + { + "name": "below", + "comment": "Stack elements vertically.\nTo put `a` below `b` you would say: ``a `below` b``", + "raw": "below : Element -\u003e Element -\u003e Element", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Element", + "args": [] + }, + { + "tag": "adt", + "name": "Element", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Element", + "args": [] + } + } + }, + { + "name": "beside", + "comment": "Put elements beside each other horizontally.\nTo put `a` beside `b` you would say: ``a `beside` b``", + "raw": "beside : Element -\u003e Element -\u003e Element", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Element", + "args": [] + }, + { + "tag": "adt", + "name": "Element", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Element", + "args": [] + } + } + }, + { + "name": "bottomLeft", + "comment": "", + "raw": "bottomLeft : Position", + "type": { + "tag": "adt", + "name": "Position", + "args": [] + } + }, + { + "name": "bottomLeftAt", + "comment": "", + "raw": "bottomLeftAt : Pos -\u003e Pos -\u003e Position", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Pos", + "args": [] + }, + { + "tag": "adt", + "name": "Pos", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Position", + "args": [] + } + } + }, + { + "name": "bottomRight", + "comment": "", + "raw": "bottomRight : Position", + "type": { + "tag": "adt", + "name": "Position", + "args": [] + } + }, + { + "name": "bottomRightAt", + "comment": "", + "raw": "bottomRightAt : Pos -\u003e Pos -\u003e Position", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Pos", + "args": [] + }, + { + "tag": "adt", + "name": "Pos", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Position", + "args": [] + } + } + }, + { + "name": "color", + "comment": "Create an `Element` with a given background color.", + "raw": "color : Color -\u003e Element -\u003e Element", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Color", + "args": [] + }, + { + "tag": "adt", + "name": "Element", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Element", + "args": [] + } + } + }, + { + "name": "container", + "comment": "Put an element in a container. This lets you position the element really\neasily, and there are tons of ways to set the `Position`.\nTo center `element` exactly in a 300-by-300 square you would say:\n\n container 300 300 middle element\n\nBy setting the color of the container, you can create borders.", + "raw": "container : Int -\u003e Int -\u003e Position -\u003e Element -\u003e Element", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Int", + "args": [] + }, + { + "tag": "adt", + "name": "Int", + "args": [] + }, + { + "tag": "adt", + "name": "Position", + "args": [] + }, + { + "tag": "adt", + "name": "Element", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Element", + "args": [] + } + } + }, + { + "name": "croppedImage", + "comment": "Create a cropped image. Take a rectangle out of the picture starting\nat the given top left coordinate. If you have a 140-by-140 image,\nthe following will cut a 100-by-100 square out of the middle of it.\n\n croppedImage (20,20) 100 100 \"yogi.jpg\"", + "raw": "croppedImage : (Int,Int) -\u003e Int -\u003e Int -\u003e String -\u003e Element", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "_Tuple2", + "args": [ + { + "tag": "adt", + "name": "Int", + "args": [] + }, + { + "tag": "adt", + "name": "Int", + "args": [] + } + ] + }, + { + "tag": "adt", + "name": "Int", + "args": [] + }, + { + "tag": "adt", + "name": "Int", + "args": [] + }, + { + "tag": "adt", + "name": "String", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Element", + "args": [] + } + } + }, + { + "name": "down", + "comment": "", + "raw": "down : Direction", + "type": { + "tag": "adt", + "name": "Direction", + "args": [] + } + }, + { + "name": "empty", + "comment": "An Element that takes up no space. Good for things that appear conditionally:\n\n flow down [ img1, if showMore then img2 else empty ]", + "raw": "empty : Element", + "type": { + "tag": "adt", + "name": "Element", + "args": [] + } + }, + { + "name": "fittedImage", + "comment": "Create a fitted image given a width, height, and image source.\nThis will crop the picture to best fill the given dimensions.", + "raw": "fittedImage : Int -\u003e Int -\u003e String -\u003e Element", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Int", + "args": [] + }, + { + "tag": "adt", + "name": "Int", + "args": [] + }, + { + "tag": "adt", + "name": "String", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Element", + "args": [] + } + } + }, + { + "name": "flow", + "comment": "Have a list of elements flow in a particular direction.\nThe `Direction` starts from the first element in the list.\n\n flow right [a,b,c]\n\n +---+---+---+\n | a | b | c |\n +---+---+---+", + "raw": "flow : Direction -\u003e [Element] -\u003e Element", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Direction", + "args": [] + }, + { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "adt", + "name": "Element", + "args": [] + } + ] + } + ], + "result": { + "tag": "adt", + "name": "Element", + "args": [] + } + } + }, + { + "name": "height", + "comment": "Create an `Element` with a given height.", + "raw": "height : Int -\u003e Element -\u003e Element", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Int", + "args": [] + }, + { + "tag": "adt", + "name": "Element", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Element", + "args": [] + } + } + }, + { + "name": "heightOf", + "comment": "Get the height of an Element", + "raw": "heightOf : Element -\u003e Int", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Element", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Int", + "args": [] + } + } + }, + { + "name": "image", + "comment": "Create an image given a width, height, and image source.", + "raw": "image : Int -\u003e Int -\u003e String -\u003e Element", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Int", + "args": [] + }, + { + "tag": "adt", + "name": "Int", + "args": [] + }, + { + "tag": "adt", + "name": "String", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Element", + "args": [] + } + } + }, + { + "name": "inward", + "comment": "", + "raw": "inward : Direction", + "type": { + "tag": "adt", + "name": "Direction", + "args": [] + } + }, + { + "name": "layers", + "comment": "Layer elements on top of each other, starting from the bottom:\n`layers == flow outward`", + "raw": "layers : [Element] -\u003e Element", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "adt", + "name": "Element", + "args": [] + } + ] + } + ], + "result": { + "tag": "adt", + "name": "Element", + "args": [] + } + } + }, + { + "name": "left", + "comment": "", + "raw": "left : Direction", + "type": { + "tag": "adt", + "name": "Direction", + "args": [] + } + }, + { + "name": "link", + "comment": "Create an `Element` that is a hyper-link.", + "raw": "link : String -\u003e Element -\u003e Element", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "String", + "args": [] + }, + { + "tag": "adt", + "name": "Element", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Element", + "args": [] + } + } + }, + { + "name": "midBottom", + "comment": "", + "raw": "midBottom : Position", + "type": { + "tag": "adt", + "name": "Position", + "args": [] + } + }, + { + "name": "midBottomAt", + "comment": "", + "raw": "midBottomAt : Pos -\u003e Pos -\u003e Position", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Pos", + "args": [] + }, + { + "tag": "adt", + "name": "Pos", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Position", + "args": [] + } + } + }, + { + "name": "midLeft", + "comment": "", + "raw": "midLeft : Position", + "type": { + "tag": "adt", + "name": "Position", + "args": [] + } + }, + { + "name": "midLeftAt", + "comment": "", + "raw": "midLeftAt : Pos -\u003e Pos -\u003e Position", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Pos", + "args": [] + }, + { + "tag": "adt", + "name": "Pos", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Position", + "args": [] + } + } + }, + { + "name": "midRight", + "comment": "", + "raw": "midRight : Position", + "type": { + "tag": "adt", + "name": "Position", + "args": [] + } + }, + { + "name": "midRightAt", + "comment": "", + "raw": "midRightAt : Pos -\u003e Pos -\u003e Position", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Pos", + "args": [] + }, + { + "tag": "adt", + "name": "Pos", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Position", + "args": [] + } + } + }, + { + "name": "midTop", + "comment": "", + "raw": "midTop : Position", + "type": { + "tag": "adt", + "name": "Position", + "args": [] + } + }, + { + "name": "midTopAt", + "comment": "", + "raw": "midTopAt : Pos -\u003e Pos -\u003e Position", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Pos", + "args": [] + }, + { + "tag": "adt", + "name": "Pos", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Position", + "args": [] + } + } + }, + { + "name": "middle", + "comment": "", + "raw": "middle : Position", + "type": { + "tag": "adt", + "name": "Position", + "args": [] + } + }, + { + "name": "middleAt", + "comment": "", + "raw": "middleAt : Pos -\u003e Pos -\u003e Position", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Pos", + "args": [] + }, + { + "tag": "adt", + "name": "Pos", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Position", + "args": [] + } + } + }, + { + "name": "opacity", + "comment": "Create an `Element` with a given opacity. Opacity is a number between 0 and 1\nwhere 0 means totally clear.", + "raw": "opacity : Float -\u003e Element -\u003e Element", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Float", + "args": [] + }, + { + "tag": "adt", + "name": "Element", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Element", + "args": [] + } + } + }, + { + "name": "outward", + "comment": "", + "raw": "outward : Direction", + "type": { + "tag": "adt", + "name": "Direction", + "args": [] + } + }, + { + "name": "relative", + "comment": "", + "raw": "relative : Float -\u003e Pos", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Float", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Pos", + "args": [] + } + } + }, + { + "name": "right", + "comment": "", + "raw": "right : Direction", + "type": { + "tag": "adt", + "name": "Direction", + "args": [] + } + }, + { + "name": "size", + "comment": "Create an `Element` with a new width and height.", + "raw": "size : Int -\u003e Int -\u003e Element -\u003e Element", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Int", + "args": [] + }, + { + "tag": "adt", + "name": "Int", + "args": [] + }, + { + "tag": "adt", + "name": "Element", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Element", + "args": [] + } + } + }, + { + "name": "sizeOf", + "comment": "Get the width and height of an Element", + "raw": "sizeOf : Element -\u003e (Int,Int)", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Element", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "_Tuple2", + "args": [ + { + "tag": "adt", + "name": "Int", + "args": [] + }, + { + "tag": "adt", + "name": "Int", + "args": [] + } + ] + } + } + }, + { + "name": "spacer", + "comment": "Create an empty box. This is useful for getting your spacing right and\nfor making borders.", + "raw": "spacer : Int -\u003e Int -\u003e Element", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Int", + "args": [] + }, + { + "tag": "adt", + "name": "Int", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Element", + "args": [] + } + } + }, + { + "name": "tag", + "comment": "Create an `Element` with a tag. This lets you link directly to it.\nThe element `(tag \"all-about-badgers\" thirdParagraph)` can be reached\nwith a link like this: `/facts-about-animals.elm#all-about-badgers`", + "raw": "tag : String -\u003e Element -\u003e Element", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "String", + "args": [] + }, + { + "tag": "adt", + "name": "Element", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Element", + "args": [] + } + } + }, + { + "name": "tiledImage", + "comment": "", + "raw": "tiledImage : Int -\u003e Int -\u003e String -\u003e Element", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Int", + "args": [] + }, + { + "tag": "adt", + "name": "Int", + "args": [] + }, + { + "tag": "adt", + "name": "String", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Element", + "args": [] + } + } + }, + { + "name": "topLeft", + "comment": "", + "raw": "topLeft : Position", + "type": { + "tag": "adt", + "name": "Position", + "args": [] + } + }, + { + "name": "topLeftAt", + "comment": "", + "raw": "topLeftAt : Pos -\u003e Pos -\u003e Position", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Pos", + "args": [] + }, + { + "tag": "adt", + "name": "Pos", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Position", + "args": [] + } + } + }, + { + "name": "topRight", + "comment": "", + "raw": "topRight : Position", + "type": { + "tag": "adt", + "name": "Position", + "args": [] + } + }, + { + "name": "topRightAt", + "comment": "", + "raw": "topRightAt : Pos -\u003e Pos -\u003e Position", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Pos", + "args": [] + }, + { + "tag": "adt", + "name": "Pos", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Position", + "args": [] + } + } + }, + { + "name": "up", + "comment": "", + "raw": "up : Direction", + "type": { + "tag": "adt", + "name": "Direction", + "args": [] + } + }, + { + "name": "width", + "comment": "Create an `Element` with a given width.", + "raw": "width : Int -\u003e Element -\u003e Element", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Int", + "args": [] + }, + { + "tag": "adt", + "name": "Element", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Element", + "args": [] + } + } + }, + { + "name": "widthOf", + "comment": "Get the width of an Element", + "raw": "widthOf : Element -\u003e Int", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Element", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Int", + "args": [] + } + } + } + ] +}, +{ + "name": "Graphics.Input", + "document": "This module is for creating standard input widgets such as buttons and\ntext fields. All functions in this library follow a general pattern in which\nyou create an `Input` that many elements can report to:\n\n```haskell\nclicks : Input ()\nclicks = input ()\n\nclickableYogi : Element\nclickableYogi = clickable clicks.handle () (image 40 40 \"/yogi.jpg\")\n```\n\nWhenever the user clicks on the resulting `clickableYogi` element, it sends an\nupdate to the `clicks` input. You will see this pattern again and again in\nexamples in this library, so just read on to get a better idea of how it works!\n\n# Creating Inputs\n@docs Input, input\n\n# Basic Input Elements\n\nTo learn about text fields, see the\n[`Graphics.Input.Field`](Graphics-Input-Field) library.\n\n@docs button, customButton, checkbox, dropDown\n\n# Clicks and Hovers\n@docs clickable, hoverable", + "aliases": [ + { + "name": "Input", + "comment": "This is the key abstraction of this library. An `Input` is a record\nof two fields:\n\n 1. `signal` — all values coming to this input from “the world”\n 2. `handle` — a way to refer to this particular input and send it values\n\nThis will make more sense as you see more examples.", + "raw": "type Input a = { signal : Signal a, handle : Handle a }", + "typeVariables": [ + "a" + ], + "type": { + "tag": "record", + "fields": [ + [ + "signal", + { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + ], + [ + "handle", + { + "tag": "adt", + "name": "Handle", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + ] + ], + "extension": null + } + } + ], + "datatypes": [ + { + "name": "Handle", + "comment": "", + "raw": "data Handle a = Handle", + "typeVariables": [ + "a" + ], + "constructors": [ + { + "name": "Handle", + "type": { + "tag": "adt", + "name": "Handle", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + } + ] + } + ], + "values": [ + { + "name": "button", + "comment": "Create a standard button. The following example begins making a basic\ncalculator:\n\n data Keys = Number Int | Plus | Minus | Clear\n\n keys : Input Keys\n keys = input Clear\n\n calculator : Element\n calculator =\n flow right [ button keys.handle (Number 1) \"1\"\n , button keys.handle (Number 2) \"2\"\n , button keys.handle Plus \"+\"\n ]\n\nIf the user presses the \"+\" button, `keys.signal` will update to `Plus`. If the\nusers presses \"2\", `keys.signal` will update to `(Number 2)`.", + "raw": "button : Handle a -\u003e a -\u003e String -\u003e Element", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Handle", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + }, + { + "tag": "var", + "name": "a" + }, + { + "tag": "adt", + "name": "String", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Element", + "args": [] + } + } + }, + { + "name": "checkbox", + "comment": "Create a checkbox. The following example creates three synced checkboxes:\n\n check : Input Bool\n check = input False\n\n boxes : Bool -\u003e Element\n boxes checked =\n let box = container 40 40 middle (checkbox check.handle id checked)\n in flow right [ box, box, box ]\n\n main : Signal Element\n main = boxes \u003c~ check.signal", + "raw": "checkbox : Handle a -\u003e (Bool -\u003e a) -\u003e Bool -\u003e Element", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Handle", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + }, + { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Bool", + "args": [] + } + ], + "result": { + "tag": "var", + "name": "a" + } + }, + { + "tag": "adt", + "name": "Bool", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Element", + "args": [] + } + } + }, + { + "name": "clickable", + "comment": "Detect mouse clicks on a specific `Element`. In the following example,\nwe will create a clickable picture called `cat`.\n\n data Picture = Cat | Hat\n\n picture : Input Picture\n picture = input Cat\n\n cat : Element\n cat = image 30 30 \"/cat.jpg\"\n |\u003e clickable picture.handle Cat\n\n hat : Element\n hat = image 30 30 \"/hat.jpg\"\n |\u003e clickable picture.handle Hat\n\nWhen the user clicks on the `cat` element, `picture.signal` receives\nan update containing the value `Cat`. When the user clicks on the `hat` element,\n`picture.signal` receives an update containing the value `Hat`. This lets you\ndistinguish which element was clicked. In a more complex example, they could be\ndistinguished with IDs or more complex data structures.", + "raw": "clickable : Handle a -\u003e a -\u003e Element -\u003e Element", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Handle", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + }, + { + "tag": "var", + "name": "a" + }, + { + "tag": "adt", + "name": "Element", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Element", + "args": [] + } + } + }, + { + "name": "customButton", + "comment": "Same as `button` but lets you customize buttons to look however you want.\n\n click : Input ()\n click = input ()\n\n prettyButton : Element\n prettyButton =\n customButton click.handle ()\n (image 100 40 \"/button_up.jpg\")\n (image 100 40 \"/button_hover.jpg\")\n (image 100 40 \"/button_down.jpg\")", + "raw": "customButton : Handle a -\u003e a -\u003e Element -\u003e Element -\u003e Element -\u003e Element", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Handle", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + }, + { + "tag": "var", + "name": "a" + }, + { + "tag": "adt", + "name": "Element", + "args": [] + }, + { + "tag": "adt", + "name": "Element", + "args": [] + }, + { + "tag": "adt", + "name": "Element", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Element", + "args": [] + } + } + }, + { + "name": "dropDown", + "comment": "Create a drop-down menu. The following drop-down lets you choose your\nfavorite British sport:\n\n data Sport = Football | Cricket | Snooker\n\n sport : Input (Maybe Sport)\n sport = input Nothing\n\n sportDropDown : Element\n sportDropDown =\n dropDown sport.handle\n [ (\"\" , Nothing)\n , (\"Football\", Just Football)\n , (\"Cricket\" , Just Cricket)\n , (\"Snooker\" , Just Snooker)\n ]\n\nIf the user selects \"Football\" from the drop down menue, `sport.signal`\nwill update to `Just Football`.", + "raw": "dropDown : Handle a -\u003e [(String,a)] -\u003e Element", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Handle", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + }, + { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "adt", + "name": "_Tuple2", + "args": [ + { + "tag": "adt", + "name": "String", + "args": [] + }, + { + "tag": "var", + "name": "a" + } + ] + } + ] + } + ], + "result": { + "tag": "adt", + "name": "Element", + "args": [] + } + } + }, + { + "name": "hoverable", + "comment": "Detect mouse hovers over a specific `Element`. In the following example,\nwe will create a hoverable picture called `cat`.\n\n hover : Input Bool\n hover = input False\n\n cat : Element\n cat = image 30 30 \"/cat.jpg\"\n |\u003e hoverable hover.handle id\n\nWhen the mouse hovers above the `cat` element, `hover.signal` will become\n`True`. When the mouse leaves it, `hover.signal` will become `False`.", + "raw": "hoverable : Handle a -\u003e (Bool -\u003e a) -\u003e Element -\u003e Element", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Handle", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + }, + { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Bool", + "args": [] + } + ], + "result": { + "tag": "var", + "name": "a" + } + }, + { + "tag": "adt", + "name": "Element", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Element", + "args": [] + } + } + }, + { + "name": "input", + "comment": "This creates a new `Input`. You provide a single argument that will serve\nas the initial value of the input’s `signal`. For example:\n\n numbers : Input Int\n numbers = input 42\n\nThe initial value of `numbers.signal` is 42, and you will be able\nto pipe updates to the input using `numbers.handle`.\n\nNote: This is an inherently impure function. Specifically, `(input ())` and\n`(input ())` are actually two different inputs with different signals and handles.", + "raw": "input : a -\u003e Input a", + "type": { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "a" + } + ], + "result": { + "tag": "adt", + "name": "Input", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + } + } + ] +}, +{ + "name": "Graphics.Input.Field", + "document": "This library provides an API for creating and updating text fields.\nText fields use exactly the same approach as [`Graphics.Input`](Graphics-Input)\nfor modelling user input, allowing you to keep track of new events and update\ntext fields programmatically.\n\n# Create Fields\n@docs field, password, email\n\n# Field Content\n@docs Content, Selection, Direction, noContent\n\n# Field Style\n@docs Style, Outline, noOutline, Highlight, noHighlight, Dimensions, uniformly", + "aliases": [ + { + "name": "Content", + "comment": "Represents the current content of a text field. For example:\n\n content = Content \"She sells sea shells\" (Selection 0 3 Backward)\n\nThis means the user highlighted the substring `\"She\"` backwards. The value of\n`content.string` is `\"She sells sea shells\"`.", + "raw": "type Content = { string:String, selection:Selection }", + "typeVariables": [], + "type": { + "tag": "record", + "fields": [ + [ + "string", + { + "tag": "adt", + "name": "String", + "args": [] + } + ], + [ + "selection", + { + "tag": "adt", + "name": "Selection", + "args": [] + } + ] + ], + "extension": null + } + }, + { + "name": "Dimensions", + "comment": "For setting dimensions of a fields padding or border. The left, right, top,\nand bottom may all have different sizes. The following example creates\ndimensions such that the left and right are twice as wide as the top and bottom:\n\n myDimensions : Int -\u003e Dimensions\n myDimensions n = { left = 2 * n, right = 2 * n, top = n, bottom = n }", + "raw": "type Dimensions = { left:Int, right:Int, top:Int, bottom:Int }", + "typeVariables": [], + "type": { + "tag": "record", + "fields": [ + [ + "left", + { + "tag": "adt", + "name": "Int", + "args": [] + } + ], + [ + "right", + { + "tag": "adt", + "name": "Int", + "args": [] + } + ], + [ + "top", + { + "tag": "adt", + "name": "Int", + "args": [] + } + ], + [ + "bottom", + { + "tag": "adt", + "name": "Int", + "args": [] + } + ] + ], + "extension": null + } + }, + { + "name": "Highlight", + "comment": "When a field has focus, it has a blue highlight around it by default. The\n`Highlight` lets you set the `color` and `width` of this highlight. Set the\n`width` to zero to turn the highlight off. Here is an example highlight that\nis blue and thin:\n\n { color = blue, width = 1 }", + "raw": "type Highlight = { color:Color, width:Int }", + "typeVariables": [], + "type": { + "tag": "record", + "fields": [ + [ + "color", + { + "tag": "adt", + "name": "Color", + "args": [] + } + ], + [ + "width", + { + "tag": "adt", + "name": "Int", + "args": [] + } + ] + ], + "extension": null + } + }, + { + "name": "Outline", + "comment": "A field can have a outline around it. This lets you set its color, width,\nand radius. The radius allows you to round the corners of your field. Set the\nwidth to zero to make it invisible. Here is an example outline that is grey\nand thin with slightly rounded corners:\n\n { color = grey, width = uniformly 1, radius = 4 }", + "raw": "type Outline = { color:Color, width:Dimensions, radius:Int }", + "typeVariables": [], + "type": { + "tag": "record", + "fields": [ + [ + "color", + { + "tag": "adt", + "name": "Color", + "args": [] + } + ], + [ + "width", + { + "tag": "adt", + "name": "Dimensions", + "args": [] + } + ], + [ + "radius", + { + "tag": "adt", + "name": "Int", + "args": [] + } + ] + ], + "extension": null + } + }, + { + "name": "Selection", + "comment": "The selection within a text field. `start` is never greater than `end`:\n\n Selection 0 0 Forward -- cursor precedes all characters\n\n Selection 5 9 Backward -- highlighting characters starting after\n -- the 5th and ending after the 9th", + "raw": "type Selection = { start:Int, end:Int, direction:Direction }", + "typeVariables": [], + "type": { + "tag": "record", + "fields": [ + [ + "start", + { + "tag": "adt", + "name": "Int", + "args": [] + } + ], + [ + "end", + { + "tag": "adt", + "name": "Int", + "args": [] + } + ], + [ + "direction", + { + "tag": "adt", + "name": "Direction", + "args": [] + } + ] + ], + "extension": null + } + }, + { + "name": "Style", + "comment": "Describe the style of a text box. `style` describes the style of the text\nitself using [`Text.Style`](/Text#Style). `outline` describes the glowing blue\noutline that shows up when the field has focus. `outline` describes the line\nsurrounding the text field, and `padding` adds whitespace between the `outline`\nand the text.\n\nThe width and height of the text box *includes* the `padding` and `outline`.\nSay we have a text box that is 40 pixels tall. It has a uniform outline of\n1 pixel and a uniform padding of 5 pixels. Both of these must be subtracted\nfrom the total height to determine how much room there is for text. The\n`padding` and `outline` appear on the top and bottom, so there will be 28\nvertical pixels remaining for the text (40 - 1 - 5 - 5 - 1).", + "raw": "type Style =\n { padding : Dimensions\n , outline : Outline\n , highlight : Highlight\n , style : Text.Style\n }", + "typeVariables": [], + "type": { + "tag": "record", + "fields": [ + [ + "padding", + { + "tag": "adt", + "name": "Dimensions", + "args": [] + } + ], + [ + "outline", + { + "tag": "adt", + "name": "Outline", + "args": [] + } + ], + [ + "highlight", + { + "tag": "adt", + "name": "Highlight", + "args": [] + } + ], + [ + "style", + { + "tag": "adt", + "name": "Text.Style", + "args": [] + } + ] + ], + "extension": null + } + } + ], + "datatypes": [ + { + "name": "Direction", + "comment": "The direction of selection. When the user highlights a selection in a text\nfield, they must do it in a particular direction. This determines which end of\nthe selection moves when they change the selection by pressing Shift-Left or\nShift-Right.", + "raw": "data Direction = Forward | Backward", + "typeVariables": [], + "constructors": [ + { + "name": "Forward", + "type": { + "tag": "adt", + "name": "Direction", + "args": [] + } + }, + { + "name": "Backward", + "type": { + "tag": "adt", + "name": "Direction", + "args": [] + } + } + ] + } + ], + "values": [ + { + "name": "defaultStyle", + "comment": "The default style for a text field. The outline is `Color.grey` with width\n1 and radius 2. The highlight is `Color.blue` with width 1, and the default\ntext color is black.", + "raw": "defaultStyle : Style", + "type": { + "tag": "adt", + "name": "Style", + "args": [] + } + }, + { + "name": "email", + "comment": "Same as `field` but it adds an annotation that this field is for email\naddresses. This is helpful for auto-complete and for mobile users who may\nget a custom keyboard with an `@` and `.com` button.", + "raw": "email : Style -\u003e Handle a -\u003e (Content -\u003e a) -\u003e String -\u003e Content -\u003e Element", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Style", + "args": [] + }, + { + "tag": "adt", + "name": "Handle", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + }, + { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Content", + "args": [] + } + ], + "result": { + "tag": "var", + "name": "a" + } + }, + { + "tag": "adt", + "name": "String", + "args": [] + }, + { + "tag": "adt", + "name": "Content", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Element", + "args": [] + } + } + }, + { + "name": "field", + "comment": "Create a text field. The following example creates a time-varying element\ncalled `nameField`. As the user types their name, the field will be updated\nto match what they have entered.\n\n name : Input Content\n name = input noContent\n\n nameField : Signal Element\n nameField = field defaultStyle name.handle id \"Name\" \u003c~ name.signal\n\nWhen we use the `field` function, we first give it a visual style. This is\nthe first argument so that it is easier to define your own custom field\n(`myField = field myStyle`). The next two arguments are a `Handle` and a\nhandler function that processes or augments events before sending them along\nto the associated `Input`. In the example above we use the `id` function to\npass events along unchanged to the `name` `Input`. We then provide the\nplace-holder message to use when no input has been provided yet. Finally,\nwe give the current `Content` of the field. This argument is last because\nit is most likely to change frequently, making function composition easier.", + "raw": "field : Style -\u003e Handle a -\u003e (Content -\u003e a) -\u003e String -\u003e Content -\u003e Element", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Style", + "args": [] + }, + { + "tag": "adt", + "name": "Handle", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + }, + { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Content", + "args": [] + } + ], + "result": { + "tag": "var", + "name": "a" + } + }, + { + "tag": "adt", + "name": "String", + "args": [] + }, + { + "tag": "adt", + "name": "Content", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Element", + "args": [] + } + } + }, + { + "name": "noContent", + "comment": "A field with no content:\n\n Content \"\" (Selection 0 0 Forward)", + "raw": "noContent : Content", + "type": { + "tag": "adt", + "name": "Content", + "args": [] + } + }, + { + "name": "noHighlight", + "comment": "An highlight with zero width, so you cannot see it.", + "raw": "noHighlight : Highlight", + "type": { + "tag": "adt", + "name": "Highlight", + "args": [] + } + }, + { + "name": "noOutline", + "comment": "An outline with zero width, so you cannot see it.", + "raw": "noOutline : Outline", + "type": { + "tag": "adt", + "name": "Outline", + "args": [] + } + }, + { + "name": "password", + "comment": "Same as `field` but the UI element blocks out each characters.", + "raw": "password : Style -\u003e Handle a -\u003e (Content -\u003e a) -\u003e String -\u003e Content -\u003e Element", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Style", + "args": [] + }, + { + "tag": "adt", + "name": "Handle", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + }, + { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Content", + "args": [] + } + ], + "result": { + "tag": "var", + "name": "a" + } + }, + { + "tag": "adt", + "name": "String", + "args": [] + }, + { + "tag": "adt", + "name": "Content", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Element", + "args": [] + } + } + }, + { + "name": "uniformly", + "comment": "Create uniform dimensions:\n\n uniformly 4 == { left=4, right=4, top=4, bottom=4 }\n\nThe following example creates an outline where the left, right, top, and bottom\nedges all have width 1:\n\n Outline grey (uniformly 1) 4", + "raw": "uniformly : Int -\u003e Dimensions", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Int", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Dimensions", + "args": [] + } + } + } + ] +}, +{ + "name": "JavaScript.Experimental", + "document": "A pair of very experimental functions for converting between\nElm records and JavaScript objects. It currently uses a best effort\nconversion that can cause runtime errors. This API should change and\nimprove as we find its key failings.\n\n# Converting between Elm records and JS Objects\n@docs toRecord, fromRecord", + "aliases": [], + "datatypes": [ + { + "name": "RawObject", + "comment": "", + "raw": "data RawObject = RawObject", + "typeVariables": [], + "constructors": [ + { + "name": "RawObject", + "type": { + "tag": "adt", + "name": "RawObject", + "args": [] + } + } + ] + } + ], + "values": [ + { + "name": "fromJson", + "comment": "Turn a `Json.Value` (as described in the `Json` library) into a raw\nJavaScript object.", + "raw": "fromJson : Json.Value -\u003e RawObject", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Json.Value", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "RawObject", + "args": [] + } + } + }, + { + "name": "fromRecord", + "comment": "Turn arbitrary Elm records into JavaScript objects.\nLists become arrays, nested records are allowed. No ADTs.\n\n -- OK records\n { student=\"Steve\", scores=[83,94,99,72] }\n { errorLevel=10, critical=True }\n\n -- BAD records\n { answer = Nothing }\n { result = Left \"An error occurred\" }", + "raw": "fromRecord : a -\u003e RawObject", + "type": { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "a" + } + ], + "result": { + "tag": "adt", + "name": "RawObject", + "args": [] + } + } + }, + { + "name": "toJson", + "comment": "Turn a raw JavaScript object into a `Json.Value` as described in the\n`Json` library.", + "raw": "toJson : RawObject -\u003e Json.Value", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "RawObject", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Json.Value", + "args": [] + } + } + }, + { + "name": "toRecord", + "comment": "Turn arbitrary JavaScript objects into Elm records.\nArrays are converted into lists, nested objects are allowed.\nNo `null` values or non-homogeneous arrays.\n\n -- OK objects\n { student:\"Steve\", scores:[83,94,99,72] }\n { errorLevel:10, critical:true }\n\n -- BAD objects\n { answer:null }\n { info:[true,42,'what'] }", + "raw": "toRecord : RawObject -\u003e a", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "RawObject", "args": [] } ], diff --git a/data/elm-runtime.js b/data/elm-runtime.js --- a/data/elm-runtime.js +++ b/data/elm-runtime.js @@ -1,8303 +1,8999 @@ 'use strict'; var Elm = {}; Elm.Native = {}; Elm.Native.Graphics = {}; var ElmRuntime = {}; ElmRuntime.Render = {}; - -Elm.Native.Basics = {}; -Elm.Native.Basics.make = function(elm) { - elm.Native = elm.Native || {}; - elm.Native.Basics = elm.Native.Basics || {}; - if (elm.Native.Basics.values) return elm.Native.Basics.values; - - var JS = Elm.Native.JavaScript.make(elm); - var Utils = Elm.Native.Utils.make(elm); - - function div(a,b) { return (a/b)|0; } - function rem(a,b) { return a % b; } - var mod = Utils.mod; - function abs(x) { return x < 0 ? -x : x; } - function logBase(base,n) { return Math.log(n) / Math.log(base); } - function min(a,b) { return Utils.cmp(a,b) < 0 ? a : b; } - function max(a,b) { return Utils.cmp(a,b) > 0 ? a : b; } - function clamp(lo,hi,n) { - return Utils.cmp(n,lo) < 0 ? lo : Utils.cmp(n,hi) > 0 ? hi : n; } - function xor(a,b) { return a !== b; } - function not(b) { return !b; } - function isInfinite(n) { return n === Infinity || n === -Infinity } - - function truncate(n) { return n|0; } - - var basics = { - div:F2(div), - rem:F2(rem), - mod:mod, - - pi:Math.PI, - e:Math.E, - cos:Math.cos, - sin:Math.sin, - tan:Math.tan, - acos:Math.acos, - asin:Math.asin, - atan:Math.atan, - atan2:F2(Math.atan2), - - sqrt:Math.sqrt, - abs:abs, - logBase:F2(logBase), - min:F2(min), - max:F2(max), - clamp:F3(clamp), - compare:Utils.compare, - - xor:F2(xor), - not:not, - - truncate:truncate, - ceiling:Math.ceil, - floor:Math.floor, - round:Math.round, - toFloat:function(x) { return x; }, - isNaN:isNaN, - isInfinite:isInfinite - }; - - return elm.Native.Basics.values = basics; -}; -Elm.Native.Bitwise = {}; -Elm.Native.Bitwise.make = function(elm) { - elm.Native = elm.Native || {}; - elm.Native.Bitwise = elm.Native.Bitwise || {}; - if (elm.Native.Bitwise.values) return elm.Native.Bitwise.values; - - function and(a,b) { return a & b; } - function or (a,b) { return a | b; } - function xor(a,b) { return a ^ b; } - function not(a) { return ~a; } - function sll(a,offset) { return a << offset; } - function sra(a,offset) { return a >> offset; } - function srl(a,offset) { return a >>> offset; } - - return elm.Native.Bitwise.values = { - and: F2(and), - or : F2(or ), - xor: F2(xor), - complement: not, - shiftLeft : F2(sll), - shiftRightArithmatic: F2(sra), - shiftRightLogical : F2(srl), - }; - -}; -Elm.Native.Char = {}; -Elm.Native.Char.make = function(elm) { - elm.Native = elm.Native || {}; - elm.Native.Char = elm.Native.Char || {}; - if (elm.Native.Char.values) return elm.Native.Char.values; - - function isBetween(lo,hi) { return function(chr) { - var c = chr.charCodeAt(0); - return lo <= c && c <= hi; - }; - } - var isDigit = isBetween('0'.charCodeAt(0),'9'.charCodeAt(0)); - var chk1 = isBetween('a'.charCodeAt(0),'f'.charCodeAt(0)); - var chk2 = isBetween('A'.charCodeAt(0),'F'.charCodeAt(0)); - - return elm.Native.Char.values = { - fromCode : function(c) { return String.fromCharCode(c); }, - toCode : function(c) { return c.toUpperCase().charCodeAt(0); }, - toUpper : function(c) { return c.toUpperCase(); }, - toLower : function(c) { return c.toLowerCase(); }, - toLocaleUpper : function(c) { return c.toLocaleUpperCase(); }, - toLocaleLower : function(c) { return c.toLocaleLowerCase(); }, - isLower : isBetween('a'.charCodeAt(0),'z'.charCodeAt(0)), - isUpper : isBetween('A'.charCodeAt(0),'Z'.charCodeAt(0)), - isDigit : isDigit, - isOctDigit : isBetween('0'.charCodeAt(0),'7'.charCodeAt(0)), - isHexDigit : function(c) { return isDigit(c) || chk1(c) || chk2(c); } - }; -}; -Elm.Native.Color = {}; -Elm.Native.Color.make = function(elm) { - elm.Native = elm.Native || {}; - elm.Native.Color = elm.Native.Color || {}; - if (elm.Native.Color.values) return elm.Native.Color.values; - - var Utils = Elm.Native.Utils.make(elm); - - function toCss(c) { - return (c._3 === 1) - ? ('rgb(' + c._0 + ', ' + c._1 + ', ' + c._2 + ')') - : ('rgba(' + c._0 + ', ' + c._1 + ', ' + c._2 + ', ' + c._3 + ')'); - } - - function complement(rgb) { - var hsv = toHSV(rgb); - hsv.hue = (hsv.hue + 180) % 360; - return toRGB(hsv); - } - - function hsva(h,s,v,a) { - var degree = A2(Utils.mod, h * 180 / Math.PI, 360); - var clr = toRGB({hue:degree, saturation:s, value:v}); - clr._3 = a; - return clr; - } - - function hsv(h,s,v) { - var degree = A2(Utils.mod, h * 180 / Math.PI, 360); - return toRGB({hue:degree, saturation:s, value:v}); - } - - function toHSV(rgb) { - var hsv = {}; - var r = rgb._0 / 255.0, g = rgb._1 / 255.0, b = rgb._2 / 255.0; - var M = Math.max(r,g,b); - var m = Math.min(r,g,b); - var c = M - m; - - var h = 0; - if (c === 0) { h = 0; } - else if (M === r) { h = ((g - b) / c) % 6; } - else if (M === g) { h = ((b - r) / c) + 2; } - else if (M === b) { h = ((r - g) / c) + 4; } - h *= 60; - - return { value : M, hue : h, saturation : (M === 0 ? 0 : c / M) }; - } - - function between(lo,hi,x) { return lo <= x && x < hi; } - function norm(n) { return Math.round(n*255); } - - function toRGB(hsv) { - var c = hsv.value * hsv.saturation; - var hue = hsv.hue / 60; - var x = c * (1 - Math.abs((hue % 2) - 1)); - var r = 0, g = 0, b = 0; - if (between(0,1,hue)) { r = c; g = x; b = 0; } - else if (between(1,2,hue)) { r = x; g = c; b = 0; } - else if (between(2,3,hue)) { r = 0; g = c; b = x; } - else if (between(3,4,hue)) { r = 0; g = x; b = c; } - else if (between(4,5,hue)) { r = x; g = 0; b = c; } - else if (between(5,6,hue)) { r = c; g = 0; b = x; } - - var m = hsv.value - c; - return { ctor:"Color", _0:norm(r+m), _1:norm(g+m), _2:norm(b+m), _3:1 }; - } - - return elm.Native.Color.values = { - hsva:F4(hsva), - hsv:F3(hsv), - complement:complement, - toCss:toCss - }; - -}; -Elm.Native.Date = {}; -Elm.Native.Date.make = function(elm) { - elm.Native = elm.Native || {}; - elm.Native.Date = elm.Native.Date || {}; - if (elm.Native.Date.values) return elm.Native.Date.values; - - var JS = Elm.JavaScript.make(elm); - var Maybe = Elm.Maybe.make(elm); - - function dateNow() { return new window.Date; } - function readDate(str) { - var d = new window.Date(JS.fromString(str)); - if (isNaN(d.getTime())) return Maybe.Nothing; - return Maybe.Just(d); - } - - var dayTable = ["Sun", "Mon", "Tue", "Wed", "Thu", "Fri", "Sat"]; - var monthTable = ["Jan", "Feb", "Mar", "Apr", "May", "Jun", - "Jul", "Aug", "Sep", "Oct", "Nov", "Dec"]; - - return elm.Native.Date.values = { - read : readDate, - year : function(d) { return d.getFullYear(); }, - month : function(d) { return { ctor:monthTable[d.getMonth()] }; }, - day : function(d) { return d.getDate(); }, - hour : function(d) { return d.getHours(); }, - minute : function(d) { return d.getMinutes(); }, - second : function(d) { return d.getSeconds(); }, - toTime : function(d) { return d.getTime(); }, - fromTime: function(t) { return new window.Date(t); }, - dayOfWeek : function(d) { return { ctor:dayTable[d.getDay()] }; } - }; - -}; -Elm.Native.Debug = {}; -Elm.Native.Debug.make = function(elm) { - elm.Native = elm.Native || {}; - elm.Native.Debug = elm.Native.Debug || {}; - if (elm.Native.Debug.values) return elm.Native.Debug.values; - - var show = Elm.Native.Show.make(elm).show; - - function log(tag,value) { - var msg = tag + ': ' + show(value); - var process = process || {}; - if (process.stdout) { - process.stdout.write(msg); - } else { - console.log(msg); - } - return value; - } - - return elm.Native.Debug.values = { - log: F2(log) - }; - -}; -Elm.Native.Error = {}; -Elm.Native.Error.make = function(elm) { - elm.Native = elm.Native || {}; - elm.Native.Error = elm.Native.Error || {}; - if (elm.Native.Error.values) return elm.Native.Error.values; - - var fromString = Elm.Native.JavaScript.make(elm).fromString; - - function indent(lines) { - var msg = ''; - for (var i = 0; i < lines.length; ++i) { - msg += '
    ' + lines[i]; - } - return msg; - } - - function Case(moduleName, span) { - var msg = indent(['Non-exhaustive pattern match in case-expression.', - 'Make sure your patterns cover every case!']); - throw new Error('Runtime error in module ' + moduleName + ' (' + span + '):' + msg); - } - - function If(moduleName, span) { - var msg = indent(['Non-exhaustive pattern match in multi-way-if expression.', - 'It is best to use \'otherwise\' as the last branch of multi-way-if.']); - throw new Error('Runtime error in module ' + moduleName + ' (' + span + '):' + msg); - } - - function raise(str) { throw new Error(fromString(str)); } - - return elm.Native.Error.values = { Case: Case, If: If, raise: raise }; -}; -function F2(fun) { - function wrapper(a) { return function(b) { return fun(a,b) } } - wrapper.arity = 2; - wrapper.func = fun; - return wrapper; -} - -function F3(fun) { - function wrapper(a) { - return function(b) { return function(c) { return fun(a,b,c) }} - } - wrapper.arity = 3; - wrapper.func = fun; - return wrapper; -} - -function F4(fun) { - function wrapper(a) { return function(b) { return function(c) { - return function(d) { return fun(a,b,c,d) }}} - } - wrapper.arity = 4; - wrapper.func = fun; - return wrapper; -} - -function F5(fun) { - function wrapper(a) { return function(b) { return function(c) { - return function(d) { return function(e) { return fun(a,b,c,d,e) }}}} - } - wrapper.arity = 5; - wrapper.func = fun; - return wrapper; -} - -function F6(fun) { - function wrapper(a) { return function(b) { return function(c) { - return function(d) { return function(e) { return function(f) { - return fun(a,b,c,d,e,f) }}}}} - } - wrapper.arity = 6; - wrapper.func = fun; - return wrapper; -} - -function F7(fun) { - function wrapper(a) { return function(b) { return function(c) { - return function(d) { return function(e) { return function(f) { - return function(g) { return fun(a,b,c,d,e,f,g) }}}}}} - } - wrapper.arity = 7; - wrapper.func = fun; - return wrapper; -} - -function F8(fun) { - function wrapper(a) { return function(b) { return function(c) { - return function(d) { return function(e) { return function(f) { - return function(g) { return function(h) {return fun(a,b,c,d,e,f,g,h)}}}}}}} - } - wrapper.arity = 8; - wrapper.func = fun; - return wrapper; -} - -function F9(fun) { - function wrapper(a) { return function(b) { return function(c) { - return function(d) { return function(e) { return function(f) { - return function(g) { return function(h) { return function(i) { - return fun(a,b,c,d,e,f,g,h,i) }}}}}}}} - } - wrapper.arity = 9; - wrapper.func = fun; - return wrapper; -} - -function A2(fun,a,b) { - return fun.arity === 2 ? fun.func(a,b) : fun(a)(b); -} -function A3(fun,a,b,c) { - return fun.arity === 3 ? fun.func(a,b,c) : fun(a)(b)(c); -} -function A4(fun,a,b,c,d) { - return fun.arity === 4 ? fun.func(a,b,c,d) : fun(a)(b)(c)(d); -} -function A5(fun,a,b,c,d,e) { - return fun.arity === 5 ? fun.func(a,b,c,d,e) : fun(a)(b)(c)(d)(e); -} -function A6(fun,a,b,c,d,e,f) { - return fun.arity === 6 ? fun.func(a,b,c,d,e,f) : fun(a)(b)(c)(d)(e)(f); -} -function A7(fun,a,b,c,d,e,f,g) { - return fun.arity === 7 ? fun.func(a,b,c,d,e,f,g) : fun(a)(b)(c)(d)(e)(f)(g); -} -function A8(fun,a,b,c,d,e,f,g,h) { - return fun.arity === 8 ? fun.func(a,b,c,d,e,f,g,h) : fun(a)(b)(c)(d)(e)(f)(g)(h); -} -function A9(fun,a,b,c,d,e,f,g,h,i) { - return fun.arity === 9 ? fun.func(a,b,c,d,e,f,g,h,i) - : fun(a)(b)(c)(d)(e)(f)(g)(h)(i); -} -Elm.Native.JavaScript = {}; -Elm.Native.JavaScript.make = function(elm) { - elm.Native = elm.Native || {}; - elm.Native.JavaScript = elm.Native.JavaScript || {}; - if (elm.Native.JavaScript.values) return elm.Native.JavaScript.values; - - var List = Elm.Native.List.make(elm); - var Render = ElmRuntime.use(ElmRuntime.Render.Element); - - function fromJS(v) { - var type = typeof v; - if (type === 'number' ) return v; - if (type === 'boolean') return v; - if (type === 'string' ) return v; - if (v instanceof Array) { - var arr = []; - var len = v.length; - for (var i = 0; i < len; ++i) { - var x = fromJS(v[i]); - if (x !== null) arr.push(x); - } - return List.fromArray(arr); - } - if (type === 'object') { - var rec = { _:{} }; - for (var f in v) { - var x = fromJS(v[f]); - if (x !== null) rec[f] = x; - } - return rec; - } - return null; - } - - function toJS(v) { - var type = typeof v; - if (type === 'number' || type === 'boolean' || type === 'string') return v; - if (type === 'object' && '_' in v) { - var obj = {}; - for (var k in v) { - var x = toJS(v[k]); - if (x !== null) obj[k] = x; - } - return obj; - } - if (type === 'object' && (v.ctor === '::' || v.ctor === '[]')) { - var array = List.toArray(v); - for (var i = array.length; i--; ) { - array[i] = toJS(array[i]); - } - return array; - } - return null; - } - - function fromRecord(r) { - if (typeof r === 'object' && '_' in r) { - return toJS(r); - } - throw new Error("'fromRecord' must be called on a record."); - } - - function id(n) { return n; } - - function toElement(w,h,domNode) { - return A3( newElement, w, h, { - ctor: 'Custom', - type: 'DomNode', - render: function(node) { return node; }, - update: function(node,oldNode,newNode) { - if (node === newNode) return; - node.parentNode.replaceChild(newNode, node); - }, - model: domNode - }); - } - - function fromElement(element) { - return Render.render(element); - } - - return elm.Native.JavaScript.values = { - toInt : function(n) { return n|0; }, - toFloat : function(n) { return +n; }, - toBool : id, - toString : id, - toList : List.fromArray, - fromString : id, - fromList : List.toArray, - fromInt : id, - fromFloat : id, - fromBool : id, - - toElement : toElement, - fromElement : fromElement, - toRecord : fromJS, - fromRecord : fromRecord - }; - -}; -Elm.Native.Json = {}; -Elm.Native.Json.make = function(elm) { - - elm.Native = elm.Native || {}; - elm.Native.Json = elm.Native.Json || {}; - if (elm.Native.Json.values) return elm.Native.Json.values; - - var Maybe = Elm.Maybe.make(elm); - var Dict = Elm.Dict.make(elm); - var List = Elm.List.make(elm); - var JS = Elm.JavaScript.make(elm); - var Utils = Elm.Native.Utils.make(elm); - - function fromValue(v) { - switch (v.ctor) { - case 'Null' : return null; - case 'String' : return JS.fromString(v._0); - case 'Object' : - var obj = {}; - var array = JS.fromList(Dict.toList(v._0)); - for (var i = array.length; i--; ) { - obj[JS.fromString(array[i]._0)] = fromValue(array[i]._1); - } - return obj; - case 'Array' : - var array = JS.fromList(v._0); - for (var i = array.length; i--; ) { - array[i] = fromValue(array[i]); - } - return array; - default : - return v._0; - } - } - - function toPrettyJSString(sep, obj) { - return JSON.stringify(fromValue(obj), null, JS.fromString(sep)); - } - - function toValue(v) { - switch (typeof v) { - case 'string' : return { ctor:"String", _0: JS.toString(v) }; - case 'number' : return { ctor:"Number", _0: JS.toFloat(v) }; - case 'boolean': return { ctor:"Boolean" , _0: JS.toBool(v) }; - case 'object' : - if (v === null) return { ctor:"Null" }; - if (v instanceof Array) { - for (var i = v.length; i--; ) { v[i] = toValue(v[i]); } - return { ctor:"Array", _0: JS.toList(v) }; - } - var array = []; - for (var k in v) array.push(Utils.Tuple2(JS.toString(k), toValue(v[k]))); - return { ctor:"Object", _0: Dict.fromList(JS.toList(array)) }; - } - } - - function fromJSString(str) { - try { - return Maybe.Just(toValue(JSON.parse(str))); - } catch (e) { - return Maybe.Nothing; - } - } - - return elm.Native.Json.values = { - toJSString : F2(toPrettyJSString), - fromJSString : fromJSString, - toJSObject : fromValue, - fromJSObject : toValue - }; - -}; -Elm.Native.List = {}; -Elm.Native.List.make = function(elm) { - elm.Native = elm.Native || {}; - elm.Native.List = elm.Native.List || {}; - if (elm.Native.List.values) return elm.Native.List.values; - if ('values' in Elm.Native.List) - return elm.Native.List.values = Elm.Native.List.values; - - var Utils = Elm.Native.Utils.make(elm); - - // TODO: Improve Nil handling - // We can change places like: if (xs.ctor === '[]') ... to if (xs === Nil) ... - // but only if we're confident Nil can only be defined once. - // Currently (27Mar2013) each module can have different instantiations, so multiple Nil objects can exist - // (and if they're used interchangeably then direct object comparison fails where ctor doesn't). - // So, this can only be fixed when modules initialisation is also fixed. - // The performance overhead of the .ctor calls is 5-10% according to jsperf (depending on fn + list size) - // (on firefox 19) - - var Nil = { ctor:'[]' }; - - // using freeze for every cons would be nice but is a huge (9x on firefox 19) - // performance penalty - function Cons(hd,tl) { return { ctor:"::", _0:hd, _1:tl }; } - - function throwError(f) { - throw new Error("Function '" + f + "' expects a non-empty list!"); - } - - function toArray(xs) { - var out = []; - while (xs.ctor !== '[]') { - out.push(xs._0); - xs = xs._1; - } - return out; - } - - function fromArray(arr) { - var out = Nil; - for (var i = arr.length; i--; ) { - out = Cons(arr[i], out); - } - return out; - } - - function range(lo,hi) { - var lst = Nil; - if (lo <= hi) { - do { lst = Cons(hi,lst) } while (hi-->lo); - } - return lst - } - - function append(xs,ys) { - // append Text - if (xs.text || ys.text) { - return Utils.txt(Utils.makeText(xs) + Utils.makeText(ys)); - } - - // append Strings - if (typeof xs === "string") return xs + ys; - - // append Lists - if (xs.ctor === '[]') { return ys; } - var root = Cons(xs._0, Nil); - var curr = root; - xs = xs._1; - while (xs.ctor !== '[]') { - curr._1 = Cons(xs._0, Nil); - xs = xs._1; - curr = curr._1; - } - curr._1 = ys; - return root; - } - - function head(v) { return v.ctor === '[]' ? throwError('head') : v._0; } - function tail(v) { return v.ctor === '[]' ? throwError('tail') : v._1; } - - function last(xs) { - if (xs.ctor === '[]') { throwError('last'); } - var out = xs._0; - while (xs.ctor !== '[]') { - out = xs._0; - xs = xs._1; - } - return out; - } - - function map(f, xs) { - var arr = []; - while (xs.ctor !== '[]') { - arr.push(f(xs._0)); - xs = xs._1; - } - return fromArray(arr); - } - - // f defined similarly for both foldl and foldr (NB: different from Haskell) - // ie, foldl : (a -> b -> b) -> b -> [a] -> b - function foldl(f, b, xs) { - var acc = b; - while (xs.ctor !== '[]') { - acc = A2(f, xs._0, acc); - xs = xs._1; - } - return acc; - } - - function foldr(f, b, xs) { - var arr = toArray(xs); - var acc = b; - for (var i = arr.length; i--; ) { - acc = A2(f, arr[i], acc); - } - return acc; - } - - function foldl1(f, xs) { - return xs.ctor === '[]' ? throwError('foldl1') : foldl(f, xs._0, xs._1); - } - - function foldr1(f, xs) { - if (xs.ctor === '[]') { throwError('foldr1'); } - var arr = toArray(xs); - var acc = arr.pop(); - for (var i = arr.length; i--; ) { - acc = A2(f, arr[i], acc); - } - return acc; - } - - function scanl(f, b, xs) { - var arr = toArray(xs); - arr.unshift(b); - var len = arr.length; - for (var i = 1; i < len; ++i) { - arr[i] = A2(f, arr[i], arr[i-1]); - } - return fromArray(arr); - } - - function scanl1(f, xs) { - return xs.ctor === '[]' ? throwError('scanl1') : scanl(f, xs._0, xs._1); - } - - function filter(pred, xs) { - var arr = []; - while (xs.ctor !== '[]') { - if (pred(xs._0)) { arr.push(xs._0); } - xs = xs._1; - } - return fromArray(arr); - } - - function length(xs) { - var out = 0; - while (xs.ctor !== '[]') { - out += 1; - xs = xs._1; - } - return out; - } - - function member(x, xs) { - while (xs.ctor !== '[]') { - if (Utils.eq(x,xs._0)) return true; - xs = xs._1; - } - return false; - } - - function reverse(xs) { return fromArray(toArray(xs).reverse()); } - - function concat(xss) { - if (xss.ctor === '[]') return xss; - var arr = toArray(xss); - var xs = arr[arr.length-1]; - for (var i = arr.length-1; i--; ) { - xs = append(arr[i], xs); - } - return xs; - } - - function all(pred, xs) { - while (xs.ctor !== '[]') { - if (!pred(xs._0)) return false; - xs = xs._1; - } - return true; - } - - function any(pred, xs) { - while (xs.ctor !== '[]') { - if (pred(xs._0)) return true; - xs = xs._1; - } - return false; - } - - function zipWith(f, xs, ys) { - var arr = []; - while (xs.ctor !== '[]' && ys.ctor !== '[]') { - arr.push(A2(f, xs._0, ys._0)); - xs = xs._1; - ys = ys._1; - } - return fromArray(arr); - } - - function zip(xs, ys) { - var arr = []; - while (xs.ctor !== '[]' && ys.ctor !== '[]') { - arr.push(Utils.Tuple2(xs._0, ys._0)); - xs = xs._1; - ys = ys._1; - } - return fromArray(arr); - } - - function sort(xs) { - return fromArray(toArray(xs).sort(Utils.cmp)); - } - - function sortBy(f, xs) { - return fromArray(toArray(xs).sort(function(a,b){ - return Utils.cmp(f(a), f(b)); - })); - } - - function sortWith(f, xs) { - return fromArray(toArray(xs).sort(function(a,b){ - var ord = f(a)(b).ctor; - return ord === 'EQ' ? 0 : ord === 'LT' ? -1 : 1; - })); - } - - function nth(xs, n) { - return toArray(xs)[n]; - } - - function take(n, xs) { - var arr = []; - while (xs.ctor !== '[]' && n > 0) { - arr.push(xs._0); - xs = xs._1; - --n; - } - return fromArray(arr); - } - - function drop(n, xs) { - while (xs.ctor !== '[]' && n > 0) { - xs = xs._1; - --n; - } - return xs; - } - - function repeat(n, x) { - var arr = []; - var pattern = [x]; - while (n > 0) { - if (n & 1) arr = arr.concat(pattern); - n >>= 1, pattern = pattern.concat(pattern); - } - return fromArray(arr); - } - - function join(sep, xss) { - if (sep.text) { - sep = Utils.makeText(sep); - xss = toArray(xss); - for (var i = xss.length; i--; ) { - xss[i] = Utils.makeText(xss[i]); - } - return Utils.txt(xss.join(sep)); - } - if (typeof sep === 'string') return toArray(xss).join(sep); - if (xss.ctor === '[]') return Nil; - var s = toArray(sep); - var out = toArray(xss._0); - xss = xss._1; - while (xss.ctor !== '[]') { - out = out.concat(s, toArray(xss._0)); - xss = xss._1; - } - return fromArray(out); - } - - Elm.Native.List.values = { - Nil:Nil, - Cons:Cons, - cons:F2(Cons), - toArray:toArray, - fromArray:fromArray, - range:range, - append:append, - - head:head, - tail:tail, - last:last, - - map:F2(map), - foldl:F3(foldl), - foldr:F3(foldr), - - foldl1:F2(foldl1), - foldr1:F2(foldr1), - scanl:F3(scanl), - scanl1:F2(scanl1), - filter:F2(filter), - length:length, - member:F2(member), - reverse:reverse, - concat:concat, - - all:F2(all), - any:F2(any), - zipWith:F3(zipWith), - zip:F2(zip), - sort:sort, - sortBy:F2(sortBy), - sortWith:F2(sortWith), - nth:F2(nth), - take:F2(take), - drop:F2(drop), - repeat:F2(repeat), - - join:F2(join) - }; - return elm.Native.List.values = Elm.Native.List.values; - -}; -Elm.Native.Ports = {}; -Elm.Native.Ports.make = function(elm) { - elm.Native = elm.Native || {}; - elm.Native.Ports = elm.Native.Ports || {}; - if (elm.Native.Ports.values) return elm.Native.Ports.values; - - var Signal = Elm.Signal.make(elm); - - function incomingSignal(converter) { - converter.isSignal = true; - return converter; - } - - function outgoingSignal(converter) { - return function(signal) { - var subscribers = [] - function subscribe(handler) { - subscribers.push(handler); - } - function unsubscribe(handler) { - subscribers.pop(subscribers.indexOf(handler)); - } - A2( Signal.lift, function(value) { - var val = converter(value); - var len = subscribers.length; - for (var i = 0; i < len; ++i) { - subscribers[i](val); - } - }, signal); - return { subscribe:subscribe, unsubscribe:unsubscribe }; - } - } - - function portIn(name, converter) { - var jsValue = elm.ports.incoming[name]; - if (jsValue === undefined) { - throw new Error("Initialization Error: port '" + name + - "' was not given an input!"); - } - elm.ports.uses[name] += 1; - try { - var elmValue = converter(jsValue); - } catch(e) { - throw new Error("Initialization Error on port '" + name + "': \n" + e.message); - } - - // just return a static value if it is not a signal - if (!converter.isSignal) { - return elmValue; - } - - // create a signal if necessary - var signal = Signal.constant(elmValue); - function send(jsValue) { - try { - var elmValue = converter(jsValue); - } catch(e) { - throw new Error("Error sending to port '" + name + "': \n" + e.message); - } - setTimeout(function() { - elm.notify(signal.id, elmValue); - }, 0); - } - elm.ports.outgoing[name] = { send:send }; - return signal; - } - - function portOut(name, converter, value) { - try { - elm.ports.outgoing[name] = converter(value); - } catch(e) { - throw new Error("Initialization Error on port '" + name + "': \n" + e.message); - } - return value; - } - - return elm.Native.Ports.values = { - incomingSignal: incomingSignal, - outgoingSignal: outgoingSignal, - portOut: portOut, - portIn: portIn - }; -}; -Elm.Native.Regex = {}; -Elm.Native.Regex.make = function(elm) { - elm.Native = elm.Native || {}; - elm.Native.Regex = elm.Native.Regex || {}; - if (elm.Native.Regex.values) return elm.Native.Regex.values; - if ('values' in Elm.Native.Regex) - return elm.Native.Regex.values = Elm.Native.Regex.values; - - var Maybe = Elm.Maybe.make(elm); - var JS = Elm.JavaScript.make(elm); - - function escape(str) { - return str.replace(/[-\/\\^$*+?.()|[\]{}]/g, '\\$&'); - } - function caseInsensitive(re) { - return new RegExp(re.source, 'gi'); - } - function regex(raw) { - return new RegExp(raw, 'g'); - } - - function contains(re, string) { - return JS.fromString(string).match(re) !== null; - } - - function find(n, re, str) { - n = n.ctor === "All" ? Infinity : n._0; - var out = []; - var number = 0; - var string = JS.fromString(str); - var result; - while (number++ < n && (result = re.exec(string))) { - var i = result.length - 1; - var subs = new Array(i); - while (i > 0) { - var submatch = result[i]; - subs[--i] = submatch === undefined - ? Maybe.Nothing - : Maybe.Just(JS.toString(submatch)); - } - out.push({ - _:{}, - match: JS.toString(result[0]), - submatches: JS.toList(subs), - index: result.index, - number: number, - }); - } - return JS.toList(out); - } - - function replace(n, re, replacer, string) { - n = n.ctor === "All" ? Infinity : n._0; - var count = 0; - function jsReplacer(match) { - if (count++ > n) return match; - var i = arguments.length-3; - var submatches = new Array(i); - while (i > 0) { - var submatch = arguments[i]; - submatches[--i] = submatch === undefined - ? Maybe.Nothing - : Maybe.Just(JS.toString(submatch)); - } - return JS.fromString(replacer({ - _:{}, - match:match, - submatches:JS.toList(submatches), - index:arguments[i-1], - number:count - })); - } - return string.replace(re, jsReplacer); - } - - function split(n, re, str) { - if (n === Infinity) { - return JS.toList(JS.fromString(string).split(re)); - } - var string = JS.fromString(str); - var result; - var out = []; - var start = re.lastIndex; - while (n--) { - if (!(result = re.exec(string))) break; - out.push(string.slice(start, result.index)); - start = re.lastIndex; - } - out.push(string.slice(start)); - return JS.toList(out); - } - - return Elm.Native.Regex.values = { - regex: regex, - caseInsensitive: caseInsensitive, - escape: escape, - - contains: F2(contains), - find: F3(find), - replace: F4(replace), - split: F3(split), - }; -}; -Elm.Native.Show = {}; -Elm.Native.Show.make = function(elm) { - elm.Native = elm.Native || {}; - elm.Native.Show = elm.Native.Show || {}; - if (elm.Native.Show.values) return elm.Native.Show.values; - - var NList = Elm.Native.List.make(elm); - var List = Elm.List.make(elm); - var Dict = Elm.Dict.make(elm); - var Tuple2 = Elm.Native.Utils.make(elm).Tuple2; - - var toString = function(v) { - var type = typeof v; - if (type === "function") { - var name = v.func ? v.func.name : v.name; - return ''; - } else if (type === "boolean") { - return v ? "True" : "False"; - } else if (type === "number") { - return v+""; - } else if ((v instanceof String) && v.isChar) { - return "'" + addSlashes(v) + "'"; - } else if (type === "string") { - return '"' + addSlashes(v) + '"'; - } else if (type === "object" && '_' in v && probablyPublic(v)) { - var output = []; - for (var k in v._) { - for (var i = v._[k].length; i--; ) { - output.push(k + " = " + toString(v._[k][i])); - } - } - for (var k in v) { - if (k === '_') continue; - output.push(k + " = " + toString(v[k])); - } - if (output.length === 0) return "{}"; - return "{ " + output.join(", ") + " }"; - } else if (type === "object" && 'ctor' in v) { - if (v.ctor.substring(0,6) === "_Tuple") { - var output = []; - for (var k in v) { - if (k === 'ctor') continue; - output.push(toString(v[k])); - } - return "(" + output.join(",") + ")"; - } else if (v.ctor === "::") { - var output = '[' + toString(v._0); - v = v._1; - while (v.ctor === "::") { - output += "," + toString(v._0); - v = v._1; - } - return output + ']'; - } else if (v.ctor === "[]") { - return "[]"; - } else if (v.ctor === "RBNode" || v.ctor === "RBEmpty") { - var cons = F3(function(k,v,acc){return NList.Cons(Tuple2(k,v),acc)}); - var list = A3(Dict.foldr, cons, NList.Nil, v); - var name = "Dict"; - if (list.ctor === "::" && list._0._1.ctor === "_Tuple0") { - name = "Set"; - list = A2(List.map, function(x){return x._0}, list); - } - return name + ".fromList " + toString(list); - } else { - var output = ""; - for (var i in v) { - if (i === 'ctor') continue; - var str = toString(v[i]); - var parenless = str[0] === '{' || str[0] === '<' || str.indexOf(' ') < 0; - output += ' ' + (parenless ? str : '(' + str + ')'); - } - return v.ctor + output; - } - } - if (type === 'object' && 'recv' in v) return ''; - return ""; - }; - - function addSlashes(str) { - return str.replace(/\\/g, '\\\\') - .replace(/\n/g, '\\n') - .replace(/\t/g, '\\t') - .replace(/\r/g, '\\r') - .replace(/\v/g, '\\v') - .replace(/\0/g, '\\0') - .replace(/\'/g, "\\'") - .replace(/\"/g, '\\"'); - } - - function probablyPublic(v) { - var keys = Object.keys(v); - var len = keys.length; - if (len === 3 - && 'props' in v - && 'element' in v) return false; - if (len === 5 - && 'horizontal' in v - && 'vertical' in v - && 'x' in v - && 'y' in v) return false; - if (len === 7 - && 'theta' in v - && 'scale' in v - && 'x' in v - && 'y' in v - && 'alpha' in v - && 'form' in v) return false; - return true; - } - - return elm.Native.Show.values = { show:toString }; -}; -Elm.Native.String = {}; -Elm.Native.String.make = function(elm) { - elm.Native = elm.Native || {}; - elm.Native.String = elm.Native.String || {}; - if (elm.Native.String.values) return elm.Native.String.values; - if ('values' in Elm.Native.String) - return elm.Native.String.values = Elm.Native.String.values; - - var Char = Elm.Char.make(elm); - var Maybe = Elm.Maybe.make(elm); - var JS = Elm.JavaScript.make(elm); - var Utils = Elm.Native.Utils.make(elm); - - function isEmpty(str) { - return str.length === 0; - } - function cons(chr,str) { - return chr + str; - } - function uncons(str) { - var hd; - return (hd = str[0]) ? Maybe.Just(Utils.Tuple2(Utils.chr(hd), str.slice(1))) - : Maybe.Nothing; - } - function append(a,b) { - return a + b; - } - function concat(strs) { - return JS.fromList(strs).join(''); - } - function length(str) { - return str.length; - } - function map(f,str) { - var out = str.split(''); - for (var i = out.length; i--; ) { - out[i] = f(Utils.chr(out[i])); - } - return out.join(''); - } - function filter(pred,str) { - return str.split('').map(Utils.chr).filter(pred).join(''); - } - function reverse(str) { - return str.split('').reverse().join(''); - } - function foldl(f,b,str) { - var len = str.length; - for (var i = 0; i < len; ++i) { - b = A2(f, Utils.chr(str[i]), b); - } - return b; - } - function foldr(f,b,str) { - for (var i = str.length; i--; ) { - b = A2(f, Utils.chr(str[i]), b); - } - return b; - } - - function split(sep, str) { - return JS.toList(str.split(sep)); - } - function join(sep, strs) { - return JS.fromList(strs).join(sep); - } - function repeat(n, str) { - var result = ''; - while (n > 0) { - if (n & 1) result += str; - n >>= 1, str += str; - } - return result; - } - - function sub(start, end, str) { - return str.slice(start,end); - } - function left(n, str) { - return n < 1 ? "" : str.slice(0,n); - } - function right(n, str) { - return n < 1 ? "" : str.slice(-n); - } - function dropLeft(n, str) { - return n < 1 ? str : str.slice(n); - } - function dropRight(n, str) { - return n < 1 ? str : str.slice(0,-n); - } - - function pad(n,chr,str) { - var half = (n - str.length) / 2; - return repeat(Math.ceil(half),chr) + str + repeat(half|0,chr); - } - function padRight(n,chr,str) { - return str + repeat(n - str.length, chr); - } - function padLeft(n,chr,str) { - return repeat(n - str.length, chr) + str; - } - - function trim(str) { - return str.trim(); - } - function trimLeft(str) { - return str.trimLeft(); - } - function trimRight(str) { - return str.trimRight(); - } - - function words(str) { - return JS.toList(str.split(/\s+/g)); - } - function lines(str) { - return JS.toList(str.split(/\r\n|\r|\n/g)); - } - - function toUpper(str) { - return str.toUpperCase(); - } - function toLower(str) { - return str.toLowerCase(); - } - - function any(pred, str) { - for (var i = str.length; i--; ) { - if (pred(Utils.chr(str[i]))) return true; - } - return false; - } - function all(pred, str) { - for (var i = str.length; i--; ) { - if (!pred(Utils.chr(str[i]))) return false; - } - return true; - } - - function contains(sub, str) { - return str.indexOf(sub) > -1; - } - function startsWith(sub, str) { - return str.indexOf(sub) === 0; - } - function endsWith(sub, str) { - return str.length >= sub.length && - str.lastIndexOf(sub) === str.length - sub.length; - } - function indexes(sub, str) { - var subLen = sub.length; - var i = 0; - var is = []; - while ((i = str.indexOf(sub, i)) > -1) { - is.push(i); - i = i + subLen; - } - return JS.toList(is); - } - - function toInt(s) { - var len = s.length; - if (len === 0) { return Maybe.Nothing; } - var start = 0; - if (s[0] == '-') { - if (len === 1) { return Maybe.Nothing; } - start = 1; - } - for (var i = start; i < len; ++i) { - if (!Char.isDigit(s[i])) { return Maybe.Nothing; } - } - return Maybe.Just(parseInt(s, 10)); - } - - function toFloat(s) { - var len = s.length; - if (len === 0) { return Maybe.Nothing; } - var start = 0; - if (s[0] == '-') { - if (len === 1) { return Maybe.Nothing; } - start = 1; - } - var dotCount = 0; - for (var i = start; i < len; ++i) { - if (Char.isDigit(s[i])) { continue; } - if (s[i] === '.') { - dotCount += 1; - if (dotCount <= 1) { continue; } - } - return Maybe.Nothing; - } - return Maybe.Just(parseFloat(s)); - } - - function toList(str) { - return JS.toList(str.split('').map(Utils.chr)); - } - function fromList(chars) { - return JS.fromList(chars).join(''); - } - - return Elm.Native.String.values = { - isEmpty: isEmpty, - cons: F2(cons), - uncons: uncons, - append: F2(append), - concat: concat, - length: length, - map: F2(map), - filter: F2(filter), - reverse: reverse, - foldl: F3(foldl), - foldr: F3(foldr), - - split: F2(split), - join: F2(join), - repeat: F2(repeat), - - sub: F3(sub), - left: F2(left), - right: F2(right), - dropLeft: F2(dropLeft), - dropRight: F2(dropRight), - - pad: F3(pad), - padLeft: F3(padLeft), - padRight: F3(padRight), - - trim: trim, - trimLeft: trimLeft, - trimRight: trimRight, - - words: words, - lines: lines, - - toUpper: toUpper, - toLower: toLower, - - any: F2(any), - all: F2(all), - - contains: F2(contains), - startsWith: F2(startsWith), - endsWith: F2(endsWith), - indexes: F2(indexes), - - toInt: toInt, - toFloat: toFloat, - toList: toList, - fromList: fromList, - }; -}; -Elm.Native.Text = {}; -Elm.Native.Text.make = function(elm) { - elm.Native = elm.Native || {}; - elm.Native.Text = elm.Native.Text || {}; - if (elm.Native.Text.values) return elm.Native.Text.values; - - var toCss = Elm.Native.Color.make(elm).toCss; - var Element = Elm.Graphics.Element.make(elm); - var List = Elm.Native.List.make(elm); - var Utils = Elm.Native.Utils.make(elm); - - function makeSpaces(s) { - if (s.length == 0) { return s; } - var arr = s.split(''); - if (arr[0] == ' ') { arr[0] = " " } - for (var i = arr.length; --i; ) { - if (arr[i][0] == ' ' && arr[i-1] == ' ') { - arr[i-1] = arr[i-1] + arr[i]; - arr[i] = ''; - } - } - for (var i = arr.length; i--; ) { - if (arr[i].length > 1 && arr[i][0] == ' ') { - var spaces = arr[i].split(''); - for (var j = spaces.length - 2; j >= 0; j -= 2) { - spaces[j] = ' '; - } - arr[i] = spaces.join(''); - } - } - arr = arr.join(''); - if (arr[arr.length-1] === " ") { - return arr.slice(0,-1) + ' '; - } - return arr; - } - - function properEscape(str) { - if (str.length == 0) return str; - str = str //.replace(/&/g, "&") - .replace(/"/g, '"') - .replace(/'/g, "'") - .replace(//g, ">") - .replace(/\n/g, "
"); - var arr = str.split('
'); - for (var i = arr.length; i--; ) { - arr[i] = makeSpaces(arr[i]); - } - return arr.join('
'); - } - - function toText(str) { return Utils.txt(properEscape(str)); } - - // conversions from Elm values to CSS - function toTypefaces(list) { - var typefaces = List.toArray(list); - for (var i = typefaces.length; i--; ) { - var typeface = typefaces[i]; - if (typeface.indexOf(' ') > -1) { - typefaces[i] = "'" + typeface + "'"; - } - } - return typefaces.join(','); - } - function toLine(line) { - var ctor = line.ctor; - return ctor === 'Under' ? 'underline' : - ctor === 'Over' ? 'overline' : 'line-through'; - } - - // setting styles of Text - function style(style, text) { - var newText = '' - return Utils.txt(newText); - } - function height(px, text) { - return { style: 'font-size:' + px + 'px;', text:text } - } - function typeface(names, text) { - return { style: 'font-family:' + toTypefaces(names) + ';', text:text } - } - function monospace(text) { - return { style: 'font-family:monospace;', text:text } - } - function italic(text) { - return { style: 'font-style:italic;', text:text } - } - function bold(text) { - return { style: 'font-weight:bold;', text:text } - } - function link(href, text) { - return { href: toText(href), text:text }; - } - function line(line, text) { - return { style: 'text-decoration:' + toLine(line) + ';', text:text }; - } - - function color(color, text) { - return { style: 'color:' + toCss(color) + ';', text:text }; - } - - function block(align) { - return function(text) { - var raw = { - ctor :'RawHtml', - html : Utils.makeText(text), - align: align, - guid : null, - args : [], - }; - var pos = A2(Utils.htmlHeight, 0, raw); - return A3(Element.newElement, pos._0, pos._1, raw); - } - } - - function markdown(text, guid) { - var raw = { - ctor:'RawHtml', - html: text, - align: null, - guid: guid, - args: [], - }; - var pos = A2(Utils.htmlHeight, 0, raw); - return A3(Element.newElement, pos._0, pos._1, raw); - } - - return elm.Native.Text.values = { - toText: toText, - - height : F2(height), - italic : italic, - bold : bold, - line : F2(line), - monospace : monospace, - typeface : F2(typeface), - color : F2(color), - link : F2(link), - - leftAligned : block('left'), - rightAligned : block('right'), - centered : block('center'), - justified : block('justify'), - markdown : markdown, - - toTypefaces:toTypefaces, - toLine:toLine, - }; -}; -Elm.Native.Trampoline = {}; -Elm.Native.Trampoline.make = function(elm) { - elm.Native = elm.Native || {}; - elm.Native.Trampoline = elm.Native.Trampoline || {}; - if (elm.Native.Trampoline.values) return elm.Native.Trampoline.values; - - // trampoline : Trampoline a -> a - function trampoline(t) { - var tramp = t; - while(true) { - switch(tramp.ctor) { - case "Done": - return tramp._0; - case "Continue": - tramp = tramp._0({ctor: "_Tuple0"}); - continue; - } - } - } - - return elm.Native.Trampoline.values = { - trampoline:trampoline - }; -}; -Elm.Native.Transform2D = {}; -Elm.Native.Transform2D.make = function(elm) { - - elm.Native = elm.Native || {}; - elm.Native.Transform2D = elm.Native.Transform2D || {}; - if (elm.Native.Transform2D.values) return elm.Native.Transform2D.values; - - var A; - if (typeof Float32Array === 'undefined') { - A = function(arr) { - this.length = arr.length; - this[0] = arr[0]; - this[1] = arr[1]; - this[2] = arr[2]; - this[3] = arr[3]; - this[4] = arr[4]; - this[5] = arr[5]; - }; - } else { - A = Float32Array; - } - - // layout of matrix in an array is - // - // | m11 m12 dx | - // | m21 m22 dy | - // | 0 0 1 | - // - // new A([ m11, m12, dx, m21, m22, dy ]) - - var identity = new A([1,0,0,0,1,0]); - function matrix(m11, m12, m21, m22, dx, dy) { - return new A([m11, m12, dx, m21, m22, dy]); - } - function rotation(t) { - var c = Math.cos(t); - var s = Math.sin(t); - return new A([c, -s, 0, s, c, 0]); - } - function rotate(t,m) { - var c = Math.cos(t); - var s = Math.sin(t); - var m11 = m[0], m12 = m[1], m21 = m[3], m22 = m[4]; - return new A([m11*c + m12*s, -m11*s + m12*c, m[2], - m21*c + m22*s, -m21*s + m22*c, m[5]]); - } - /* - function move(xy,m) { - var x = xy._0; - var y = xy._1; - var m11 = m[0], m12 = m[1], m21 = m[3], m22 = m[4]; - return new A([m11, m12, m11*x + m12*y + m[2], - m21, m22, m21*x + m22*y + m[5]]); - } - function scale(s,m) { return new A([m[0]*s, m[1]*s, m[2], m[3]*s, m[4]*s, m[5]]); } - function scaleX(x,m) { return new A([m[0]*x, m[1], m[2], m[3]*x, m[4], m[5]]); } - function scaleY(y,m) { return new A([m[0], m[1]*y, m[2], m[3], m[4]*y, m[5]]); } - function reflectX(m) { return new A([-m[0], m[1], m[2], -m[3], m[4], m[5]]); } - function reflectY(m) { return new A([m[0], -m[1], m[2], m[3], -m[4], m[5]]); } - - function transform(m11, m21, m12, m22, mdx, mdy, n) { - var n11 = n[0], n12 = n[1], n21 = n[3], n22 = n[4], ndx = n[2], ndy = n[5]; - return new A([m11*n11 + m12*n21, - m11*n12 + m12*n22, - m11*ndx + m12*ndy + mdx, - m21*n11 + m22*n21, - m21*n12 + m22*n22, - m21*ndx + m22*ndy + mdy]); - } - */ - function multiply(m, n) { - var m11 = m[0], m12 = m[1], m21 = m[3], m22 = m[4], mdx = m[2], mdy = m[5]; - var n11 = n[0], n12 = n[1], n21 = n[3], n22 = n[4], ndx = n[2], ndy = n[5]; - return new A([m11*n11 + m12*n21, - m11*n12 + m12*n22, - m11*ndx + m12*ndy + mdx, - m21*n11 + m22*n21, - m21*n12 + m22*n22, - m21*ndx + m22*ndy + mdy]); - } - - return elm.Native.Transform2D.values = { - identity:identity, - matrix:F6(matrix), - rotation:rotation, - multiply:F2(multiply) - /* - transform:F7(transform), - rotate:F2(rotate), - move:F2(move), - scale:F2(scale), - scaleX:F2(scaleX), - scaleY:F2(scaleY), - reflectX:reflectX, - reflectY:reflectY - */ - }; - -}; -Elm.Native.Utils = {}; -Elm.Native.Utils.make = function(elm) { - - elm.Native = elm.Native || {}; - elm.Native.Utils = elm.Native.Utils || {}; - if (elm.Native.Utils.values) return elm.Native.Utils.values; - - function eq(x,y) { - if (x === y) return true; - if (typeof x === "object") { - var c = 0; - for (var i in x) { - ++c; - if (!eq(x[i],y[i])) { - return false; - } - } - return c === Object.keys(y).length; - } - if (typeof x === 'function') { - throw new Error('Equality error: general function equality is ' + - 'undecidable, and therefore, unsupported'); - } - return x === y; - } - - // code in Generate/JavaScript.hs depends on the particular - // integer values assigned to LT, EQ, and GT - var LT = -1, EQ = 0, GT = 1, ord = ['LT','EQ','GT']; - function compare(x,y) { return { ctor: ord[cmp(x,y)+1] } } - function cmp(x,y) { - var ord; - if (typeof x !== 'object' || x instanceof String){ - return x === y ? EQ : x < y ? LT : GT; - } - - if (x.ctor === "::" || x.ctor === "[]") { - while (true) { - if (x.ctor === "[]" && y.ctor === "[]") return EQ; - if (x.ctor !== y.ctor) return x.ctor === '[]' ? LT : GT; - ord = cmp(x._0, y._0); - if (ord !== EQ) return ord; - x = x._1; - y = y._1; - } - } - - if (x.ctor.slice(0,6) === '_Tuple') { - var n = x.ctor.slice(6) - 0; - var err = 'cannot compare tuples with more than 6 elements.'; - if (n === 0) return EQ; - if (n >= 1) { ord = cmp(x._0, y._0); if (ord !== EQ) return ord; - if (n >= 2) { ord = cmp(x._1, y._1); if (ord !== EQ) return ord; - if (n >= 3) { ord = cmp(x._2, y._2); if (ord !== EQ) return ord; - if (n >= 4) { ord = cmp(x._3, y._3); if (ord !== EQ) return ord; - if (n >= 5) { ord = cmp(x._4, y._4); if (ord !== EQ) return ord; - if (n >= 6) { ord = cmp(x._5, y._5); if (ord !== EQ) return ord; - if (n >= 7) throw new Error('Comparison error: ' + err); } } } } } } - return EQ; - } - throw new Error('Comparison error: comparison is only defined on ints, ' + - 'floats, times, chars, strings, lists of comparable values, ' + - 'and tuples of comparable values.') - } - - - var Tuple0 = { ctor: "_Tuple0" }; - function Tuple2(x,y) { return { ctor:"_Tuple2", _0:x, _1:y } } - - function chr(c) { - var x = new String(c); - x.isChar = true; - return x; - } - - function txt(str) { - var t = new String(str); - t.text = true; - return t; - } - - function makeText(text) { - var style = ''; - var href = ''; - while (true) { - if (text.style) { - style += text.style; - text = text.text; - continue; - } - if (text.href) { - href = text.href; - text = text.text; - continue; - } - if (href) text = '' + text + ''; - if (style) text = '' + text + ''; - return text; - } - } - - var count = 0; - function guid(_) { return count++ } - - function copy(r) { - var o = {}; - for (var i in r) { o[i] = r[i]; } - return o; - } - - function remove(x,r) { - var o = copy(r); - if (x in o._) { - o[x] = o._[x][0]; - o._[x] = o._[x].slice(1); - if (o._[x].length === 0) { delete o._[x]; } - } else { - delete o[x]; - } - return o; - } - - function replace(kvs,r) { - var o = copy(r); - for (var i = kvs.length; i--; ) { - var kvsi = kvs[i]; - o[kvsi[0]] = kvsi[1]; - } - return o; - } - - function insert(x,v,r) { - var o = copy(r); - if (x in o) o._[x] = [o[x]].concat(x in o._ ? o._[x].slice(0) : []); - o[x] = v; - return o; - } - - function max(a,b) { return a > b ? a : b } - function min(a,b) { return a < b ? a : b } - - function mod(a,b) { - if (b === 0) { - throw new Error("Cannot perform mod 0. Division by zero error."); - } - var r = a % b; - var m = a === 0 ? 0 : (b > 0 ? (a >= 0 ? r : r+b) : -mod(-a,-b)); - - return m === b ? 0 : m; - } - - function htmlHeight(width, rawHtml) { - // create dummy node - var html = rawHtml.html; - var t = document.createElement('div'); - t.innerHTML = html; - if (width > 0) { t.style.width = width + "px"; } - t.style.visibility = "hidden"; - t.style.styleFloat = "left"; - t.style.cssFloat = "left"; - - document.body.appendChild(t); - - // insert interpolated values - var args = rawHtml.args; - var guid = rawHtml.guid; - for (var i = args.length; i--; ) { - var arg = args[i]; - var span = document.getElementById('md-' + guid + '-' + i); - if (arg.isElement) { - span.style.width = arg.props.width + 'px'; - span.style.height = arg.props.height + 'px'; - } else { - span.innerHTML = arg; - } - } - - // get dimensions - var style = window.getComputedStyle(t, null); - var w = Math.ceil(style.getPropertyValue("width").slice(0,-2) - 0); - var h = Math.ceil(style.getPropertyValue("height").slice(0,-2) - 0); - document.body.removeChild(t); - return Tuple2(w,h); - } - - function getXY(e) { - var posx = 0; - var posy = 0; - if (e.pageX || e.pageY) { - posx = e.pageX; - posy = e.pageY; - } else if (e.clientX || e.clientY) { - posx = e.clientX + document.body.scrollLeft + document.documentElement.scrollLeft; - posy = e.clientY + document.body.scrollTop + document.documentElement.scrollTop; - } - - if (elm.display === ElmRuntime.Display.COMPONENT) { - var rect = elm.node.getBoundingClientRect(); - var relx = rect.left + document.body.scrollLeft + document.documentElement.scrollLeft; - var rely = rect.top + document.body.scrollTop + document.documentElement.scrollTop; - // TODO: figure out if there is a way to avoid rounding here - posx = posx - Math.round(relx) - elm.node.clientLeft; - posy = posy - Math.round(rely) - elm.node.clientTop; - } - return Tuple2(posx, posy); - } - - return elm.Native.Utils.values = { - eq:eq, - cmp:cmp, - compare:F2(compare), - Tuple0:Tuple0, - Tuple2:Tuple2, - chr:chr, - txt:txt, - makeText:makeText, - copy: copy, - remove: remove, - replace: replace, - insert: insert, - guid: guid, - max : F2(max), - min : F2(min), - mod : F2(mod), - htmlHeight: F2(htmlHeight), - getXY: getXY, - toFloat: function(x) { return +x; } - }; -}; -Elm.Native.Graphics.Collage = {}; -Elm.Native.Graphics.Collage.make = function(elm) { - - elm.Native = elm.Native || {}; - elm.Native.Graphics = elm.Native.Graphics || {}; - elm.Native.Graphics.Collage = elm.Native.Graphics.Collage || {}; - if (elm.Native.Graphics.Collage.values) return elm.Native.Graphics.Collage.values; - - var newElement = Elm.Graphics.Element.make(elm).newElement; - var C = ElmRuntime.use(ElmRuntime.Render.Collage); - - function collage(w,h,forms) { - return A3(newElement, w, h, { - ctor: 'Custom', - type: 'Collage', - render: C.render, - update: C.update, - model: {w:w, h:h, forms:forms} - }); - } - return elm.Native.Graphics.Collage.values = { collage:F3(collage) }; - -};Elm.Native.Graphics.Input = {}; -Elm.Native.Graphics.Input.make = function(elm) { - elm.Native = elm.Native || {}; - elm.Native.Graphics = elm.Native.Graphics || {}; - elm.Native.Graphics.Input = elm.Native.Graphics.Input || {}; - if (elm.Native.Graphics.Input.values) return elm.Native.Graphics.Input.values; - - var Render = ElmRuntime.use(ElmRuntime.Render.Element); - var newNode = ElmRuntime.use(ElmRuntime.Render.Utils).newElement; - - var toCss = Elm.Native.Color.make(elm).toCss; - var Text = Elm.Native.Text.make(elm); - var Signal = Elm.Signal.make(elm); - var newElement = Elm.Graphics.Element.make(elm).newElement; - var JS = Elm.Native.JavaScript.make(elm); - var Utils = Elm.Native.Utils.make(elm); - var Tuple2 = Utils.Tuple2; - - function input(initialValue) { - var signal = Signal.constant(initialValue); - return { _:{}, signal:signal, handle:signal }; - } - - function renderDropDown(signal, values) { - return function(_) { - var entries = JS.fromList(values); - - var drop = newNode('select'); - drop.style.border = '0 solid'; - drop.style.pointerEvents = 'auto'; - for (var i = 0; i < entries.length; ++i) { - var option = newNode('option'); - var name = JS.fromString(entries[i]._0); - option.value = name; - option.innerHTML = name; - drop.appendChild(option); - } - drop.addEventListener('change', function() { - elm.notify(signal.id, entries[drop.selectedIndex]._1); - }); - - var t = drop.cloneNode(true); - t.style.visibility = "hidden"; - - elm.node.appendChild(t); - var style = window.getComputedStyle(t, null); - var w = Math.ceil(style.getPropertyValue("width").slice(0,-2) - 0); - var h = Math.ceil(style.getPropertyValue("height").slice(0,-2) - 0); - elm.node.removeChild(t); - return drop; - }; - } - - function updateDropDown(node, oldModel, newModel) { - } - - function dropDown(signal, values) { - return A3(newElement, 100, 24, { - ctor: 'Custom', - type: 'DropDown', - render: renderDropDown(signal,values), - update: updateDropDown, - model: {} - }); - } - - function renderButton(model) { - var node = newNode('button'); - node.style.display = 'block'; - node.style.pointerEvents = 'auto'; - node.elm_signal = model.signal; - node.elm_value = model.value; - function click() { - elm.notify(node.elm_signal.id, node.elm_value); - } - node.addEventListener('click', click); - node.innerHTML = model.text; - return node; - } - - function updateButton(node, oldModel, newModel) { - node.elm_signal = newModel.signal; - node.elm_value = newModel.value; - var txt = newModel.text; - if (oldModel.text !== txt) node.innerHTML = txt; - } - - function button(signal, value, text) { - return A3(newElement, 100, 40, { - ctor: 'Custom', - type: 'Button', - render: renderButton, - update: updateButton, - model: { signal:signal, value:value, text:JS.fromString(text) } - }); - } - - function renderCustomButton(model) { - var btn = newNode('div'); - btn.style.pointerEvents = 'auto'; - btn.elm_signal = model.signal; - btn.elm_value = model.value; - - btn.elm_up = Render.render(model.up); - btn.elm_hover = Render.render(model.hover); - btn.elm_down = Render.render(model.down); - - function replace(node) { - if (node !== btn.firstChild) { - btn.replaceChild(node, btn.firstChild); - } - } - var overCount = 0; - function over(e) { - if (overCount++ > 0) return; - replace(btn.elm_hover); - } - function out(e) { - if (btn.contains(e.toElement || e.relatedTarget)) return; - overCount = 0; - replace(btn.elm_up); - } - function up() { - replace(btn.elm_hover); - elm.notify(btn.elm_signal.id, btn.elm_value); - } - function down() { - replace(btn.elm_down); - } - btn.addEventListener('mouseover', over); - btn.addEventListener('mouseout' , out); - btn.addEventListener('mousedown', down); - btn.addEventListener('mouseup' , up); - - btn.appendChild(btn.elm_up); - - var clicker = newNode('div'); - clicker.style.width = btn.elm_up.style.width; - clicker.style.height = btn.elm_up.style.height; - clicker.style.position = 'absolute'; - clicker.style.top = 0; - btn.appendChild(clicker); - - return btn; - } - - function updateCustomButton(node, oldModel, newModel) { - var signal = newModel.signal; - node.elm_up.elm_signal = signal; - node.elm_hover.elm_signal = signal; - node.elm_down.elm_signal = signal; - - var value = newModel.value; - node.elm_up.elm_value = value; - node.elm_hover.elm_value = value; - node.elm_down.elm_value = value; - - Render.update(node.elm_up, oldModel.up, newModel.up) - Render.update(node.elm_hover, oldModel.hover, newModel.hover) - Render.update(node.elm_down, oldModel.down, newModel.down) - } - - function max3(a,b,c) { - var ab = a > b ? a : b; - return ab > c ? ab : c; - } - - function customButton(signal, value, up, hover, down) { - return A3(newElement, - max3(up.props.width, hover.props.width, down.props.width), - max3(up.props.height, hover.props.height, down.props.height), - { ctor: 'Custom', - type: 'CustomButton', - render: renderCustomButton, - update: updateCustomButton, - model: { signal:signal, value:value, up:up, hover:hover, down:down } - }); - } - - function renderCheckbox(model) { - var node = newNode('input'); - node.type = 'checkbox'; - node.checked = model.checked; - node.style.display = 'block'; - node.style.pointerEvents = 'auto'; - node.elm_signal = model.signal; - node.elm_handler = model.handler; - function change() { - elm.notify(node.elm_signal.id, node.elm_handler(node.checked)); - } - node.addEventListener('change', change); - return node; - } - - function updateCheckbox(node, oldModel, newModel) { - node.elm_signal = newModel.signal; - node.elm_handler = newModel.handler; - node.checked = newModel.checked; - return true; - } - - function checkbox(signal, handler, checked) { - return A3(newElement, 13, 13, { - ctor: 'Custom', - type: 'CheckBox', - render: renderCheckbox, - update: updateCheckbox, - model: { signal:signal, handler:handler, checked:checked } - }); - } - - function setRange(node, start, end, dir) { - if (node.parentNode) { - node.setSelectionRange(start, end, dir); - } else { - setTimeout(function(){node.setSelectionRange(start, end, dir);}, 0); - } - } - - function updateIfNeeded(css, attribute, latestAttribute) { - if (css[attribute] !== latestAttribute) { - css[attribute] = latestAttribute; - } - } - function cssDimensions(dimensions) { - return dimensions.top + 'px ' + - dimensions.right + 'px ' + - dimensions.bottom + 'px ' + - dimensions.left + 'px'; - } - function updateFieldStyle(css, style) { - updateIfNeeded(css, 'padding', cssDimensions(style.padding)); - - var outline = style.outline; - updateIfNeeded(css, 'border-width', cssDimensions(outline.width)); - updateIfNeeded(css, 'border-color', toCss(outline.color)); - updateIfNeeded(css, 'border-radius', outline.radius + 'px'); - - var highlight = style.highlight; - if (highlight.width === 0) { - css.outline = 'none'; - } else { - updateIfNeeded(css, 'outline-width', highlight.width + 'px'); - updateIfNeeded(css, 'outline-color', toCss(highlight.color)); - } - - var textStyle = style.style; - updateIfNeeded(css, 'color', toCss(textStyle.color)); - if (textStyle.typeface.ctor !== '[]') { - updateIfNeeded(css, 'font-family', Text.toTypefaces(textStyle.typeface)); - } - if (textStyle.height.ctor !== "Nothing") { - updateIfNeeded(css, 'font-size', textStyle.height._0 + 'px'); - } - updateIfNeeded(css, 'font-weight', textStyle.bold ? 'bold' : 'normal'); - updateIfNeeded(css, 'font-style', textStyle.italic ? 'italic' : 'normal'); - if (textStyle.line.ctor !== 'Nothing') { - updateIfNeeded(css, 'text-decoration', Text.toLine(textStyle.line._0)); - } - } - - function renderField(model) { - var field = newNode('input'); - updateFieldStyle(field.style, model.style); - field.style.borderStyle = 'solid'; - field.style.pointerEvents = 'auto'; - - field.type = model.type; - field.placeholder = JS.fromString(model.placeHolder); - field.value = JS.fromString(model.content.string); - - field.elm_signal = model.signal; - field.elm_handler = model.handler; - field.elm_old_value = field.value; - - function inputUpdate(event) { - var curr = field.elm_old_value; - var next = field.value; - if (curr === next) { - return; - } - - var direction = field.selectionDirection === 'forward' ? 'Forward' : 'Backward'; - var start = field.selectionStart; - var end = field.selectionEnd; - field.value = field.elm_old_value; - - elm.notify(field.elm_signal.id, field.elm_handler({ - _:{}, - string: JS.toString(next), - selection: { - _:{}, - start: start, - end: end, - direction: { ctor: direction } - }, - })); - } - - function mouseUpdate(event) { - var direction = field.selectionDirection === 'forward' ? 'Forward' : 'Backward'; - elm.notify(field.elm_signal.id, field.elm_handler({ - _:{}, - string: field.value, - selection: { - _:{}, - start: field.selectionStart, - end: field.selectionEnd, - direction: { ctor: direction } - }, - })); - } - function mousedown(event) { - mouseUpdate(event); - elm.node.addEventListener('mouseup', mouseup); - } - function mouseup(event) { - mouseUpdate(event); - elm.node.removeEventListener('mouseup', mouseup) - } - field.addEventListener('input', inputUpdate); - field.addEventListener('mousedown', mousedown); - field.addEventListener('focus', function() { - field.elm_hasFocus = true; - }); - field.addEventListener('blur', function() { - field.elm_hasFocus = false; - }); - - return field; - } - - function updateField(field, oldModel, newModel) { - if (oldModel.style !== newModel.style) { - updateFieldStyle(field.style, newModel.style); - } - field.elm_signal = newModel.signal; - field.elm_handler = newModel.handler; - - field.type = newModel.type; - field.placeholder = JS.fromString(newModel.placeHolder); - var value = JS.fromString(newModel.content.string); - field.value = value; - field.elm_old_value = value; - if (field.elm_hasFocus) { - var selection = newModel.content.selection; - var direction = selection.direction.ctor === 'Forward' ? 'forward' : 'backward'; - setRange(field, selection.start, selection.end, direction); - } - } - - function mkField(type) { - function field(style, signal, handler, placeHolder, content) { - var padding = style.padding; - var outline = style.outline.width; - var adjustWidth = padding.left + padding.right + outline.left + outline.right; - var adjustHeight = padding.top + padding.bottom + outline.top + outline.bottom; - return A3(newElement, 200, 30, { - ctor: 'Custom', - type: type + 'Field', - adjustWidth: adjustWidth, - adjustHeight: adjustHeight, - render: renderField, - update: updateField, - model: { - signal:signal, - handler:handler, - placeHolder:placeHolder, - content:content, - style:style, - type:type - } - }); - } - return F5(field); - } - - function hoverable(signal, handler, elem) { - function onHover(bool) { - elm.notify(signal.id, handler(bool)); - } - var props = Utils.replace([['hover',onHover]], elem.props); - return { props:props, element:elem.element }; - } - - function clickable(signal, value, elem) { - function onClick(bool) { - elm.notify(signal.id, value); - } - var props = Utils.replace([['click',onClick]], elem.props); - return { props:props, element:elem.element }; - } - - return elm.Native.Graphics.Input.values = { - input:input, - button:F3(button), - customButton:F5(customButton), - checkbox:F3(checkbox), - dropDown:F2(dropDown), - field:mkField('text'), - email:mkField('email'), - password:mkField('password'), - hoverable:F3(hoverable), - clickable:F3(clickable) - }; - -}; -Elm.Native.Http = {}; -Elm.Native.Http.make = function(elm) { - - elm.Native = elm.Native || {}; - elm.Native.Http = elm.Native.Http || {}; - if (elm.Native.Http.values) return elm.Native.Http.values; - - var JS = Elm.JavaScript.make(elm); - var List = Elm.List.make(elm); - var Signal = Elm.Signal.make(elm); - - function registerReq(queue,responses) { - return function(req) { - if (req.url.length > 0) { - sendReq(queue,responses,req); - } - }; - } - - function updateQueue(queue,responses) { - if (queue.length > 0) { - elm.notify(responses.id, queue[0].value); - if (queue[0].value.ctor !== 'Waiting') { - queue.shift(); - setTimeout(function() { updateQueue(queue,responses); }, 0); - } - } - } - - function sendReq(queue,responses,req) { - var response = { value: { ctor:'Waiting' } }; - queue.push(response); - - var request = (window.ActiveXObject - ? new ActiveXObject("Microsoft.XMLHTTP") - : new XMLHttpRequest()); - - request.onreadystatechange = function(e) { - if (request.readyState === 4) { - response.value = (request.status >= 200 && request.status < 300 ? - { ctor:'Success', _0:JS.toString(request.responseText) } : - { ctor:'Failure', _0:request.status, _1:JS.toString(request.statusText) }); - setTimeout(function() { updateQueue(queue,responses); }, 0); - } - }; - request.open(JS.fromString(req.verb), JS.fromString(req.url), true); - function setHeader(pair) { - request.setRequestHeader( JS.fromString(pair._0), JS.fromString(pair._1) ); - } - List.map(setHeader)(req.headers); - request.send(JS.fromString(req.body)); - } - - function send(requests) { - var responses = Signal.constant(elm.Http.values.Waiting); - var sender = A2( Signal.lift, registerReq([],responses), requests ); - function f(x) { return function(y) { return x; } } - return A3( Signal.lift2, f, responses, sender ); - } - - return elm.Native.Http.values = { - send:send - }; -}; -Elm.Native.Keyboard = {}; -Elm.Native.Keyboard.make = function(elm) { - - elm.Native = elm.Native || {}; - elm.Native.Keyboard = elm.Native.Keyboard || {}; - if (elm.Native.Keyboard.values) return elm.Native.Keyboard.values; - - // Duplicated from Native.Signal - function send(node, timestep, changed) { - var kids = node.kids; - for (var i = kids.length; i--; ) { - kids[i].recv(timestep, changed, node.id); - } - } - - var Signal = Elm.Signal.make(elm); - var NList = Elm.Native.List.make(elm); - var Utils = Elm.Native.Utils.make(elm); - - var downEvents = Signal.constant(0); - var upEvents = Signal.constant(0); - var blurEvents = Signal.constant(0); - - elm.addListener([downEvents.id], document, 'keydown', function down(e) { - elm.notify(downEvents.id, e.keyCode); - }); - - elm.addListener([upEvents.id], document, 'keyup', function up(e) { - elm.notify(upEvents.id, e.keyCode); - }); - - elm.addListener([blurEvents.id], document, 'blur', function blur(e) { - elm.notify(blurEvents.id, NList.Nil); - }); - - function KeyMerge(down, up, blur) { - var args = [down,up,blur]; - this.id = Utils.guid(); - // Ignore starting values here - this.value = NList.Nil - this.kids = []; - - var n = args.length; - var count = 0; - var isChanged = false; - - this.recv = function(timestep, changed, parentID) { - ++count; - if (changed) { - // We know this a change must only be one of the following cases - if (parentID === down.id && !(NList.member(down.value)(this.value))) { - isChanged = true; - this.value = NList.Cons(down.value, this.value); - } - if (parentID === up.id) { - isChanged = true; - var notEq = function(kc) { return kc !== up.value }; - this.value = NList.filter(notEq)(this.value); - } - if (parentID === blur.id) { - isChanged = true; - this.value = NList.Nil; - } - } - if (count == n) { - send(this, timestep, isChanged); - isChanged = false; - count = 0; - } - }; - - for (var i = n; i--; ) { args[i].kids.push(this); } - - } - - var keysDown = Signal.dropRepeats(new KeyMerge(downEvents,upEvents,blurEvents)); - - function keySignal(f) { - var signal = A2(Signal.lift, f, keysDown); - // must set the default number of kids to make it possible to filter - // these signals if they are not actually used. - keysDown.defaultNumberOfKids += 1; - signal.defaultNumberOfKids = 1; - var filtered = Signal.dropRepeats(signal) - filtered.defaultNumberOfKids = 0; - return filtered; - } - - function dir(up, down, left, right) { - function f(ks) { - var x = 0, y = 0; - while (ks.ctor === "::") { - switch (ks._0) { - case left : --x; break; - case right: ++x; break; - case up : ++y; break; - case down : --y; break; - } - ks = ks._1; - } - return { _:{}, x:x, y:y }; - } - return keySignal(f); - } - - function is(key) { return keySignal(NList.member(key)); } - - var lastPressed = downEvents; - - return elm.Native.Keyboard.values = { - isDown:is, - directions:F4(dir), - keysDown:keysDown, - lastPressed:lastPressed - }; - -}; -Elm.Native.Mouse = {}; -Elm.Native.Mouse.make = function(elm) { - - elm.Native = elm.Native || {}; - elm.Native.Mouse = elm.Native.Mouse || {}; - if (elm.Native.Mouse.values) return elm.Native.Mouse.values; - - var Signal = Elm.Signal.make(elm); - var Utils = Elm.Native.Utils.make(elm); - - var position = Signal.constant(Utils.Tuple2(0,0)); - position.defaultNumberOfKids = 2; - - // do not move x and y into Elm. By setting their default number - // of kids, it is possible to detatch the mouse listeners if - // they are not needed. - var x = A2( Signal.lift, function(p){return p._0}, position); - x.defaultNumberOfKids = 0; - var y = A2( Signal.lift, function(p){return p._1}, position); - y.defaultNumberOfKids = 0; - - var isDown = Signal.constant(false); - var clicks = Signal.constant(Utils.Tuple0); - - var node = elm.display === ElmRuntime.Display.FULLSCREEN ? document : elm.node; - - elm.addListener([clicks.id], node, 'click', function click() { - elm.notify(clicks.id, Utils.Tuple0); - }); - elm.addListener([isDown.id], node, 'mousedown', function down() { - elm.notify(isDown.id, true); - }); - elm.addListener([isDown.id], node, 'mouseup', function up() { - elm.notify(isDown.id, false); - }); - elm.addListener([position.id], node, 'mousemove', function move(e) { - elm.notify(position.id, Utils.getXY(e)); - }); - - return elm.Native.Mouse.values = { - position: position, - x:x, - y:y, - isDown: isDown, - clicks: clicks - }; -}; -Elm.Native.Random = {}; -Elm.Native.Random.make = function(elm) { - - elm.Native = elm.Native || {}; - elm.Native.Random = elm.Native.Random || {}; - if (elm.Native.Random.values) return elm.Native.Random.values; - - var Signal = Elm.Signal.make(elm); - var List = Elm.Native.List.make(elm); - - function range(min, max, signal) { - function f(x) { return Math.floor(Math.random() * (max-min+1)) + min; } - return A2( Signal.lift, f, signal ); - } - - function float_(signal) { - function f(x) { return Math.random(); } - return A2( Signal.lift, f, signal ); - } - - function floatList(signal) { - function f(n) { - if (n < 0) return List.Nil; - var arr = new Array(n); - for (var i = n; i--; ) { - arr[i] = Math.random(); - } - return List.fromArray(arr); - } - return A2( Signal.lift, f, signal ); - } - - return elm.Native.Random.values = { - range: F3(range), - float_: float_, - floatList: floatList - }; - -}; - -Elm.Native.Signal = {}; -Elm.Native.Signal.make = function(elm) { - - elm.Native = elm.Native || {}; - elm.Native.Signal = elm.Native.Signal || {}; - if (elm.Native.Signal.values) return elm.Native.Signal.values; - - var Utils = Elm.Native.Utils.make(elm); - var foldr1 = Elm.List.make(elm).foldr1; - - function send(node, timestep, changed) { - var kids = node.kids; - for (var i = kids.length; i--; ) { - kids[i].recv(timestep, changed, node.id); - } - } - - function Input(base) { - this.id = Utils.guid(); - this.value = base; - this.kids = []; - this.defaultNumberOfKids = 0; - this.recv = function(timestep, eid, v) { - var changed = eid === this.id; - if (changed) { this.value = v; } - send(this, timestep, changed); - return changed; - }; - elm.inputs.push(this); - } - - function LiftN(update, args) { - this.id = Utils.guid(); - this.value = update(); - this.kids = []; - - var n = args.length; - var count = 0; - var isChanged = false; - - this.recv = function(timestep, changed, parentID) { - ++count; - if (changed) { isChanged = true; } - if (count == n) { - if (isChanged) { this.value = update(); } - send(this, timestep, isChanged); - isChanged = false; - count = 0; - } - }; - for (var i = n; i--; ) { args[i].kids.push(this); } - } - - function lift(func, a) { - function update() { return func(a.value); } - return new LiftN(update, [a]); - } - function lift2(func, a, b) { - function update() { return A2( func, a.value, b.value ); } - return new LiftN(update, [a,b]); - } - function lift3(func, a, b, c) { - function update() { return A3( func, a.value, b.value, c.value ); } - return new LiftN(update, [a,b,c]); - } - function lift4(func, a, b, c, d) { - function update() { return A4( func, a.value, b.value, c.value, d.value ); } - return new LiftN(update, [a,b,c,d]); - } - function lift5(func, a, b, c, d, e) { - function update() { return A5( func, a.value, b.value, c.value, d.value, e.value ); } - return new LiftN(update, [a,b,c,d,e]); - } - function lift6(func, a, b, c, d, e, f) { - function update() { return A6( func, a.value, b.value, c.value, d.value, e.value, f.value ); } - return new LiftN(update, [a,b,c,d,e,f]); - } - function lift7(func, a, b, c, d, e, f, g) { - function update() { return A7( func, a.value, b.value, c.value, d.value, e.value, f.value, g.value ); } - return new LiftN(update, [a,b,c,d,e,f,g]); - } - function lift8(func, a, b, c, d, e, f, g, h) { - function update() { return A8( func, a.value, b.value, c.value, d.value, e.value, f.value, g.value, h.value ); } - return new LiftN(update, [a,b,c,d,e,f,g,h]); - } - - function Foldp(step, state, input) { - this.id = Utils.guid(); - this.value = state; - this.kids = []; - - this.recv = function(timestep, changed, parentID) { - if (changed) { - this.value = A2( step, input.value, this.value ); - } - send(this, timestep, changed); - }; - input.kids.push(this); - } - - function foldp(step, state, input) { - return new Foldp(step, state, input); - } - - function DropIf(pred,base,input) { - this.id = Utils.guid(); - this.value = pred(input.value) ? base : input.value; - this.kids = []; - this.recv = function(timestep, changed, parentID) { - var chng = changed && !pred(input.value); - if (chng) { this.value = input.value; } - send(this, timestep, chng); - }; - input.kids.push(this); - } - - function DropRepeats(input) { - this.id = Utils.guid(); - this.value = input.value; - this.kids = []; - this.recv = function(timestep, changed, parentID) { - var chng = changed && !Utils.eq(this.value,input.value); - if (chng) { this.value = input.value; } - send(this, timestep, chng); - }; - input.kids.push(this); - } - - function timestamp(a) { - function update() { return Utils.Tuple2(Date.now(), a.value); } - return new LiftN(update, [a]); - } - - function SampleOn(s1,s2) { - this.id = Utils.guid(); - this.value = s2.value; - this.kids = []; - - var count = 0; - var isChanged = false; - - this.recv = function(timestep, changed, parentID) { - if (parentID === s1.id) isChanged = changed; - ++count; - if (count == 2) { - if (isChanged) { this.value = s2.value; } - send(this, timestep, isChanged); - count = 0; - isChanged = false; - } - }; - s1.kids.push(this); - s2.kids.push(this); - } - - function sampleOn(s1,s2) { return new SampleOn(s1,s2); } - - function delay(t,s) { - var delayed = new Input(s.value); - var firstEvent = true; - function update(v) { - if (firstEvent) { firstEvent = false; return; } - setTimeout(function() { elm.notify(delayed.id, v); }, t); - } - function first(a,b) { return a; } - return new SampleOn(delayed, lift2(F2(first), delayed, lift(update,s))); - } - - function Merge(s1,s2) { - this.id = Utils.guid(); - this.value = s1.value; - this.kids = []; - - var next = null; - var count = 0; - var isChanged = false; - - this.recv = function(timestep, changed, parentID) { - ++count; - if (changed) { - isChanged = true; - if (parentID == s2.id && next === null) { next = s2.value; } - if (parentID == s1.id) { next = s1.value; } - } - - if (count == 2) { - if (isChanged) { this.value = next; next = null; } - send(this, timestep, isChanged); - isChanged = false; - count = 0; - } - }; - s1.kids.push(this); - s2.kids.push(this); - } - - function merge(s1,s2) { return new Merge(s1,s2); } - function merges(ss) { return A2(foldr1, F2(merge), ss); } - - return elm.Native.Signal.values = { - constant : function(v) { return new Input(v); }, - lift : F2(lift ), - lift2 : F3(lift2), - lift3 : F4(lift3), - lift4 : F5(lift4), - lift5 : F6(lift5), - lift6 : F7(lift6), - lift7 : F8(lift7), - lift8 : F9(lift8), - foldp : F3(foldp), - delay : F2(delay), - merge : F2(merge), - merges : merges, - count : function(s) { return foldp(F2(function(_,c) { return c+1; }), 0, s); }, - countIf : F2(function(pred,s) { - return foldp(F2(function(x,c){ - return pred(x) ? c+1 : c; }), 0, s)}), - keepIf : F3(function(pred,base,sig) { - return new DropIf(function(x) {return !pred(x);},base,sig); }), - dropIf : F3(function(pred,base,sig) { return new DropIf(pred,base,sig); }), - dropRepeats : function(s) { return new DropRepeats(s);}, - sampleOn : F2(sampleOn), - timestamp : timestamp - }; -}; -Elm.Native.Time = {}; -Elm.Native.Time.make = function(elm) { - - elm.Native = elm.Native || {}; - elm.Native.Time = elm.Native.Time || {}; - if (elm.Native.Time.values) return elm.Native.Time.values; - - var Signal = Elm.Signal.make(elm); - var NS = Elm.Native.Signal.make(elm); - var Maybe = Elm.Maybe.make(elm); - var Utils = Elm.Native.Utils.make(elm); - - function fpsWhen(desiredFPS, isOn) { - var msPerFrame = 1000 / desiredFPS; - var prev = Date.now(), curr = prev, diff = 0, wasOn = true; - var ticker = Signal.constant(diff); - function tick(zero) { return function() { - curr = Date.now(); - diff = zero ? 0 : curr - prev; - prev = curr; - elm.notify(ticker.id, diff); - }; - } - var timeoutID = 0; - function f(isOn, t) { - if (isOn) { - timeoutID = setTimeout(tick(!wasOn && isOn), msPerFrame); - } else if (wasOn) { - clearTimeout(timeoutID); - } - wasOn = isOn; - return t; - } - return A3( Signal.lift2, F2(f), isOn, ticker ); - } - - function every(t) { - var clock = Signal.constant(Date.now()); - setInterval(function() { - elm.notify(clock.id, Date.now()); - }, t); - return clock; - } - - function since(t, s) { - function cmp(a,b) { return !Utils.eq(a,b); } - var dcount = Signal.count(A2(NS.delay, t, s)); - return A3( Signal.lift2, F2(cmp), Signal.count(s), dcount ); - } - function read(s) { - var t = Date.parse(s); - return isNaN(t) ? Maybe.Nothing : Maybe.Just(t); - } - return elm.Native.Time.values = { - fpsWhen : F2(fpsWhen), - fps : function(t) { return fpsWhen(t, Signal.constant(true)); }, - every : every, - delay : NS.delay, - timestamp : NS.timestamp, - since : F2(since), - toDate : function(t) { return new window.Date(t); }, - read : read - }; - -}; -Elm.Native.Touch = {}; -Elm.Native.Touch.make = function(elm) { - - elm.Native = elm.Native || {}; - elm.Native.Touch = elm.Native.Touch || {}; - if (elm.Native.Touch.values) return elm.Native.Touch.values; - - var Signal = Elm.Signal.make(elm); - var JS = Elm.JavaScript.make(elm); - var Utils = Elm.Native.Utils.make(elm); - - function Dict() { - this.keys = []; - this.values = []; - - this.insert = function(key,value) { - this.keys.push(key); - this.values.push(value); - }; - this.lookup = function(key) { - var i = this.keys.indexOf(key) - return i >= 0 ? this.values[i] : {x:0,y:0,t:0}; - }; - this.remove = function(key) { - var i = this.keys.indexOf(key); - if (i < 0) return; - var t = this.values[i]; - this.keys.splice(i,1); - this.values.splice(i,1); - return t; - }; - this.clear = function() { - this.keys = []; - this.values = []; - }; - } - - var root = Signal.constant([]), - tapTime = 500, - hasTap = false, - tap = {_:{},x:0,y:0}, - dict = new Dict(); - - function touch(t) { - var r = dict.lookup(t.identifier); - var point = Utils.getXY(t); - return {_ : {}, - id: t.identifier, - x : point._0, - y : point._1, - x0: r.x, - y0: r.y, - t0: r.t - }; - } - - var node = elm.display === ElmRuntime.Display.FULLSCREEN ? document : elm.node; - - function start(e) { - var point = Utils.getXY(e); - dict.insert(e.identifier, - {x: point._0, - y: point._1, - t: Date.now()}); - } - function end(e) { - var t = dict.remove(e.identifier); - if (Date.now() - t.t < tapTime) { - hasTap = true; - tap = {_:{}, x:t.x, y:t.y}; - } - } - - function listen(name, f) { - function update(e) { - for (var i = e.changedTouches.length; i--; ) { f(e.changedTouches[i]); } - var ts = new Array(e.touches.length); - for (var i = e.touches.length; i--; ) { ts[i] = touch(e.touches[i]); } - elm.notify(root.id, ts); - e.preventDefault(); - } - elm.addListener([root.id], node, name, update); - } - - listen("touchstart", start); - listen("touchmove", function(_){}); - listen("touchend", end); - listen("touchcancel", end); - listen("touchleave", end); - - var mouseID = -1; - function move(e) { - var point = Utils.getXY(e); - for (var i = root.value.length; i--; ) { - if (root.value[i].id === mouseID) { - root.value[i].x = point._0; - root.value[i].y = point._1; - elm.notify(root.id, root.value); - break; - } - } - } - elm.addListener([root.id], node, "mousedown", function down(e) { - node.addEventListener("mousemove", move); - e.identifier = mouseID; - start(e); - root.value.push(touch(e)); - elm.notify(root.id, root.value); - }); - elm.addListener([root.id], node, "mouseup", function up(e) { - node.removeEventListener("mousemove", move); - e.identifier = mouseID; - end(e); - for (var i = root.value.length; i--; ) { - if (root.value[i].id === mouseID) { - root.value.splice(i, 1); - --mouseID; - break; - } - } - elm.notify(root.id, root.value); - }); - elm.addListener([root.id], node, "blur", function blur(e) { - node.removeEventListener("mousemove", move); - if (root.value.length > 0) { - elm.notify(root.id, []); - --mouseID; - } - dict.clear(); - }); - - function dependency(f) { - var sig = A2( Signal.lift, f, root ); - root.defaultNumberOfKids += 1; - sig.defaultNumberOfKids = 0; - return sig; - } - - var touches = dependency(JS.toList); - - var taps = function() { - var sig = dependency(function(_) { return tap; }); - sig.defaultNumberOfKids = 1; - function pred(_) { var b = hasTap; hasTap = false; return b; } - var sig2 = A3( Signal.keepIf, pred, {_:{},x:0,y:0}, sig); - sig2.defaultNumberOfKids = 0; - return sig2; - }(); - - return elm.Native.Touch.values = { touches: touches, taps: taps }; - -};Elm.Native.WebSocket = {}; -Elm.Native.WebSocket.make = function(elm) { - - elm.Native = elm.Native || {}; - elm.Native.WebSocket = elm.Native.WebSocket || {}; - if (elm.Native.WebSocket.values) return elm.Native.WebSocket.values; - - var Signal = Elm.Signal.make(elm); - var JS = Elm.JavaScript.make(elm); - var List = Elm.Native.List.make(elm); - - function open(url, outgoing) { - var incoming = Signal.constant(List.Nil); - var ws = new WebSocket(JS.fromString(url)); - - var pending = []; - var ready = false; - - ws.onopen = function(e) { - var len = pending.length; - for (var i = 0; i < len; ++i) { ws.send(pending[i]); } - ready = true; - }; - ws.onmessage = function(event) { - elm.notify(incoming.id, JS.toString(event.data)); - }; - - function send(msg) { - var s = JS.fromString(msg); - ready ? ws.send(s) : pending.push(s); - } - - function take1(x,y) { return x } - return A3(Signal.lift2, F2(take1), incoming, A2(Signal.lift, send, outgoing)); - } - - return elm.Native.WebSocket.values = { connect: F2(open) }; -}; -Elm.Native.Window = {}; -Elm.Native.Window.make = function(elm) { - - elm.Native = elm.Native || {}; - elm.Native.Window = elm.Native.Window || {}; - if (elm.Native.Window.values) return elm.Native.Window.values; - - var Signal = Elm.Signal.make(elm); - var Tuple2 = Elm.Native.Utils.make(elm).Tuple2; - - function getWidth() { return elm.node.clientWidth; } - function getHeight() { - if (elm.display === ElmRuntime.Display.FULLSCREEN) { - return window.innerHeight; - } - return elm.node.clientHeight; - } - - var dimensions = Signal.constant(Tuple2(getWidth(), getHeight())); - dimensions.defaultNumberOfKids = 2; - - // Do not move width and height into Elm. By setting the default number of kids, - // the resize listener can be detached. - var width = A2(Signal.lift, function(p){return p._0;}, dimensions); - width.defaultNumberOfKids = 0; - - var height = A2(Signal.lift, function(p){return p._1;}, dimensions); - height.defaultNumberOfKids = 0; - - function resizeIfNeeded() { - // Do not trigger event if the dimensions have not changed. - // This should be most of the time. - var w = getWidth(); - var h = getHeight(); - if (dimensions.value._0 === w && dimensions.value._1 === h) return; - - setTimeout(function () { - // Check again to see if the dimensions have changed. - // It is conceivable that the dimensions have changed - // again while some other event was being processed. - var w = getWidth(); - var h = getHeight(); - if (dimensions.value._0 === w && dimensions.value._1 === h) return; - elm.notify(dimensions.id, Tuple2(w,h)); - }, 0); - } - elm.addListener([dimensions.id], window, 'resize', resizeIfNeeded); - - return elm.Native.Window.values = { - dimensions:dimensions, - width:width, - height:height, - resizeIfNeeded:resizeIfNeeded - }; - -}; -Elm.Basics = Elm.Basics || {}; -Elm.Basics.make = function (_elm) { - "use strict"; - _elm.Basics = _elm.Basics || {}; - if (_elm.Basics.values) - return _elm.Basics.values; - var _N = Elm.Native, - _U = _N.Utils.make(_elm), - _L = _N.List.make(_elm), - _E = _N.Error.make(_elm), - _J = _N.JavaScript.make(_elm), - $moduleName = "Basics"; - var Native = Native || {}; - Native.Basics = Elm.Native.Basics.make(_elm); - var _op = {}; - var uncurry = F2(function (f, - _v0) { - return function () { - switch (_v0.ctor) - {case "_Tuple2": return A2(f, - _v0._0, - _v0._1);} - _E.Case($moduleName, - "on line 381, column 19 to 24"); - }(); - }); - var curry = F3(function (f, - a, - b) { - return f({ctor: "_Tuple2" - ,_0: a - ,_1: b}); - }); - var flip = F3(function (f,b,a) { - return A2(f,a,b); - }); - var snd = function (_v4) { - return function () { - switch (_v4.ctor) - {case "_Tuple2": return _v4._1;} - _E.Case($moduleName, - "on line 365, column 13 to 14"); - }(); - }; - var fst = function (_v8) { - return function () { - switch (_v8.ctor) - {case "_Tuple2": return _v8._0;} - _E.Case($moduleName, - "on line 361, column 13 to 14"); - }(); - }; - var always = F2(function (a, - _v12) { - return function () { - return a; - }(); - }); - var id = function (x) { - return x; - }; - _op["<|"] = F2(function (f,x) { - return f(x); - }); - _op["|>"] = F2(function (x,f) { - return f(x); - }); - _op["."] = F3(function (f,g,x) { - return f(g(x)); - }); - var isInfinite = Native.Basics.isInfinite; - var isNaN = Native.Basics.isNaN; - var toFloat = Native.Basics.toFloat; - var ceiling = Native.Basics.ceiling; - var floor = Native.Basics.floor; - var truncate = Native.Basics.truncate; - var round = Native.Basics.round; - var otherwise = true; - var not = Native.Basics.not; - var xor = Native.Basics.xor; - _op["||"] = Native.Basics.or; - _op["&&"] = Native.Basics.and; - var max = Native.Basics.max; - var min = Native.Basics.min; - var GT = {ctor: "GT"}; - var EQ = {ctor: "EQ"}; - var LT = {ctor: "LT"}; - var compare = Native.Basics.compare; - _op[">="] = Native.Basics.ge; - _op["<="] = Native.Basics.le; - _op[">"] = Native.Basics.gt; - _op["<"] = Native.Basics.lt; - _op["/="] = Native.Basics.neq; - _op["=="] = Native.Basics.eq; - var e = Native.Basics.e; - var pi = Native.Basics.pi; - var clamp = Native.Basics.clamp; - var logBase = Native.Basics.logBase; - var abs = Native.Basics.abs; - var sqrt = Native.Basics.sqrt; - var atan2 = Native.Basics.atan2; - var atan = Native.Basics.atan; - var asin = Native.Basics.asin; - var acos = Native.Basics.acos; - var tan = Native.Basics.tan; - var sin = Native.Basics.sin; - var cos = Native.Basics.cos; - _op["^"] = Native.Basics.exp; - var mod = Native.Basics.mod; - var rem = Native.Basics.rem; - var div = Native.Basics.div; - _op["/"] = Native.Basics.floatDiv; - _op["*"] = Native.Basics.mul; - _op["-"] = Native.Basics.sub; - _op["+"] = Native.Basics.add; - var toPolar = function (_v14) { - return function () { - switch (_v14.ctor) - {case "_Tuple2": - return {ctor: "_Tuple2" - ,_0: Native.Basics.sqrt(Math.pow(_v14._0, - 2) + Math.pow(_v14._1,2)) - ,_1: A2(Native.Basics.atan2, - _v14._1, - _v14._0)};} - _E.Case($moduleName, - "on line 79, column 18 to 73"); - }(); - }; - var fromPolar = function (_v18) { - return function () { - switch (_v18.ctor) - {case "_Tuple2": - return {ctor: "_Tuple2" - ,_0: _v18._0 * Native.Basics.cos(_v18._1) - ,_1: _v18._0 * Native.Basics.sin(_v18._1)};} - _E.Case($moduleName, - "on line 73, column 20 to 68"); - }(); - }; - var turns = function (r) { - return 2 * Native.Basics.pi * r; - }; - var degrees = function (d) { - return d * Native.Basics.pi / 180; - }; - var radians = function (t) { - return t; - }; - _elm.Basics.values = {_op: _op - ,radians: radians - ,degrees: degrees - ,turns: turns - ,fromPolar: fromPolar - ,toPolar: toPolar - ,div: div - ,rem: rem - ,mod: mod - ,cos: cos - ,sin: sin - ,tan: tan - ,acos: acos - ,asin: asin - ,atan: atan - ,atan2: atan2 - ,sqrt: sqrt - ,abs: abs - ,logBase: logBase - ,clamp: clamp - ,pi: pi - ,e: e - ,compare: compare - ,min: min - ,max: max - ,xor: xor - ,not: not - ,otherwise: otherwise - ,round: round - ,truncate: truncate - ,floor: floor - ,ceiling: ceiling - ,toFloat: toFloat - ,isNaN: isNaN - ,isInfinite: isInfinite - ,id: id - ,always: always - ,fst: fst - ,snd: snd - ,flip: flip - ,curry: curry - ,uncurry: uncurry - ,LT: LT - ,EQ: EQ - ,GT: GT}; - return _elm.Basics.values; -};Elm.Bitwise = Elm.Bitwise || {}; -Elm.Bitwise.make = function (_elm) { - "use strict"; - _elm.Bitwise = _elm.Bitwise || {}; - if (_elm.Bitwise.values) - return _elm.Bitwise.values; - var _N = Elm.Native, - _U = _N.Utils.make(_elm), - _L = _N.List.make(_elm), - _E = _N.Error.make(_elm), - _J = _N.JavaScript.make(_elm), - $moduleName = "Bitwise"; - var Native = Native || {}; - Native.Bitwise = Elm.Native.Bitwise.make(_elm); - var _op = {}; - var shiftRightLogical = Native.Bitwise.shiftRightLogical; - var shiftRight = Native.Bitwise.shiftRightArithmatic; - var shiftLeft = Native.Bitwise.shiftLeft; - var complement = Native.Bitwise.complement; - var xor = Native.Bitwise.xor; - var or = Native.Bitwise.or; - var and = Native.Bitwise.and; - _elm.Bitwise.values = {_op: _op - ,and: and - ,or: or - ,xor: xor - ,complement: complement - ,shiftLeft: shiftLeft - ,shiftRight: shiftRight - ,shiftRightLogical: shiftRightLogical}; - return _elm.Bitwise.values; -};Elm.Char = Elm.Char || {}; -Elm.Char.make = function (_elm) { - "use strict"; - _elm.Char = _elm.Char || {}; - if (_elm.Char.values) - return _elm.Char.values; - var _N = Elm.Native, - _U = _N.Utils.make(_elm), - _L = _N.List.make(_elm), - _E = _N.Error.make(_elm), - _J = _N.JavaScript.make(_elm), - $moduleName = "Char"; - var Native = Native || {}; - Native.Char = Elm.Native.Char.make(_elm); - var _op = {}; - var fromCode = Native.Char.fromCode; - var toCode = Native.Char.toCode; - var toLocaleLower = Native.Char.toLocaleLower; - var toLocaleUpper = Native.Char.toLocaleUpper; - var toLower = Native.Char.toLower; - var toUpper = Native.Char.toUpper; - var isHexDigit = Native.Char.isHexDigit; - var isOctDigit = Native.Char.isOctDigit; - var isDigit = Native.Char.isDigit; - var isLower = Native.Char.isLower; - var isUpper = Native.Char.isUpper; - _elm.Char.values = {_op: _op - ,isUpper: isUpper - ,isLower: isLower - ,isDigit: isDigit - ,isOctDigit: isOctDigit - ,isHexDigit: isHexDigit - ,toUpper: toUpper - ,toLower: toLower - ,toLocaleUpper: toLocaleUpper - ,toLocaleLower: toLocaleLower - ,toCode: toCode - ,fromCode: fromCode}; - return _elm.Char.values; -};Elm.Color = Elm.Color || {}; -Elm.Color.make = function (_elm) { - "use strict"; - _elm.Color = _elm.Color || {}; - if (_elm.Color.values) - return _elm.Color.values; - var _N = Elm.Native, - _U = _N.Utils.make(_elm), - _L = _N.List.make(_elm), - _E = _N.Error.make(_elm), - _J = _N.JavaScript.make(_elm), - $moduleName = "Color"; - var Basics = Elm.Basics.make(_elm); - var Native = Native || {}; - Native.Color = Elm.Native.Color.make(_elm); - var _op = {}; - var Radial = F5(function (a, - b, - c, - d, - e) { - return {ctor: "Radial" - ,_0: a - ,_1: b - ,_2: c - ,_3: d - ,_4: e}; - }); - var radial = Radial; - var Linear = F3(function (a, - b, - c) { - return {ctor: "Linear" - ,_0: a - ,_1: b - ,_2: c}; - }); - var linear = Linear; - var hsv = Native.Color.hsv; - var hsva = Native.Color.hsva; - var complement = Native.Color.complement; - var greyscale = function (p) { - return A3(hsv,0,0,1 - p); - }; - var grayscale = function (p) { - return A3(hsv,0,0,1 - p); - }; - var Color = F4(function (a, - b, - c, - d) { - return {ctor: "Color" - ,_0: a - ,_1: b - ,_2: c - ,_3: d}; - }); - var rgba = Color; - var rgb = F3(function (r,g,b) { - return A4(Color,r,g,b,1); - }); - var lightRed = A4(Color, - 239, - 41, - 41, - 1); - var red = A4(Color,204,0,0,1); - var darkRed = A4(Color, - 164, - 0, - 0, - 1); - var lightOrange = A4(Color, - 252, - 175, - 62, - 1); - var orange = A4(Color, - 245, - 121, - 0, - 1); - var darkOrange = A4(Color, - 206, - 92, - 0, - 1); - var lightYellow = A4(Color, - 255, - 233, - 79, - 1); - var yellow = A4(Color, - 237, - 212, - 0, - 1); - var darkYellow = A4(Color, - 196, - 160, - 0, - 1); - var lightGreen = A4(Color, - 138, - 226, - 52, - 1); - var green = A4(Color, - 115, - 210, - 22, - 1); - var darkGreen = A4(Color, - 78, - 154, - 6, - 1); - var lightBlue = A4(Color, - 114, - 159, - 207, - 1); - var blue = A4(Color, - 52, - 101, - 164, - 1); - var darkBlue = A4(Color, - 32, - 74, - 135, - 1); - var lightPurple = A4(Color, - 173, - 127, - 168, - 1); - var purple = A4(Color, - 117, - 80, - 123, - 1); - var darkPurple = A4(Color, - 92, - 53, - 102, - 1); - var lightBrown = A4(Color, - 233, - 185, - 110, - 1); - var brown = A4(Color, - 193, - 125, - 17, - 1); - var darkBrown = A4(Color, - 143, - 89, - 2, - 1); - var black = A4(Color,0,0,0,1); - var white = A4(Color, - 255, - 255, - 255, - 1); - var lightGrey = A4(Color, - 238, - 238, - 236, - 1); - var grey = A4(Color, - 211, - 215, - 207, - 1); - var darkGrey = A4(Color, - 186, - 189, - 182, - 1); - var lightGray = A4(Color, - 238, - 238, - 236, - 1); - var gray = A4(Color, - 211, - 215, - 207, - 1); - var darkGray = A4(Color, - 186, - 189, - 182, - 1); - var lightCharcoal = A4(Color, - 136, - 138, - 133, - 1); - var charcoal = A4(Color, - 85, - 87, - 83, - 1); - var darkCharcoal = A4(Color, - 46, - 52, - 54, - 1); - _elm.Color.values = {_op: _op - ,rgba: rgba - ,rgb: rgb - ,lightRed: lightRed - ,red: red - ,darkRed: darkRed - ,lightOrange: lightOrange - ,orange: orange - ,darkOrange: darkOrange - ,lightYellow: lightYellow - ,yellow: yellow - ,darkYellow: darkYellow - ,lightGreen: lightGreen - ,green: green - ,darkGreen: darkGreen - ,lightBlue: lightBlue - ,blue: blue - ,darkBlue: darkBlue - ,lightPurple: lightPurple - ,purple: purple - ,darkPurple: darkPurple - ,lightBrown: lightBrown - ,brown: brown - ,darkBrown: darkBrown - ,black: black - ,white: white - ,lightGrey: lightGrey - ,grey: grey - ,darkGrey: darkGrey - ,lightGray: lightGray - ,gray: gray - ,darkGray: darkGray - ,lightCharcoal: lightCharcoal - ,charcoal: charcoal - ,darkCharcoal: darkCharcoal - ,grayscale: grayscale - ,greyscale: greyscale - ,complement: complement - ,hsva: hsva - ,hsv: hsv - ,linear: linear - ,radial: radial - ,Color: Color - ,Linear: Linear - ,Radial: Radial}; - return _elm.Color.values; -};Elm.Date = Elm.Date || {}; -Elm.Date.make = function (_elm) { - "use strict"; - _elm.Date = _elm.Date || {}; - if (_elm.Date.values) - return _elm.Date.values; - var _N = Elm.Native, - _U = _N.Utils.make(_elm), - _L = _N.List.make(_elm), - _E = _N.Error.make(_elm), - _J = _N.JavaScript.make(_elm), - $moduleName = "Date"; - var Maybe = Elm.Maybe.make(_elm); - var Native = Native || {}; - Native.Date = Elm.Native.Date.make(_elm); - var Time = Elm.Time.make(_elm); - var _op = {}; - var second = Native.Date.second; - var minute = Native.Date.minute; - var hour = Native.Date.hour; - var dayOfWeek = Native.Date.dayOfWeek; - var day = Native.Date.day; - var month = Native.Date.month; - var year = Native.Date.year; - var fromTime = Native.Date.fromTime; - var toTime = Native.Date.toTime; - var read = Native.Date.read; - var Dec = {ctor: "Dec"}; - var Nov = {ctor: "Nov"}; - var Oct = {ctor: "Oct"}; - var Sep = {ctor: "Sep"}; - var Aug = {ctor: "Aug"}; - var Jul = {ctor: "Jul"}; - var Jun = {ctor: "Jun"}; - var May = {ctor: "May"}; - var Apr = {ctor: "Apr"}; - var Mar = {ctor: "Mar"}; - var Feb = {ctor: "Feb"}; - var Jan = {ctor: "Jan"}; - var Sun = {ctor: "Sun"}; - var Sat = {ctor: "Sat"}; - var Fri = {ctor: "Fri"}; - var Thu = {ctor: "Thu"}; - var Wed = {ctor: "Wed"}; - var Tue = {ctor: "Tue"}; - var Mon = {ctor: "Mon"}; - var Date = {ctor: "Date"}; - _elm.Date.values = {_op: _op - ,read: read - ,toTime: toTime - ,fromTime: fromTime - ,year: year - ,month: month - ,day: day - ,dayOfWeek: dayOfWeek - ,hour: hour - ,minute: minute - ,second: second - ,Date: Date - ,Mon: Mon - ,Tue: Tue - ,Wed: Wed - ,Thu: Thu - ,Fri: Fri - ,Sat: Sat - ,Sun: Sun - ,Jan: Jan - ,Feb: Feb - ,Mar: Mar - ,Apr: Apr - ,May: May - ,Jun: Jun - ,Jul: Jul - ,Aug: Aug - ,Sep: Sep - ,Oct: Oct - ,Nov: Nov - ,Dec: Dec}; - return _elm.Date.values; -};Elm.Debug = Elm.Debug || {}; -Elm.Debug.make = function (_elm) { - "use strict"; - _elm.Debug = _elm.Debug || {}; - if (_elm.Debug.values) - return _elm.Debug.values; - var _N = Elm.Native, - _U = _N.Utils.make(_elm), - _L = _N.List.make(_elm), - _E = _N.Error.make(_elm), - _J = _N.JavaScript.make(_elm), - $moduleName = "Debug"; - var Native = Native || {}; - Native.Debug = Elm.Native.Debug.make(_elm); - var _op = {}; - var log = Native.Debug.log; - _elm.Debug.values = {_op: _op - ,log: log}; - return _elm.Debug.values; -};Elm.Dict = Elm.Dict || {}; -Elm.Dict.make = function (_elm) { - "use strict"; - _elm.Dict = _elm.Dict || {}; - if (_elm.Dict.values) - return _elm.Dict.values; - var _N = Elm.Native, - _U = _N.Utils.make(_elm), - _L = _N.List.make(_elm), - _E = _N.Error.make(_elm), - _J = _N.JavaScript.make(_elm), - $moduleName = "Dict"; - var Basics = Elm.Basics.make(_elm); - var List = Elm.List.make(_elm); - var Maybe = Elm.Maybe.make(_elm); - var Native = Native || {}; - Native.Error = Elm.Native.Error.make(_elm); - var Native = Native || {}; - Native.Utils = Elm.Native.Utils.make(_elm); - var _op = {}; - var Same = {ctor: "Same"}; - var Remove = {ctor: "Remove"}; - var Insert = {ctor: "Insert"}; - var showFlag = function (f) { - return function () { - switch (f.ctor) - {case "Insert": return "Insert"; - case "Remove": return "Remove"; - case "Same": return "Same";} - _E.Case($moduleName, - "between lines 136 and 141"); - }(); - }; - var RBEmpty = function (a) { - return {ctor: "RBEmpty" - ,_0: a}; - }; - var RBNode = F5(function (a, - b, - c, - d, - e) { - return {ctor: "RBNode" - ,_0: a - ,_1: b - ,_2: c - ,_3: d - ,_4: e}; - }); - var max = function (t) { - return function () { - switch (t.ctor) - {case "RBEmpty": - return Native.Error.raise("(max Empty) is not defined"); - case "RBNode": - switch (t._4.ctor) - {case "RBEmpty": - return {ctor: "_Tuple2" - ,_0: t._1 - ,_1: t._2};} - return max(t._4);} - _E.Case($moduleName, - "between lines 82 and 87"); - }(); - }; - var LBBlack = {ctor: "LBBlack"}; - var LBlack = {ctor: "LBlack"}; - var showLColor = function (c) { - return function () { - switch (c.ctor) - {case "LBBlack": - return "LBBlack"; - case "LBlack": return "LBlack";} - _E.Case($moduleName, - "between lines 62 and 64"); - }(); - }; - var empty = RBEmpty(LBlack); - var min = function (t) { - return function () { - switch (t.ctor) - {case "RBEmpty": - switch (t._0.ctor) - {case "LBlack": - return Native.Error.raise("(min Empty) is not defined");} - break; - case "RBNode": - switch (t._3.ctor) - {case "RBEmpty": - switch (t._3._0.ctor) - {case "LBlack": - return {ctor: "_Tuple2" - ,_0: t._1 - ,_1: t._2};} - break;} - return min(t._3);} - _E.Case($moduleName, - "between lines 75 and 78"); - }(); - }; - var lookup = F2(function (k,t) { - return function () { - switch (t.ctor) - {case "RBEmpty": - switch (t._0.ctor) - {case "LBlack": - return Maybe.Nothing;} - break; - case "RBNode": - return function () { - var _v25 = A2(Native.Utils.compare, - k, - t._1); - switch (_v25.ctor) - {case "EQ": - return Maybe.Just(t._2); - case "GT": return A2(lookup, - k, - t._4); - case "LT": return A2(lookup, - k, - t._3);} - _E.Case($moduleName, - "between lines 93 and 99"); - }();} - _E.Case($moduleName, - "between lines 90 and 99"); - }(); - }); - var member = F2(function (k,t) { - return Maybe.isJust(A2(lookup, - k, - t)); - }); - var findWithDefault = F3(function (base, - k, - t) { - return function () { - switch (t.ctor) - {case "RBEmpty": - switch (t._0.ctor) - {case "LBlack": return base;} - break; - case "RBNode": - return function () { - var _v33 = A2(Native.Utils.compare, - k, - t._1); - switch (_v33.ctor) - {case "EQ": return t._2; - case "GT": - return A3(findWithDefault, - base, - k, - t._4); - case "LT": - return A3(findWithDefault, - base, - k, - t._3);} - _E.Case($moduleName, - "between lines 105 and 110"); - }();} - _E.Case($moduleName, - "between lines 102 and 110"); - }(); - }); - var map = F2(function (f,t) { - return function () { - switch (t.ctor) - {case "RBEmpty": - switch (t._0.ctor) - {case "LBlack": - return RBEmpty(LBlack);} - break; - case "RBNode": return A5(RBNode, - t._0, - t._1, - f(t._2), - A2(map,f,t._3), - A2(map,f,t._4));} - _E.Case($moduleName, - "between lines 302 and 307"); - }(); - }); - var foldl = F3(function (f, - acc, - t) { - return function () { - switch (t.ctor) - {case "RBEmpty": - switch (t._0.ctor) - {case "LBlack": return acc;} - break; - case "RBNode": return A3(foldl, - f, - A3(f, - t._1, - t._2, - A3(foldl,f,acc,t._3)), - t._4);} - _E.Case($moduleName, - "between lines 310 and 315"); - }(); - }); - var foldr = F3(function (f, - acc, - t) { - return function () { - switch (t.ctor) - {case "RBEmpty": - switch (t._0.ctor) - {case "LBlack": return acc;} - break; - case "RBNode": return A3(foldr, - f, - A3(f, - t._1, - t._2, - A3(foldr,f,acc,t._4)), - t._3);} - _E.Case($moduleName, - "between lines 318 and 323"); - }(); - }); - var keys = function (t) { - return A3(foldr, - F3(function (k,v,acc) { - return {ctor: "::" - ,_0: k - ,_1: acc}; - }), - _J.toList([]), - t); - }; - var values = function (t) { - return A3(foldr, - F3(function (k,v,acc) { - return {ctor: "::" - ,_0: v - ,_1: acc}; - }), - _J.toList([]), - t); - }; - var toList = function (t) { - return A3(foldr, - F3(function (k,v,acc) { - return {ctor: "::" - ,_0: {ctor: "_Tuple2" - ,_0: k - ,_1: v} - ,_1: acc}; - }), - _J.toList([]), - t); - }; - var NBlack = {ctor: "NBlack"}; - var BBlack = {ctor: "BBlack"}; - var isBBlack = function (t) { - return function () { - switch (t.ctor) - {case "RBEmpty": - switch (t._0.ctor) - {case "LBBlack": return true;} - break; - case "RBNode": - switch (t._0.ctor) - {case "BBlack": return true;} - break;} - return false; - }(); - }; - var Black = {ctor: "Black"}; - var blackish = function (t) { - return function () { - switch (t.ctor) - {case "RBEmpty": return true; - case "RBNode": - return _U.eq(t._0, - Black) || _U.eq(t._0,BBlack);} - _E.Case($moduleName, - "between lines 253 and 255"); - }(); - }; - var blacken = function (t) { - return function () { - switch (t.ctor) - {case "RBEmpty": - return RBEmpty(LBlack); - case "RBNode": return A5(RBNode, - Black, - t._1, - t._2, - t._3, - t._4);} - _E.Case($moduleName, - "between lines 289 and 291"); - }(); - }; - var Red = {ctor: "Red"}; - var showNColor = function (c) { - return function () { - switch (c.ctor) - {case "BBlack": return "BBlack"; - case "Black": return "Black"; - case "NBlack": return "NBlack"; - case "Red": return "Red";} - _E.Case($moduleName, - "between lines 51 and 55"); - }(); - }; - var reportRemBug = F4(function (msg, - c, - lgot, - rgot) { - return Native.Error.raise(List.concat(_J.toList(["Internal red-black tree invariant violated, expected " - ,msg - ,"and got" - ,showNColor(c) - ," " - ,lgot - ," " - ,rgot - ,"\nPlease report this bug to https://github.com/evancz/Elm/issues"]))); - }); - var ensureBlackRoot = function (t) { - return function () { - switch (t.ctor) - {case "RBEmpty": - switch (t._0.ctor) - {case "LBlack": return t;} - break; - case "RBNode": - switch (t._0.ctor) - {case "Black": return t; - case "Red": return A5(RBNode, - Black, - t._1, - t._2, - t._3, - t._4);} - break;} - _E.Case($moduleName, - "between lines 117 and 123"); - }(); - }; - var moreBlack = function (c) { - return function () { - switch (c.ctor) - {case "BBlack": - return Native.Error.raise("Can\'t make a double black node more black!"); - case "Black": return BBlack; - case "NBlack": return Red; - case "Red": return Black;} - _E.Case($moduleName, - "between lines 179 and 183"); - }(); - }; - var lessBlack = function (c) { - return function () { - switch (c.ctor) - {case "BBlack": return Black; - case "Black": return Red; - case "NBlack": - return Native.Error.raise("Can\'t make a negative black node less black!"); - case "Red": return NBlack;} - _E.Case($moduleName, - "between lines 186 and 190"); - }(); - }; - var lessBlackTree = function (t) { - return function () { - switch (t.ctor) - {case "RBEmpty": - switch (t._0.ctor) - {case "LBBlack": - return RBEmpty(LBlack);} - break; - case "RBNode": return A5(RBNode, - lessBlack(t._0), - t._1, - t._2, - t._3, - t._4);} - _E.Case($moduleName, - "between lines 193 and 195"); - }(); - }; - var redden = function (t) { - return function () { - switch (t.ctor) - {case "RBEmpty": - return Native.Error.raise("can\'t make a Leaf red"); - case "RBNode": return A5(RBNode, - Red, - t._1, - t._2, - t._3, - t._4);} - _E.Case($moduleName, - "between lines 295 and 299"); - }(); - }; - var balance_node = function (t) { - return function () { - var assemble = function (col) { - return function (xk) { - return function (xv) { - return function (yk) { - return function (yv) { - return function (zk) { - return function (zv) { - return function (a) { - return function (b) { - return function (c) { - return function (d) { - return A5(RBNode, - lessBlack(col), - yk, - yv, - A5(RBNode,Black,xk,xv,a,b), - A5(RBNode,Black,zk,zv,c,d)); - }; - }; - }; - }; - }; - }; - }; - }; - }; - }; - }; - return blackish(t) ? function () { - switch (t.ctor) - {case "RBNode": - switch (t._3.ctor) - {case "RBNode": - switch (t._3._0.ctor) - {case "Red": - switch (t._3._3.ctor) - {case "RBNode": - switch (t._3._3._0.ctor) - {case "Red": - return assemble(t._0)(t._3._3._1)(t._3._3._2)(t._3._1)(t._3._2)(t._1)(t._2)(t._3._3._3)(t._3._3._4)(t._3._4)(t._4);} - break;} - switch (t._3._4.ctor) - {case "RBNode": - switch (t._3._4._0.ctor) - {case "Red": - return assemble(t._0)(t._3._1)(t._3._2)(t._3._4._1)(t._3._4._2)(t._1)(t._2)(t._3._3)(t._3._4._3)(t._3._4._4)(t._4);} - break;} - break;} - break;} - switch (t._4.ctor) - {case "RBNode": - switch (t._4._0.ctor) - {case "Red": - switch (t._4._3.ctor) - {case "RBNode": - switch (t._4._3._0.ctor) - {case "Red": - return assemble(t._0)(t._1)(t._2)(t._4._3._1)(t._4._3._2)(t._4._1)(t._4._2)(t._3)(t._4._3._3)(t._4._3._4)(t._4._4);} - break;} - switch (t._4._4.ctor) - {case "RBNode": - switch (t._4._4._0.ctor) - {case "Red": - return assemble(t._0)(t._1)(t._2)(t._4._1)(t._4._2)(t._4._4._1)(t._4._4._2)(t._3)(t._4._3)(t._4._4._3)(t._4._4._4);} - break;} - break;} - break;} - switch (t._0.ctor) - {case "BBlack": - switch (t._4.ctor) - {case "RBNode": - switch (t._4._0.ctor) - {case "NBlack": - switch (t._4._3.ctor) - {case "RBNode": - switch (t._4._3._0.ctor) - {case "Black": - return function () { - switch (t._4._4.ctor) - {case "RBNode": - switch (t._4._4._0.ctor) - {case "Black": - return A5(RBNode, - Black, - t._4._3._1, - t._4._3._2, - A5(RBNode, - Black, - t._1, - t._2, - t._3, - t._4._3._3), - A5(balance, - Black, - t._4._1, - t._4._2, - t._4._3._4, - redden(t._4._4)));} - break;} - return t; - }();} - break;} - break;} - break;} - switch (t._3.ctor) - {case "RBNode": - switch (t._3._0.ctor) - {case "NBlack": - switch (t._3._4.ctor) - {case "RBNode": - switch (t._3._4._0.ctor) - {case "Black": - return function () { - switch (t._3._3.ctor) - {case "RBNode": - switch (t._3._3._0.ctor) - {case "Black": - return A5(RBNode, - Black, - t._3._4._1, - t._3._4._2, - A5(balance, - Black, - t._3._1, - t._3._2, - redden(t._3._3), - t._3._4._3), - A5(RBNode, - Black, - t._1, - t._2, - t._3._4._4, - t._4));} - break;} - return t; - }();} - break;} - break;} - break;} - break;} - break;} - return t; - }() : t; - }(); - }; - var balance = F5(function (c, - k, - v, - l, - r) { - return balance_node(A5(RBNode, - c, - k, - v, - l, - r)); - }); - var bubble = F5(function (c, - k, - v, - l, - r) { - return isBBlack(l) || isBBlack(r) ? A5(balance, - moreBlack(c), - k, - v, - lessBlackTree(l), - lessBlackTree(r)) : A5(RBNode, - c, - k, - v, - l, - r); - }); - var remove_max = F5(function (c, - k, - v, - l, - r) { - return function () { - switch (r.ctor) - {case "RBEmpty": return A3(rem, - c, - l, - r); - case "RBNode": return A5(bubble, - c, - k, - v, - l, - A5(remove_max, - r._0, - r._1, - r._2, - r._3, - r._4));} - _E.Case($moduleName, - "between lines 241 and 244"); - }(); - }); - var rem = F3(function (c,l,r) { - return function () { - var _v175 = {ctor: "_Tuple2" - ,_0: l - ,_1: r}; - switch (_v175.ctor) - {case "_Tuple2": - switch (_v175._0.ctor) - {case "RBEmpty": - switch (_v175._1.ctor) - {case "RBEmpty": - return function () { - switch (c.ctor) - {case "Black": - return RBEmpty(LBBlack); - case "Red": - return RBEmpty(LBlack);} - _E.Case($moduleName, - "between lines 214 and 217"); - }(); - case "RBNode": - return function () { - var _v197 = {ctor: "_Tuple3" - ,_0: c - ,_1: _v175._0._0 - ,_2: _v175._1._0}; - switch (_v197.ctor) - {case "_Tuple3": - switch (_v197._0.ctor) - {case "Black": - switch (_v197._1.ctor) - {case "LBlack": - switch (_v197._2.ctor) - {case "Red": return A5(RBNode, - Black, - _v175._1._1, - _v175._1._2, - _v175._1._3, - _v175._1._4);} - break;} - break;} - break;} - return A4(reportRemBug, - "Black, LBlack, Red", - c, - showLColor(_v175._0._0), - showNColor(_v175._1._0)); - }();} - break; - case "RBNode": - switch (_v175._1.ctor) - {case "RBEmpty": - return function () { - var _v201 = {ctor: "_Tuple3" - ,_0: c - ,_1: _v175._0._0 - ,_2: _v175._1._0}; - switch (_v201.ctor) - {case "_Tuple3": - switch (_v201._0.ctor) - {case "Black": - switch (_v201._1.ctor) - {case "Red": - switch (_v201._2.ctor) - {case "LBlack": - return A5(RBNode, - Black, - _v175._0._1, - _v175._0._2, - _v175._0._3, - _v175._0._4);} - break;} - break;} - break;} - return A4(reportRemBug, - "Black, Red, LBlack", - c, - showNColor(_v175._0._0), - showLColor(_v175._1._0)); - }(); - case "RBNode": - return function () { - var l$ = A5(remove_max, - _v175._0._0, - _v175._0._1, - _v175._0._2, - _v175._0._3, - _v175._0._4); - var r = A5(RBNode, - _v175._1._0, - _v175._1._1, - _v175._1._2, - _v175._1._3, - _v175._1._4); - var l = A5(RBNode, - _v175._0._0, - _v175._0._1, - _v175._0._2, - _v175._0._3, - _v175._0._4); - var $ = max(l), - k = $._0, - v = $._1; - return A5(bubble,c,k,v,l$,r); - }();} - break;} - break;} - _E.Case($moduleName, - "between lines 213 and 231"); - }(); - }); - var update = F3(function (k, - u, - t) { - return function () { - var up = function (t) { - return function () { - switch (t.ctor) - {case "RBEmpty": - switch (t._0.ctor) - {case "LBlack": - return function () { - var _v212 = u(Maybe.Nothing); - switch (_v212.ctor) - {case "Just": - return {ctor: "_Tuple2" - ,_0: Insert - ,_1: A5(RBNode, - Red, - k, - _v212._0, - empty, - empty)}; - case "Nothing": - return {ctor: "_Tuple2" - ,_0: Same - ,_1: empty};} - _E.Case($moduleName, - "between lines 145 and 148"); - }();} - break; - case "RBNode": - return function () { - var _v214 = A2(Native.Utils.compare, - k, - t._1); - switch (_v214.ctor) - {case "EQ": return function () { - var _v215 = u(Maybe.Just(t._2)); - switch (_v215.ctor) - {case "Just": - return {ctor: "_Tuple2" - ,_0: Same - ,_1: A5(RBNode, - t._0, - t._1, - _v215._0, - t._3, - t._4)}; - case "Nothing": - return {ctor: "_Tuple2" - ,_0: Remove - ,_1: A3(rem,t._0,t._3,t._4)};} - _E.Case($moduleName, - "between lines 149 and 152"); - }(); - case "GT": return function () { - var $ = up(t._4), - fl = $._0, - r$ = $._1; - return function () { - switch (fl.ctor) - {case "Insert": - return {ctor: "_Tuple2" - ,_0: Insert - ,_1: A5(balance, - t._0, - t._1, - t._2, - t._3, - r$)}; - case "Remove": - return {ctor: "_Tuple2" - ,_0: Remove - ,_1: A5(bubble, - t._0, - t._1, - t._2, - t._3, - r$)}; - case "Same": - return {ctor: "_Tuple2" - ,_0: Same - ,_1: A5(RBNode, - t._0, - t._1, - t._2, - t._3, - r$)};} - _E.Case($moduleName, - "between lines 158 and 162"); - }(); - }(); - case "LT": return function () { - var $ = up(t._3), - fl = $._0, - l$ = $._1; - return function () { - switch (fl.ctor) - {case "Insert": - return {ctor: "_Tuple2" - ,_0: Insert - ,_1: A5(balance, - t._0, - t._1, - t._2, - l$, - t._4)}; - case "Remove": - return {ctor: "_Tuple2" - ,_0: Remove - ,_1: A5(bubble, - t._0, - t._1, - t._2, - l$, - t._4)}; - case "Same": - return {ctor: "_Tuple2" - ,_0: Same - ,_1: A5(RBNode, - t._0, - t._1, - t._2, - l$, - t._4)};} - _E.Case($moduleName, - "between lines 153 and 157"); - }(); - }();} - _E.Case($moduleName, - "between lines 148 and 162"); - }();} - _E.Case($moduleName, - "between lines 144 and 162"); - }(); - }; - var $ = up(t), - fl = $._0, - t$ = $._1; - return function () { - switch (fl.ctor) - {case "Insert": - return ensureBlackRoot(t$); - case "Remove": - return blacken(t$); - case "Same": return t$;} - _E.Case($moduleName, - "between lines 163 and 168"); - }(); - }(); - }); - var insert = F3(function (k, - v, - t) { - return function () { - var u = function (_v220) { - return function () { - return Maybe.Just(v); - }(); - }; - return A3(update,k,u,t); - }(); - }); - var singleton = F2(function (k, - v) { - return A3(insert, - k, - v, - RBEmpty(LBlack)); - }); - var union = F2(function (t1, - t2) { - return A3(foldl, - insert, - t2, - t1); - }); - var intersect = F2(function (t1, - t2) { - return function () { - var combine = F3(function (k, - v, - t) { - return A2(member, - k, - t2) ? A3(insert,k,v,t) : t; - }); - return A3(foldl, - combine, - empty, - t1); - }(); - }); - var fromList = function (assocs) { - return A3(List.foldl, - F2(function (_v222,d) { - return function () { - switch (_v222.ctor) - {case "_Tuple2": - return A3(insert, - _v222._0, - _v222._1, - d);} - _E.Case($moduleName, - "on line 353, column 43 to 55"); - }(); - }), - empty, - assocs); - }; - var remove = F2(function (k,t) { - return function () { - var u = function (_v226) { - return function () { - return Maybe.Nothing; - }(); - }; - return A3(update,k,u,t); - }(); - }); - var diff = F2(function (t1,t2) { - return A3(foldl, - F3(function (k,v,t) { - return A2(remove,k,t); - }), - t1, - t2); - }); - _elm.Dict.values = {_op: _op - ,empty: empty - ,singleton: singleton - ,insert: insert - ,update: update - ,lookup: lookup - ,findWithDefault: findWithDefault - ,remove: remove - ,member: member - ,foldl: foldl - ,foldr: foldr - ,map: map - ,union: union - ,intersect: intersect - ,diff: diff - ,keys: keys - ,values: values - ,toList: toList - ,fromList: fromList}; - return _elm.Dict.values; -};Elm.Either = Elm.Either || {}; -Elm.Either.make = function (_elm) { - "use strict"; - _elm.Either = _elm.Either || {}; - if (_elm.Either.values) - return _elm.Either.values; - var _N = Elm.Native, - _U = _N.Utils.make(_elm), - _L = _N.List.make(_elm), - _E = _N.Error.make(_elm), - _J = _N.JavaScript.make(_elm), - $moduleName = "Either"; - var List = Elm.List.make(_elm); - var _op = {}; - var Right = function (a) { - return {ctor: "Right",_0: a}; - }; - var isRight = function (e) { - return function () { - switch (e.ctor) - {case "Right": return true;} - return false; - }(); - }; - var Left = function (a) { - return {ctor: "Left",_0: a}; - }; - var either = F3(function (f, - g, - e) { - return function () { - switch (e.ctor) - {case "Left": return f(e._0); - case "Right": return g(e._0);} - _E.Case($moduleName, - "on line 37, column 16 to 60"); - }(); - }); - var isLeft = function (e) { - return function () { - switch (e.ctor) - {case "Left": return true;} - return false; - }(); - }; - var consLeft = F2(function (e, - vs) { - return function () { - switch (e.ctor) - {case "Left": return {ctor: "::" - ,_0: e._0 - ,_1: vs}; - case "Right": return vs;} - _E.Case($moduleName, - "between lines 78 and 80"); - }(); - }); - var lefts = function (es) { - return A3(List.foldr, - consLeft, - _J.toList([]), - es); - }; - var consRight = F2(function (e, - vs) { - return function () { - switch (e.ctor) - {case "Left": return vs; - case "Right": return {ctor: "::" - ,_0: e._0 - ,_1: vs};} - _E.Case($moduleName, - "between lines 83 and 85"); - }(); - }); - var rights = function (es) { - return A3(List.foldr, - consRight, - _J.toList([]), - es); - }; - var consEither = F2(function (e, - _v13) { - return function () { - switch (_v13.ctor) - {case "_Tuple2": - return function () { - switch (e.ctor) - {case "Left": - return {ctor: "_Tuple2" - ,_0: {ctor: "::" - ,_0: e._0 - ,_1: _v13._0} - ,_1: _v13._1}; - case "Right": - return {ctor: "_Tuple2" - ,_0: _v13._0 - ,_1: {ctor: "::" - ,_0: e._0 - ,_1: _v13._1}};} - _E.Case($moduleName, - "between lines 88 and 90"); - }();} - _E.Case($moduleName, - "between lines 88 and 90"); - }(); - }); - var partition = function (es) { - return A3(List.foldr, - consEither, - {ctor: "_Tuple2" - ,_0: _J.toList([]) - ,_1: _J.toList([])}, - es); - }; - _elm.Either.values = {_op: _op - ,either: either - ,isLeft: isLeft - ,isRight: isRight - ,lefts: lefts - ,rights: rights - ,partition: partition - ,consLeft: consLeft - ,consRight: consRight - ,consEither: consEither - ,Left: Left - ,Right: Right}; - return _elm.Either.values; -};Elm.Http = Elm.Http || {}; -Elm.Http.make = function (_elm) { - "use strict"; - _elm.Http = _elm.Http || {}; - if (_elm.Http.values) - return _elm.Http.values; - var _N = Elm.Native, - _U = _N.Utils.make(_elm), - _L = _N.List.make(_elm), - _E = _N.Error.make(_elm), - _J = _N.JavaScript.make(_elm), - $moduleName = "Http"; - var Native = Native || {}; - Native.Http = Elm.Native.Http.make(_elm); - var Signal = Elm.Signal.make(_elm); - var _op = {}; - var send = Native.Http.send; - var Request = F4(function (a, - b, - c, - d) { - return {_: {} - ,body: c - ,headers: d - ,url: b - ,verb: a}; - }); - var request = Request; - var get = function (url) { - return A4(Request, - "GET", - url, - "", - _J.toList([])); - }; - var sendGet = function (reqs) { - return send(A2(Signal.lift, - get, - reqs)); - }; - var post = F2(function (url, - body) { - return A4(Request, - "POST", - url, - body, - _J.toList([])); - }); - var Failure = F2(function (a, - b) { - return {ctor: "Failure" - ,_0: a - ,_1: b}; - }); - var Waiting = {ctor: "Waiting"}; - var Success = function (a) { - return {ctor: "Success" - ,_0: a}; - }; - _elm.Http.values = {_op: _op - ,request: request - ,get: get - ,post: post - ,send: send - ,sendGet: sendGet - ,Success: Success - ,Waiting: Waiting - ,Failure: Failure - ,Request: Request}; - return _elm.Http.values; -};Elm.JavaScript = Elm.JavaScript || {}; -Elm.JavaScript.make = function (_elm) { - "use strict"; - _elm.JavaScript = _elm.JavaScript || {}; - if (_elm.JavaScript.values) - return _elm.JavaScript.values; - var _N = Elm.Native, - _U = _N.Utils.make(_elm), - _L = _N.List.make(_elm), - _E = _N.Error.make(_elm), - _J = _N.JavaScript.make(_elm), - $moduleName = "JavaScript"; - var Native = Native || {}; - Native.JavaScript = Elm.Native.JavaScript.make(_elm); - var _op = {}; - var fromString = Native.JavaScript.fromString; - var fromBool = Native.JavaScript.fromBool; - var fromFloat = Native.JavaScript.fromFloat; - var fromInt = Native.JavaScript.fromInt; - var fromList = Native.JavaScript.fromList; - var toString = Native.JavaScript.toString; - var toBool = Native.JavaScript.toBool; - var toFloat = Native.JavaScript.toFloat; - var toInt = Native.JavaScript.toInt; - var toList = Native.JavaScript.toList; - var JSObject = {ctor: "JSObject"}; - var JSDomNode = {ctor: "JSDomNode"}; - var JSArray = function (a) { - return {ctor: "JSArray" - ,_0: a}; - }; - var JSString = {ctor: "JSString"}; - var JSBool = {ctor: "JSBool"}; - var JSNumber = {ctor: "JSNumber"}; - _elm.JavaScript.values = {_op: _op - ,toList: toList - ,toInt: toInt - ,toFloat: toFloat - ,toBool: toBool - ,toString: toString - ,fromList: fromList - ,fromInt: fromInt - ,fromFloat: fromFloat - ,fromBool: fromBool - ,fromString: fromString - ,JSNumber: JSNumber - ,JSBool: JSBool - ,JSString: JSString - ,JSArray: JSArray - ,JSDomNode: JSDomNode - ,JSObject: JSObject}; - return _elm.JavaScript.values; -};Elm.Json = Elm.Json || {}; -Elm.Json.make = function (_elm) { - "use strict"; - _elm.Json = _elm.Json || {}; - if (_elm.Json.values) - return _elm.Json.values; - var _N = Elm.Native, - _U = _N.Utils.make(_elm), - _L = _N.List.make(_elm), - _E = _N.Error.make(_elm), - _J = _N.JavaScript.make(_elm), - $moduleName = "Json"; - var Basics = Elm.Basics.make(_elm); - var Dict = Elm.Dict.make(_elm); - var JavaScript = Elm.JavaScript.make(_elm); - var Maybe = Elm.Maybe.make(_elm); - var Native = Native || {}; - Native.Json = Elm.Native.Json.make(_elm); - var _op = {}; - var toJSObject = Native.Json.toJSObject; - var fromJSObject = Native.Json.fromJSObject; - var fromJSString = Native.Json.fromJSString; - var fromString = function (s) { - return Native.Json.fromJSString(JavaScript.fromString(s)); - }; - var toJSString = Native.Json.toJSString; - var toString = F2(function (sep, - v) { - return JavaScript.toString(A2(Native.Json.toJSString, - sep, - v)); - }); - var Object = function (a) { - return {ctor: "Object" - ,_0: a}; - }; - var Array = function (a) { - return {ctor: "Array",_0: a}; - }; - var Null = {ctor: "Null"}; - var Boolean = function (a) { - return {ctor: "Boolean" - ,_0: a}; - }; - var Number = function (a) { - return {ctor: "Number" - ,_0: a}; - }; - var String = function (a) { - return {ctor: "String" - ,_0: a}; - }; - _elm.Json.values = {_op: _op - ,toString: toString - ,toJSString: toJSString - ,fromString: fromString - ,fromJSString: fromJSString - ,fromJSObject: fromJSObject - ,toJSObject: toJSObject - ,String: String - ,Number: Number - ,Boolean: Boolean - ,Null: Null - ,Array: Array - ,Object: Object}; - return _elm.Json.values; -};Elm.Keyboard = Elm.Keyboard || {}; -Elm.Keyboard.make = function (_elm) { - "use strict"; - _elm.Keyboard = _elm.Keyboard || {}; - if (_elm.Keyboard.values) - return _elm.Keyboard.values; - var _N = Elm.Native, - _U = _N.Utils.make(_elm), - _L = _N.List.make(_elm), - _E = _N.Error.make(_elm), - _J = _N.JavaScript.make(_elm), - $moduleName = "Keyboard"; - var Native = Native || {}; - Native.Keyboard = Elm.Native.Keyboard.make(_elm); - var Signal = Elm.Signal.make(_elm); - var _op = {}; - var lastPressed = Native.Keyboard.lastPressed; - var keysDown = Native.Keyboard.keysDown; - var isDown = Native.Keyboard.isDown; - var shift = isDown(16); - var ctrl = isDown(17); - var space = isDown(32); - var enter = isDown(13); - var directions = Native.Keyboard.directions; - var arrows = A4(directions, - 38, - 40, - 37, - 39); - var wasd = A4(directions, - 87, - 83, - 65, - 68); - _elm.Keyboard.values = {_op: _op - ,directions: directions - ,arrows: arrows - ,wasd: wasd - ,isDown: isDown - ,shift: shift - ,ctrl: ctrl - ,space: space - ,enter: enter - ,keysDown: keysDown - ,lastPressed: lastPressed}; - return _elm.Keyboard.values; -};Elm.List = Elm.List || {}; -Elm.List.make = function (_elm) { - "use strict"; - _elm.List = _elm.List || {}; - if (_elm.List.values) - return _elm.List.values; - var _N = Elm.Native, - _U = _N.Utils.make(_elm), - _L = _N.List.make(_elm), - _E = _N.Error.make(_elm), - _J = _N.JavaScript.make(_elm), - $moduleName = "List"; - var Basics = Elm.Basics.make(_elm); - var Native = Native || {}; - Native.List = Elm.Native.List.make(_elm); - var _op = {}; - var sortWith = Native.List.sortWith; - var sortBy = Native.List.sortBy; - var sort = Native.List.sort; - var repeat = Native.List.repeat; - var drop = Native.List.drop; - var take = Native.List.take; - var join = Native.List.join; - var zipWith = Native.List.zipWith; - var zip = Native.List.zip; - var concat = Native.List.concat; - var any = Native.List.any; - var all = Native.List.all; - var reverse = Native.List.reverse; - var length = Native.List.length; - var filter = Native.List.filter; - var scanl1 = Native.List.scanl1; - var scanl = Native.List.scanl; - var foldr1 = Native.List.foldr1; - var foldl1 = Native.List.foldl1; - var maximum = foldl1(Basics.max); - var minimum = foldl1(Basics.min); - var foldr = Native.List.foldr; - var foldl = Native.List.foldl; - var and = A2(foldl, - F2(function (x,y) { - return x && y; - }), - true); - var or = A2(foldl, - F2(function (x,y) { - return x || y; - }), - false); - var sum = A2(foldl, - F2(function (x,y) { - return x + y; - }), - 0); - var product = A2(foldl, - F2(function (x,y) { - return x * y; - }), - 1); - var map = Native.List.map; - var concatMap = F2(function (f, - list) { - return concat(A2(map, - f, - list)); - }); - var isEmpty = function (xs) { - return function () { - switch (xs.ctor) - {case "[]": return true;} - return false; - }(); - }; - var last = Native.List.last; - var tail = Native.List.tail; - var head = Native.List.head; - _op["++"] = Native.List.append; - _op["::"] = Native.List.cons; - var partition = F2(function (pred, - lst) { - return function () { - switch (lst.ctor) - {case "::": return function () { - var $ = A2(partition, - pred, - lst._1), - bs = $._0, - cs = $._1; - return pred(lst._0) ? {ctor: "_Tuple2" - ,_0: {ctor: "::" - ,_0: lst._0 - ,_1: bs} - ,_1: cs} : {ctor: "_Tuple2" - ,_0: bs - ,_1: {ctor: "::" - ,_0: lst._0 - ,_1: cs}}; - }(); - case "[]": - return {ctor: "_Tuple2" - ,_0: _J.toList([]) - ,_1: _J.toList([])};} - _E.Case($moduleName, - "between lines 169 and 179"); - }(); - }); - var unzip = function (pairs) { - return function () { - switch (pairs.ctor) - {case "::": - switch (pairs._0.ctor) - {case "_Tuple2": - return function () { - var $ = unzip(pairs._1), - xs = $._0, - ys = $._1; - return {ctor: "_Tuple2" - ,_0: {ctor: "::" - ,_0: pairs._0._0 - ,_1: xs} - ,_1: {ctor: "::" - ,_0: pairs._0._1 - ,_1: ys}}; - }();} - break; - case "[]": - return {ctor: "_Tuple2" - ,_0: _J.toList([]) - ,_1: _J.toList([])};} - _E.Case($moduleName, - "between lines 194 and 202"); - }(); - }; - var intersperse = F2(function (sep, - xs) { - return function () { - switch (xs.ctor) - {case "::": switch (xs._1.ctor) - {case "::": return {ctor: "::" - ,_0: xs._0 - ,_1: {ctor: "::" - ,_0: sep - ,_1: A2(intersperse, - sep, - {ctor: "::" - ,_0: xs._1._0 - ,_1: xs._1._1})}}; - case "[]": - return _J.toList([xs._0]);} - break; - case "[]": - return _J.toList([]);} - _E.Case($moduleName, - "between lines 212 and 217"); - }(); - }); - _elm.List.values = {_op: _op - ,head: head - ,tail: tail - ,last: last - ,isEmpty: isEmpty - ,map: map - ,foldl: foldl - ,foldr: foldr - ,foldl1: foldl1 - ,foldr1: foldr1 - ,scanl: scanl - ,scanl1: scanl1 - ,filter: filter - ,length: length - ,reverse: reverse - ,all: all - ,any: any - ,and: and - ,or: or - ,concat: concat - ,concatMap: concatMap - ,sum: sum - ,product: product - ,maximum: maximum - ,minimum: minimum - ,partition: partition - ,zip: zip - ,zipWith: zipWith - ,unzip: unzip - ,join: join - ,intersperse: intersperse - ,take: take - ,drop: drop - ,repeat: repeat - ,sort: sort - ,sortBy: sortBy - ,sortWith: sortWith}; - return _elm.List.values; -};Elm.Maybe = Elm.Maybe || {}; -Elm.Maybe.make = function (_elm) { - "use strict"; - _elm.Maybe = _elm.Maybe || {}; - if (_elm.Maybe.values) - return _elm.Maybe.values; - var _N = Elm.Native, - _U = _N.Utils.make(_elm), - _L = _N.List.make(_elm), - _E = _N.Error.make(_elm), - _J = _N.JavaScript.make(_elm), - $moduleName = "Maybe"; - var Basics = Elm.Basics.make(_elm); - var List = Elm.List.make(_elm); - var _op = {}; - var Nothing = {ctor: "Nothing"}; - var Just = function (a) { - return {ctor: "Just",_0: a}; - }; - var maybe = F3(function (b, - f, - m) { - return function () { - switch (m.ctor) - {case "Just": return f(m._0); - case "Nothing": return b;} - _E.Case($moduleName, - "between lines 35 and 44"); - }(); - }); - var isJust = A2(maybe, - false, - function (_v2) { - return function () { - return true; - }(); - }); - var isNothing = function ($) { - return Basics.not(isJust($)); - }; - var cons = F2(function (mx,xs) { - return A3(maybe, - xs, - function (x) { - return {ctor: "::" - ,_0: x - ,_1: xs}; - }, - mx); - }); - var justs = A2(List.foldr, - cons, - _J.toList([])); - _elm.Maybe.values = {_op: _op - ,maybe: maybe - ,isJust: isJust - ,isNothing: isNothing - ,cons: cons - ,justs: justs - ,Just: Just - ,Nothing: Nothing}; - return _elm.Maybe.values; -};Elm.Mouse = Elm.Mouse || {}; -Elm.Mouse.make = function (_elm) { - "use strict"; - _elm.Mouse = _elm.Mouse || {}; - if (_elm.Mouse.values) - return _elm.Mouse.values; - var _N = Elm.Native, - _U = _N.Utils.make(_elm), - _L = _N.List.make(_elm), - _E = _N.Error.make(_elm), - _J = _N.JavaScript.make(_elm), - $moduleName = "Mouse"; - var Native = Native || {}; - Native.Mouse = Elm.Native.Mouse.make(_elm); - var Signal = Elm.Signal.make(_elm); - var _op = {}; - var clicks = Native.Mouse.clicks; - var isDown = Native.Mouse.isDown; - var y = Native.Mouse.y; - var x = Native.Mouse.x; - var position = Native.Mouse.position; - _elm.Mouse.values = {_op: _op - ,position: position - ,x: x - ,y: y - ,isDown: isDown - ,clicks: clicks}; - return _elm.Mouse.values; -};Elm.Random = Elm.Random || {}; -Elm.Random.make = function (_elm) { - "use strict"; - _elm.Random = _elm.Random || {}; - if (_elm.Random.values) - return _elm.Random.values; - var _N = Elm.Native, - _U = _N.Utils.make(_elm), - _L = _N.List.make(_elm), - _E = _N.Error.make(_elm), - _J = _N.JavaScript.make(_elm), - $moduleName = "Random"; - var Native = Native || {}; - Native.Random = Elm.Native.Random.make(_elm); - var Signal = Elm.Signal.make(_elm); - var _op = {}; - var floatList = Native.Random.floatList; - var $float = Native.Random.float_; - var range = Native.Random.range; - _elm.Random.values = {_op: _op - ,range: range - ,$float: $float - ,floatList: floatList}; - return _elm.Random.values; -};Elm.Regex = Elm.Regex || {}; -Elm.Regex.make = function (_elm) { - "use strict"; - _elm.Regex = _elm.Regex || {}; - if (_elm.Regex.values) - return _elm.Regex.values; - var _N = Elm.Native, - _U = _N.Utils.make(_elm), - _L = _N.List.make(_elm), - _E = _N.Error.make(_elm), - _J = _N.JavaScript.make(_elm), - $moduleName = "Regex"; - var Maybe = Elm.Maybe.make(_elm); - var Native = Native || {}; - Native.Regex = Elm.Native.Regex.make(_elm); - var _op = {}; - var split = Native.Regex.split; - var replace = Native.Regex.replace; - var find = Native.Regex.find; - var AtMost = function (a) { - return {ctor: "AtMost" - ,_0: a}; - }; - var All = {ctor: "All"}; - var Match = F4(function (a, - b, - c, - d) { - return {_: {} - ,index: c - ,match: a - ,number: d - ,submatches: b}; - }); - var contains = Native.Regex.contains; - var caseInsensitive = Native.Regex.caseInsensitive; - var regex = Native.Regex.regex; - var escape = Native.Regex.escape; - var Regex = {ctor: "Regex"}; - _elm.Regex.values = {_op: _op - ,escape: escape - ,regex: regex - ,caseInsensitive: caseInsensitive - ,contains: contains - ,find: find - ,replace: replace - ,split: split - ,Regex: Regex - ,All: All - ,AtMost: AtMost - ,Match: Match}; - return _elm.Regex.values; -};Elm.Set = Elm.Set || {}; -Elm.Set.make = function (_elm) { - "use strict"; - _elm.Set = _elm.Set || {}; - if (_elm.Set.values) - return _elm.Set.values; - var _N = Elm.Native, - _U = _N.Utils.make(_elm), - _L = _N.List.make(_elm), - _E = _N.Error.make(_elm), - _J = _N.JavaScript.make(_elm), - $moduleName = "Set"; - var Dict = Elm.Dict.make(_elm); - var List = Elm.List.make(_elm); - var Maybe = Elm.Maybe.make(_elm); - var _op = {}; - var foldr = F3(function (f, - b, - s) { - return A3(Dict.foldr, - F3(function (k,_v0,b) { - return function () { - return A2(f,k,b); - }(); - }), - b, - s); - }); - var foldl = F3(function (f, - b, - s) { - return A3(Dict.foldl, - F3(function (k,_v2,b) { - return function () { - return A2(f,k,b); - }(); - }), - b, - s); - }); - var toList = Dict.keys; - var diff = Dict.diff; - var intersect = Dict.intersect; - var union = Dict.union; - var member = Dict.member; - var remove = Dict.remove; - var insert = function (k) { - return A2(Dict.insert, - k, - {ctor: "_Tuple0"}); - }; - var singleton = function (k) { - return A2(Dict.singleton, - k, - {ctor: "_Tuple0"}); - }; - var empty = Dict.empty; - var fromList = function (xs) { - return A3(List.foldl, - insert, - empty, - xs); - }; - var map = F2(function (f,s) { - return fromList(A2(List.map, - f, - toList(s))); - }); - _elm.Set.values = {_op: _op - ,empty: empty - ,singleton: singleton - ,insert: insert - ,remove: remove - ,member: member - ,foldl: foldl - ,foldr: foldr - ,map: map - ,union: union - ,intersect: intersect - ,diff: diff - ,toList: toList - ,fromList: fromList}; - return _elm.Set.values; -};Elm.Signal = Elm.Signal || {}; -Elm.Signal.make = function (_elm) { - "use strict"; - _elm.Signal = _elm.Signal || {}; - if (_elm.Signal.values) - return _elm.Signal.values; - var _N = Elm.Native, - _U = _N.Utils.make(_elm), - _L = _N.List.make(_elm), - _E = _N.Error.make(_elm), - _J = _N.JavaScript.make(_elm), - $moduleName = "Signal"; - var Basics = Elm.Basics.make(_elm); - var List = Elm.List.make(_elm); - var Maybe = Elm.Maybe.make(_elm); - var Native = Native || {}; - Native.Error = Elm.Native.Error.make(_elm); - var Native = Native || {}; - Native.Signal = Elm.Native.Signal.make(_elm); - var _op = {}; - _op["~"] = F2(function (sf,s) { - return A3(Native.Signal.lift2, - F2(function (f,x) { - return f(x); - }), - sf, - s); - }); - _op["<~"] = F2(function (f,s) { - return A2(Native.Signal.lift, - f, - s); - }); - var sampleOn = Native.Signal.sampleOn; - var dropRepeats = Native.Signal.dropRepeats; - var dropIf = Native.Signal.dropIf; - var keepIf = Native.Signal.keepIf; - var keepWhen = F3(function (bs, - def, - sig) { - return A2(_op["<~"], - Basics.snd, - A3(keepIf, - Basics.fst, - {ctor: "_Tuple2" - ,_0: false - ,_1: def}, - A2(_op["~"], - A2(_op["<~"], - F2(function (v0,v1) { - return {ctor: "_Tuple2" - ,_0: v0 - ,_1: v1}; - }), - A2(sampleOn,sig,bs)), - sig))); - }); - var dropWhen = function (bs) { - return keepWhen(A2(_op["<~"], - Basics.not, - bs)); - }; - var countIf = Native.Signal.countIf; - var count = Native.Signal.count; - var combine = A2(List.foldr, - Native.Signal.lift2(F2(function (x, - y) { - return {ctor: "::" - ,_0: x - ,_1: y}; - })), - Native.Signal.constant(_J.toList([]))); - var merges = Native.Signal.merges; - var merge = Native.Signal.merge; - var foldp = Native.Signal.foldp; - var lift8 = Native.Signal.lift8; - var lift7 = Native.Signal.lift7; - var lift6 = Native.Signal.lift6; - var lift5 = Native.Signal.lift5; - var lift4 = Native.Signal.lift4; - var lift3 = Native.Signal.lift3; - var lift2 = Native.Signal.lift2; - var lift = Native.Signal.lift; - var constant = Native.Signal.constant; - var Signal = {ctor: "Signal"}; - _elm.Signal.values = {_op: _op - ,constant: constant - ,lift: lift - ,lift2: lift2 - ,lift3: lift3 - ,lift4: lift4 - ,lift5: lift5 - ,lift6: lift6 - ,lift7: lift7 - ,lift8: lift8 - ,foldp: foldp - ,merge: merge - ,merges: merges - ,combine: combine - ,count: count - ,countIf: countIf - ,keepIf: keepIf - ,dropIf: dropIf - ,keepWhen: keepWhen - ,dropWhen: dropWhen - ,dropRepeats: dropRepeats - ,sampleOn: sampleOn - ,Signal: Signal}; - return _elm.Signal.values; -};Elm.String = Elm.String || {}; -Elm.String.make = function (_elm) { - "use strict"; - _elm.String = _elm.String || {}; - if (_elm.String.values) - return _elm.String.values; - var _N = Elm.Native, - _U = _N.Utils.make(_elm), - _L = _N.List.make(_elm), - _E = _N.Error.make(_elm), - _J = _N.JavaScript.make(_elm), - $moduleName = "String"; - var Maybe = Elm.Maybe.make(_elm); - var Native = Native || {}; - Native.Show = Elm.Native.Show.make(_elm); - var Native = Native || {}; - Native.String = Elm.Native.String.make(_elm); - var _op = {}; - var fromList = Native.String.fromList; - var toList = Native.String.toList; - var toFloat = Native.String.toFloat; - var toInt = Native.String.toInt; - var show = Native.Show.show; - var indices = Native.String.indexes; - var indexes = Native.String.indexes; - var endsWith = Native.String.endsWith; - var startsWith = Native.String.startsWith; - var contains = Native.String.contains; - var all = Native.String.all; - var any = Native.String.any; - var toLower = Native.String.toLower; - var toUpper = Native.String.toUpper; - var lines = Native.String.lines; - var words = Native.String.words; - var trimRight = Native.String.trimRight; - var trimLeft = Native.String.trimLeft; - var trim = Native.String.trim; - var padRight = Native.String.padRight; - var padLeft = Native.String.padLeft; - var pad = Native.String.pad; - var dropRight = Native.String.dropRight; - var dropLeft = Native.String.dropLeft; - var right = Native.String.right; - var left = Native.String.left; - var sub = Native.String.sub; - var repeat = Native.String.repeat; - var join = Native.String.join; - var split = Native.String.split; - var foldr = Native.String.foldr; - var foldl = Native.String.foldl; - var reverse = Native.String.reverse; - var filter = Native.String.filter; - var map = Native.String.map; - var length = Native.String.length; - var concat = Native.String.concat; - var append = Native.String.append; - var uncons = Native.String.uncons; - var cons = Native.String.cons; - var isEmpty = Native.String.isEmpty; - _elm.String.values = {_op: _op - ,isEmpty: isEmpty - ,cons: cons - ,uncons: uncons - ,append: append - ,concat: concat - ,length: length - ,map: map - ,filter: filter - ,reverse: reverse - ,foldl: foldl - ,foldr: foldr - ,split: split - ,join: join - ,repeat: repeat - ,sub: sub - ,left: left - ,right: right - ,dropLeft: dropLeft - ,dropRight: dropRight - ,pad: pad - ,padLeft: padLeft - ,padRight: padRight - ,trim: trim - ,trimLeft: trimLeft - ,trimRight: trimRight - ,words: words - ,lines: lines - ,toUpper: toUpper - ,toLower: toLower - ,any: any - ,all: all - ,contains: contains - ,startsWith: startsWith - ,endsWith: endsWith - ,indexes: indexes - ,indices: indices - ,show: show - ,toInt: toInt - ,toFloat: toFloat - ,toList: toList - ,fromList: fromList}; - return _elm.String.values; -};Elm.Text = Elm.Text || {}; -Elm.Text.make = function (_elm) { - "use strict"; - _elm.Text = _elm.Text || {}; - if (_elm.Text.values) - return _elm.Text.values; - var _N = Elm.Native, - _U = _N.Utils.make(_elm), - _L = _N.List.make(_elm), - _E = _N.Error.make(_elm), - _J = _N.JavaScript.make(_elm), - $moduleName = "Text"; - var Basics = Elm.Basics.make(_elm); - var Color = Elm.Color.make(_elm); - var Graphics = Graphics || {}; - Graphics.Element = Elm.Graphics.Element.make(_elm); - var JavaScript = Elm.JavaScript.make(_elm); - var Maybe = Elm.Maybe.make(_elm); - var Native = Native || {}; - Native.Show = Elm.Native.Show.make(_elm); - var Native = Native || {}; - Native.Text = Elm.Native.Text.make(_elm); - var String = Elm.String.make(_elm); - var _op = {}; - var markdown = Native.Text.markdown; - var justified = Native.Text.justified; - var centered = Native.Text.centered; - var rightAligned = Native.Text.rightAligned; - var leftAligned = Native.Text.leftAligned; - var line = Native.Text.line; - var italic = Native.Text.italic; - var bold = Native.Text.bold; - var color = Native.Text.color; - var height = Native.Text.height; - var link = Native.Text.link; - var monospace = Native.Text.monospace; - var typeface = Native.Text.typeface; - var style = Native.Text.style; - var toText = Native.Text.toText; - var plainText = function (str) { - return leftAligned(toText(str)); - }; - var asText = function (value) { - return leftAligned(monospace(toText(Native.Show.show(value)))); - }; - var defaultStyle = {_: {} - ,bold: false - ,color: Color.black - ,height: Maybe.Nothing - ,italic: false - ,line: Maybe.Nothing - ,typeface: _J.toList([])}; - var Style = F6(function (a, - b, - c, - d, - e, - f) { - return {_: {} - ,bold: d - ,color: c - ,height: b - ,italic: e - ,line: f - ,typeface: a}; - }); - var Through = {ctor: "Through"}; - var Over = {ctor: "Over"}; - var Under = {ctor: "Under"}; - var Text = {ctor: "Text"}; - _elm.Text.values = {_op: _op - ,defaultStyle: defaultStyle - ,toText: toText - ,style: style - ,typeface: typeface - ,monospace: monospace - ,link: link - ,height: height - ,color: color - ,bold: bold - ,italic: italic - ,line: line - ,leftAligned: leftAligned - ,rightAligned: rightAligned - ,centered: centered - ,justified: justified - ,plainText: plainText - ,markdown: markdown - ,asText: asText - ,Text: Text - ,Under: Under - ,Over: Over - ,Through: Through - ,Style: Style}; - return _elm.Text.values; -};Elm.Time = Elm.Time || {}; -Elm.Time.make = function (_elm) { - "use strict"; - _elm.Time = _elm.Time || {}; - if (_elm.Time.values) - return _elm.Time.values; - var _N = Elm.Native, - _U = _N.Utils.make(_elm), - _L = _N.List.make(_elm), - _E = _N.Error.make(_elm), - _J = _N.JavaScript.make(_elm), - $moduleName = "Time"; - var Basics = Elm.Basics.make(_elm); - var Native = Native || {}; - Native.Time = Elm.Native.Time.make(_elm); - var Signal = Elm.Signal.make(_elm); - var _op = {}; - var delay = Native.Time.delay; - var timestamp = Native.Time.timestamp; - var since = Native.Time.since; - var every = Native.Time.every; - var fpsWhen = Native.Time.fpsWhen; - var fps = Native.Time.fps; - var inMilliseconds = function (t) { - return t; - }; - var millisecond = 1; - var second = 1000 * millisecond; - var minute = 60 * second; - var hour = 60 * minute; - var inHours = function (t) { - return t / hour; - }; - var inMinutes = function (t) { - return t / minute; - }; - var inSeconds = function (t) { - return t / second; - }; - _elm.Time.values = {_op: _op - ,millisecond: millisecond - ,second: second - ,minute: minute - ,hour: hour - ,inMilliseconds: inMilliseconds - ,inSeconds: inSeconds - ,inMinutes: inMinutes - ,inHours: inHours - ,fps: fps - ,fpsWhen: fpsWhen - ,every: every - ,since: since - ,timestamp: timestamp - ,delay: delay}; - return _elm.Time.values; -};Elm.Touch = Elm.Touch || {}; -Elm.Touch.make = function (_elm) { - "use strict"; - _elm.Touch = _elm.Touch || {}; - if (_elm.Touch.values) - return _elm.Touch.values; - var _N = Elm.Native, - _U = _N.Utils.make(_elm), - _L = _N.List.make(_elm), - _E = _N.Error.make(_elm), - _J = _N.JavaScript.make(_elm), - $moduleName = "Touch"; - var Native = Native || {}; - Native.Touch = Elm.Native.Touch.make(_elm); - var Signal = Elm.Signal.make(_elm); - var Time = Elm.Time.make(_elm); - var _op = {}; - var taps = Native.Touch.taps; - var touches = Native.Touch.touches; - var Touch = F6(function (a, - b, - c, - d, - e, - f) { - return {_: {} - ,id: c - ,t0: f - ,x: a - ,x0: d - ,y: b - ,y0: e}; - }); - _elm.Touch.values = {_op: _op - ,touches: touches - ,taps: taps - ,Touch: Touch}; - return _elm.Touch.values; -};Elm.Trampoline = Elm.Trampoline || {}; -Elm.Trampoline.make = function (_elm) { - "use strict"; - _elm.Trampoline = _elm.Trampoline || {}; - if (_elm.Trampoline.values) - return _elm.Trampoline.values; - var _N = Elm.Native, - _U = _N.Utils.make(_elm), - _L = _N.List.make(_elm), - _E = _N.Error.make(_elm), - _J = _N.JavaScript.make(_elm), - $moduleName = "Trampoline"; - var Native = Native || {}; - Native.Trampoline = Elm.Native.Trampoline.make(_elm); - var _op = {}; - var trampoline = Native.Trampoline.trampoline; - var Continue = function (a) { - return {ctor: "Continue" - ,_0: a}; - }; - var Done = function (a) { - return {ctor: "Done",_0: a}; - }; - _elm.Trampoline.values = {_op: _op - ,trampoline: trampoline - ,Done: Done - ,Continue: Continue}; - return _elm.Trampoline.values; -};Elm.Transform2D = Elm.Transform2D || {}; -Elm.Transform2D.make = function (_elm) { - "use strict"; - _elm.Transform2D = _elm.Transform2D || {}; - if (_elm.Transform2D.values) - return _elm.Transform2D.values; - var _N = Elm.Native, - _U = _N.Utils.make(_elm), - _L = _N.List.make(_elm), - _E = _N.Error.make(_elm), - _J = _N.JavaScript.make(_elm), - $moduleName = "Transform2D"; - var Native = Native || {}; - Native.Transform2D = Elm.Native.Transform2D.make(_elm); - var _op = {}; - var multiply = Native.Transform2D.multiply; - var rotation = Native.Transform2D.rotation; - var matrix = Native.Transform2D.matrix; - var translation = F2(function (x, - y) { - return A6(matrix, - 1, - 0, - 0, - 1, - x, - y); - }); - var scale = function (s) { - return A6(matrix, - s, - 0, - 0, - s, - 0, - 0); - }; - var scaleX = function (x) { - return A6(matrix, - x, - 0, - 0, - 1, - 0, - 0); - }; - var scaleY = function (y) { - return A6(matrix, - 1, - 0, - 0, - y, - 0, - 0); - }; - var identity = Native.Transform2D.identity; - var Transform2D = {ctor: "Transform2D"}; - _elm.Transform2D.values = {_op: _op - ,identity: identity - ,matrix: matrix - ,rotation: rotation - ,translation: translation - ,scale: scale - ,scaleX: scaleX - ,scaleY: scaleY - ,multiply: multiply - ,Transform2D: Transform2D}; - return _elm.Transform2D.values; -};Elm.WebSocket = Elm.WebSocket || {}; -Elm.WebSocket.make = function (_elm) { - "use strict"; - _elm.WebSocket = _elm.WebSocket || {}; - if (_elm.WebSocket.values) - return _elm.WebSocket.values; - var _N = Elm.Native, - _U = _N.Utils.make(_elm), - _L = _N.List.make(_elm), - _E = _N.Error.make(_elm), - _J = _N.JavaScript.make(_elm), - $moduleName = "WebSocket"; - var Basics = Elm.Basics.make(_elm); - var Native = Native || {}; - Native.WebSocket = Elm.Native.WebSocket.make(_elm); - var Signal = Elm.Signal.make(_elm); - var _op = {}; - var connect = Native.WebSocket.connect; - _elm.WebSocket.values = {_op: _op - ,connect: connect}; - return _elm.WebSocket.values; -};Elm.Window = Elm.Window || {}; -Elm.Window.make = function (_elm) { - "use strict"; - _elm.Window = _elm.Window || {}; - if (_elm.Window.values) - return _elm.Window.values; - var _N = Elm.Native, - _U = _N.Utils.make(_elm), - _L = _N.List.make(_elm), - _E = _N.Error.make(_elm), - _J = _N.JavaScript.make(_elm), - $moduleName = "Window"; - var Native = Native || {}; - Native.Window = Elm.Native.Window.make(_elm); - var Signal = Elm.Signal.make(_elm); - var _op = {}; - var height = Native.Window.height; - var width = Native.Window.width; - var dimensions = Native.Window.dimensions; - _elm.Window.values = {_op: _op - ,dimensions: dimensions - ,width: width - ,height: height}; - return _elm.Window.values; -};Elm.Graphics = Elm.Graphics || {}; -Elm.Graphics.Collage = Elm.Graphics.Collage || {}; -Elm.Graphics.Collage.make = function (_elm) { - "use strict"; - _elm.Graphics = _elm.Graphics || {}; - _elm.Graphics.Collage = _elm.Graphics.Collage || {}; - if (_elm.Graphics.Collage.values) - return _elm.Graphics.Collage.values; - var _N = Elm.Native, - _U = _N.Utils.make(_elm), - _L = _N.List.make(_elm), - _E = _N.Error.make(_elm), - _J = _N.JavaScript.make(_elm), - $moduleName = "Graphics.Collage"; - var Basics = Elm.Basics.make(_elm); - var Color = Elm.Color.make(_elm); - var Either = Elm.Either.make(_elm); - var Graphics = Graphics || {}; - Graphics.Element = Elm.Graphics.Element.make(_elm); - var JavaScript = Elm.JavaScript.make(_elm); - var List = Elm.List.make(_elm); - var Maybe = Elm.Maybe.make(_elm); - var Native = Native || {}; - Native.Graphics = Native.Graphics || {}; - Native.Graphics.Collage = Elm.Native.Graphics.Collage.make(_elm); - var Transform2D = Elm.Transform2D.make(_elm); - var _op = {}; - var ngon = F2(function (n,r) { - return function () { - var m = Basics.toFloat(n); - var t = 2 * Basics.pi / m; - var f = function (i) { - return {ctor: "_Tuple2" - ,_0: r * Basics.cos(t * i) - ,_1: r * Basics.sin(t * i)}; - }; - return A2(List.map, - f, - _L.range(0,m - 1)); - }(); - }); - var oval = F2(function (w,h) { - return function () { - var hh = h / 2; - var hw = w / 2; - var n = 50; - var t = 2 * Basics.pi / n; - var f = function (i) { - return {ctor: "_Tuple2" - ,_0: hw * Basics.cos(t * i) - ,_1: hh * Basics.sin(t * i)}; - }; - return A2(List.map, - f, - _L.range(0,n - 1)); - }(); - }); - var circle = function (r) { - return A2(oval,2 * r,2 * r); - }; - var rect = F2(function (w,h) { - return function () { - var hh = h / 2; - var hw = w / 2; - return _J.toList([{ctor: "_Tuple2" - ,_0: 0 - hw - ,_1: 0 - hh} - ,{ctor: "_Tuple2" - ,_0: 0 - hw - ,_1: hh} - ,{ctor: "_Tuple2",_0: hw,_1: hh} - ,{ctor: "_Tuple2" - ,_0: hw - ,_1: 0 - hh}]); - }(); - }); - var square = function (n) { - return A2(rect,n,n); - }; - var polygon = function (points) { - return points; - }; - var segment = F2(function (p1, - p2) { - return _J.toList([p1,p2]); - }); - var path = function (ps) { - return ps; - }; - var collage = Native.Graphics.Collage.collage; - var alpha = F2(function (a,f) { - return _U.replace([["alpha" - ,a]], - f); - }); - var rotate = F2(function (t,f) { - return _U.replace([["theta" - ,f.theta + t]], - f); - }); - var scale = F2(function (s,f) { - return _U.replace([["scale" - ,f.scale * s]], - f); - }); - var moveY = F2(function (y,f) { - return _U.replace([["y" - ,f.y + y]], - f); - }); - var moveX = F2(function (x,f) { - return _U.replace([["x" - ,f.x + x]], - f); - }); - var move = F2(function (_v0,f) { - return function () { - switch (_v0.ctor) - {case "_Tuple2": - return _U.replace([["x" - ,f.x + _v0._0] - ,["y",f.y + _v0._1]], - f);} - _E.Case($moduleName, - "on line 170, column 20 to 48"); - }(); - }); - var form = function (f) { - return {_: {} - ,alpha: 1 - ,form: f - ,scale: 1 - ,theta: 0 - ,x: 0 - ,y: 0}; - }; - var FGroup = F2(function (a,b) { - return {ctor: "FGroup" - ,_0: a - ,_1: b}; - }); - var group = function (fs) { - return form(A2(FGroup, - Transform2D.identity, - fs)); - }; - var groupTransform = F2(function (matrix, - fs) { - return form(A2(FGroup, - matrix, - fs)); - }); - var FElement = function (a) { - return {ctor: "FElement" - ,_0: a}; - }; - var toForm = function (e) { - return form(FElement(e)); - }; - var FImage = F4(function (a, - b, - c, - d) { - return {ctor: "FImage" - ,_0: a - ,_1: b - ,_2: c - ,_3: d}; - }); - var sprite = F4(function (w, - h, - pos, - src) { - return form(A4(FImage, - w, - h, - pos, - src)); - }); - var FShape = F2(function (a,b) { - return {ctor: "FShape" - ,_0: a - ,_1: b}; - }); - var fill = F2(function (style, - shape) { - return form(A2(FShape, - Either.Right(style), - shape)); - }); - var outlined = F2(function (style, - shape) { - return form(A2(FShape, - Either.Left(style), - shape)); - }); - var FPath = F2(function (a,b) { - return {ctor: "FPath" - ,_0: a - ,_1: b}; - }); - var traced = F2(function (style, - path) { - return form(A2(FPath, - style, - path)); - }); - var LineStyle = F6(function (a, - b, - c, - d, - e, - f) { - return {_: {} - ,cap: c - ,color: a - ,dashOffset: f - ,dashing: e - ,join: d - ,width: b}; - }); - var Clipped = {ctor: "Clipped"}; - var Sharp = function (a) { - return {ctor: "Sharp",_0: a}; - }; - var Smooth = {ctor: "Smooth"}; - var Padded = {ctor: "Padded"}; - var Round = {ctor: "Round"}; - var Flat = {ctor: "Flat"}; - var defaultLine = {_: {} - ,cap: Flat - ,color: Color.black - ,dashOffset: 0 - ,dashing: _J.toList([]) - ,join: Sharp(10) - ,width: 1}; - var solid = function (clr) { - return _U.replace([["color" - ,clr]], - defaultLine); - }; - var dashed = function (clr) { - return _U.replace([["color" - ,clr] - ,["dashing",_J.toList([8,4])]], - defaultLine); - }; - var dotted = function (clr) { - return _U.replace([["color" - ,clr] - ,["dashing",_J.toList([3,3])]], - defaultLine); - }; - var Grad = function (a) { - return {ctor: "Grad",_0: a}; - }; - var gradient = F2(function (grad, - shape) { - return A2(fill, - Grad(grad), - shape); - }); - var Texture = function (a) { - return {ctor: "Texture" - ,_0: a}; - }; - var textured = F2(function (src, - shape) { - return A2(fill, - Texture(src), - shape); - }); - var Solid = function (a) { - return {ctor: "Solid",_0: a}; - }; - var filled = F2(function (color, - shape) { - return A2(fill, - Solid(color), - shape); - }); - var Form = F6(function (a, - b, - c, - d, - e, - f) { - return {_: {} - ,alpha: e - ,form: f - ,scale: b - ,theta: a - ,x: c - ,y: d}; - }); - _elm.Graphics.Collage.values = {_op: _op - ,defaultLine: defaultLine - ,solid: solid - ,dashed: dashed - ,dotted: dotted - ,form: form - ,fill: fill - ,filled: filled - ,textured: textured - ,gradient: gradient - ,outlined: outlined - ,traced: traced - ,sprite: sprite - ,toForm: toForm - ,group: group - ,groupTransform: groupTransform - ,move: move - ,moveX: moveX - ,moveY: moveY - ,scale: scale - ,rotate: rotate - ,alpha: alpha - ,collage: collage - ,path: path - ,segment: segment - ,polygon: polygon - ,rect: rect - ,square: square - ,oval: oval - ,circle: circle - ,ngon: ngon - ,Solid: Solid - ,Texture: Texture - ,Grad: Grad - ,Flat: Flat - ,Round: Round - ,Padded: Padded - ,Smooth: Smooth - ,Sharp: Sharp - ,Clipped: Clipped - ,FPath: FPath - ,FShape: FShape - ,FImage: FImage - ,FElement: FElement - ,FGroup: FGroup - ,Form: Form - ,LineStyle: LineStyle}; - return _elm.Graphics.Collage.values; -};Elm.Graphics = Elm.Graphics || {}; -Elm.Graphics.Element = Elm.Graphics.Element || {}; -Elm.Graphics.Element.make = function (_elm) { - "use strict"; - _elm.Graphics = _elm.Graphics || {}; - _elm.Graphics.Element = _elm.Graphics.Element || {}; - if (_elm.Graphics.Element.values) - return _elm.Graphics.Element.values; - var _N = Elm.Native, - _U = _N.Utils.make(_elm), - _L = _N.List.make(_elm), - _E = _N.Error.make(_elm), - _J = _N.JavaScript.make(_elm), - $moduleName = "Graphics.Element"; - var Basics = Elm.Basics.make(_elm); - var Color = Elm.Color.make(_elm); - var JavaScript = Elm.JavaScript.make(_elm); - var List = Elm.List.make(_elm); - var Maybe = Elm.Maybe.make(_elm); - var Native = Native || {}; - Native.Utils = Elm.Native.Utils.make(_elm); - var _op = {}; - var DOut = {ctor: "DOut"}; - var outward = DOut; - var DIn = {ctor: "DIn"}; - var inward = DIn; - var DRight = {ctor: "DRight"}; - var right = DRight; - var DLeft = {ctor: "DLeft"}; - var left = DLeft; - var DDown = {ctor: "DDown"}; - var down = DDown; - var DUp = {ctor: "DUp"}; - var up = DUp; - var Position = F4(function (a, - b, - c, - d) { - return {_: {} - ,horizontal: a - ,vertical: b - ,x: c - ,y: d}; - }); - var Relative = function (a) { - return {ctor: "Relative" - ,_0: a}; - }; - var relative = Relative; - var Absolute = function (a) { - return {ctor: "Absolute" - ,_0: a}; - }; - var absolute = Absolute; - var N = {ctor: "N"}; - var bottomLeftAt = F2(function (x, - y) { - return {_: {} - ,horizontal: N - ,vertical: N - ,x: x - ,y: y}; - }); - var Z = {ctor: "Z"}; - var middle = {_: {} - ,horizontal: Z - ,vertical: Z - ,x: Relative(0.5) - ,y: Relative(0.5)}; - var midLeft = _U.replace([["horizontal" - ,N] - ,["x",Absolute(0)]], - middle); - var middleAt = F2(function (x, - y) { - return {_: {} - ,horizontal: Z - ,vertical: Z - ,x: x - ,y: y}; - }); - var midLeftAt = F2(function (x, - y) { - return {_: {} - ,horizontal: N - ,vertical: Z - ,x: x - ,y: y}; - }); - var midBottomAt = F2(function (x, - y) { - return {_: {} - ,horizontal: Z - ,vertical: N - ,x: x - ,y: y}; - }); - var P = {ctor: "P"}; - var topLeft = {_: {} - ,horizontal: N - ,vertical: P - ,x: Absolute(0) - ,y: Absolute(0)}; - var bottomLeft = _U.replace([["vertical" - ,N]], - topLeft); - var topRight = _U.replace([["horizontal" - ,P]], - topLeft); - var bottomRight = _U.replace([["horizontal" - ,P]], - bottomLeft); - var midRight = _U.replace([["horizontal" - ,P]], - midLeft); - var midTop = _U.replace([["vertical" - ,P] - ,["y",Absolute(0)]], - middle); - var midBottom = _U.replace([["vertical" - ,N]], - midTop); - var topLeftAt = F2(function (x, - y) { - return {_: {} - ,horizontal: N - ,vertical: P - ,x: x - ,y: y}; - }); - var topRightAt = F2(function (x, - y) { - return {_: {} - ,horizontal: P - ,vertical: P - ,x: x - ,y: y}; - }); - var bottomRightAt = F2(function (x, - y) { - return {_: {} - ,horizontal: P - ,vertical: N - ,x: x - ,y: y}; - }); - var midRightAt = F2(function (x, - y) { - return {_: {} - ,horizontal: P - ,vertical: Z - ,x: x - ,y: y}; - }); - var midTopAt = F2(function (x, - y) { - return {_: {} - ,horizontal: Z - ,vertical: P - ,x: x - ,y: y}; - }); - var Tiled = {ctor: "Tiled"}; - var Cropped = function (a) { - return {ctor: "Cropped" - ,_0: a}; - }; - var Fitted = {ctor: "Fitted"}; - var Plain = {ctor: "Plain"}; - var Custom = {ctor: "Custom"}; - var RawHtml = {ctor: "RawHtml"}; - var Spacer = {ctor: "Spacer"}; - var Flow = F2(function (a,b) { - return {ctor: "Flow" - ,_0: a - ,_1: b}; - }); - var Container = F2(function (a, - b) { - return {ctor: "Container" - ,_0: a - ,_1: b}; - }); - var Image = F4(function (a, - b, - c, - d) { - return {ctor: "Image" - ,_0: a - ,_1: b - ,_2: c - ,_3: d}; - }); - var emptyStr = JavaScript.fromString(""); - var link = F2(function (href, - e) { - return function () { - var p = e.props; - return {_: {} - ,element: e.element - ,props: _U.replace([["href" - ,JavaScript.fromString(href)]], - p)}; - }(); - }); - var tag = F2(function (name,e) { - return function () { - var p = e.props; - return {_: {} - ,element: e.element - ,props: _U.replace([["tag" - ,JavaScript.fromString(name)]], - p)}; - }(); - }); - var color = F2(function (c,e) { - return function () { - var p = e.props; - return {_: {} - ,element: e.element - ,props: _U.replace([["color" - ,Maybe.Just(c)]], - p)}; - }(); - }); - var opacity = F2(function (o, - e) { - return function () { - var p = e.props; - return {_: {} - ,element: e.element - ,props: _U.replace([["opacity" - ,o]], - p)}; - }(); - }); - var height = F2(function (nh, - e) { - return function () { - var p = e.props; - var props = function () { - var _v0 = e.element; - switch (_v0.ctor) - {case "Image": - return _U.replace([["width" - ,Basics.round(Basics.toFloat(_v0._1) / Basics.toFloat(_v0._2) * Basics.toFloat(nh))]], - p);} - return p; - }(); - return {_: {} - ,element: e.element - ,props: _U.replace([["height" - ,nh]], - p)}; - }(); - }); - var width = F2(function (nw,e) { - return function () { - var p = e.props; - var props = function () { - var _v5 = e.element; - switch (_v5.ctor) - {case "Image": - return _U.replace([["height" - ,Basics.round(Basics.toFloat(_v5._2) / Basics.toFloat(_v5._1) * Basics.toFloat(nw))]], - p); - case "RawHtml": - return _U.replace([["height" - ,Basics.snd(A2(Native.Utils.htmlHeight, - nw, - e.element))]], - p);} - return p; - }(); - return {_: {} - ,element: e.element - ,props: _U.replace([["width" - ,nw]], - props)}; - }(); - }); - var size = F3(function (w,h,e) { - return A2(height, - h, - A2(width,w,e)); - }); - var sizeOf = function (e) { - return {ctor: "_Tuple2" - ,_0: e.props.width - ,_1: e.props.height}; - }; - var heightOf = function (e) { - return e.props.height; - }; - var widthOf = function (e) { - return e.props.width; - }; - var Element = F2(function (a, - b) { - return {_: {} - ,element: b - ,props: a}; - }); - var Properties = F9(function (a, - b, - c, - d, - e, - f, - g, - h, - i) { - return {_: {} - ,click: i - ,color: e - ,height: c - ,hover: h - ,href: f - ,id: a - ,opacity: d - ,tag: g - ,width: b}; - }); - var newElement = F3(function (w, - h, - e) { - return {_: {} - ,element: e - ,props: A9(Properties, - Native.Utils.guid({ctor: "_Tuple0"}), - w, - h, - 1, - Maybe.Nothing, - emptyStr, - emptyStr, - {ctor: "_Tuple0"}, - {ctor: "_Tuple0"})}; - }); - var image = F3(function (w, - h, - src) { - return A3(newElement, - w, - h, - A4(Image, - Plain, - w, - h, - JavaScript.fromString(src))); - }); - var fittedImage = F3(function (w, - h, - src) { - return A3(newElement, - w, - h, - A4(Image, - Fitted, - w, - h, - JavaScript.fromString(src))); - }); - var croppedImage = F4(function (pos, - w, - h, - src) { - return A3(newElement, - w, - h, - A4(Image, - Cropped(pos), - w, - h, - JavaScript.fromString(src))); - }); - var tiledImage = F3(function (w, - h, - src) { - return A3(newElement, - w, - h, - A4(Image, - Tiled, - w, - h, - JavaScript.fromString(src))); - }); - var container = F4(function (w, - h, - pos, - e) { - return A3(newElement, - w, - h, - A2(Container,pos,e)); - }); - var spacer = F2(function (w,h) { - return A3(newElement, - w, - h, - Spacer); - }); - var empty = A2(spacer,0,0); - var flow = F2(function (dir, - es) { - return function () { - var newFlow = F2(function (w, - h) { - return A3(newElement, - w, - h, - A2(Flow,dir,es)); - }); - var hs = A2(List.map, - heightOf, - es); - var ws = A2(List.map, - widthOf, - es); - return _U.eq(es, - _J.toList([])) ? empty : function () { - switch (dir.ctor) - {case "DDown": - return A2(newFlow, - List.maximum(ws), - List.sum(hs)); - case "DIn": return A2(newFlow, - List.maximum(ws), - List.maximum(hs)); - case "DLeft": return A2(newFlow, - List.sum(ws), - List.maximum(hs)); - case "DOut": return A2(newFlow, - List.maximum(ws), - List.maximum(hs)); - case "DRight": - return A2(newFlow, - List.sum(ws), - List.maximum(hs)); - case "DUp": return A2(newFlow, - List.maximum(ws), - List.sum(hs));} - _E.Case($moduleName, - "between lines 209 and 219"); - }(); - }(); - }); - var above = F2(function (hi, - lo) { - return A3(newElement, - A2(Basics.max, - widthOf(hi), - widthOf(lo)), - heightOf(hi) + heightOf(lo), - A2(Flow, - DDown, - _J.toList([hi,lo]))); - }); - var below = F2(function (lo, - hi) { - return A3(newElement, - A2(Basics.max, - widthOf(hi), - widthOf(lo)), - heightOf(hi) + heightOf(lo), - A2(Flow, - DDown, - _J.toList([hi,lo]))); - }); - var beside = F2(function (lft, - rht) { - return A3(newElement, - widthOf(lft) + widthOf(rht), - A2(Basics.max, - heightOf(lft), - heightOf(rht)), - A2(Flow, - right, - _J.toList([lft,rht]))); - }); - var layers = function (es) { - return function () { - var hs = A2(List.map, - heightOf, - es); - var ws = A2(List.map, - widthOf, - es); - return A3(newElement, - List.maximum(ws), - List.maximum(hs), - A2(Flow,DOut,es)); - }(); - }; - _elm.Graphics.Element.values = {_op: _op - ,empty: empty - ,widthOf: widthOf - ,heightOf: heightOf - ,sizeOf: sizeOf - ,width: width - ,height: height - ,size: size - ,opacity: opacity - ,color: color - ,tag: tag - ,link: link - ,emptyStr: emptyStr - ,newElement: newElement - ,image: image - ,fittedImage: fittedImage - ,croppedImage: croppedImage - ,tiledImage: tiledImage - ,container: container - ,spacer: spacer - ,flow: flow - ,above: above - ,below: below - ,beside: beside - ,layers: layers - ,absolute: absolute - ,relative: relative - ,middle: middle - ,topLeft: topLeft - ,topRight: topRight - ,bottomLeft: bottomLeft - ,bottomRight: bottomRight - ,midLeft: midLeft - ,midRight: midRight - ,midTop: midTop - ,midBottom: midBottom - ,middleAt: middleAt - ,topLeftAt: topLeftAt - ,topRightAt: topRightAt - ,bottomLeftAt: bottomLeftAt - ,bottomRightAt: bottomRightAt - ,midLeftAt: midLeftAt - ,midRightAt: midRightAt - ,midTopAt: midTopAt - ,midBottomAt: midBottomAt - ,up: up - ,down: down - ,left: left - ,right: right - ,inward: inward - ,outward: outward - ,Image: Image - ,Container: Container - ,Flow: Flow - ,Spacer: Spacer - ,RawHtml: RawHtml - ,Custom: Custom - ,Plain: Plain - ,Fitted: Fitted - ,Cropped: Cropped - ,Tiled: Tiled - ,P: P - ,Z: Z - ,N: N - ,Absolute: Absolute - ,Relative: Relative - ,DUp: DUp - ,DDown: DDown - ,DLeft: DLeft - ,DRight: DRight - ,DIn: DIn - ,DOut: DOut - ,Properties: Properties - ,Element: Element - ,Position: Position}; - return _elm.Graphics.Element.values; -};Elm.Graphics = Elm.Graphics || {}; -Elm.Graphics.Input = Elm.Graphics.Input || {}; -Elm.Graphics.Input.make = function (_elm) { - "use strict"; - _elm.Graphics = _elm.Graphics || {}; - _elm.Graphics.Input = _elm.Graphics.Input || {}; - if (_elm.Graphics.Input.values) - return _elm.Graphics.Input.values; - var _N = Elm.Native, - _U = _N.Utils.make(_elm), - _L = _N.List.make(_elm), - _E = _N.Error.make(_elm), - _J = _N.JavaScript.make(_elm), - $moduleName = "Graphics.Input"; - var Graphics = Graphics || {}; - Graphics.Element = Elm.Graphics.Element.make(_elm); - var Native = Native || {}; - Native.Graphics = Native.Graphics || {}; - Native.Graphics.Input = Elm.Native.Graphics.Input.make(_elm); - var Signal = Elm.Signal.make(_elm); - var _op = {}; - var clickable = Native.Graphics.Input.clickable; - var hoverable = Native.Graphics.Input.hoverable; - var dropDown = Native.Graphics.Input.dropDown; - var checkbox = Native.Graphics.Input.checkbox; - var customButton = Native.Graphics.Input.customButton; - var button = Native.Graphics.Input.button; - var input = Native.Graphics.Input.input; - var Handle = {ctor: "Handle"}; - var Input = F2(function (a,b) { - return {_: {} - ,handle: b - ,signal: a}; - }); - _elm.Graphics.Input.values = {_op: _op - ,input: input - ,button: button - ,customButton: customButton - ,checkbox: checkbox - ,dropDown: dropDown - ,hoverable: hoverable - ,clickable: clickable - ,Handle: Handle - ,Input: Input}; - return _elm.Graphics.Input.values; -};Elm.Graphics = Elm.Graphics || {}; -Elm.Graphics.Input = Elm.Graphics.Input || {}; -Elm.Graphics.Input.Field = Elm.Graphics.Input.Field || {}; -Elm.Graphics.Input.Field.make = function (_elm) { - "use strict"; - _elm.Graphics = _elm.Graphics || {}; - _elm.Graphics.Input = _elm.Graphics.Input || {}; - _elm.Graphics.Input.Field = _elm.Graphics.Input.Field || {}; - if (_elm.Graphics.Input.Field.values) - return _elm.Graphics.Input.Field.values; - var _N = Elm.Native, - _U = _N.Utils.make(_elm), - _L = _N.List.make(_elm), - _E = _N.Error.make(_elm), - _J = _N.JavaScript.make(_elm), - $moduleName = "Graphics.Input.Field"; - var Color = Elm.Color.make(_elm); - var Graphics = Graphics || {}; - Graphics.Element = Elm.Graphics.Element.make(_elm); - var Graphics = Graphics || {}; - Graphics.Input = Elm.Graphics.Input.make(_elm); - var Native = Native || {}; - Native.Graphics = Native.Graphics || {}; - Native.Graphics.Input = Elm.Native.Graphics.Input.make(_elm); - var Text = Elm.Text.make(_elm); - var _op = {}; - var email = Native.Graphics.Input.email; - var password = Native.Graphics.Input.password; - var field = Native.Graphics.Input.field; - var Backward = {ctor: "Backward"}; - var Forward = {ctor: "Forward"}; - var Selection = F3(function (a, - b, - c) { - return {_: {} - ,direction: c - ,end: b - ,start: a}; - }); - var Content = F2(function (a, - b) { - return {_: {} - ,selection: b - ,string: a}; - }); - var noContent = A2(Content, - "", - A3(Selection,0,0,Forward)); - var Style = F4(function (a, - b, - c, - d) { - return {_: {} - ,highlight: c - ,outline: b - ,padding: a - ,style: d}; - }); - var Highlight = F2(function (a, - b) { - return {_: {} - ,color: a - ,width: b}; - }); - var noHighlight = A2(Highlight, - Color.blue, - 0); - var Outline = F3(function (a, - b, - c) { - return {_: {} - ,color: a - ,radius: c - ,width: b}; - }); - var Dimensions = F4(function (a, - b, - c, - d) { - return {_: {} - ,bottom: d - ,left: a - ,right: b - ,top: c}; - }); - var uniformly = function (n) { - return A4(Dimensions, - n, - n, - n, - n); - }; - var noOutline = A3(Outline, - Color.grey, - uniformly(0), - 0); - var defaultStyle = {_: {} - ,highlight: A2(Highlight, - Color.blue, - 1) - ,outline: A3(Outline, - Color.grey, - uniformly(1), - 2) - ,padding: uniformly(4) - ,style: Text.defaultStyle}; - _elm.Graphics.Input.Field.values = {_op: _op - ,uniformly: uniformly - ,noOutline: noOutline - ,noHighlight: noHighlight - ,defaultStyle: defaultStyle - ,noContent: noContent - ,field: field - ,password: password - ,email: email - ,Forward: Forward - ,Backward: Backward - ,Dimensions: Dimensions - ,Outline: Outline - ,Highlight: Highlight - ,Style: Style - ,Content: Content - ,Selection: Selection}; - return _elm.Graphics.Input.Field.values; -};Elm.JavaScript = Elm.JavaScript || {}; -Elm.JavaScript.Experimental = Elm.JavaScript.Experimental || {}; -Elm.JavaScript.Experimental.make = function (_elm) { - "use strict"; - _elm.JavaScript = _elm.JavaScript || {}; - _elm.JavaScript.Experimental = _elm.JavaScript.Experimental || {}; - if (_elm.JavaScript.Experimental.values) - return _elm.JavaScript.Experimental.values; - var _N = Elm.Native, - _U = _N.Utils.make(_elm), - _L = _N.List.make(_elm), - _E = _N.Error.make(_elm), - _J = _N.JavaScript.make(_elm), - $moduleName = "JavaScript.Experimental"; - var JavaScript = Elm.JavaScript.make(_elm); - var Native = Native || {}; - Native.JavaScript = Elm.Native.JavaScript.make(_elm); - var _op = {}; - var fromRecord = Native.JavaScript.fromRecord; - var toRecord = Native.JavaScript.toRecord; - _elm.JavaScript.Experimental.values = {_op: _op - ,toRecord: toRecord - ,fromRecord: fromRecord}; - return _elm.JavaScript.Experimental.values; -};(function() { - -// Returns boolean indicating if the swap was successful. -// Requires that the two signal graphs have exactly the same -// structure. -ElmRuntime.swap = function(from, to) { - function similar(nodeOld,nodeNew) { - var idOkay = nodeOld.id === nodeNew.id; - var lengthOkay = nodeOld.kids.length === nodeNew.kids.length; - return idOkay && lengthOkay; - } - function swap(nodeOld,nodeNew) { - nodeNew.value = nodeOld.value; - return true; - } - var canSwap = depthFirstTraversals(similar, from.inputs, to.inputs); - if (canSwap) { depthFirstTraversals(swap, from.inputs, to.inputs); } - from.node.parentNode.replaceChild(to.node, from.node); - return canSwap; -} - -// Returns false if the node operation f ever fails. -function depthFirstTraversals(f, queueOld, queueNew) { - if (queueOld.length !== queueNew.length) return false; - queueOld = queueOld.slice(0); - queueNew = queueNew.slice(0); - - var seen = []; - while (queueOld.length > 0 && queueNew.length > 0) { - var nodeOld = queueOld.pop(); - var nodeNew = queueNew.pop(); - if (seen.indexOf(nodeOld.id) < 0) { - if (!f(nodeOld, nodeNew)) return false; - queueOld = queueOld.concat(nodeOld.kids); - queueNew = queueNew.concat(nodeNew.kids); - seen.push(nodeOld.id); - } - } - return true; -} - -}()); - -(function() { -'use strict'; - -Elm.fullscreen = function(module, ports) { - var style = document.createElement('style'); - style.type = 'text/css'; - style.innerHTML = "html,head,body { padding:0; margin:0; }" + - "body { font-family: calibri, helvetica, arial, sans-serif; }"; - document.head.appendChild(style); - var container = document.createElement('div'); - document.body.appendChild(container); - return init(ElmRuntime.Display.FULLSCREEN, container, module, ports || {}); -}; - -Elm.embed = function(module, container, ports) { - var tag = container.tagName; - if (tag !== 'DIV') { - throw new Error('Elm.node must be given a DIV, not a ' + tag + '.'); - } else if (container.hasChildNodes()) { - throw new Error('Elm.node must be given an empty DIV. No children allowed!'); - } - return init(ElmRuntime.Display.COMPONENT, container, module, ports || {}); -}; - -Elm.worker = function(module, ports) { - return init(ElmRuntime.Display.NONE, {}, module, ports || {}); -}; - -function init(display, container, module, ports, moduleToReplace) { - // defining state needed for an instance of the Elm RTS - var inputs = []; - - var updateInProgress = false; - function notify(id, v) { - if (updateInProgress) { - throw new Error( - 'The notify function has been called synchronously!\n' + - 'This can lead to frames being dropped.\n' + - 'Definitely report this to \n'); - } - updateInProgress = true; - var timestep = Date.now(); - for (var i = inputs.length; i--; ) { - inputs[i].recv(timestep, id, v); - } - updateInProgress = false; - } - - var listeners = []; - function addListener(relevantInputs, domNode, eventName, func) { - domNode.addEventListener(eventName, func); - var listener = { - relevantInputs: relevantInputs, - domNode: domNode, - eventName: eventName, - func: func - }; - listeners.push(listener); - } - - var portUses = {} - for (var key in ports) { - portUses[key] = 0; - } - // create the actual RTS. Any impure modules will attach themselves to this - // object. This permits many Elm programs to be embedded per document. - var elm = { - notify:notify, - node:container, - display:display, - id:ElmRuntime.guid(), - addListener:addListener, - inputs:inputs, - ports: { incoming:ports, outgoing:{}, uses:portUses } - }; - - function swap(newModule) { - removeListeners(listeners); - var div = document.createElement('div'); - var newElm = init(display, div, newModule, ports, elm); - inputs = []; - // elm.swap = newElm.swap; - return newElm; - } - - var Module = {}; - var reportAnyErrors = function() {}; - try { - Module = module.make(elm); - checkPorts(elm); - } catch(e) { - var directions = "
    Open the developer console for more details." - Module.main = Elm.Text.make(elm).leftAligned('' + e.message + directions + ''); - reportAnyErrors = function() { throw e; } - } - inputs = ElmRuntime.filterDeadInputs(inputs); - filterListeners(inputs, listeners); - addReceivers(elm.ports.outgoing); - if (display !== ElmRuntime.Display.NONE) { - var graphicsNode = initGraphics(elm, Module); - } - if (typeof moduleToReplace !== 'undefined') { - ElmRuntime.swap(moduleToReplace, elm); - - // rerender scene if graphics are enabled. - if (typeof graphicsNode !== 'undefined') { - graphicsNode.recv(0, true, 0); - } - } - - reportAnyErrors(); - return { swap:swap, ports:elm.ports.outgoing }; -}; - -function checkPorts(elm) { - var portUses = elm.ports.uses; - for (var key in portUses) { - var uses = portUses[key] - if (uses === 0) { - throw new Error( - "Initialization Error: provided port '" + key + - "' to a module that does not take it as in input.\n" + - "Remove '" + key + "' from the module initialization code."); - } else if (uses > 1) { - throw new Error( - "Initialization Error: port '" + key + - "' has been declared multiple times in the Elm code.\n" + - "Remove declarations until there is exactly one."); - } - } -} - -function filterListeners(inputs, listeners) { - loop: - for (var i = listeners.length; i--; ) { - var listener = listeners[i]; - for (var j = inputs.length; j--; ) { - if (listener.relevantInputs.indexOf(inputs[j].id) >= 0) { - continue loop; - } - } - listener.domNode.removeEventListener(listener.eventName, listener.func); - } -} - -function removeListeners(listeners) { - for (var i = listeners.length; i--; ) { - var listener = listeners[i]; - listener.domNode.removeEventListener(listener.eventName, listener.func); - } -} - -// add receivers for built-in ports if they are defined -function addReceivers(ports) { - if ('log' in ports) { - ports.log.subscribe(function(v) { console.log(v) }); - } - if ('stdout' in ports) { - var process = process || {}; - var handler = process.stdout - ? function(v) { process.stdout.write(v); } - : function(v) { console.log(v); }; - ports.stdout.subscribe(handler); - } - if ('stderr' in ports) { - var process = process || {}; - var handler = process.stderr - ? function(v) { process.stderr.write(v); } - : function(v) { console.log('Error:' + v); }; - ports.stderr.subscribe(handler); - } - if ('title' in ports) { - if (typeof ports.title === 'string') { - document.title = ports.title; - } else { - ports.title.subscribe(function(v) { document.title = v; }); - } - } - if ('redirect' in ports) { - ports.redirect.subscribe(function(v) { - if (v.length > 0) window.location = v; - }); - } - if ('favicon' in ports) { - if (typeof ports.favicon === 'string') { - changeFavicon(ports.favicon); - } else { - ports.favicon.subscribe(changeFavicon); - } - } - function changeFavicon(src) { - var link = document.createElement('link'); - var oldLink = document.getElementById('elm-favicon'); - link.id = 'elm-favicon'; - link.rel = 'shortcut icon'; - link.href = src; - if (oldLink) { - document.head.removeChild(oldLink); - } - document.head.appendChild(link); - } -} - -function initGraphics(elm, Module) { - if (!('main' in Module)) - throw new Error("'main' is missing! What do I display?!"); - - var signalGraph = Module.main; - - // make sure the signal graph is actually a signal & extract the visual model - var Signal = Elm.Signal.make(elm); - if (!('recv' in signalGraph)) { - signalGraph = Signal.constant(signalGraph); - } - var currentScene = signalGraph.value; - - // Add the currentScene to the DOM - var Render = ElmRuntime.use(ElmRuntime.Render.Element); - elm.node.appendChild(Render.render(currentScene)); - - // set up updates so that the DOM is adjusted as necessary. - var savedScene = currentScene; - function domUpdate(newScene) { - ElmRuntime.draw(function(_) { - Render.update(elm.node.firstChild, savedScene, newScene); - if (elm.Native.Window) elm.Native.Window.values.resizeIfNeeded(); - savedScene = newScene; - }); - } - var renderer = A2(Signal.lift, domUpdate, signalGraph); - - // must check for resize after 'renderer' is created so - // that changes show up. - if (elm.Native.Window) elm.Native.Window.values.resizeIfNeeded(); - - return renderer; -} - -}()); - -(function() { -'use strict'; - -ElmRuntime.Display = { FULLSCREEN: 0, COMPONENT: 1, NONE: 2 }; - -ElmRuntime.counter = 0; -ElmRuntime.guid = function() { return ElmRuntime.counter++; } - -ElmRuntime.use = function(M) { - if (typeof M === 'function') M = M(); - return M; -}; - -function isAlive(input) { - if (!('defaultNumberOfKids' in input)) return true; - var len = input.kids.length; - if (len === 0) return false; - if (len > input.defaultNumberOfKids) return true; - var alive = false; - for (var i = len; i--; ) { - alive = alive || isAlive(input.kids[i]); - } - return alive; -} - -ElmRuntime.filterDeadInputs = function(inputs) { - var temp = []; - for (var i = inputs.length; i--; ) { - if (isAlive(inputs[i])) temp.push(inputs[i]); - } - return temp; -}; - -// define the draw function -var vendors = ['ms', 'moz', 'webkit', 'o']; -var win = typeof window !== 'undefined' ? window : {}; -for (var i = 0; i < vendors.length && !win.requestAnimationFrame; ++i) { - win.requestAnimationFrame = win[vendors[i]+'RequestAnimationFrame']; - win.cancelAnimationFrame = win[vendors[i]+'CancelAnimationFrame'] || - win[vendors[i]+'CancelRequestAnimationFrame']; -} - -if (win.requestAnimationFrame && win.cancelAnimationFrame) { - var previous = 0; - ElmRuntime.draw = function(callback) { - win.cancelAnimationFrame(previous); - previous = win.requestAnimationFrame(callback); - }; -} else { - ElmRuntime.draw = function(callback) { callback(); }; -} - -}()); - -ElmRuntime.Render.Collage = function() { - -var Render = ElmRuntime.use(ElmRuntime.Render.Element); -var Transform = Elm.Transform2D.make({}); -var Utils = ElmRuntime.use(ElmRuntime.Render.Utils); -var newElement = Utils.newElement, - extract = Utils.extract, fromList = Utils.fromList, - fromString = Utils.fromString, addTransform = Utils.addTransform; - -function trace(ctx, path) { - var points = fromList(path); - var i = points.length - 1; - if (i <= 0) return; - ctx.moveTo(points[i]._0, points[i]._1); - while (i--) { ctx.lineTo(points[i]._0, points[i]._1); } - if (path.closed) { - i = points.length - 1; - ctx.lineTo(points[i]._0, points[i]._1); - } -} - -function line(ctx,style,path) { - style.dashing.ctor === 'Nil' ? trace(ctx, path) : customLineHelp(ctx, style, path); - ctx.scale(1,-1); - ctx.stroke(); -} - -function customLineHelp(ctx, style, path) { - var points = fromList(path); - if (path.closed) points.push(points[0]); - var pattern = fromList(style.dashing); - var i = points.length - 1; - if (i <= 0) return; - var x0 = points[i]._0, y0 = points[i]._1; - var x1=0, y1=0, dx=0, dy=0, remaining=0, nx=0, ny=0; - var pindex = 0, plen = pattern.length; - var draw = true, segmentLength = pattern[0]; - ctx.moveTo(x0,y0); - while (i--) { - x1 = points[i]._0; y1 = points[i]._1; - dx = x1 - x0; dy = y1 - y0; - remaining = Math.sqrt(dx * dx + dy * dy); - while (segmentLength <= remaining) { - x0 += dx * segmentLength / remaining; - y0 += dy * segmentLength / remaining; - ctx[draw ? 'lineTo' : 'moveTo'](x0, y0); - // update starting position - dx = x1 - x0; dy = y1 - y0; - remaining = Math.sqrt(dx * dx + dy * dy); - // update pattern - draw = !draw; - pindex = (pindex + 1) % plen; - segmentLength = pattern[pindex]; - } - if (remaining > 0) { - ctx[draw ? 'lineTo' : 'moveTo'](x1, y1); - segmentLength -= remaining; - } - x0 = x1; y0 = y1; - } -} - -function drawLine(ctx, style, path) { - ctx.lineWidth = style.width; - var cap = style.cap.ctor; - ctx.lineCap = cap === 'Flat' ? 'butt' : - cap === 'Round' ? 'round' : 'square'; - var join = style.join.ctor; - ctx.lineJoin = join === 'Smooth' ? 'round' : - join === 'Sharp' ? 'miter' : 'bevel'; - ctx.miterLimit = style.join._0 || 10; - ctx.strokeStyle = extract(style.color); - return line(ctx, style, path); -} - -function texture(redo, ctx, src) { - var img = new Image(); - img.src = fromString(src); - img.onload = redo; - return ctx.createPattern(img, 'repeat'); -} - -function gradient(ctx, grad) { - var g; - var stops = []; - if (grad.ctor === 'Linear') { - var p0 = grad._0, p1 = grad._1; - g = ctx.createLinearGradient(p0._0, -p0._1, p1._0, -p1._1); - stops = fromList(grad._2); - } else { - var p0 = grad._0, p2 = grad._2; - g = ctx.createRadialGradient(p0._0, -p0._1, grad._1, p2._0, -p2._1, grad._3); - stops = fromList(grad._4); - } - var len = stops.length; - for (var i = 0; i < len; ++i) { - var stop = stops[i]; - g.addColorStop(stop._0, extract(stop._1)); - } - return g; -} - -function drawShape(redo, ctx, style, path) { - trace(ctx, path); - var sty = style.ctor; - ctx.fillStyle = - sty === 'Solid' ? extract(style._0) : - sty === 'Texture' ? texture(redo, ctx, style._0) : gradient(ctx, style._0); - ctx.scale(1,-1); - ctx.fill(); -} - -function drawImage(redo, ctx, form) { - var img = new Image(); - img.onload = redo; - img.src = fromString(form._3); - var w = form._0, - h = form._1, - pos = form._2, - srcX = pos._0, - srcY = pos._1, - srcW = w, - srcH = h, - destX = -w/2, - destY = -h/2, - destW = w, - destH = h; - - ctx.scale(1,-1); - ctx.drawImage(img, srcX, srcY, srcW, srcH, destX, destY, destW, destH); -} - -function renderForm(redo, ctx, form) { - ctx.save(); - var x = form.x, y = form.y, theta = form.theta, scale = form.scale; - if (x !== 0 || y !== 0) ctx.translate(x, y); - if (theta !== 0) ctx.rotate(theta); - if (scale !== 1) ctx.scale(scale,scale); - if (form.alpha !== 1) ctx.globalAlpha = ctx.globalAlpha * form.alpha; - ctx.beginPath(); - var f = form.form; - switch(f.ctor) { - case 'FPath' : drawLine(ctx, f._0, f._1); break; - case 'FImage': drawImage(redo, ctx, f); break; - case 'FShape': - if (f._0.ctor === 'Left') { - f._1.closed = true; - drawLine(ctx, f._0._0, f._1); - } else { - drawShape(redo, ctx, f._0._0, f._1); - } - break; - } - ctx.restore(); -} - -function formToMatrix(form) { - var scale = form.scale; - var matrix = A6( Transform.matrix, scale, 0, 0, scale, form.x, form.y ); - - var theta = form.theta - if (theta !== 0) - matrix = A2( Transform.multiply, matrix, Transform.rotation(theta) ); - - return matrix; -} - -function str(n) { - if (n < 0.00001 && n > -0.00001) return 0; - return n; -} - -function makeTransform(w, h, form, matrices) { - var props = form.form._0.props; - var m = A6( Transform.matrix, 1, 0, 0, -1, - (w - props.width ) / 2, - (h - props.height) / 2 ); - var len = matrices.length; - for (var i = 0; i < len; ++i) { m = A2( Transform.multiply, m, matrices[i] ); } - m = A2( Transform.multiply, m, formToMatrix(form) ); - - return 'matrix(' + str( m[0]) + ', ' + str( m[3]) + ', ' + - str(-m[1]) + ', ' + str(-m[4]) + ', ' + - str( m[2]) + ', ' + str( m[5]) + ')'; -} - -function stepperHelp(list) { - var arr = fromList(list); - var i = 0; - function peekNext() { - return i < arr.length ? arr[i].form.ctor : ''; - } - // assumes that there is a next element - function next() { - var out = arr[i]; - ++i; - return out; - } - return { peekNext:peekNext, next:next }; -} - -function formStepper(forms) { - var ps = [stepperHelp(forms)]; - var matrices = []; - var alphas = []; - function peekNext() { - var len = ps.length; - var formType = ''; - for (var i = 0; i < len; ++i ) { - if (formType = ps[i].peekNext()) return formType; - } - return ''; - } - // assumes that there is a next element - function next(ctx) { - while (!ps[0].peekNext()) { - ps.shift(); - matrices.pop(); - alphas.shift(); - if (ctx) { ctx.restore(); } - } - var out = ps[0].next(); - var f = out.form; - if (f.ctor === 'FGroup') { - ps.unshift(stepperHelp(f._1)); - var m = A2(Transform.multiply, f._0, formToMatrix(out)); - ctx.save(); - ctx.transform(m[0], m[3], m[1], m[4], m[2], m[5]); - matrices.push(m); - - var alpha = (alphas[0] || 1) * out.alpha; - alphas.unshift(alpha); - ctx.globalAlpha = alpha; - } - return out; - } - function transforms() { return matrices; } - function alpha() { return alphas[0] || 1; } - return { peekNext:peekNext, next:next, transforms:transforms, alpha:alpha }; -} - -function makeCanvas(w,h) { - var canvas = newElement('canvas'); - canvas.style.width = w + 'px'; - canvas.style.height = h + 'px'; - canvas.style.display = "block"; - canvas.style.position = "absolute"; - canvas.width = w; - canvas.height = h; - return canvas; -} - -function render(model) { - var div = newElement('div'); - div.style.overflow = 'hidden'; - div.style.position = 'relative'; - update(div, model, model); - return div; -} - -function nodeStepper(w,h,div) { - var kids = div.childNodes; - var i = 0; - function transform(transforms, ctx) { - ctx.translate(w/2, h/2); - ctx.scale(1,-1); - var len = transforms.length; - for (var i = 0; i < len; ++i) { - var m = transforms[i]; - ctx.save(); - ctx.transform(m[0], m[3], m[1], m[4], m[2], m[5]); - } - return ctx; - } - function nextContext(transforms) { - while (i < kids.length) { - var node = kids[i]; - if (node.getContext) { - node.width = w; - node.height = h; - node.style.width = w + 'px'; - node.style.height = h + 'px'; - ++i; - return transform(transforms, node.getContext('2d')); - } - div.removeChild(node); - } - var canvas = makeCanvas(w,h); - div.appendChild(canvas); - // we have added a new node, so we must step our position - ++i; - return transform(transforms, canvas.getContext('2d')); - } - function addElement(matrices, alpha, form) { - var kid = kids[i]; - var elem = form.form._0; - - var node = (!kid || kid.getContext) - ? Render.render(elem) - : (Render.update(kid, kid.oldElement, elem), kids[i]); - - node.style.position = 'absolute'; - node.style.opacity = alpha * form.alpha; - addTransform(node.style, makeTransform(w, h, form, matrices)); - node.oldElement = elem; - ++i; - if (!kid) { - div.appendChild(node); - } else if (kid.getContext) { - div.insertBefore(node, kid); - } - } - function clearRest() { - while (i < kids.length) { - div.removeChild(kids[i]); - } - } - return { nextContext:nextContext, addElement:addElement, clearRest:clearRest }; -} - - -function update(div, _, model) { - var w = model.w; - var h = model.h; - - var forms = formStepper(model.forms); - var nodes = nodeStepper(w,h,div); - var ctx = null; - var formType = ''; - - while (formType = forms.peekNext()) { - // make sure we have context if we need it - if (ctx === null && formType !== 'FElement') { - ctx = nodes.nextContext(forms.transforms()); - ctx.globalAlpha = forms.alpha(); - } - - var form = forms.next(ctx); - // if it is FGroup, all updates are made within formStepper when next is called. - if (formType === 'FElement') { - // update or insert an element, get a new context - nodes.addElement(forms.transforms(), forms.alpha(), form); - ctx = null; - } else if (formType !== 'FGroup') { - renderForm(function() { update(div, model, model); }, ctx, form); - } - } - nodes.clearRest(); - return false; -} - -return { render:render, update:update }; - -}; - -ElmRuntime.Render.Element = function() { -'use strict'; - -var Utils = ElmRuntime.use(ElmRuntime.Render.Utils); -var newElement = Utils.newElement, extract = Utils.extract, - addTransform = Utils.addTransform, removeTransform = Utils.removeTransform, - fromList = Utils.fromList, eq = Utils.eq; - -function setProps(elem, e) { - var props = elem.props; - var element = elem.element; - var width = props.width - (element.adjustWidth || 0); - var height = props.height - (element.adjustHeight || 0); - e.style.width = (width |0) + 'px'; - e.style.height = (height|0) + 'px'; - if (props.opacity !== 1) { - e.style.opacity = props.opacity; - } - if (props.color.ctor === 'Just') { - e.style.backgroundColor = extract(props.color._0); - } - if (props.tag !== '') { e.id = props.tag; } - if (props.href !== '') { - var a = newElement('a'); - a.href = props.href; - a.style.width = '100%'; - a.style.height = '100%'; - a.style.top = 0; - a.style.left = 0; - a.style.display = 'block'; - a.style.position = 'absolute'; - e.style.position = 'relative'; - e.appendChild(a); - } - if (props.hover.ctor !== '_Tuple0') { - addHover(e, props.hover); - } - if (props.click.ctor !== '_Tuple0') { - addClick(e, props.click); - } - return e; -} - -function addClick(e, handler) { - e.style.pointerEvents = 'auto'; - e.elm_click_handler = handler; - function trigger() { - e.elm_click_handler(Utils.Tuple0); - } - e.elm_click_trigger = trigger; - e.addEventListener('click', trigger); -} - -function removeClick(e, handler) { - if (e.elm_click_trigger) { - e.removeEventListener('click', e.elm_click_trigger); - } -} - -function addHover(e, handler) { - e.style.pointerEvents = 'auto'; - e.elm_hover_handler = handler; - e.elm_hover_count = 0; - - function over() { - if (e.elm_hover_count++ > 0) return; - e.elm_hover_handler(true); - } - function out(evt) { - if (e.contains(evt.toElement || evt.relatedTarget)) return; - e.elm_hover_count = 0; - e.elm_hover_handler(false); - } - e.elm_hover_over = over; - e.elm_hover_out = out; - e.addEventListener('mouseover', over); - e.addEventListener('mouseout', out); -} - -function removeHover(e) { - if (e.elm_hover_over) { - e.removeEventListener('mouseover', e.elm_hover_over); - } - if (e.elm_hover_out) { - e.removeEventListener('mouseout', e.elm_hover_out); - } -} - -function image(props, img) { - switch (img._0.ctor) { - case 'Plain': return plainImage(img._3); - case 'Fitted': return fittedImage(props.width, props.height, img._3); - case 'Cropped': return croppedImage(img,props.width,props.height,img._3); - case 'Tiled': return tiledImage(img._3); - } -} - -function plainImage(src) { - var img = newElement('img'); - img.src = src; - img.name = src; - img.style.display = "block"; - return img; -} - -function tiledImage(src) { - var div = newElement('div'); - div.style.backgroundImage = 'url(' + src + ')'; - return div; -} - -function fittedImage(w, h, src) { - var div = newElement('div'); - div.style.background = 'url(' + src + ') no-repeat center'; - div.style.webkitBackgroundSize = 'cover'; - div.style.MozBackgroundSize = 'cover'; - div.style.OBackgroundSize = 'cover'; - div.style.backgroundSize = 'cover'; - return div; -} - -function croppedImage(elem, w, h, src) { - var pos = elem._0._0; - var e = newElement('div'); - e.style.overflow = "hidden"; - - var img = newElement('img'); - img.onload = function() { - var sw = w / elem._1, sh = h / elem._2; - img.style.width = ((this.width * sw)|0) + 'px'; - img.style.height = ((this.height * sh)|0) + 'px'; - img.style.marginLeft = ((- pos._0 * sw)|0) + 'px'; - img.style.marginTop = ((- pos._1 * sh)|0) + 'px'; - }; - img.src = src; - img.name = src; - e.appendChild(img); - return e; -} - -function goIn(e) { e.style.position = 'absolute'; return e; } -function goDown(e) { return e } -function goRight(e) { e.style.styleFloat = e.style.cssFloat = "left"; return e; } -function flowWith(f, array) { - var container = newElement('div'); - if (f == goIn) container.style.pointerEvents = 'none'; - - for (var i = array.length; i--; ) { - container.appendChild(f(render(array[i]))); - } - return container; -} - -function flow(dir,elist) { - var array = fromList(elist); - switch(dir.ctor) { - case "DDown": array.reverse(); - case "DUp": return flowWith(goDown,array); - case "DRight": array.reverse(); - case "DLeft": return flowWith(goRight,array); - case "DOut": array.reverse(); - case "DIn": return flowWith(goIn,array); - } -} - -function toPos(pos) { - switch(pos.ctor) { - case "Absolute": return pos._0 + "px"; - case "Relative": return (pos._0 * 100) + "%"; - } -} - -// must clear right, left, top, bottom, and transform -// before calling this function -function setPos(pos,elem,e) { - var element = elem.element; - var props = elem.props; - var w = props.width + (element.adjustWidth ? element.adjustWidth : 0); - var h = props.height + (element.adjustHeight ? element.adjustHeight : 0); - - e.style.position = 'absolute'; - e.style.margin = 'auto'; - var transform = ''; - switch(pos.horizontal.ctor) { - case 'P': e.style.right = toPos(pos.x); e.style.removeProperty('left'); break; - case 'Z': transform = 'translateX(' + ((-w/2)|0) + 'px) '; - case 'N': e.style.left = toPos(pos.x); e.style.removeProperty('right'); break; - } - switch(pos.vertical.ctor) { - case 'N': e.style.bottom = toPos(pos.y); e.style.removeProperty('top'); break; - case 'Z': transform += 'translateY(' + ((-h/2)|0) + 'px)'; - case 'P': e.style.top = toPos(pos.y); e.style.removeProperty('bottom'); break; - } - if (transform !== '') addTransform(e.style, transform); - return e; -} - -function container(pos,elem) { - var e = render(elem); - setPos(pos, elem, e); - var div = newElement('div'); - div.style.position = 'relative'; - div.style.overflow = 'hidden'; - div.appendChild(e); - return div; -} - -function rawHtml(elem) { - var html = elem.html; - var args = elem.args; - var guid = elem.guid; - var align = elem.align; - - var div = newElement('div'); - div.innerHTML = html; - div.style.visibility = "hidden"; - if (align) div.style.textAlign = align; - document.body.appendChild(div); - - for (var i = args.length; i--; ) { - var arg = args[i]; - var span = document.getElementById('md-' + guid + '-' + i); - if (arg.isText) { - span.innerHTML = arg; - } else { - span.style.display = 'block'; - span.style.width = arg.props.width + 'px'; - span.style.height = arg.props.height + 'px'; - span.appendChild(render(arg)); - } - } - document.body.removeChild(div); - div.style.visibility = 'visible'; - return div; -} - -function render(elem) { return setProps(elem, makeElement(elem)); } -function makeElement(e) { - var elem = e.element; - switch(elem.ctor) { - case 'Image': return image(e.props, elem); - case 'Flow': return flow(elem._0, elem._1); - case 'Container': return container(elem._0, elem._1); - case 'Spacer': return newElement('div'); - case 'RawHtml': return rawHtml(elem); - case 'Custom': return elem.render(elem.model); - } -} - -function update(node, curr, next) { - if (node.tagName === 'A') { node = node.firstChild; } - if (curr.props.id === next.props.id) return updateProps(node, curr, next); - if (curr.element.ctor !== next.element.ctor) { - node.parentNode.replaceChild(render(next),node); - return true; - } - var nextE = next.element, currE = curr.element; - switch(nextE.ctor) { - case "Spacer": break; - case "RawHtml": - // only markdown blocks have guids, so this must be a text block - if (nextE.guid === null) { - if(currE.html.valueOf() !== nextE.html.valueOf()) { - node.innerHTML = nextE.html; - } - break; - } - if (nextE.guid !== currE.guid) { - node.parentNode.replaceChild(render(next),node); - return true; - } - var nargs = nextE.args; - var cargs = currE.args; - for (var i = nargs.length; i--; ) { - var narg = nargs[i]; - var carg = cargs[i] - if (narg == carg) continue; - var span = document.getElementById('md-' + currE.guid + '-' + i); - if (narg.isElement) { - if (carg.isElement) { - update(span, carg, narg); - } else { - span.style.display = 'block'; - var e = render(narg); - span.innerHTML = ''; - span.appendChild(e); - } - } else { - span.style.display = 'inline'; - span.innerHTML = narg; - } - } - break; - case "Image": - if (nextE._0.ctor === 'Plain') { - if (nextE._3 !== currE._3) node.src = nextE._3; - } else if (!eq(nextE,currE) || - next.props.width !== curr.props.width || - next.props.height !== curr.props.height) { - node.parentNode.replaceChild(render(next),node); - return true; - } - break; - case "Flow": - var arr = fromList(nextE._1); - for (var i = arr.length; i--; ) { arr[i] = arr[i].element.ctor; } - if (nextE._0.ctor !== currE._0.ctor) { - node.parentNode.replaceChild(render(next),node); - return true; - } - var nexts = fromList(nextE._1); - var kids = node.childNodes; - if (nexts.length !== kids.length) { - node.parentNode.replaceChild(render(next),node); - return true; - } - var currs = fromList(currE._1); - var goDir = function(x) { return x; }; - switch(nextE._0.ctor) { - case "DDown": case "DUp": goDir = goDown; break; - case "DRight": case "DLeft": goDir = goRight; break; - case "DOut": case "DIn": goDir = goIn; break; - } - for (var i = kids.length; i-- ;) { - update(kids[i],currs[i],nexts[i]); - goDir(kids[i]); - } - break; - case "Container": - update(node.firstChild, currE._1, nextE._1); - setPos(nextE._0, nextE._1, node.firstChild); - break; - case "Custom": - if (currE.type === nextE.type) { - var done = nextE.update(node, currE.model, nextE.model); - if (done) return; - } else { - return node.parentNode.replaceChild(render(next), node); - } - } - updateProps(node, curr, next); -} - -function updateProps(node, curr, next) { - var props = next.props; - var currP = curr.props; - var e = node; - var element = next.element; - var width = props.width - (element.adjustWidth || 0); - var height = props.height - (element.adjustHeight || 0); - if (width !== currP.width) { - e.style.width = (width|0) + 'px'; - } - if (height !== currP.height) { - e.style.height = (height|0) + 'px'; - } - if (props.opacity !== currP.opacity) { - e.style.opacity = props.opacity; - } - var nextColor = (props.color.ctor === 'Just' ? - extract(props.color._0) : ''); - if (e.style.backgroundColor !== nextColor) { - e.style.backgroundColor = (nextColor === '' ? 'transparent' : nextColor); - } - if (props.tag !== currP.tag) { e.id = props.tag; } - if (props.href !== currP.href) { - if (currP.href === '') { - var a = newElement('a'); - a.href = props.href; - a.style.width = '100%'; - a.style.height = '100%'; - a.style.top = 0; - a.style.left = 0; - a.style.display = 'block'; - a.style.position = 'absolute'; - e.style.position = 'relative'; +Elm.Native.Array = {}; +Elm.Native.Array.make = function(elm) { + elm.Native = elm.Native || {}; + elm.Native.Array = elm.Native.Array || {}; + if (elm.Native.Array.values) return elm.Native.Array.values; + if ('values' in Elm.Native.Array) + return elm.Native.Array.values = Elm.Native.Array.values; + + var List = Elm.Native.List.make(elm); + + // A RRB-Tree has two distinct data types. + // Leaf -> "height" is always 0 + // "table" is an array of elements + // Node -> "height" is always greater than 0 + // "table" is an array of child nodes + // "lengths" is an array of accumulated lengths of the child nodes + + // M is the maximal table size. 32 seems fast. E is the allowed increase + // of search steps when concatting to find an index. Lower values will + // decrease balancing, but will increase search steps. + var M = 32; + var E = 2; + + // An empty array. + var empty = { ctor:"_Array", height:0, table:new Array() }; + + function get(i, array) { + if (i < 0 || i >= length(array)) { + throw new Error("Index " + i + " is out of range. Check the length of " + + "your array first or use getMaybe or getWithDefault."); + } + return unsafeGet(i, array); + } + + function unsafeGet(i, array) { + for (var x = array.height; x > 0; x--) { + var slot = i >> (x * 5); + if (slot > 0) { + while (array.lengths[slot - 1] > i) { slot--; } + i -= array.lengths[slot - 1]; + } + array = array.table[slot]; + } + return array.table[i]; + } + + // Sets the value at the index i. Only the nodes leading to i will get + // copied and updated. + function set(i, item, array) { + if (i < 0 || length(array) <= i) { + return array; + } + return unsafeSet(i, item, array); + } + + function unsafeSet(i, item, array) { + array = nodeCopy(array); + + if (array.height == 0) { + array.table[i] = item; + } else { + var slot = getSlot(i, array); + if (slot > 0) { + i -= array.lengths[slot - 1]; + } + array.table[slot] = unsafeSet(i, item, array.table[slot]); + } + return array; + } + + function initialize(len, f) { + if (len == 0) { return empty; } + var h = Math.floor(Math.log(len)/Math.log(M)); + return initialize_(f, h, 0, len); + } + + function initialize_(f, h, from, to) { + if (h == 0) { + var table = new Array((to - from) % (M + 1)); + for (var i = 0; i < table.length; i++) { + table[i] = f(from + i); + } + return { ctor:"_Array", height:0, table:table }; + } + + var step = Math.pow(M, h); + var table = new Array(Math.ceil((to - from) / step)); + var lengths = new Array(table.length); + for (var i = 0; i < table.length; i++) { + table[i] = initialize_( f, h - 1, from + (i * step) + , Math.min(from + ((i + 1) * step), to)); + lengths[i] = length(table[i]) + (i > 0 ? lengths[i-1] : 0); + } + return { ctor:"_Array", height:h, table:table, lengths:lengths }; + } + + function fromList(list) { + if (list == List.Nil) { return empty; } + + // Allocate M sized blocks (table) and write list elements to it. + var table = new Array(M); + var nodes = new Array(); + var i = 0; + + while (list.ctor !== '[]') { + table[i] = list._0; + list = list._1; + i++; + + // table is full, so we can push a leaf containing it into the + // next node. + if (i == M) { + fromListPush({ ctor:"_Array", height:0, table:table } + , nodes); + table = new Array(M); + i = 0; + } + } + + // Maybe there is something left on the table. + if (i > 0) { + fromListPush({ ctor:"_Array", height:0, table:table.splice(0,i) } + , nodes); + } + + // Go through all of the nodes and eventually push them into higher nodes. + for (var h = 0; h < nodes.length - 1; h++) { + if (nodes[h].table.length > 0) { + fromListPush(nodes[h], nodes); + } + } + + var head = nodes[nodes.length - 1]; + if (head.height > 0 && head.table.length == 1) { + return head.table[0]; + } else { + return head; + } + } + + // Push a node into a higher node as a child. + function fromListPush(toPush, nodes) { + var h = toPush.height; + + // Maybe the node on this height does not exist. + if (nodes.length == h) { + nodes.push({ ctor:"_Array", height:h + 1 + , table:new Array() + , lengths:new Array() }); + } + + nodes[h].table.push(toPush); + var len = length(toPush); + if (nodes[h].lengths.length > 0) { + len += nodes[h].lengths[nodes[h].lengths.length - 1]; + } + nodes[h].lengths.push(len); + + if (nodes[h].table.length == M) { + fromListPush(nodes[h], nodes); + nodes[h] = { ctor:"_Array", height:h + 1 + , table:new Array() + , lengths:new Array() }; + } + } + + // Pushes an item via push_ to the bottom right of a tree. + function push(item, a) { + var pushed = push_(item, a); + if (pushed !== null) { + return pushed; + } + + var newTree = create(item, a.height); + return siblise(a, newTree); + } + + // Recursively tries to push an item to the bottom-right most + // tree possible. If there is no space left for the item, + // null will be returned. + function push_(item, a) { + // Handle resursion stop at leaf level. + if (a.height == 0) { + if (a.table.length < M) { + var newA = { ctor:"_Array", height:0, table:a.table.slice() }; + newA.table.push(item); + return newA; + } else { + return null; + } + } + + // Recursively push + var pushed = push_(item, botRight(a)); + + // There was space in the bottom right tree, so the slot will + // be updated. + if (pushed != null) { + var newA = nodeCopy(a); + newA.table[newA.table.length - 1] = pushed; + newA.lengths[newA.lengths.length - 1]++; + return newA + } + + // When there was no space left, check if there is space left + // for a new slot with a tree which contains only the item + // at the bottom. + if (a.table.length < M) { + var newSlot = create(item, a.height - 1); + var newA = nodeCopy(a); + newA.table.push(newSlot); + newA.lengths.push(newA.lengths[newA.lengths.length - 1] + length(newSlot)); + return newA + } else { + return null; + } + } + + // Converts an array into a list of elements. + function toList(a) { + return toList_(List.Nil, a); + } + + function toList_(list, a) { + for (var i = a.table.length - 1; i >= 0; i--) { + list = a.height == 0 ? List.Cons(a.table[i], list) : toList_(list, a.table[i]); + } + return list; + } + + // Maps a function over the elements of an array. + function map(f, a) { + var newA = { ctor:"_Array", height:a.height, table:new Array(a.table) }; + if (a.height > 0) { newA.lengths = a.lengths; } + for (var i = 0; i < a.table.length; i++) { + newA.table[i] = a.height == 0 ? f(a.table[i]) : map(f, a.table[i]); + } + return newA; + } + + // Maps a function over the elements with their index as first argument. + function indexedMap(f, a) { + var newA = { ctor:"_Array", height:a.height, table:new Array(a.table) }; + if (a.height > 0) { newA.lengths = a.lengths; } + for (var i = 0; i < a.table.length; i++) { + newA.table[i] = a.height == 0 ? A2(f, i, a.table[i]) : indexedMap(f, a.table[i]); + } + return newA; + } + + function foldl(f, b, a) { + for (var i = 0; i < a.table.length; i++) { + b = A2(f, a.height == 0 ? a.table[i] : foldl(f, b, a.table[i]), b); + } + return b; + } + + function foldr(f, b, a) { + for (var i = a.table.length; i--; ) { + b = A2(f, a.height == 0 ? a.table[i] : foldr(f, b, a.table[i]), b); + } + return b; + } + + // TODO: currently, it slices the right, then the left. This can be + // optimized. + function slice(from, to, a) { + if (from < 0) { from += length(a); } + if (to < 0) { to += length(a); } + return sliceLeft(from, sliceRight(to, a)); + } + + function sliceRight(to, a) { + if (to == length(a)) { + return a; + } + + // Handle leaf level. + if (a.height == 0) { + var newA = { ctor:"_Array", height:0 }; + newA.table = a.table.slice(0, to); + return newA; + } + + // Slice the right recursively. + var right = getSlot(to, a); + var sliced = sliceRight(to - (right > 0 ? a.lengths[right - 1] : 0), a.table[right]); + + // Maybe the a node is not even needed, as sliced contains the whole slice. + if (right == 0) { + return sliced; + } + + // Create new node. + var newA = { ctor:"_Array", height:a.height + , table:a.table.slice(0, right + 1) + , lengths:a.lengths.slice(0, right + 1) }; + newA.table[right] = sliced; + newA.lengths[right] = length(sliced) + (right > 0 ? newA.lengths[right - 1] : 0); + return newA; + } + + function sliceLeft(from, a) { + if (from == 0) { + return a; + } + + // Handle leaf level. + if (a.height == 0) { + var newA = { ctor:"_Array", height:0 }; + newA.table = a.table.slice(from, a.table.length + 1); + return newA; + } + + // Slice the left recursively. + var left = getSlot(from, a); + var sliced = sliceLeft(from - (left > 0 ? a.lengths[left - 1] : 0), a.table[left]); + + // Maybe the a node is not even needed, as sliced contains the whole slice. + if (left == a.table.length - 1) { + return sliced; + } + + // Create new node. + var newA = { ctor:"_Array", height:a.height + , table:a.table.slice(left, a.table.length + 1) + , lengths:new Array(a.table.length - left) }; + newA.table[left] = sliced; + var len = 0; + for (var i = 0; i < newA.table.length; i++) { + len += length(newA.table[i]); + newA.lengths[i] = len; + } + + return newA; + } + + // Appends two trees. + // TODO: Add support for appending trees of different sizes. Current + // behavior will just rise the lower tree and then append them. + function append(a,b) { + if (b.height > a.height) { return append(parentise(a, b.height), b); } + if (a.height > b.height) { return append(a, parentise(b, a.height)); } + if (a.height == 0) { return append(parentise(a, 1), parentise(b, 1)); } + + var c = append_(a, b); + if (c[1].table.length > 0) { + return siblise(c[0], c[1]); + } else { + return c[0]; + } + } + + // Returns an array of two nodes. The second node _may_ be empty. This case + // needs to be handled by the function, that called append_. May be only + // called for trees with an minimal height of 1. + function append_(a, b) { + if (a.height == 1) { + // Check if balancing is needed and return based on that. + var toRemove = calcToRemove(a, b); + if (toRemove <= E) { + return [a,b]; + } + + return shuffle(a, b, toRemove); + } + + var appended = append_(botRight(a), botLeft(b)); + a = nodeCopy(a), b = nodeCopy(b); + + // Adjust the bottom right side of the new tree. + a.table[a.table.length - 1] = appended[0]; + a.lengths[a.lengths.length - 1] = length(appended[0]) + a.lengths[a.lengths.length - 1] += a.lengths.length > 1 ? a.lengths[a.lengths.length - 2] : 0; + + // Adjust the bottom left side of the new tree. + if (appended[1].table.length > 0) { + b.table[0] = appended[1]; + b.lengths[0] = length(appended[1]); + for (var i = 1, len = length(b.table[0]); i < b.lengths.length; i++) { + len += length(b.table[i]); + b.lengths[i] = len; + } + } else { + b.table.shift(); + for (var i = 1; i < b.lengths.length; i++) { + b.lengths[i] = b.lengths[i] - b.lengths[0]; + } + b.lengths.shift(); + } + + // Check if balancing is needed and return based on that. + var toRemove = calcToRemove(a, b); + if (toRemove <= E || b.table.length == 0) { + return [a,b]; + } + + return shuffle(a, b, toRemove); + } + + // Returns the extra search steps for E. Refer to the paper. + function calcToRemove(a, b) { + var subLengths = 0; + for (var i = 0; i < a.table.length; i++) { + subLengths += a.table[i].table.length; + } + for (var i = 0; i < b.table.length; i++) { + subLengths += b.table[i].table.length; + } + + var toRemove = a.table.length + b.table.length + return toRemove - (Math.floor((subLengths - 1) / M) + 1); + } + + // get2, set2 and saveSlot are helpers for accessing elements over two arrays. + function get2(a, b, index) { + return index < a.length ? a[index] : b[index - a.length]; + } + + function set2(a, b, index, value) { + if (index < a.length) { + a[index] = value; + } else { + b[index - a.length] = value; + } + } + + function saveSlot(a, b, index, slot) { + set2(a.table, b.table, index, slot); + + var l = (index == 0 || index == a.lengths.length) ? + 0 : get2(a.lengths, a.lengths, index - 1); + set2(a.lengths, b.lengths, index, l + length(slot)); + } + + // Creates a node or leaf with a given length at their arrays for perfomance. + // Is only used by shuffle. + function createNode(h, length) { + if (length < 0) { length = 0; } + var a = { ctor:"_Array", height:h, table:new Array(length) }; + if (h > 0) { + a.lengths = new Array(length); + } + return a; + } + + // Returns an array of two balanced nodes. + function shuffle(a, b, toRemove) { + var newA = createNode(a.height, Math.min(M, a.table.length + b.table.length - toRemove)); + var newB = createNode(a.height, newA.table.length - (a.table.length + b.table.length - toRemove)); + + // Skip the slots with size M. More precise: copy the slot references + // to the new node + var read = 0; + while (get2(a.table, b.table, read).table.length % M == 0) { + set2(newA.table, newB.table, read, get2(a.table, b.table, read)); + set2(newA.lengths, newB.lengths, read, get2(a.lengths, b.lengths, read)); + read++; + } + + // Pulling items from left to right, caching in a slot before writing + // it into the new nodes. + var write = read; + var slot = new createNode(a.height - 1, 0); + var from = 0; + + // If the current slot is still containing data, then there will be at + // least one more write, so we do not break this loop yet. + while (read - write - (slot.table.length > 0 ? 1 : 0) < toRemove) { + // Find out the max possible items for copying. + var source = get2(a.table, b.table, read); + var to = Math.min(M - slot.table.length, source.table.length) + + // Copy and adjust size table. + slot.table = slot.table.concat(source.table.slice(from, to)); + if (slot.height > 0) { + var len = slot.lengths.length; + for (var i = len; i < len + to - from; i++) { + slot.lengths[i] = length(slot.table[i]); + slot.lengths[i] += (i > 0 ? slot.lengths[i - 1] : 0); + } + } + + from += to; + + // Only proceed to next slots[i] if the current one was + // fully copied. + if (source.table.length <= to) { + read++; from = 0; + } + + // Only create a new slot if the current one is filled up. + if (slot.table.length == M) { + saveSlot(newA, newB, write, slot); + slot = createNode(a.height - 1,0); + write++; + } + } + + // Cleanup after the loop. Copy the last slot into the new nodes. + if (slot.table.length > 0) { + saveSlot(newA, newB, write, slot); + write++; + } + + // Shift the untouched slots to the left + while (read < a.table.length + b.table.length ) { + saveSlot(newA, newB, write, get2(a.table, b.table, read)); + read++; write++; + } + + return [newA, newB]; + } + + // Navigation functions + function botRight(a) { return a.table[a.table.length - 1]; } + function botLeft(a) { return a.table[0]; } + + // Copies a node for updating. Note that you should not use this if + // only updating only one of "table" or "lengths" for performance reasons. + function nodeCopy(a) { + var newA = { ctor:"_Array", height:a.height + , table:a.table.slice() }; + if (a.height > 0) { newA.lengths = a.lengths.slice(); } + return newA; + } + + // Returns how many items are in the tree. + function length(array) { + if (array.height == 0) { + return array.table.length; + } else { + return array.lengths[array.lengths.length - 1]; + } + } + + // Calculates in which slot of "table" the item probably is, then + // find the exact slot via forward searching in "lengths". Returns the index. + function getSlot(i, a) { + var slot = i >> (5 * a.height); + while (a.lengths[slot - 1] > i) { slot--; } + return slot; + } + + // Recursively creates a tree with a given height containing + // only the given item. + function create(item, h) { + if (h == 0) { + return { ctor:"_Array", height:0 + , table:[item] }; + } else { + return { ctor:"_Array", height:h + , table:[create(item, h - 1)] + , lengths:[1] }; + } + } + + // Recursively creates a tree that contains the given tree. + function parentise(tree, h) { + if (h == tree.height) { + return tree; + } else { + return { ctor:"_Array", height:h + , table:[parentise(tree, h - 1)] + , lengths:[length(tree)] }; + } + } + + // Emphasizes blood brotherhood beneath two trees. + function siblise(a, b) { + return { ctor:"_Array", height:a.height + 1 + , table:[a, b] + , lengths:[length(a), length(a) + length(b)] }; + } + + function toJSArray(a) { + var jsArray = new Array(length(a)); + toJSArray_(jsArray, 0, a); + return jsArray; + } + + function toJSArray_(jsArray, i, a) { + for (var t = 0; t < a.table.length; t++) { + if (a.height == 0) { + jsArray[i + t] = a.table[t]; + } else { + var inc = t == 0 ? 0 : a.lengths[t - 1]; + toJSArray_(jsArray, i + inc, a.table[t]); + } + } + } + + function fromJSArray(jsArray) { + if (jsArray.length == 0) { return empty; } + var h = Math.floor(Math.log(jsArray.length) / Math.log(M)); + return fromJSArray_(jsArray, h, 0, jsArray.length); + } + + function fromJSArray_(jsArray, h, from, to) { + if (h == 0) { + return { ctor:"_Array", height:0 + , table:jsArray.slice(from, to) }; + } + + var step = Math.pow(M, h); + var table = new Array(Math.ceil((to - from) / step)); + var lengths = new Array(table.length); + for (var i = 0; i < table.length; i++) { + table[i] = fromJSArray_( jsArray, h - 1, from + (i * step) + , Math.min(from + ((i + 1) * step), to)); + lengths[i] = length(table[i]) + (i > 0 ? lengths[i-1] : 0); + } + return { ctor:"_Array", height:h, table:table, lengths:lengths }; + } + + Elm.Native.Array.values = { + empty:empty, + fromList:fromList, + toList:toList, + initialize:F2(initialize), + append:F2(append), + push:F2(push), + slice:F3(slice), + get:F2(get), + set:F3(set), + map:F2(map), + indexedMap:F2(indexedMap), + foldl:F3(foldl), + foldr:F3(foldr), + length:length, + + toJSArray:toJSArray, + fromJSArray:fromJSArray + }; + + return elm.Native.Array.values = Elm.Native.Array.values; +} + +Elm.Native.Basics = {}; +Elm.Native.Basics.make = function(elm) { + elm.Native = elm.Native || {}; + elm.Native.Basics = elm.Native.Basics || {}; + if (elm.Native.Basics.values) return elm.Native.Basics.values; + + var JS = Elm.Native.JavaScript.make(elm); + var Utils = Elm.Native.Utils.make(elm); + + function div(a,b) { return (a/b)|0; } + function rem(a,b) { return a % b; } + var mod = Utils.mod; + function abs(x) { return x < 0 ? -x : x; } + function logBase(base,n) { return Math.log(n) / Math.log(base); } + function min(a,b) { return Utils.cmp(a,b) < 0 ? a : b; } + function max(a,b) { return Utils.cmp(a,b) > 0 ? a : b; } + function clamp(lo,hi,n) { + return Utils.cmp(n,lo) < 0 ? lo : Utils.cmp(n,hi) > 0 ? hi : n; } + function xor(a,b) { return a !== b; } + function not(b) { return !b; } + function isInfinite(n) { return n === Infinity || n === -Infinity } + + function truncate(n) { return n|0; } + + var basics = { + div:F2(div), + rem:F2(rem), + mod:mod, + + pi:Math.PI, + e:Math.E, + cos:Math.cos, + sin:Math.sin, + tan:Math.tan, + acos:Math.acos, + asin:Math.asin, + atan:Math.atan, + atan2:F2(Math.atan2), + + sqrt:Math.sqrt, + abs:abs, + logBase:F2(logBase), + min:F2(min), + max:F2(max), + clamp:F3(clamp), + compare:Utils.compare, + + xor:F2(xor), + not:not, + + truncate:truncate, + ceiling:Math.ceil, + floor:Math.floor, + round:Math.round, + toFloat:function(x) { return x; }, + isNaN:isNaN, + isInfinite:isInfinite + }; + + return elm.Native.Basics.values = basics; +}; +Elm.Native.Bitwise = {}; +Elm.Native.Bitwise.make = function(elm) { + elm.Native = elm.Native || {}; + elm.Native.Bitwise = elm.Native.Bitwise || {}; + if (elm.Native.Bitwise.values) return elm.Native.Bitwise.values; + + function and(a,b) { return a & b; } + function or (a,b) { return a | b; } + function xor(a,b) { return a ^ b; } + function not(a) { return ~a; } + function sll(a,offset) { return a << offset; } + function sra(a,offset) { return a >> offset; } + function srl(a,offset) { return a >>> offset; } + + return elm.Native.Bitwise.values = { + and: F2(and), + or : F2(or ), + xor: F2(xor), + complement: not, + shiftLeft : F2(sll), + shiftRightArithmatic: F2(sra), + shiftRightLogical : F2(srl), + }; + +}; +Elm.Native.Char = {}; +Elm.Native.Char.make = function(elm) { + elm.Native = elm.Native || {}; + elm.Native.Char = elm.Native.Char || {}; + if (elm.Native.Char.values) return elm.Native.Char.values; + + function isBetween(lo,hi) { return function(chr) { + var c = chr.charCodeAt(0); + return lo <= c && c <= hi; + }; + } + var isDigit = isBetween('0'.charCodeAt(0),'9'.charCodeAt(0)); + var chk1 = isBetween('a'.charCodeAt(0),'f'.charCodeAt(0)); + var chk2 = isBetween('A'.charCodeAt(0),'F'.charCodeAt(0)); + + return elm.Native.Char.values = { + fromCode : function(c) { return String.fromCharCode(c); }, + toCode : function(c) { return c.toUpperCase().charCodeAt(0); }, + toUpper : function(c) { return c.toUpperCase(); }, + toLower : function(c) { return c.toLowerCase(); }, + toLocaleUpper : function(c) { return c.toLocaleUpperCase(); }, + toLocaleLower : function(c) { return c.toLocaleLowerCase(); }, + isLower : isBetween('a'.charCodeAt(0),'z'.charCodeAt(0)), + isUpper : isBetween('A'.charCodeAt(0),'Z'.charCodeAt(0)), + isDigit : isDigit, + isOctDigit : isBetween('0'.charCodeAt(0),'7'.charCodeAt(0)), + isHexDigit : function(c) { return isDigit(c) || chk1(c) || chk2(c); } + }; +}; +Elm.Native.Color = {}; +Elm.Native.Color.make = function(elm) { + elm.Native = elm.Native || {}; + elm.Native.Color = elm.Native.Color || {}; + if (elm.Native.Color.values) return elm.Native.Color.values; + + var Utils = Elm.Native.Utils.make(elm); + + function toCss(c) { + return (c._3 === 1) + ? ('rgb(' + c._0 + ', ' + c._1 + ', ' + c._2 + ')') + : ('rgba(' + c._0 + ', ' + c._1 + ', ' + c._2 + ', ' + c._3 + ')'); + } + + function complement(rgb) { + var hsv = toHSV(rgb); + hsv.hue = (hsv.hue + 180) % 360; + return toRGB(hsv); + } + + function hsva(h,s,v,a) { + var degree = A2(Utils.mod, h * 180 / Math.PI, 360); + var clr = toRGB({hue:degree, saturation:s, value:v}); + clr._3 = a; + return clr; + } + + function hsv(h,s,v) { + var degree = A2(Utils.mod, h * 180 / Math.PI, 360); + return toRGB({hue:degree, saturation:s, value:v}); + } + + function toHSV(rgb) { + var hsv = {}; + var r = rgb._0 / 255.0, g = rgb._1 / 255.0, b = rgb._2 / 255.0; + var M = Math.max(r,g,b); + var m = Math.min(r,g,b); + var c = M - m; + + var h = 0; + if (c === 0) { h = 0; } + else if (M === r) { h = ((g - b) / c) % 6; } + else if (M === g) { h = ((b - r) / c) + 2; } + else if (M === b) { h = ((r - g) / c) + 4; } + h *= 60; + + return { value : M, hue : h, saturation : (M === 0 ? 0 : c / M) }; + } + + function between(lo,hi,x) { return lo <= x && x < hi; } + function norm(n) { return Math.round(n*255); } + + function toRGB(hsv) { + var c = hsv.value * hsv.saturation; + var hue = hsv.hue / 60; + var x = c * (1 - Math.abs((hue % 2) - 1)); + var r = 0, g = 0, b = 0; + if (between(0,1,hue)) { r = c; g = x; b = 0; } + else if (between(1,2,hue)) { r = x; g = c; b = 0; } + else if (between(2,3,hue)) { r = 0; g = c; b = x; } + else if (between(3,4,hue)) { r = 0; g = x; b = c; } + else if (between(4,5,hue)) { r = x; g = 0; b = c; } + else if (between(5,6,hue)) { r = c; g = 0; b = x; } + + var m = hsv.value - c; + return { ctor:"Color", _0:norm(r+m), _1:norm(g+m), _2:norm(b+m), _3:1 }; + } + + return elm.Native.Color.values = { + hsva:F4(hsva), + hsv:F3(hsv), + complement:complement, + toCss:toCss + }; + +}; +Elm.Native.Date = {}; +Elm.Native.Date.make = function(elm) { + elm.Native = elm.Native || {}; + elm.Native.Date = elm.Native.Date || {}; + if (elm.Native.Date.values) return elm.Native.Date.values; + + var Maybe = Elm.Maybe.make(elm); + + function dateNow() { return new window.Date; } + function readDate(str) { + var d = new window.Date(str); + if (isNaN(d.getTime())) return Maybe.Nothing; + return Maybe.Just(d); + } + + var dayTable = ["Sun", "Mon", "Tue", "Wed", "Thu", "Fri", "Sat"]; + var monthTable = ["Jan", "Feb", "Mar", "Apr", "May", "Jun", + "Jul", "Aug", "Sep", "Oct", "Nov", "Dec"]; + + return elm.Native.Date.values = { + read : readDate, + year : function(d) { return d.getFullYear(); }, + month : function(d) { return { ctor:monthTable[d.getMonth()] }; }, + day : function(d) { return d.getDate(); }, + hour : function(d) { return d.getHours(); }, + minute : function(d) { return d.getMinutes(); }, + second : function(d) { return d.getSeconds(); }, + toTime : function(d) { return d.getTime(); }, + fromTime: function(t) { return new window.Date(t); }, + dayOfWeek : function(d) { return { ctor:dayTable[d.getDay()] }; } + }; + +}; +Elm.Native.Debug = {}; +Elm.Native.Debug.make = function(elm) { + elm.Native = elm.Native || {}; + elm.Native.Debug = elm.Native.Debug || {}; + if (elm.Native.Debug.values) return elm.Native.Debug.values; + + var show = Elm.Native.Show.make(elm).show; + + function log(tag,value) { + var msg = tag + ': ' + show(value); + var process = process || {}; + if (process.stdout) { + process.stdout.write(msg); + } else { + console.log(msg); + } + return value; + } + + return elm.Native.Debug.values = { + log: F2(log) + }; + +}; +Elm.Native.Error = {}; +Elm.Native.Error.make = function(elm) { + elm.Native = elm.Native || {}; + elm.Native.Error = elm.Native.Error || {}; + if (elm.Native.Error.values) return elm.Native.Error.values; + + var fromString = Elm.Native.JavaScript.make(elm).fromString; + + function indent(lines) { + var msg = ''; + for (var i = 0; i < lines.length; ++i) { + msg += '
    ' + lines[i]; + } + return msg; + } + + function Case(moduleName, span) { + var msg = indent(['Non-exhaustive pattern match in case-expression.', + 'Make sure your patterns cover every case!']); + throw new Error('Runtime error in module ' + moduleName + ' (' + span + '):' + msg); + } + + function If(moduleName, span) { + var msg = indent(['Non-exhaustive pattern match in multi-way-if expression.', + 'It is best to use \'otherwise\' as the last branch of multi-way-if.']); + throw new Error('Runtime error in module ' + moduleName + ' (' + span + '):' + msg); + } + + function raise(str) { throw new Error(fromString(str)); } + + return elm.Native.Error.values = { Case: Case, If: If, raise: raise }; +}; +function F2(fun) { + function wrapper(a) { return function(b) { return fun(a,b) } } + wrapper.arity = 2; + wrapper.func = fun; + return wrapper; +} + +function F3(fun) { + function wrapper(a) { + return function(b) { return function(c) { return fun(a,b,c) }} + } + wrapper.arity = 3; + wrapper.func = fun; + return wrapper; +} + +function F4(fun) { + function wrapper(a) { return function(b) { return function(c) { + return function(d) { return fun(a,b,c,d) }}} + } + wrapper.arity = 4; + wrapper.func = fun; + return wrapper; +} + +function F5(fun) { + function wrapper(a) { return function(b) { return function(c) { + return function(d) { return function(e) { return fun(a,b,c,d,e) }}}} + } + wrapper.arity = 5; + wrapper.func = fun; + return wrapper; +} + +function F6(fun) { + function wrapper(a) { return function(b) { return function(c) { + return function(d) { return function(e) { return function(f) { + return fun(a,b,c,d,e,f) }}}}} + } + wrapper.arity = 6; + wrapper.func = fun; + return wrapper; +} + +function F7(fun) { + function wrapper(a) { return function(b) { return function(c) { + return function(d) { return function(e) { return function(f) { + return function(g) { return fun(a,b,c,d,e,f,g) }}}}}} + } + wrapper.arity = 7; + wrapper.func = fun; + return wrapper; +} + +function F8(fun) { + function wrapper(a) { return function(b) { return function(c) { + return function(d) { return function(e) { return function(f) { + return function(g) { return function(h) {return fun(a,b,c,d,e,f,g,h)}}}}}}} + } + wrapper.arity = 8; + wrapper.func = fun; + return wrapper; +} + +function F9(fun) { + function wrapper(a) { return function(b) { return function(c) { + return function(d) { return function(e) { return function(f) { + return function(g) { return function(h) { return function(i) { + return fun(a,b,c,d,e,f,g,h,i) }}}}}}}} + } + wrapper.arity = 9; + wrapper.func = fun; + return wrapper; +} + +function A2(fun,a,b) { + return fun.arity === 2 ? fun.func(a,b) : fun(a)(b); +} +function A3(fun,a,b,c) { + return fun.arity === 3 ? fun.func(a,b,c) : fun(a)(b)(c); +} +function A4(fun,a,b,c,d) { + return fun.arity === 4 ? fun.func(a,b,c,d) : fun(a)(b)(c)(d); +} +function A5(fun,a,b,c,d,e) { + return fun.arity === 5 ? fun.func(a,b,c,d,e) : fun(a)(b)(c)(d)(e); +} +function A6(fun,a,b,c,d,e,f) { + return fun.arity === 6 ? fun.func(a,b,c,d,e,f) : fun(a)(b)(c)(d)(e)(f); +} +function A7(fun,a,b,c,d,e,f,g) { + return fun.arity === 7 ? fun.func(a,b,c,d,e,f,g) : fun(a)(b)(c)(d)(e)(f)(g); +} +function A8(fun,a,b,c,d,e,f,g,h) { + return fun.arity === 8 ? fun.func(a,b,c,d,e,f,g,h) : fun(a)(b)(c)(d)(e)(f)(g)(h); +} +function A9(fun,a,b,c,d,e,f,g,h,i) { + return fun.arity === 9 ? fun.func(a,b,c,d,e,f,g,h,i) + : fun(a)(b)(c)(d)(e)(f)(g)(h)(i); +} +Elm.Native.JavaScript = {}; +Elm.Native.JavaScript.make = function(elm) { + elm.Native = elm.Native || {}; + elm.Native.JavaScript = elm.Native.JavaScript || {}; + if (elm.Native.JavaScript.values) return elm.Native.JavaScript.values; + + var List = Elm.Native.List.make(elm); + var Render = ElmRuntime.use(ElmRuntime.Render.Element); + + function fromJS(v) { + var type = typeof v; + if (type === 'number' ) return v; + if (type === 'boolean') return v; + if (type === 'string' ) return v; + if (v instanceof Array) { + var arr = []; + var len = v.length; + for (var i = 0; i < len; ++i) { + var x = fromJS(v[i]); + if (x !== null) arr.push(x); + } + return List.fromArray(arr); + } + if (type === 'object') { + var rec = { _:{} }; + for (var f in v) { + var x = fromJS(v[f]); + if (x !== null) rec[f] = x; + } + return rec; + } + return null; + } + + function toJS(v) { + var type = typeof v; + if (type === 'number' || type === 'boolean' || type === 'string') return v; + if (type === 'object' && '_' in v) { + var obj = {}; + for (var k in v) { + var x = toJS(v[k]); + if (x !== null) obj[k] = x; + } + return obj; + } + if (type === 'object' && (v.ctor === '::' || v.ctor === '[]')) { + var array = List.toArray(v); + for (var i = array.length; i--; ) { + array[i] = toJS(array[i]); + } + return array; + } + return null; + } + + function fromRecord(r) { + if (typeof r === 'object' && '_' in r) { + return toJS(r); + } + throw new Error("'fromRecord' must be called on a record."); + } + + return elm.Native.JavaScript.values = { + toRecord : fromJS, + fromRecord : fromRecord + }; + +}; +Elm.Native.Json = {}; +Elm.Native.Json.make = function(elm) { + + elm.Native = elm.Native || {}; + elm.Native.Json = elm.Native.Json || {}; + if (elm.Native.Json.values) return elm.Native.Json.values; + + var Maybe = Elm.Maybe.make(elm); + var Dict = Elm.Dict.make(elm); + var List = Elm.Native.List.make(elm); + var Utils = Elm.Native.Utils.make(elm); + + function toJS(v) { + switch (v.ctor) { + case 'Null' : return null; + case 'String' : return v._0; + case 'Number' : return v._0; + case 'Boolean': return v._0; + case 'Object' : + var obj = {}; + var array = List.toArray(Dict.toList(v._0)); + for (var i = array.length; i--; ) { + var entry = array[i]; + obj[entry._0] = toJS(entry._1); + } + return obj; + case 'Array' : + var array = List.toArray(v._0); + for (var i = array.length; i--; ) { + array[i] = toJS(array[i]); + } + return array; + } + } + + function toString(sep, value) { + return JSON.stringify(toJS(value), null, sep); + } + + function fromJS(v) { + switch (typeof v) { + case 'string' : return { ctor:"String" , _0: v }; + case 'number' : return { ctor:"Number" , _0: v }; + case 'boolean': return { ctor:"Boolean", _0: v }; + case 'object' : + if (v === null) return { ctor:"Null" }; + if (v instanceof Array) { + var array = new Array(v.length); + for (var i = v.length; i--; ) { + array[i] = fromJS(v[i]); + } + return { + ctor:"Array", + _0: List.fromArray(array) + }; + } + var array = []; + for (var key in v) { + var value = fromJS(v[key]); + array.push(Utils.Tuple2(key, value)); + } + var list = List.fromArray(array); + return { + ctor:"Object", + _0: Dict.fromList(list) + }; + } + } + + function fromString(str) { + try { + return Maybe.Just(fromJS(JSON.parse(str))); + } catch (e) { + return Maybe.Nothing; + } + } + + return elm.Native.Json.values = { + toString : F2(toString), + fromString : fromString, + fromJS : fromJS, + toJS : toJS, + }; + +}; +Elm.Native.List = {}; +Elm.Native.List.make = function(elm) { + elm.Native = elm.Native || {}; + elm.Native.List = elm.Native.List || {}; + if (elm.Native.List.values) return elm.Native.List.values; + if ('values' in Elm.Native.List) + return elm.Native.List.values = Elm.Native.List.values; + + var Utils = Elm.Native.Utils.make(elm); + + // TODO: Improve Nil handling + // We can change places like: if (xs.ctor === '[]') ... to if (xs === Nil) ... + // but only if we're confident Nil can only be defined once. + // Currently (27Mar2013) each module can have different instantiations, so multiple Nil objects can exist + // (and if they're used interchangeably then direct object comparison fails where ctor doesn't). + // So, this can only be fixed when modules initialisation is also fixed. + // The performance overhead of the .ctor calls is 5-10% according to jsperf (depending on fn + list size) + // (on firefox 19) + + var Nil = { ctor:'[]' }; + + // using freeze for every cons would be nice but is a huge (9x on firefox 19) + // performance penalty + function Cons(hd,tl) { return { ctor:"::", _0:hd, _1:tl }; } + + function throwError(f) { + throw new Error("Function '" + f + "' expects a non-empty list!"); + } + + function toArray(xs) { + var out = []; + while (xs.ctor !== '[]') { + out.push(xs._0); + xs = xs._1; + } + return out; + } + + function fromArray(arr) { + var out = Nil; + for (var i = arr.length; i--; ) { + out = Cons(arr[i], out); + } + return out; + } + + function range(lo,hi) { + var lst = Nil; + if (lo <= hi) { + do { lst = Cons(hi,lst) } while (hi-->lo); + } + return lst + } + + function append(xs,ys) { + // append Text + if (xs.text || ys.text) { + return Utils.txt(Utils.makeText(xs) + Utils.makeText(ys)); + } + + // append Strings + if (typeof xs === "string") return xs + ys; + + // append Lists + if (xs.ctor === '[]') { return ys; } + var root = Cons(xs._0, Nil); + var curr = root; + xs = xs._1; + while (xs.ctor !== '[]') { + curr._1 = Cons(xs._0, Nil); + xs = xs._1; + curr = curr._1; + } + curr._1 = ys; + return root; + } + + function head(v) { return v.ctor === '[]' ? throwError('head') : v._0; } + function tail(v) { return v.ctor === '[]' ? throwError('tail') : v._1; } + + function last(xs) { + if (xs.ctor === '[]') { throwError('last'); } + var out = xs._0; + while (xs.ctor !== '[]') { + out = xs._0; + xs = xs._1; + } + return out; + } + + function map(f, xs) { + var arr = []; + while (xs.ctor !== '[]') { + arr.push(f(xs._0)); + xs = xs._1; + } + return fromArray(arr); + } + + // f defined similarly for both foldl and foldr (NB: different from Haskell) + // ie, foldl : (a -> b -> b) -> b -> [a] -> b + function foldl(f, b, xs) { + var acc = b; + while (xs.ctor !== '[]') { + acc = A2(f, xs._0, acc); + xs = xs._1; + } + return acc; + } + + function foldr(f, b, xs) { + var arr = toArray(xs); + var acc = b; + for (var i = arr.length; i--; ) { + acc = A2(f, arr[i], acc); + } + return acc; + } + + function foldl1(f, xs) { + return xs.ctor === '[]' ? throwError('foldl1') : foldl(f, xs._0, xs._1); + } + + function foldr1(f, xs) { + if (xs.ctor === '[]') { throwError('foldr1'); } + var arr = toArray(xs); + var acc = arr.pop(); + for (var i = arr.length; i--; ) { + acc = A2(f, arr[i], acc); + } + return acc; + } + + function scanl(f, b, xs) { + var arr = toArray(xs); + arr.unshift(b); + var len = arr.length; + for (var i = 1; i < len; ++i) { + arr[i] = A2(f, arr[i], arr[i-1]); + } + return fromArray(arr); + } + + function scanl1(f, xs) { + return xs.ctor === '[]' ? throwError('scanl1') : scanl(f, xs._0, xs._1); + } + + function filter(pred, xs) { + var arr = []; + while (xs.ctor !== '[]') { + if (pred(xs._0)) { arr.push(xs._0); } + xs = xs._1; + } + return fromArray(arr); + } + + function length(xs) { + var out = 0; + while (xs.ctor !== '[]') { + out += 1; + xs = xs._1; + } + return out; + } + + function member(x, xs) { + while (xs.ctor !== '[]') { + if (Utils.eq(x,xs._0)) return true; + xs = xs._1; + } + return false; + } + + function reverse(xs) { return fromArray(toArray(xs).reverse()); } + + function concat(xss) { + if (xss.ctor === '[]') return xss; + var arr = toArray(xss); + var xs = arr[arr.length-1]; + for (var i = arr.length-1; i--; ) { + xs = append(arr[i], xs); + } + return xs; + } + + function all(pred, xs) { + while (xs.ctor !== '[]') { + if (!pred(xs._0)) return false; + xs = xs._1; + } + return true; + } + + function any(pred, xs) { + while (xs.ctor !== '[]') { + if (pred(xs._0)) return true; + xs = xs._1; + } + return false; + } + + function zipWith(f, xs, ys) { + var arr = []; + while (xs.ctor !== '[]' && ys.ctor !== '[]') { + arr.push(A2(f, xs._0, ys._0)); + xs = xs._1; + ys = ys._1; + } + return fromArray(arr); + } + + function zip(xs, ys) { + var arr = []; + while (xs.ctor !== '[]' && ys.ctor !== '[]') { + arr.push(Utils.Tuple2(xs._0, ys._0)); + xs = xs._1; + ys = ys._1; + } + return fromArray(arr); + } + + function sort(xs) { + return fromArray(toArray(xs).sort(Utils.cmp)); + } + + function sortBy(f, xs) { + return fromArray(toArray(xs).sort(function(a,b){ + return Utils.cmp(f(a), f(b)); + })); + } + + function sortWith(f, xs) { + return fromArray(toArray(xs).sort(function(a,b){ + var ord = f(a)(b).ctor; + return ord === 'EQ' ? 0 : ord === 'LT' ? -1 : 1; + })); + } + + function nth(xs, n) { + return toArray(xs)[n]; + } + + function take(n, xs) { + var arr = []; + while (xs.ctor !== '[]' && n > 0) { + arr.push(xs._0); + xs = xs._1; + --n; + } + return fromArray(arr); + } + + function drop(n, xs) { + while (xs.ctor !== '[]' && n > 0) { + xs = xs._1; + --n; + } + return xs; + } + + function repeat(n, x) { + var arr = []; + var pattern = [x]; + while (n > 0) { + if (n & 1) arr = arr.concat(pattern); + n >>= 1, pattern = pattern.concat(pattern); + } + return fromArray(arr); + } + + function join(sep, xss) { + if (sep.text) { + sep = Utils.makeText(sep); + xss = toArray(xss); + for (var i = xss.length; i--; ) { + xss[i] = Utils.makeText(xss[i]); + } + return Utils.txt(xss.join(sep)); + } + if (typeof sep === 'string') return toArray(xss).join(sep); + if (xss.ctor === '[]') return Nil; + var s = toArray(sep); + var out = toArray(xss._0); + xss = xss._1; + while (xss.ctor !== '[]') { + out = out.concat(s, toArray(xss._0)); + xss = xss._1; + } + return fromArray(out); + } + + Elm.Native.List.values = { + Nil:Nil, + Cons:Cons, + cons:F2(Cons), + toArray:toArray, + fromArray:fromArray, + range:range, + append:append, + + head:head, + tail:tail, + last:last, + + map:F2(map), + foldl:F3(foldl), + foldr:F3(foldr), + + foldl1:F2(foldl1), + foldr1:F2(foldr1), + scanl:F3(scanl), + scanl1:F2(scanl1), + filter:F2(filter), + length:length, + member:F2(member), + reverse:reverse, + concat:concat, + + all:F2(all), + any:F2(any), + zipWith:F3(zipWith), + zip:F2(zip), + sort:sort, + sortBy:F2(sortBy), + sortWith:F2(sortWith), + nth:F2(nth), + take:F2(take), + drop:F2(drop), + repeat:F2(repeat), + + join:F2(join) + }; + return elm.Native.List.values = Elm.Native.List.values; + +}; +Elm.Native.Ports = {}; +Elm.Native.Ports.make = function(elm) { + elm.Native = elm.Native || {}; + elm.Native.Ports = elm.Native.Ports || {}; + if (elm.Native.Ports.values) return elm.Native.Ports.values; + + var Signal = Elm.Signal.make(elm); + + function incomingSignal(converter) { + converter.isSignal = true; + return converter; + } + + function outgoingSignal(converter) { + return function(signal) { + var subscribers = [] + function subscribe(handler) { + subscribers.push(handler); + } + function unsubscribe(handler) { + subscribers.pop(subscribers.indexOf(handler)); + } + A2( Signal.lift, function(value) { + var val = converter(value); + var len = subscribers.length; + for (var i = 0; i < len; ++i) { + subscribers[i](val); + } + }, signal); + return { subscribe:subscribe, unsubscribe:unsubscribe }; + } + } + + function portIn(name, converter) { + var jsValue = elm.ports.incoming[name]; + if (jsValue === undefined) { + throw new Error("Initialization Error: port '" + name + + "' was not given an input!"); + } + elm.ports.uses[name] += 1; + try { + var elmValue = converter(jsValue); + } catch(e) { + throw new Error("Initialization Error on port '" + name + "': \n" + e.message); + } + + // just return a static value if it is not a signal + if (!converter.isSignal) { + return elmValue; + } + + // create a signal if necessary + var signal = Signal.constant(elmValue); + function send(jsValue) { + try { + var elmValue = converter(jsValue); + } catch(e) { + throw new Error("Error sending to port '" + name + "': \n" + e.message); + } + setTimeout(function() { + elm.notify(signal.id, elmValue); + }, 0); + } + elm.ports.outgoing[name] = { send:send }; + return signal; + } + + function portOut(name, converter, value) { + try { + elm.ports.outgoing[name] = converter(value); + } catch(e) { + throw new Error("Initialization Error on port '" + name + "': \n" + e.message); + } + return value; + } + + return elm.Native.Ports.values = { + incomingSignal: incomingSignal, + outgoingSignal: outgoingSignal, + portOut: portOut, + portIn: portIn + }; +}; +Elm.Native.Regex = {}; +Elm.Native.Regex.make = function(elm) { + elm.Native = elm.Native || {}; + elm.Native.Regex = elm.Native.Regex || {}; + if (elm.Native.Regex.values) return elm.Native.Regex.values; + if ('values' in Elm.Native.Regex) + return elm.Native.Regex.values = Elm.Native.Regex.values; + + var List = Elm.Native.List.make(elm); + var Maybe = Elm.Maybe.make(elm); + + function escape(str) { + return str.replace(/[-\/\\^$*+?.()|[\]{}]/g, '\\$&'); + } + function caseInsensitive(re) { + return new RegExp(re.source, 'gi'); + } + function regex(raw) { + return new RegExp(raw, 'g'); + } + + function contains(re, string) { + return string.match(re) !== null; + } + + function find(n, re, str) { + n = n.ctor === "All" ? Infinity : n._0; + var out = []; + var number = 0; + var string = str; + var result; + while (number++ < n && (result = re.exec(string))) { + var i = result.length - 1; + var subs = new Array(i); + while (i > 0) { + var submatch = result[i]; + subs[--i] = submatch === undefined + ? Maybe.Nothing + : Maybe.Just(submatch); + } + out.push({ + _:{}, + match: result[0], + submatches: List.fromArray(subs), + index: result.index, + number: number, + }); + } + return List.fromArray(out); + } + + function replace(n, re, replacer, string) { + n = n.ctor === "All" ? Infinity : n._0; + var count = 0; + function jsReplacer(match) { + if (count++ > n) return match; + var i = arguments.length-3; + var submatches = new Array(i); + while (i > 0) { + var submatch = arguments[i]; + submatches[--i] = submatch === undefined + ? Maybe.Nothing + : Maybe.Just(submatch); + } + return replacer({ + _:{}, + match:match, + submatches:List.fromArray(submatches), + index:arguments[i-1], + number:count + }); + } + return string.replace(re, jsReplacer); + } + + function split(n, re, str) { + if (n === Infinity) { + return List.fromArray(string.split(re)); + } + var string = str; + var result; + var out = []; + var start = re.lastIndex; + while (n--) { + if (!(result = re.exec(string))) break; + out.push(string.slice(start, result.index)); + start = re.lastIndex; + } + out.push(string.slice(start)); + return List.fromArray(out); + } + + return Elm.Native.Regex.values = { + regex: regex, + caseInsensitive: caseInsensitive, + escape: escape, + + contains: F2(contains), + find: F3(find), + replace: F4(replace), + split: F3(split), + }; +}; +Elm.Native.Show = {}; +Elm.Native.Show.make = function(elm) { + elm.Native = elm.Native || {}; + elm.Native.Show = elm.Native.Show || {}; + if (elm.Native.Show.values) return elm.Native.Show.values; + + var NList = Elm.Native.List.make(elm); + var Array = Elm.Array.make(elm); + var List = Elm.List.make(elm); + var Dict = Elm.Dict.make(elm); + var Tuple2 = Elm.Native.Utils.make(elm).Tuple2; + + var toString = function(v) { + var type = typeof v; + if (type === "function") { + var name = v.func ? v.func.name : v.name; + return ''; + } else if (type === "boolean") { + return v ? "True" : "False"; + } else if (type === "number") { + return v+""; + } else if ((v instanceof String) && v.isChar) { + return "'" + addSlashes(v) + "'"; + } else if (type === "string") { + return '"' + addSlashes(v) + '"'; + } else if (type === "object" && '_' in v && probablyPublic(v)) { + var output = []; + for (var k in v._) { + for (var i = v._[k].length; i--; ) { + output.push(k + " = " + toString(v._[k][i])); + } + } + for (var k in v) { + if (k === '_') continue; + output.push(k + " = " + toString(v[k])); + } + if (output.length === 0) return "{}"; + return "{ " + output.join(", ") + " }"; + } else if (type === "object" && 'ctor' in v) { + if (v.ctor.substring(0,6) === "_Tuple") { + var output = []; + for (var k in v) { + if (k === 'ctor') continue; + output.push(toString(v[k])); + } + return "(" + output.join(",") + ")"; + } else if (v.ctor === "_Array") { + var list = Array.toList(v); + return "Array.fromList " + toString(list); + } else if (v.ctor === "::") { + var output = '[' + toString(v._0); + v = v._1; + while (v.ctor === "::") { + output += "," + toString(v._0); + v = v._1; + } + return output + ']'; + } else if (v.ctor === "[]") { + return "[]"; + } else if (v.ctor === "RBNode" || v.ctor === "RBEmpty") { + var cons = F3(function(k,v,acc){return NList.Cons(Tuple2(k,v),acc)}); + var list = A3(Dict.foldr, cons, NList.Nil, v); + var name = "Dict"; + if (list.ctor === "::" && list._0._1.ctor === "_Tuple0") { + name = "Set"; + list = A2(List.map, function(x){return x._0}, list); + } + return name + ".fromList " + toString(list); + } else { + var output = ""; + for (var i in v) { + if (i === 'ctor') continue; + var str = toString(v[i]); + var parenless = str[0] === '{' || str[0] === '<' || str.indexOf(' ') < 0; + output += ' ' + (parenless ? str : '(' + str + ')'); + } + return v.ctor + output; + } + } + if (type === 'object' && 'recv' in v) return ''; + return ""; + }; + + function addSlashes(str) { + return str.replace(/\\/g, '\\\\') + .replace(/\n/g, '\\n') + .replace(/\t/g, '\\t') + .replace(/\r/g, '\\r') + .replace(/\v/g, '\\v') + .replace(/\0/g, '\\0') + .replace(/\'/g, "\\'") + .replace(/\"/g, '\\"'); + } + + function probablyPublic(v) { + var keys = Object.keys(v); + var len = keys.length; + if (len === 3 + && 'props' in v + && 'element' in v) return false; + if (len === 5 + && 'horizontal' in v + && 'vertical' in v + && 'x' in v + && 'y' in v) return false; + if (len === 7 + && 'theta' in v + && 'scale' in v + && 'x' in v + && 'y' in v + && 'alpha' in v + && 'form' in v) return false; + return true; + } + + return elm.Native.Show.values = { show:toString }; +}; +Elm.Native.String = {}; +Elm.Native.String.make = function(elm) { + elm.Native = elm.Native || {}; + elm.Native.String = elm.Native.String || {}; + if (elm.Native.String.values) return elm.Native.String.values; + if ('values' in Elm.Native.String) + return elm.Native.String.values = Elm.Native.String.values; + + var Char = Elm.Char.make(elm); + var Maybe = Elm.Maybe.make(elm); + var List = Elm.Native.List.make(elm); + var Utils = Elm.Native.Utils.make(elm); + + function isEmpty(str) { + return str.length === 0; + } + function cons(chr,str) { + return chr + str; + } + function uncons(str) { + var hd; + return (hd = str[0]) ? Maybe.Just(Utils.Tuple2(Utils.chr(hd), str.slice(1))) + : Maybe.Nothing; + } + function append(a,b) { + return a + b; + } + function concat(strs) { + return List.toArray(strs).join(''); + } + function length(str) { + return str.length; + } + function map(f,str) { + var out = str.split(''); + for (var i = out.length; i--; ) { + out[i] = f(Utils.chr(out[i])); + } + return out.join(''); + } + function filter(pred,str) { + return str.split('').map(Utils.chr).filter(pred).join(''); + } + function reverse(str) { + return str.split('').reverse().join(''); + } + function foldl(f,b,str) { + var len = str.length; + for (var i = 0; i < len; ++i) { + b = A2(f, Utils.chr(str[i]), b); + } + return b; + } + function foldr(f,b,str) { + for (var i = str.length; i--; ) { + b = A2(f, Utils.chr(str[i]), b); + } + return b; + } + + function split(sep, str) { + return List.fromArray(str.split(sep)); + } + function join(sep, strs) { + return List.toArray(strs).join(sep); + } + function repeat(n, str) { + var result = ''; + while (n > 0) { + if (n & 1) result += str; + n >>= 1, str += str; + } + return result; + } + + function slice(start, end, str) { + return str.slice(start,end); + } + function left(n, str) { + return n < 1 ? "" : str.slice(0,n); + } + function right(n, str) { + return n < 1 ? "" : str.slice(-n); + } + function dropLeft(n, str) { + return n < 1 ? str : str.slice(n); + } + function dropRight(n, str) { + return n < 1 ? str : str.slice(0,-n); + } + + function pad(n,chr,str) { + var half = (n - str.length) / 2; + return repeat(Math.ceil(half),chr) + str + repeat(half|0,chr); + } + function padRight(n,chr,str) { + return str + repeat(n - str.length, chr); + } + function padLeft(n,chr,str) { + return repeat(n - str.length, chr) + str; + } + + function trim(str) { + return str.trim(); + } + function trimLeft(str) { + return str.trimLeft(); + } + function trimRight(str) { + return str.trimRight(); + } + + function words(str) { + return List.fromArray(str.split(/\s+/g)); + } + function lines(str) { + return List.fromArray(str.split(/\r\n|\r|\n/g)); + } + + function toUpper(str) { + return str.toUpperCase(); + } + function toLower(str) { + return str.toLowerCase(); + } + + function any(pred, str) { + for (var i = str.length; i--; ) { + if (pred(Utils.chr(str[i]))) return true; + } + return false; + } + function all(pred, str) { + for (var i = str.length; i--; ) { + if (!pred(Utils.chr(str[i]))) return false; + } + return true; + } + + function contains(sub, str) { + return str.indexOf(sub) > -1; + } + function startsWith(sub, str) { + return str.indexOf(sub) === 0; + } + function endsWith(sub, str) { + return str.length >= sub.length && + str.lastIndexOf(sub) === str.length - sub.length; + } + function indexes(sub, str) { + var subLen = sub.length; + var i = 0; + var is = []; + while ((i = str.indexOf(sub, i)) > -1) { + is.push(i); + i = i + subLen; + } + return List.fromArray(is); + } + + function toInt(s) { + var len = s.length; + if (len === 0) { return Maybe.Nothing; } + var start = 0; + if (s[0] == '-') { + if (len === 1) { return Maybe.Nothing; } + start = 1; + } + for (var i = start; i < len; ++i) { + if (!Char.isDigit(s[i])) { return Maybe.Nothing; } + } + return Maybe.Just(parseInt(s, 10)); + } + + function toFloat(s) { + var len = s.length; + if (len === 0) { return Maybe.Nothing; } + var start = 0; + if (s[0] == '-') { + if (len === 1) { return Maybe.Nothing; } + start = 1; + } + var dotCount = 0; + for (var i = start; i < len; ++i) { + if (Char.isDigit(s[i])) { continue; } + if (s[i] === '.') { + dotCount += 1; + if (dotCount <= 1) { continue; } + } + return Maybe.Nothing; + } + return Maybe.Just(parseFloat(s)); + } + + function toList(str) { + return List.fromArray(str.split('').map(Utils.chr)); + } + function fromList(chars) { + return List.toArray(chars).join(''); + } + + return Elm.Native.String.values = { + isEmpty: isEmpty, + cons: F2(cons), + uncons: uncons, + append: F2(append), + concat: concat, + length: length, + map: F2(map), + filter: F2(filter), + reverse: reverse, + foldl: F3(foldl), + foldr: F3(foldr), + + split: F2(split), + join: F2(join), + repeat: F2(repeat), + + slice: F3(slice), + left: F2(left), + right: F2(right), + dropLeft: F2(dropLeft), + dropRight: F2(dropRight), + + pad: F3(pad), + padLeft: F3(padLeft), + padRight: F3(padRight), + + trim: trim, + trimLeft: trimLeft, + trimRight: trimRight, + + words: words, + lines: lines, + + toUpper: toUpper, + toLower: toLower, + + any: F2(any), + all: F2(all), + + contains: F2(contains), + startsWith: F2(startsWith), + endsWith: F2(endsWith), + indexes: F2(indexes), + + toInt: toInt, + toFloat: toFloat, + toList: toList, + fromList: fromList, + }; +}; +Elm.Native.Text = {}; +Elm.Native.Text.make = function(elm) { + elm.Native = elm.Native || {}; + elm.Native.Text = elm.Native.Text || {}; + if (elm.Native.Text.values) return elm.Native.Text.values; + + var toCss = Elm.Native.Color.make(elm).toCss; + var Element = Elm.Graphics.Element.make(elm); + var List = Elm.Native.List.make(elm); + var Utils = Elm.Native.Utils.make(elm); + + function makeSpaces(s) { + if (s.length == 0) { return s; } + var arr = s.split(''); + if (arr[0] == ' ') { arr[0] = " " } + for (var i = arr.length; --i; ) { + if (arr[i][0] == ' ' && arr[i-1] == ' ') { + arr[i-1] = arr[i-1] + arr[i]; + arr[i] = ''; + } + } + for (var i = arr.length; i--; ) { + if (arr[i].length > 1 && arr[i][0] == ' ') { + var spaces = arr[i].split(''); + for (var j = spaces.length - 2; j >= 0; j -= 2) { + spaces[j] = ' '; + } + arr[i] = spaces.join(''); + } + } + arr = arr.join(''); + if (arr[arr.length-1] === " ") { + return arr.slice(0,-1) + ' '; + } + return arr; + } + + function properEscape(str) { + if (str.length == 0) return str; + str = str //.replace(/&/g, "&") + .replace(/"/g, '"') + .replace(/'/g, "'") + .replace(//g, ">") + .replace(/\n/g, "
"); + var arr = str.split('
'); + for (var i = arr.length; i--; ) { + arr[i] = makeSpaces(arr[i]); + } + return arr.join('
'); + } + + function toText(str) { return Utils.txt(properEscape(str)); } + + // conversions from Elm values to CSS + function toTypefaces(list) { + var typefaces = List.toArray(list); + for (var i = typefaces.length; i--; ) { + var typeface = typefaces[i]; + if (typeface.indexOf(' ') > -1) { + typefaces[i] = "'" + typeface + "'"; + } + } + return typefaces.join(','); + } + function toLine(line) { + var ctor = line.ctor; + return ctor === 'Under' ? 'underline' : + ctor === 'Over' ? 'overline' : 'line-through'; + } + + // setting styles of Text + function style(style, text) { + var newText = '' + return Utils.txt(newText); + } + function height(px, text) { + return { style: 'font-size:' + px + 'px;', text:text } + } + function typeface(names, text) { + return { style: 'font-family:' + toTypefaces(names) + ';', text:text } + } + function monospace(text) { + return { style: 'font-family:monospace;', text:text } + } + function italic(text) { + return { style: 'font-style:italic;', text:text } + } + function bold(text) { + return { style: 'font-weight:bold;', text:text } + } + function link(href, text) { + return { href: toText(href), text:text }; + } + function line(line, text) { + return { style: 'text-decoration:' + toLine(line) + ';', text:text }; + } + + function color(color, text) { + return { style: 'color:' + toCss(color) + ';', text:text }; + } + + function block(align) { + return function(text) { + var raw = { + ctor :'RawHtml', + html : Utils.makeText(text), + align: align, + guid : null, + args : [], + }; + var pos = A2(Utils.htmlHeight, 0, raw); + return A3(Element.newElement, pos._0, pos._1, raw); + } + } + + function markdown(text, guid) { + var raw = { + ctor:'RawHtml', + html: text, + align: null, + guid: guid, + args: [], + }; + var pos = A2(Utils.htmlHeight, 0, raw); + return A3(Element.newElement, pos._0, pos._1, raw); + } + + return elm.Native.Text.values = { + toText: toText, + + height : F2(height), + italic : italic, + bold : bold, + line : F2(line), + monospace : monospace, + typeface : F2(typeface), + color : F2(color), + link : F2(link), + style : F2(style), + + leftAligned : block('left'), + rightAligned : block('right'), + centered : block('center'), + justified : block('justify'), + markdown : markdown, + + toTypefaces:toTypefaces, + toLine:toLine, + }; +}; +Elm.Native.Trampoline = {}; +Elm.Native.Trampoline.make = function(elm) { + elm.Native = elm.Native || {}; + elm.Native.Trampoline = elm.Native.Trampoline || {}; + if (elm.Native.Trampoline.values) return elm.Native.Trampoline.values; + + // trampoline : Trampoline a -> a + function trampoline(t) { + var tramp = t; + while(true) { + switch(tramp.ctor) { + case "Done": + return tramp._0; + case "Continue": + tramp = tramp._0({ctor: "_Tuple0"}); + continue; + } + } + } + + return elm.Native.Trampoline.values = { + trampoline:trampoline + }; +}; +Elm.Native.Transform2D = {}; +Elm.Native.Transform2D.make = function(elm) { + + elm.Native = elm.Native || {}; + elm.Native.Transform2D = elm.Native.Transform2D || {}; + if (elm.Native.Transform2D.values) return elm.Native.Transform2D.values; + + var A; + if (typeof Float32Array === 'undefined') { + A = function(arr) { + this.length = arr.length; + this[0] = arr[0]; + this[1] = arr[1]; + this[2] = arr[2]; + this[3] = arr[3]; + this[4] = arr[4]; + this[5] = arr[5]; + }; + } else { + A = Float32Array; + } + + // layout of matrix in an array is + // + // | m11 m12 dx | + // | m21 m22 dy | + // | 0 0 1 | + // + // new A([ m11, m12, dx, m21, m22, dy ]) + + var identity = new A([1,0,0,0,1,0]); + function matrix(m11, m12, m21, m22, dx, dy) { + return new A([m11, m12, dx, m21, m22, dy]); + } + function rotation(t) { + var c = Math.cos(t); + var s = Math.sin(t); + return new A([c, -s, 0, s, c, 0]); + } + function rotate(t,m) { + var c = Math.cos(t); + var s = Math.sin(t); + var m11 = m[0], m12 = m[1], m21 = m[3], m22 = m[4]; + return new A([m11*c + m12*s, -m11*s + m12*c, m[2], + m21*c + m22*s, -m21*s + m22*c, m[5]]); + } + /* + function move(xy,m) { + var x = xy._0; + var y = xy._1; + var m11 = m[0], m12 = m[1], m21 = m[3], m22 = m[4]; + return new A([m11, m12, m11*x + m12*y + m[2], + m21, m22, m21*x + m22*y + m[5]]); + } + function scale(s,m) { return new A([m[0]*s, m[1]*s, m[2], m[3]*s, m[4]*s, m[5]]); } + function scaleX(x,m) { return new A([m[0]*x, m[1], m[2], m[3]*x, m[4], m[5]]); } + function scaleY(y,m) { return new A([m[0], m[1]*y, m[2], m[3], m[4]*y, m[5]]); } + function reflectX(m) { return new A([-m[0], m[1], m[2], -m[3], m[4], m[5]]); } + function reflectY(m) { return new A([m[0], -m[1], m[2], m[3], -m[4], m[5]]); } + + function transform(m11, m21, m12, m22, mdx, mdy, n) { + var n11 = n[0], n12 = n[1], n21 = n[3], n22 = n[4], ndx = n[2], ndy = n[5]; + return new A([m11*n11 + m12*n21, + m11*n12 + m12*n22, + m11*ndx + m12*ndy + mdx, + m21*n11 + m22*n21, + m21*n12 + m22*n22, + m21*ndx + m22*ndy + mdy]); + } + */ + function multiply(m, n) { + var m11 = m[0], m12 = m[1], m21 = m[3], m22 = m[4], mdx = m[2], mdy = m[5]; + var n11 = n[0], n12 = n[1], n21 = n[3], n22 = n[4], ndx = n[2], ndy = n[5]; + return new A([m11*n11 + m12*n21, + m11*n12 + m12*n22, + m11*ndx + m12*ndy + mdx, + m21*n11 + m22*n21, + m21*n12 + m22*n22, + m21*ndx + m22*ndy + mdy]); + } + + return elm.Native.Transform2D.values = { + identity:identity, + matrix:F6(matrix), + rotation:rotation, + multiply:F2(multiply) + /* + transform:F7(transform), + rotate:F2(rotate), + move:F2(move), + scale:F2(scale), + scaleX:F2(scaleX), + scaleY:F2(scaleY), + reflectX:reflectX, + reflectY:reflectY + */ + }; + +}; +Elm.Native.Utils = {}; +Elm.Native.Utils.make = function(elm) { + + elm.Native = elm.Native || {}; + elm.Native.Utils = elm.Native.Utils || {}; + if (elm.Native.Utils.values) return elm.Native.Utils.values; + + function eq(l,r) { + var stack = [{'x': l, 'y': r}] + while (stack.length > 0) { + var front = stack.pop(); + var x = front.x; + var y = front.y; + if (x === y) continue; + if (typeof x === "object") { + var c = 0; + for (var i in x) { + ++c; + stack.push({ 'x': x[i], 'y': y[i] }); + } + if (c !== Object.keys(y).length) { + return false; + }; + } else if (typeof x === 'function') { + throw new Error('Equality error: general function equality is ' + + 'undecidable, and therefore, unsupported'); + } else { + return false; + } + } + return true; + } + + // code in Generate/JavaScript.hs depends on the particular + // integer values assigned to LT, EQ, and GT + var LT = -1, EQ = 0, GT = 1, ord = ['LT','EQ','GT']; + function compare(x,y) { return { ctor: ord[cmp(x,y)+1] } } + function cmp(x,y) { + var ord; + if (typeof x !== 'object'){ + return x === y ? EQ : x < y ? LT : GT; + } + else if (x.isChar){ + var a = x.toString(); + var b = y.toString(); + return a === b ? EQ : a < b ? LT : GT; + } + else if (x.ctor === "::" || x.ctor === "[]") { + while (true) { + if (x.ctor === "[]" && y.ctor === "[]") return EQ; + if (x.ctor !== y.ctor) return x.ctor === '[]' ? LT : GT; + ord = cmp(x._0, y._0); + if (ord !== EQ) return ord; + x = x._1; + y = y._1; + } + } + else if (x.ctor.slice(0,6) === '_Tuple') { + var n = x.ctor.slice(6) - 0; + var err = 'cannot compare tuples with more than 6 elements.'; + if (n === 0) return EQ; + if (n >= 1) { ord = cmp(x._0, y._0); if (ord !== EQ) return ord; + if (n >= 2) { ord = cmp(x._1, y._1); if (ord !== EQ) return ord; + if (n >= 3) { ord = cmp(x._2, y._2); if (ord !== EQ) return ord; + if (n >= 4) { ord = cmp(x._3, y._3); if (ord !== EQ) return ord; + if (n >= 5) { ord = cmp(x._4, y._4); if (ord !== EQ) return ord; + if (n >= 6) { ord = cmp(x._5, y._5); if (ord !== EQ) return ord; + if (n >= 7) throw new Error('Comparison error: ' + err); } } } } } } + return EQ; + } + else { + throw new Error('Comparison error: comparison is only defined on ints, ' + + 'floats, times, chars, strings, lists of comparable values, ' + + 'and tuples of comparable values.'); + } + } + + + var Tuple0 = { ctor: "_Tuple0" }; + function Tuple2(x,y) { return { ctor:"_Tuple2", _0:x, _1:y } } + + function chr(c) { + var x = new String(c); + x.isChar = true; + return x; + } + + function txt(str) { + var t = new String(str); + t.text = true; + return t; + } + + function makeText(text) { + var style = ''; + var href = ''; + while (true) { + if (text.style) { + style += text.style; + text = text.text; + continue; + } + if (text.href) { + href = text.href; + text = text.text; + continue; + } + if (href) text = '' + text + ''; + if (style) text = '' + text + ''; + return text; + } + } + + var count = 0; + function guid(_) { return count++ } + + function copy(r) { + var o = {}; + for (var i in r) { o[i] = r[i]; } + return o; + } + + function remove(x,r) { + var o = copy(r); + if (x in o._) { + o[x] = o._[x][0]; + o._[x] = o._[x].slice(1); + if (o._[x].length === 0) { delete o._[x]; } + } else { + delete o[x]; + } + return o; + } + + function replace(kvs,r) { + var o = copy(r); + for (var i = kvs.length; i--; ) { + var kvsi = kvs[i]; + o[kvsi[0]] = kvsi[1]; + } + return o; + } + + function insert(x,v,r) { + var o = copy(r); + if (x in o) o._[x] = [o[x]].concat(x in o._ ? o._[x].slice(0) : []); + o[x] = v; + return o; + } + + function max(a,b) { return a > b ? a : b } + function min(a,b) { return a < b ? a : b } + + function mod(a,b) { + if (b === 0) { + throw new Error("Cannot perform mod 0. Division by zero error."); + } + var r = a % b; + var m = a === 0 ? 0 : (b > 0 ? (a >= 0 ? r : r+b) : -mod(-a,-b)); + + return m === b ? 0 : m; + } + + function htmlHeight(width, rawHtml) { + // create dummy node + var html = rawHtml.html; + var t = document.createElement('div'); + t.innerHTML = html; + if (width > 0) { t.style.width = width + "px"; } + t.style.visibility = "hidden"; + t.style.styleFloat = "left"; + t.style.cssFloat = "left"; + + document.body.appendChild(t); + + // insert interpolated values + var args = rawHtml.args; + var guid = rawHtml.guid; + for (var i = args.length; i--; ) { + var arg = args[i]; + var span = document.getElementById('md-' + guid + '-' + i); + if (arg.isElement) { + span.style.width = arg.props.width + 'px'; + span.style.height = arg.props.height + 'px'; + } else { + span.innerHTML = arg; + } + } + + // get dimensions + var style = window.getComputedStyle(t, null); + var w = Math.ceil(style.getPropertyValue("width").slice(0,-2) - 0); + var h = Math.ceil(style.getPropertyValue("height").slice(0,-2) - 0); + document.body.removeChild(t); + return Tuple2(w,h); + } + + function getXY(e) { + var posx = 0; + var posy = 0; + if (e.pageX || e.pageY) { + posx = e.pageX; + posy = e.pageY; + } else if (e.clientX || e.clientY) { + posx = e.clientX + document.body.scrollLeft + document.documentElement.scrollLeft; + posy = e.clientY + document.body.scrollTop + document.documentElement.scrollTop; + } + + if (elm.display === ElmRuntime.Display.COMPONENT) { + var rect = elm.node.getBoundingClientRect(); + var relx = rect.left + document.body.scrollLeft + document.documentElement.scrollLeft; + var rely = rect.top + document.body.scrollTop + document.documentElement.scrollTop; + // TODO: figure out if there is a way to avoid rounding here + posx = posx - Math.round(relx) - elm.node.clientLeft; + posy = posy - Math.round(rely) - elm.node.clientTop; + } + return Tuple2(posx, posy); + } + + function isJSArray(a) { + return a instanceof Array; + } + + return elm.Native.Utils.values = { + eq:eq, + cmp:cmp, + compare:F2(compare), + Tuple0:Tuple0, + Tuple2:Tuple2, + chr:chr, + txt:txt, + makeText:makeText, + copy: copy, + remove: remove, + replace: replace, + insert: insert, + guid: guid, + max : F2(max), + min : F2(min), + mod : F2(mod), + htmlHeight: F2(htmlHeight), + getXY: getXY, + isJSArray: isJSArray, + toFloat: function(x) { return +x; } + }; +}; +Elm.Native.Graphics.Collage = {}; +Elm.Native.Graphics.Collage.make = function(elm) { + + elm.Native = elm.Native || {}; + elm.Native.Graphics = elm.Native.Graphics || {}; + elm.Native.Graphics.Collage = elm.Native.Graphics.Collage || {}; + if (elm.Native.Graphics.Collage.values) return elm.Native.Graphics.Collage.values; + + var newElement = Elm.Graphics.Element.make(elm).newElement; + var C = ElmRuntime.use(ElmRuntime.Render.Collage); + + function collage(w,h,forms) { + return A3(newElement, w, h, { + ctor: 'Custom', + type: 'Collage', + render: C.render, + update: C.update, + model: {w:w, h:h, forms:forms} + }); + } + return elm.Native.Graphics.Collage.values = { collage:F3(collage) }; + +};Elm.Native.Graphics.Input = {}; +Elm.Native.Graphics.Input.make = function(elm) { + elm.Native = elm.Native || {}; + elm.Native.Graphics = elm.Native.Graphics || {}; + elm.Native.Graphics.Input = elm.Native.Graphics.Input || {}; + if (elm.Native.Graphics.Input.values) return elm.Native.Graphics.Input.values; + + var Render = ElmRuntime.use(ElmRuntime.Render.Element); + var newNode = ElmRuntime.use(ElmRuntime.Render.Utils).newElement; + + var toCss = Elm.Native.Color.make(elm).toCss; + var Text = Elm.Native.Text.make(elm); + var Signal = Elm.Signal.make(elm); + var newElement = Elm.Graphics.Element.make(elm).newElement; + var List = Elm.Native.List.make(elm); + var Utils = Elm.Native.Utils.make(elm); + var Tuple2 = Utils.Tuple2; + + function input(initialValue) { + var signal = Signal.constant(initialValue); + return { _:{}, signal:signal, handle:signal }; + } + + function renderDropDown(signal, values) { + return function(_) { + var entries = List.toArray(values); + + var drop = newNode('select'); + drop.style.border = '0 solid'; + drop.style.pointerEvents = 'auto'; + for (var i = 0; i < entries.length; ++i) { + var option = newNode('option'); + var name = entries[i]._0; + option.value = name; + option.innerHTML = name; + drop.appendChild(option); + } + drop.addEventListener('change', function() { + elm.notify(signal.id, entries[drop.selectedIndex]._1); + }); + + var t = drop.cloneNode(true); + t.style.visibility = "hidden"; + + elm.node.appendChild(t); + var style = window.getComputedStyle(t, null); + var w = Math.ceil(style.getPropertyValue("width").slice(0,-2) - 0); + var h = Math.ceil(style.getPropertyValue("height").slice(0,-2) - 0); + elm.node.removeChild(t); + return drop; + }; + } + + function updateDropDown(node, oldModel, newModel) { + } + + function dropDown(signal, values) { + return A3(newElement, 100, 24, { + ctor: 'Custom', + type: 'DropDown', + render: renderDropDown(signal,values), + update: updateDropDown, + model: {} + }); + } + + function renderButton(model) { + var node = newNode('button'); + node.style.display = 'block'; + node.style.pointerEvents = 'auto'; + node.elm_signal = model.signal; + node.elm_value = model.value; + function click() { + elm.notify(node.elm_signal.id, node.elm_value); + } + node.addEventListener('click', click); + node.innerHTML = model.text; + return node; + } + + function updateButton(node, oldModel, newModel) { + node.elm_signal = newModel.signal; + node.elm_value = newModel.value; + var txt = newModel.text; + if (oldModel.text !== txt) node.innerHTML = txt; + } + + function button(signal, value, text) { + return A3(newElement, 100, 40, { + ctor: 'Custom', + type: 'Button', + render: renderButton, + update: updateButton, + model: { signal:signal, value:value, text:text } + }); + } + + function renderCustomButton(model) { + var btn = newNode('div'); + btn.style.pointerEvents = 'auto'; + btn.elm_signal = model.signal; + btn.elm_value = model.value; + + btn.elm_up = Render.render(model.up); + btn.elm_hover = Render.render(model.hover); + btn.elm_down = Render.render(model.down); + + function replace(node) { + if (node !== btn.firstChild) { + btn.replaceChild(node, btn.firstChild); + } + } + var overCount = 0; + function over(e) { + if (overCount++ > 0) return; + replace(btn.elm_hover); + } + function out(e) { + if (btn.contains(e.toElement || e.relatedTarget)) return; + overCount = 0; + replace(btn.elm_up); + } + function up() { + replace(btn.elm_hover); + elm.notify(btn.elm_signal.id, btn.elm_value); + } + function down() { + replace(btn.elm_down); + } + btn.addEventListener('mouseover', over); + btn.addEventListener('mouseout' , out); + btn.addEventListener('mousedown', down); + btn.addEventListener('mouseup' , up); + + btn.appendChild(btn.elm_up); + + return btn; + } + + function updateCustomButton(node, oldModel, newModel) { + var signal = newModel.signal; + node.elm_up.elm_signal = signal; + node.elm_hover.elm_signal = signal; + node.elm_down.elm_signal = signal; + + var value = newModel.value; + node.elm_up.elm_value = value; + node.elm_hover.elm_value = value; + node.elm_down.elm_value = value; + + Render.update(node.elm_up, oldModel.up, newModel.up) + Render.update(node.elm_hover, oldModel.hover, newModel.hover) + Render.update(node.elm_down, oldModel.down, newModel.down) + } + + function max3(a,b,c) { + var ab = a > b ? a : b; + return ab > c ? ab : c; + } + + function customButton(signal, value, up, hover, down) { + return A3(newElement, + max3(up.props.width, hover.props.width, down.props.width), + max3(up.props.height, hover.props.height, down.props.height), + { ctor: 'Custom', + type: 'CustomButton', + render: renderCustomButton, + update: updateCustomButton, + model: { signal:signal, value:value, up:up, hover:hover, down:down } + }); + } + + function renderCheckbox(model) { + var node = newNode('input'); + node.type = 'checkbox'; + node.checked = model.checked; + node.style.display = 'block'; + node.style.pointerEvents = 'auto'; + node.elm_signal = model.signal; + node.elm_handler = model.handler; + function change() { + elm.notify(node.elm_signal.id, node.elm_handler(node.checked)); + } + node.addEventListener('change', change); + return node; + } + + function updateCheckbox(node, oldModel, newModel) { + node.elm_signal = newModel.signal; + node.elm_handler = newModel.handler; + node.checked = newModel.checked; + return true; + } + + function checkbox(signal, handler, checked) { + return A3(newElement, 13, 13, { + ctor: 'Custom', + type: 'CheckBox', + render: renderCheckbox, + update: updateCheckbox, + model: { signal:signal, handler:handler, checked:checked } + }); + } + + function setRange(node, start, end, dir) { + if (node.parentNode) { + node.setSelectionRange(start, end, dir); + } else { + setTimeout(function(){node.setSelectionRange(start, end, dir);}, 0); + } + } + + function updateIfNeeded(css, attribute, latestAttribute) { + if (css[attribute] !== latestAttribute) { + css[attribute] = latestAttribute; + } + } + function cssDimensions(dimensions) { + return dimensions.top + 'px ' + + dimensions.right + 'px ' + + dimensions.bottom + 'px ' + + dimensions.left + 'px'; + } + function updateFieldStyle(css, style) { + updateIfNeeded(css, 'padding', cssDimensions(style.padding)); + + var outline = style.outline; + updateIfNeeded(css, 'border-width', cssDimensions(outline.width)); + updateIfNeeded(css, 'border-color', toCss(outline.color)); + updateIfNeeded(css, 'border-radius', outline.radius + 'px'); + + var highlight = style.highlight; + if (highlight.width === 0) { + css.outline = 'none'; + } else { + updateIfNeeded(css, 'outline-width', highlight.width + 'px'); + updateIfNeeded(css, 'outline-color', toCss(highlight.color)); + } + + var textStyle = style.style; + updateIfNeeded(css, 'color', toCss(textStyle.color)); + if (textStyle.typeface.ctor !== '[]') { + updateIfNeeded(css, 'font-family', Text.toTypefaces(textStyle.typeface)); + } + if (textStyle.height.ctor !== "Nothing") { + updateIfNeeded(css, 'font-size', textStyle.height._0 + 'px'); + } + updateIfNeeded(css, 'font-weight', textStyle.bold ? 'bold' : 'normal'); + updateIfNeeded(css, 'font-style', textStyle.italic ? 'italic' : 'normal'); + if (textStyle.line.ctor !== 'Nothing') { + updateIfNeeded(css, 'text-decoration', Text.toLine(textStyle.line._0)); + } + } + + function renderField(model) { + var field = newNode('input'); + updateFieldStyle(field.style, model.style); + field.style.borderStyle = 'solid'; + field.style.pointerEvents = 'auto'; + + field.type = model.type; + field.placeholder = model.placeHolder; + field.value = model.content.string; + + field.elm_signal = model.signal; + field.elm_handler = model.handler; + field.elm_old_value = field.value; + + function inputUpdate(event) { + var curr = field.elm_old_value; + var next = field.value; + if (curr === next) { + return; + } + + var direction = field.selectionDirection === 'forward' ? 'Forward' : 'Backward'; + var start = field.selectionStart; + var end = field.selectionEnd; + field.value = field.elm_old_value; + + elm.notify(field.elm_signal.id, field.elm_handler({ + _:{}, + string: next, + selection: { + _:{}, + start: start, + end: end, + direction: { ctor: direction } + }, + })); + } + + field.addEventListener('input', inputUpdate); + field.addEventListener('focus', function() { + field.elm_hasFocus = true; + }); + field.addEventListener('blur', function() { + field.elm_hasFocus = false; + }); + + return field; + } + + function updateField(field, oldModel, newModel) { + if (oldModel.style !== newModel.style) { + updateFieldStyle(field.style, newModel.style); + } + field.elm_signal = newModel.signal; + field.elm_handler = newModel.handler; + + field.type = newModel.type; + field.placeholder = newModel.placeHolder; + var value = newModel.content.string; + field.value = value; + field.elm_old_value = value; + if (field.elm_hasFocus) { + var selection = newModel.content.selection; + var direction = selection.direction.ctor === 'Forward' ? 'forward' : 'backward'; + setRange(field, selection.start, selection.end, direction); + } + } + + function mkField(type) { + function field(style, signal, handler, placeHolder, content) { + var padding = style.padding; + var outline = style.outline.width; + var adjustWidth = padding.left + padding.right + outline.left + outline.right; + var adjustHeight = padding.top + padding.bottom + outline.top + outline.bottom; + return A3(newElement, 200, 30, { + ctor: 'Custom', + type: type + 'Field', + adjustWidth: adjustWidth, + adjustHeight: adjustHeight, + render: renderField, + update: updateField, + model: { + signal:signal, + handler:handler, + placeHolder:placeHolder, + content:content, + style:style, + type:type + } + }); + } + return F5(field); + } + + function hoverable(signal, handler, elem) { + function onHover(bool) { + elm.notify(signal.id, handler(bool)); + } + var props = Utils.replace([['hover',onHover]], elem.props); + return { props:props, element:elem.element }; + } + + function clickable(signal, value, elem) { + function onClick(bool) { + elm.notify(signal.id, value); + } + var props = Utils.replace([['click',onClick]], elem.props); + return { props:props, element:elem.element }; + } + + return elm.Native.Graphics.Input.values = { + input:input, + button:F3(button), + customButton:F5(customButton), + checkbox:F3(checkbox), + dropDown:F2(dropDown), + field:mkField('text'), + email:mkField('email'), + password:mkField('password'), + hoverable:F3(hoverable), + clickable:F3(clickable) + }; + +}; +Elm.Native.Http = {}; +Elm.Native.Http.make = function(elm) { + + elm.Native = elm.Native || {}; + elm.Native.Http = elm.Native.Http || {}; + if (elm.Native.Http.values) return elm.Native.Http.values; + + var List = Elm.List.make(elm); + var Signal = Elm.Signal.make(elm); + + function registerReq(queue,responses) { + return function(req) { + if (req.url.length > 0) { + sendReq(queue,responses,req); + } + }; + } + + function updateQueue(queue,responses) { + if (queue.length > 0) { + elm.notify(responses.id, queue[0].value); + if (queue[0].value.ctor !== 'Waiting') { + queue.shift(); + setTimeout(function() { updateQueue(queue,responses); }, 0); + } + } + } + + function sendReq(queue,responses,req) { + var response = { value: { ctor:'Waiting' } }; + queue.push(response); + + var request = (window.ActiveXObject + ? new ActiveXObject("Microsoft.XMLHTTP") + : new XMLHttpRequest()); + + request.onreadystatechange = function(e) { + if (request.readyState === 4) { + response.value = (request.status >= 200 && request.status < 300 ? + { ctor:'Success', _0:request.responseText } : + { ctor:'Failure', _0:request.status, _1:request.statusText }); + setTimeout(function() { updateQueue(queue,responses); }, 0); + } + }; + request.open(req.verb, req.url, true); + function setHeader(pair) { + request.setRequestHeader( pair._0, pair._1 ); + } + A2( List.map, setHeader, req.headers ); + request.send(req.body); + } + + function send(requests) { + var responses = Signal.constant(elm.Http.values.Waiting); + var sender = A2( Signal.lift, registerReq([],responses), requests ); + function f(x) { return function(y) { return x; } } + return A3( Signal.lift2, f, responses, sender ); + } + + return elm.Native.Http.values = { + send:send + }; +}; +Elm.Native.Keyboard = {}; +Elm.Native.Keyboard.make = function(elm) { + + elm.Native = elm.Native || {}; + elm.Native.Keyboard = elm.Native.Keyboard || {}; + if (elm.Native.Keyboard.values) return elm.Native.Keyboard.values; + + // Duplicated from Native.Signal + function send(node, timestep, changed) { + var kids = node.kids; + for (var i = kids.length; i--; ) { + kids[i].recv(timestep, changed, node.id); + } + } + + var Signal = Elm.Signal.make(elm); + var NList = Elm.Native.List.make(elm); + var Utils = Elm.Native.Utils.make(elm); + + var downEvents = Signal.constant(0); + var upEvents = Signal.constant(0); + var blurEvents = Signal.constant(0); + + elm.addListener([downEvents.id], document, 'keydown', function down(e) { + elm.notify(downEvents.id, e.keyCode); + }); + + elm.addListener([upEvents.id], document, 'keyup', function up(e) { + elm.notify(upEvents.id, e.keyCode); + }); + + elm.addListener([blurEvents.id], document, 'blur', function blur(e) { + elm.notify(blurEvents.id, NList.Nil); + }); + + function KeyMerge(down, up, blur) { + var args = [down,up,blur]; + this.id = Utils.guid(); + // Ignore starting values here + this.value = NList.Nil + this.kids = []; + + var n = args.length; + var count = 0; + var isChanged = false; + + this.recv = function(timestep, changed, parentID) { + ++count; + if (changed) { + // We know this a change must only be one of the following cases + if (parentID === down.id && !(NList.member(down.value)(this.value))) { + isChanged = true; + this.value = NList.Cons(down.value, this.value); + } + if (parentID === up.id) { + isChanged = true; + var notEq = function(kc) { return kc !== up.value }; + this.value = NList.filter(notEq)(this.value); + } + if (parentID === blur.id) { + isChanged = true; + this.value = NList.Nil; + } + } + if (count == n) { + send(this, timestep, isChanged); + isChanged = false; + count = 0; + } + }; + + for (var i = n; i--; ) { args[i].kids.push(this); } + + } + + var keysDown = Signal.dropRepeats(new KeyMerge(downEvents,upEvents,blurEvents)); + + function keySignal(f) { + var signal = A2(Signal.lift, f, keysDown); + // must set the default number of kids to make it possible to filter + // these signals if they are not actually used. + keysDown.defaultNumberOfKids += 1; + signal.defaultNumberOfKids = 1; + var filtered = Signal.dropRepeats(signal) + filtered.defaultNumberOfKids = 0; + return filtered; + } + + function dir(up, down, left, right) { + function f(ks) { + var x = 0, y = 0; + while (ks.ctor === "::") { + switch (ks._0) { + case left : --x; break; + case right: ++x; break; + case up : ++y; break; + case down : --y; break; + } + ks = ks._1; + } + return { _:{}, x:x, y:y }; + } + return keySignal(f); + } + + function is(key) { return keySignal(NList.member(key)); } + + var lastPressed = downEvents; + + return elm.Native.Keyboard.values = { + isDown:is, + directions:F4(dir), + keysDown:keysDown, + lastPressed:lastPressed + }; + +}; +Elm.Native.Mouse = {}; +Elm.Native.Mouse.make = function(elm) { + + elm.Native = elm.Native || {}; + elm.Native.Mouse = elm.Native.Mouse || {}; + if (elm.Native.Mouse.values) return elm.Native.Mouse.values; + + var Signal = Elm.Signal.make(elm); + var Utils = Elm.Native.Utils.make(elm); + + var position = Signal.constant(Utils.Tuple2(0,0)); + position.defaultNumberOfKids = 2; + + // do not move x and y into Elm. By setting their default number + // of kids, it is possible to detatch the mouse listeners if + // they are not needed. + var x = A2( Signal.lift, function(p){return p._0}, position); + x.defaultNumberOfKids = 0; + var y = A2( Signal.lift, function(p){return p._1}, position); + y.defaultNumberOfKids = 0; + + var isDown = Signal.constant(false); + var clicks = Signal.constant(Utils.Tuple0); + + var node = elm.display === ElmRuntime.Display.FULLSCREEN ? document : elm.node; + + elm.addListener([clicks.id], node, 'click', function click() { + elm.notify(clicks.id, Utils.Tuple0); + }); + elm.addListener([isDown.id], node, 'mousedown', function down() { + elm.notify(isDown.id, true); + }); + elm.addListener([isDown.id], node, 'mouseup', function up() { + elm.notify(isDown.id, false); + }); + elm.addListener([position.id], node, 'mousemove', function move(e) { + elm.notify(position.id, Utils.getXY(e)); + }); + + return elm.Native.Mouse.values = { + position: position, + x:x, + y:y, + isDown: isDown, + clicks: clicks + }; +}; +Elm.Native.Random = {}; +Elm.Native.Random.make = function(elm) { + + elm.Native = elm.Native || {}; + elm.Native.Random = elm.Native.Random || {}; + if (elm.Native.Random.values) return elm.Native.Random.values; + + var Signal = Elm.Signal.make(elm); + var List = Elm.Native.List.make(elm); + + function range(min, max, signal) { + function f(x) { return Math.floor(Math.random() * (max-min+1)) + min; } + return A2( Signal.lift, f, signal ); + } + + function float_(signal) { + function f(x) { return Math.random(); } + return A2( Signal.lift, f, signal ); + } + + function floatList(signal) { + function f(n) { + if (n < 0) return List.Nil; + var arr = new Array(n); + for (var i = n; i--; ) { + arr[i] = Math.random(); + } + return List.fromArray(arr); + } + return A2( Signal.lift, f, signal ); + } + + return elm.Native.Random.values = { + range: F3(range), + float_: float_, + floatList: floatList + }; + +}; + +Elm.Native.Signal = {}; +Elm.Native.Signal.make = function(elm) { + + elm.Native = elm.Native || {}; + elm.Native.Signal = elm.Native.Signal || {}; + if (elm.Native.Signal.values) return elm.Native.Signal.values; + + var Utils = Elm.Native.Utils.make(elm); + var foldr1 = Elm.List.make(elm).foldr1; + + function send(node, timestep, changed) { + var kids = node.kids; + for (var i = kids.length; i--; ) { + kids[i].recv(timestep, changed, node.id); + } + } + + function Input(base) { + this.id = Utils.guid(); + this.value = base; + this.kids = []; + this.defaultNumberOfKids = 0; + this.recv = function(timestep, eid, v) { + var changed = eid === this.id; + if (changed) { this.value = v; } + send(this, timestep, changed); + return changed; + }; + elm.inputs.push(this); + } + + function LiftN(update, args) { + this.id = Utils.guid(); + this.value = update(); + this.kids = []; + + var n = args.length; + var count = 0; + var isChanged = false; + + this.recv = function(timestep, changed, parentID) { + ++count; + if (changed) { isChanged = true; } + if (count == n) { + if (isChanged) { this.value = update(); } + send(this, timestep, isChanged); + isChanged = false; + count = 0; + } + }; + for (var i = n; i--; ) { args[i].kids.push(this); } + } + + function lift(func, a) { + function update() { return func(a.value); } + return new LiftN(update, [a]); + } + function lift2(func, a, b) { + function update() { return A2( func, a.value, b.value ); } + return new LiftN(update, [a,b]); + } + function lift3(func, a, b, c) { + function update() { return A3( func, a.value, b.value, c.value ); } + return new LiftN(update, [a,b,c]); + } + function lift4(func, a, b, c, d) { + function update() { return A4( func, a.value, b.value, c.value, d.value ); } + return new LiftN(update, [a,b,c,d]); + } + function lift5(func, a, b, c, d, e) { + function update() { return A5( func, a.value, b.value, c.value, d.value, e.value ); } + return new LiftN(update, [a,b,c,d,e]); + } + function lift6(func, a, b, c, d, e, f) { + function update() { return A6( func, a.value, b.value, c.value, d.value, e.value, f.value ); } + return new LiftN(update, [a,b,c,d,e,f]); + } + function lift7(func, a, b, c, d, e, f, g) { + function update() { return A7( func, a.value, b.value, c.value, d.value, e.value, f.value, g.value ); } + return new LiftN(update, [a,b,c,d,e,f,g]); + } + function lift8(func, a, b, c, d, e, f, g, h) { + function update() { return A8( func, a.value, b.value, c.value, d.value, e.value, f.value, g.value, h.value ); } + return new LiftN(update, [a,b,c,d,e,f,g,h]); + } + + function Foldp(step, state, input) { + this.id = Utils.guid(); + this.value = state; + this.kids = []; + + this.recv = function(timestep, changed, parentID) { + if (changed) { + this.value = A2( step, input.value, this.value ); + } + send(this, timestep, changed); + }; + input.kids.push(this); + } + + function foldp(step, state, input) { + return new Foldp(step, state, input); + } + + function DropIf(pred,base,input) { + this.id = Utils.guid(); + this.value = pred(input.value) ? base : input.value; + this.kids = []; + this.recv = function(timestep, changed, parentID) { + var chng = changed && !pred(input.value); + if (chng) { this.value = input.value; } + send(this, timestep, chng); + }; + input.kids.push(this); + } + + function DropRepeats(input) { + this.id = Utils.guid(); + this.value = input.value; + this.kids = []; + this.recv = function(timestep, changed, parentID) { + var chng = changed && !Utils.eq(this.value,input.value); + if (chng) { this.value = input.value; } + send(this, timestep, chng); + }; + input.kids.push(this); + } + + function timestamp(a) { + function update() { return Utils.Tuple2(Date.now(), a.value); } + return new LiftN(update, [a]); + } + + function SampleOn(s1,s2) { + this.id = Utils.guid(); + this.value = s2.value; + this.kids = []; + + var count = 0; + var isChanged = false; + + this.recv = function(timestep, changed, parentID) { + if (parentID === s1.id) isChanged = changed; + ++count; + if (count == 2) { + if (isChanged) { this.value = s2.value; } + send(this, timestep, isChanged); + count = 0; + isChanged = false; + } + }; + s1.kids.push(this); + s2.kids.push(this); + } + + function sampleOn(s1,s2) { return new SampleOn(s1,s2); } + + function delay(t,s) { + var delayed = new Input(s.value); + var firstEvent = true; + function update(v) { + if (firstEvent) { firstEvent = false; return; } + setTimeout(function() { elm.notify(delayed.id, v); }, t); + } + function first(a,b) { return a; } + return new SampleOn(delayed, lift2(F2(first), delayed, lift(update,s))); + } + + function Merge(s1,s2) { + this.id = Utils.guid(); + this.value = s1.value; + this.kids = []; + + var next = null; + var count = 0; + var isChanged = false; + + this.recv = function(timestep, changed, parentID) { + ++count; + if (changed) { + isChanged = true; + if (parentID == s2.id && next === null) { next = s2.value; } + if (parentID == s1.id) { next = s1.value; } + } + + if (count == 2) { + if (isChanged) { this.value = next; next = null; } + send(this, timestep, isChanged); + isChanged = false; + count = 0; + } + }; + s1.kids.push(this); + s2.kids.push(this); + } + + function merge(s1,s2) { return new Merge(s1,s2); } + function merges(ss) { return A2(foldr1, F2(merge), ss); } + + return elm.Native.Signal.values = { + constant : function(v) { return new Input(v); }, + lift : F2(lift ), + lift2 : F3(lift2), + lift3 : F4(lift3), + lift4 : F5(lift4), + lift5 : F6(lift5), + lift6 : F7(lift6), + lift7 : F8(lift7), + lift8 : F9(lift8), + foldp : F3(foldp), + delay : F2(delay), + merge : F2(merge), + merges : merges, + count : function(s) { return foldp(F2(function(_,c) { return c+1; }), 0, s); }, + countIf : F2(function(pred,s) { + return foldp(F2(function(x,c){ + return pred(x) ? c+1 : c; }), 0, s)}), + keepIf : F3(function(pred,base,sig) { + return new DropIf(function(x) {return !pred(x);},base,sig); }), + dropIf : F3(function(pred,base,sig) { return new DropIf(pred,base,sig); }), + dropRepeats : function(s) { return new DropRepeats(s);}, + sampleOn : F2(sampleOn), + timestamp : timestamp + }; +}; +Elm.Native.Time = {}; +Elm.Native.Time.make = function(elm) { + + elm.Native = elm.Native || {}; + elm.Native.Time = elm.Native.Time || {}; + if (elm.Native.Time.values) return elm.Native.Time.values; + + var Signal = Elm.Signal.make(elm); + var NS = Elm.Native.Signal.make(elm); + var Maybe = Elm.Maybe.make(elm); + var Utils = Elm.Native.Utils.make(elm); + + function fpsWhen(desiredFPS, isOn) { + var msPerFrame = 1000 / desiredFPS; + var prev = Date.now(), curr = prev, diff = 0, wasOn = true; + var ticker = Signal.constant(diff); + function tick(zero) { return function() { + curr = Date.now(); + diff = zero ? 0 : curr - prev; + prev = curr; + elm.notify(ticker.id, diff); + }; + } + var timeoutID = 0; + function f(isOn, t) { + if (isOn) { + timeoutID = setTimeout(tick(!wasOn && isOn), msPerFrame); + } else if (wasOn) { + clearTimeout(timeoutID); + } + wasOn = isOn; + return t; + } + return A3( Signal.lift2, F2(f), isOn, ticker ); + } + + function every(t) { + var clock = Signal.constant(Date.now()); + setInterval(function() { + elm.notify(clock.id, Date.now()); + }, t); + return clock; + } + + function since(t, s) { + function cmp(a,b) { return !Utils.eq(a,b); } + var dcount = Signal.count(A2(NS.delay, t, s)); + return A3( Signal.lift2, F2(cmp), Signal.count(s), dcount ); + } + function read(s) { + var t = Date.parse(s); + return isNaN(t) ? Maybe.Nothing : Maybe.Just(t); + } + return elm.Native.Time.values = { + fpsWhen : F2(fpsWhen), + fps : function(t) { return fpsWhen(t, Signal.constant(true)); }, + every : every, + delay : NS.delay, + timestamp : NS.timestamp, + since : F2(since), + toDate : function(t) { return new window.Date(t); }, + read : read + }; + +}; +Elm.Native.Touch = {}; +Elm.Native.Touch.make = function(elm) { + + elm.Native = elm.Native || {}; + elm.Native.Touch = elm.Native.Touch || {}; + if (elm.Native.Touch.values) return elm.Native.Touch.values; + + var Signal = Elm.Signal.make(elm); + var List = Elm.Native.List.make(elm); + var Utils = Elm.Native.Utils.make(elm); + + function Dict() { + this.keys = []; + this.values = []; + + this.insert = function(key,value) { + this.keys.push(key); + this.values.push(value); + }; + this.lookup = function(key) { + var i = this.keys.indexOf(key) + return i >= 0 ? this.values[i] : {x:0,y:0,t:0}; + }; + this.remove = function(key) { + var i = this.keys.indexOf(key); + if (i < 0) return; + var t = this.values[i]; + this.keys.splice(i,1); + this.values.splice(i,1); + return t; + }; + this.clear = function() { + this.keys = []; + this.values = []; + }; + } + + var root = Signal.constant([]), + tapTime = 500, + hasTap = false, + tap = {_:{},x:0,y:0}, + dict = new Dict(); + + function touch(t) { + var r = dict.lookup(t.identifier); + var point = Utils.getXY(t); + return {_ : {}, + id: t.identifier, + x : point._0, + y : point._1, + x0: r.x, + y0: r.y, + t0: r.t + }; + } + + var node = elm.display === ElmRuntime.Display.FULLSCREEN ? document : elm.node; + + function start(e) { + var point = Utils.getXY(e); + dict.insert(e.identifier, + {x: point._0, + y: point._1, + t: Date.now()}); + } + function end(e) { + var t = dict.remove(e.identifier); + if (Date.now() - t.t < tapTime) { + hasTap = true; + tap = {_:{}, x:t.x, y:t.y}; + } + } + + function listen(name, f) { + function update(e) { + for (var i = e.changedTouches.length; i--; ) { f(e.changedTouches[i]); } + var ts = new Array(e.touches.length); + for (var i = e.touches.length; i--; ) { ts[i] = touch(e.touches[i]); } + elm.notify(root.id, ts); + e.preventDefault(); + } + elm.addListener([root.id], node, name, update); + } + + listen("touchstart", start); + listen("touchmove", function(_){}); + listen("touchend", end); + listen("touchcancel", end); + listen("touchleave", end); + + var mouseID = -1; + function move(e) { + var point = Utils.getXY(e); + for (var i = root.value.length; i--; ) { + if (root.value[i].id === mouseID) { + root.value[i].x = point._0; + root.value[i].y = point._1; + elm.notify(root.id, root.value); + break; + } + } + } + elm.addListener([root.id], node, "mousedown", function down(e) { + node.addEventListener("mousemove", move); + e.identifier = mouseID; + start(e); + root.value.push(touch(e)); + elm.notify(root.id, root.value); + }); + elm.addListener([root.id], node, "mouseup", function up(e) { + node.removeEventListener("mousemove", move); + e.identifier = mouseID; + end(e); + for (var i = root.value.length; i--; ) { + if (root.value[i].id === mouseID) { + root.value.splice(i, 1); + --mouseID; + break; + } + } + elm.notify(root.id, root.value); + }); + elm.addListener([root.id], node, "blur", function blur(e) { + node.removeEventListener("mousemove", move); + if (root.value.length > 0) { + elm.notify(root.id, []); + --mouseID; + } + dict.clear(); + }); + + function dependency(f) { + var sig = A2( Signal.lift, f, root ); + root.defaultNumberOfKids += 1; + sig.defaultNumberOfKids = 0; + return sig; + } + + var touches = dependency(List.fromArray); + + var taps = function() { + var sig = dependency(function(_) { return tap; }); + sig.defaultNumberOfKids = 1; + function pred(_) { var b = hasTap; hasTap = false; return b; } + var sig2 = A3( Signal.keepIf, pred, {_:{},x:0,y:0}, sig); + sig2.defaultNumberOfKids = 0; + return sig2; + }(); + + return elm.Native.Touch.values = { touches: touches, taps: taps }; + +}; +Elm.Native.WebSocket = {}; +Elm.Native.WebSocket.make = function(elm) { + + elm.Native = elm.Native || {}; + elm.Native.WebSocket = elm.Native.WebSocket || {}; + if (elm.Native.WebSocket.values) return elm.Native.WebSocket.values; + + var Signal = Elm.Signal.make(elm); + var List = Elm.Native.List.make(elm); + + function open(url, outgoing) { + var incoming = Signal.constant(List.Nil); + var ws = new WebSocket(url); + + var pending = []; + var ready = false; + + ws.onopen = function(e) { + var len = pending.length; + for (var i = 0; i < len; ++i) { ws.send(pending[i]); } + ready = true; + }; + ws.onmessage = function(event) { + elm.notify(incoming.id, event.data); + }; + + function send(msg) { + ready ? ws.send(msg) : pending.push(msg); + } + + function take1(x,y) { return x } + return A3(Signal.lift2, F2(take1), incoming, A2(Signal.lift, send, outgoing)); + } + + return elm.Native.WebSocket.values = { connect: F2(open) }; +}; +Elm.Native.Window = {}; +Elm.Native.Window.make = function(elm) { + + elm.Native = elm.Native || {}; + elm.Native.Window = elm.Native.Window || {}; + if (elm.Native.Window.values) return elm.Native.Window.values; + + var Signal = Elm.Signal.make(elm); + var Tuple2 = Elm.Native.Utils.make(elm).Tuple2; + + function getWidth() { return elm.node.clientWidth; } + function getHeight() { + if (elm.display === ElmRuntime.Display.FULLSCREEN) { + return window.innerHeight; + } + return elm.node.clientHeight; + } + + var dimensions = Signal.constant(Tuple2(getWidth(), getHeight())); + dimensions.defaultNumberOfKids = 2; + + // Do not move width and height into Elm. By setting the default number of kids, + // the resize listener can be detached. + var width = A2(Signal.lift, function(p){return p._0;}, dimensions); + width.defaultNumberOfKids = 0; + + var height = A2(Signal.lift, function(p){return p._1;}, dimensions); + height.defaultNumberOfKids = 0; + + function resizeIfNeeded() { + // Do not trigger event if the dimensions have not changed. + // This should be most of the time. + var w = getWidth(); + var h = getHeight(); + if (dimensions.value._0 === w && dimensions.value._1 === h) return; + + setTimeout(function () { + // Check again to see if the dimensions have changed. + // It is conceivable that the dimensions have changed + // again while some other event was being processed. + var w = getWidth(); + var h = getHeight(); + if (dimensions.value._0 === w && dimensions.value._1 === h) return; + elm.notify(dimensions.id, Tuple2(w,h)); + }, 0); + } + elm.addListener([dimensions.id], window, 'resize', resizeIfNeeded); + + return elm.Native.Window.values = { + dimensions:dimensions, + width:width, + height:height, + resizeIfNeeded:resizeIfNeeded + }; + +}; +Elm.Array = Elm.Array || {}; +Elm.Array.make = function (_elm) { + "use strict"; + _elm.Array = _elm.Array || {}; + if (_elm.Array.values) + return _elm.Array.values; + var _N = Elm.Native, + _U = _N.Utils.make(_elm), + _L = _N.List.make(_elm), + _E = _N.Error.make(_elm), + $moduleName = "Array"; + var Basics = Elm.Basics.make(_elm); + var List = Elm.List.make(_elm); + var Maybe = Elm.Maybe.make(_elm); + var Native = Native || {}; + Native.Array = Elm.Native.Array.make(_elm); + var _op = {}; + var append = Native.Array.append; + var length = Native.Array.length; + var slice = Native.Array.slice; + var set = Native.Array.set; + var getOrElse = F3(function ($default, + i, + array) { + return _U.cmp(0, + i) < 1 && _U.cmp(i, + Native.Array.length(array)) < 0 ? A2(Native.Array.get, + i, + array) : $default; + }); + var get = F2(function (i, + array) { + return _U.cmp(0, + i) < 1 && _U.cmp(i, + Native.Array.length(array)) < 0 ? Maybe.Just(A2(Native.Array.get, + i, + array)) : Maybe.Nothing; + }); + var getOrFail = Native.Array.get; + var push = Native.Array.push; + var empty = Native.Array.empty; + var filter = F2(function (isOkay, + arr) { + return function () { + var update = F2(function (x, + xs) { + return isOkay(x) ? A2(Native.Array.push, + x, + xs) : xs; + }); + return A3(Native.Array.foldl, + update, + Native.Array.empty, + arr); + }(); + }); + var foldr = Native.Array.foldr; + var foldl = Native.Array.foldl; + var indexedMap = Native.Array.indexedMap; + var map = Native.Array.map; + var toIndexedList = function (array) { + return A2(List.zip, + _L.range(0, + Native.Array.length(array) - 1), + Native.Array.toList(array)); + }; + var toList = Native.Array.toList; + var fromList = Native.Array.fromList; + var initialize = Native.Array.initialize; + var repeat = F2(function (n,e) { + return A2(initialize, + n, + Basics.always(e)); + }); + var Array = {ctor: "Array"}; + _elm.Array.values = {_op: _op + ,initialize: initialize + ,repeat: repeat + ,fromList: fromList + ,toList: toList + ,toIndexedList: toIndexedList + ,map: map + ,indexedMap: indexedMap + ,foldl: foldl + ,foldr: foldr + ,filter: filter + ,empty: empty + ,push: push + ,getOrFail: getOrFail + ,get: get + ,getOrElse: getOrElse + ,set: set + ,slice: slice + ,length: length + ,append: append + ,Array: Array}; + return _elm.Array.values; +};Elm.Basics = Elm.Basics || {}; +Elm.Basics.make = function (_elm) { + "use strict"; + _elm.Basics = _elm.Basics || {}; + if (_elm.Basics.values) + return _elm.Basics.values; + var _N = Elm.Native, + _U = _N.Utils.make(_elm), + _L = _N.List.make(_elm), + _E = _N.Error.make(_elm), + $moduleName = "Basics"; + var Native = Native || {}; + Native.Basics = Elm.Native.Basics.make(_elm); + var _op = {}; + var uncurry = F2(function (f, + _v0) { + return function () { + switch (_v0.ctor) + {case "_Tuple2": return A2(f, + _v0._0, + _v0._1);} + _E.Case($moduleName, + "on line 381, column 19 to 24"); + }(); + }); + var curry = F3(function (f, + a, + b) { + return f({ctor: "_Tuple2" + ,_0: a + ,_1: b}); + }); + var flip = F3(function (f,b,a) { + return A2(f,a,b); + }); + var snd = function (_v4) { + return function () { + switch (_v4.ctor) + {case "_Tuple2": return _v4._1;} + _E.Case($moduleName, + "on line 365, column 13 to 14"); + }(); + }; + var fst = function (_v8) { + return function () { + switch (_v8.ctor) + {case "_Tuple2": return _v8._0;} + _E.Case($moduleName, + "on line 361, column 13 to 14"); + }(); + }; + var always = F2(function (a, + _v12) { + return function () { + return a; + }(); + }); + var id = function (x) { + return x; + }; + _op["<|"] = F2(function (f,x) { + return f(x); + }); + _op["|>"] = F2(function (x,f) { + return f(x); + }); + _op["."] = F3(function (f,g,x) { + return f(g(x)); + }); + var isInfinite = Native.Basics.isInfinite; + var isNaN = Native.Basics.isNaN; + var toFloat = Native.Basics.toFloat; + var ceiling = Native.Basics.ceiling; + var floor = Native.Basics.floor; + var truncate = Native.Basics.truncate; + var round = Native.Basics.round; + var otherwise = true; + var not = Native.Basics.not; + var xor = Native.Basics.xor; + _op["||"] = Native.Basics.or; + _op["&&"] = Native.Basics.and; + var max = Native.Basics.max; + var min = Native.Basics.min; + var GT = {ctor: "GT"}; + var EQ = {ctor: "EQ"}; + var LT = {ctor: "LT"}; + var compare = Native.Basics.compare; + _op[">="] = Native.Basics.ge; + _op["<="] = Native.Basics.le; + _op[">"] = Native.Basics.gt; + _op["<"] = Native.Basics.lt; + _op["/="] = Native.Basics.neq; + _op["=="] = Native.Basics.eq; + var e = Native.Basics.e; + var pi = Native.Basics.pi; + var clamp = Native.Basics.clamp; + var logBase = Native.Basics.logBase; + var abs = Native.Basics.abs; + var sqrt = Native.Basics.sqrt; + var atan2 = Native.Basics.atan2; + var atan = Native.Basics.atan; + var asin = Native.Basics.asin; + var acos = Native.Basics.acos; + var tan = Native.Basics.tan; + var sin = Native.Basics.sin; + var cos = Native.Basics.cos; + _op["^"] = Native.Basics.exp; + var mod = Native.Basics.mod; + var rem = Native.Basics.rem; + var div = Native.Basics.div; + _op["/"] = Native.Basics.floatDiv; + _op["*"] = Native.Basics.mul; + _op["-"] = Native.Basics.sub; + _op["+"] = Native.Basics.add; + var toPolar = function (_v14) { + return function () { + switch (_v14.ctor) + {case "_Tuple2": + return {ctor: "_Tuple2" + ,_0: Native.Basics.sqrt(Math.pow(_v14._0, + 2) + Math.pow(_v14._1,2)) + ,_1: A2(Native.Basics.atan2, + _v14._1, + _v14._0)};} + _E.Case($moduleName, + "on line 79, column 18 to 73"); + }(); + }; + var fromPolar = function (_v18) { + return function () { + switch (_v18.ctor) + {case "_Tuple2": + return {ctor: "_Tuple2" + ,_0: _v18._0 * Native.Basics.cos(_v18._1) + ,_1: _v18._0 * Native.Basics.sin(_v18._1)};} + _E.Case($moduleName, + "on line 73, column 20 to 68"); + }(); + }; + var turns = function (r) { + return 2 * Native.Basics.pi * r; + }; + var degrees = function (d) { + return d * Native.Basics.pi / 180; + }; + var radians = function (t) { + return t; + }; + _elm.Basics.values = {_op: _op + ,radians: radians + ,degrees: degrees + ,turns: turns + ,fromPolar: fromPolar + ,toPolar: toPolar + ,div: div + ,rem: rem + ,mod: mod + ,cos: cos + ,sin: sin + ,tan: tan + ,acos: acos + ,asin: asin + ,atan: atan + ,atan2: atan2 + ,sqrt: sqrt + ,abs: abs + ,logBase: logBase + ,clamp: clamp + ,pi: pi + ,e: e + ,compare: compare + ,min: min + ,max: max + ,xor: xor + ,not: not + ,otherwise: otherwise + ,round: round + ,truncate: truncate + ,floor: floor + ,ceiling: ceiling + ,toFloat: toFloat + ,isNaN: isNaN + ,isInfinite: isInfinite + ,id: id + ,always: always + ,fst: fst + ,snd: snd + ,flip: flip + ,curry: curry + ,uncurry: uncurry + ,LT: LT + ,EQ: EQ + ,GT: GT}; + return _elm.Basics.values; +};Elm.Bitwise = Elm.Bitwise || {}; +Elm.Bitwise.make = function (_elm) { + "use strict"; + _elm.Bitwise = _elm.Bitwise || {}; + if (_elm.Bitwise.values) + return _elm.Bitwise.values; + var _N = Elm.Native, + _U = _N.Utils.make(_elm), + _L = _N.List.make(_elm), + _E = _N.Error.make(_elm), + $moduleName = "Bitwise"; + var Native = Native || {}; + Native.Bitwise = Elm.Native.Bitwise.make(_elm); + var _op = {}; + var shiftRightLogical = Native.Bitwise.shiftRightLogical; + var shiftRight = Native.Bitwise.shiftRightArithmatic; + var shiftLeft = Native.Bitwise.shiftLeft; + var complement = Native.Bitwise.complement; + var xor = Native.Bitwise.xor; + var or = Native.Bitwise.or; + var and = Native.Bitwise.and; + _elm.Bitwise.values = {_op: _op + ,and: and + ,or: or + ,xor: xor + ,complement: complement + ,shiftLeft: shiftLeft + ,shiftRight: shiftRight + ,shiftRightLogical: shiftRightLogical}; + return _elm.Bitwise.values; +};Elm.Char = Elm.Char || {}; +Elm.Char.make = function (_elm) { + "use strict"; + _elm.Char = _elm.Char || {}; + if (_elm.Char.values) + return _elm.Char.values; + var _N = Elm.Native, + _U = _N.Utils.make(_elm), + _L = _N.List.make(_elm), + _E = _N.Error.make(_elm), + $moduleName = "Char"; + var Native = Native || {}; + Native.Char = Elm.Native.Char.make(_elm); + var _op = {}; + var fromCode = Native.Char.fromCode; + var toCode = Native.Char.toCode; + var toLocaleLower = Native.Char.toLocaleLower; + var toLocaleUpper = Native.Char.toLocaleUpper; + var toLower = Native.Char.toLower; + var toUpper = Native.Char.toUpper; + var isHexDigit = Native.Char.isHexDigit; + var isOctDigit = Native.Char.isOctDigit; + var isDigit = Native.Char.isDigit; + var isLower = Native.Char.isLower; + var isUpper = Native.Char.isUpper; + _elm.Char.values = {_op: _op + ,isUpper: isUpper + ,isLower: isLower + ,isDigit: isDigit + ,isOctDigit: isOctDigit + ,isHexDigit: isHexDigit + ,toUpper: toUpper + ,toLower: toLower + ,toLocaleUpper: toLocaleUpper + ,toLocaleLower: toLocaleLower + ,toCode: toCode + ,fromCode: fromCode}; + return _elm.Char.values; +};Elm.Color = Elm.Color || {}; +Elm.Color.make = function (_elm) { + "use strict"; + _elm.Color = _elm.Color || {}; + if (_elm.Color.values) + return _elm.Color.values; + var _N = Elm.Native, + _U = _N.Utils.make(_elm), + _L = _N.List.make(_elm), + _E = _N.Error.make(_elm), + $moduleName = "Color"; + var Basics = Elm.Basics.make(_elm); + var Native = Native || {}; + Native.Color = Elm.Native.Color.make(_elm); + var _op = {}; + var Radial = F5(function (a, + b, + c, + d, + e) { + return {ctor: "Radial" + ,_0: a + ,_1: b + ,_2: c + ,_3: d + ,_4: e}; + }); + var radial = Radial; + var Linear = F3(function (a, + b, + c) { + return {ctor: "Linear" + ,_0: a + ,_1: b + ,_2: c}; + }); + var linear = Linear; + var hsv = Native.Color.hsv; + var hsva = Native.Color.hsva; + var complement = Native.Color.complement; + var greyscale = function (p) { + return A3(hsv,0,0,1 - p); + }; + var grayscale = function (p) { + return A3(hsv,0,0,1 - p); + }; + var Color = F4(function (a, + b, + c, + d) { + return {ctor: "Color" + ,_0: a + ,_1: b + ,_2: c + ,_3: d}; + }); + var rgba = Color; + var rgb = F3(function (r,g,b) { + return A4(Color,r,g,b,1); + }); + var lightRed = A4(Color, + 239, + 41, + 41, + 1); + var red = A4(Color,204,0,0,1); + var darkRed = A4(Color, + 164, + 0, + 0, + 1); + var lightOrange = A4(Color, + 252, + 175, + 62, + 1); + var orange = A4(Color, + 245, + 121, + 0, + 1); + var darkOrange = A4(Color, + 206, + 92, + 0, + 1); + var lightYellow = A4(Color, + 255, + 233, + 79, + 1); + var yellow = A4(Color, + 237, + 212, + 0, + 1); + var darkYellow = A4(Color, + 196, + 160, + 0, + 1); + var lightGreen = A4(Color, + 138, + 226, + 52, + 1); + var green = A4(Color, + 115, + 210, + 22, + 1); + var darkGreen = A4(Color, + 78, + 154, + 6, + 1); + var lightBlue = A4(Color, + 114, + 159, + 207, + 1); + var blue = A4(Color, + 52, + 101, + 164, + 1); + var darkBlue = A4(Color, + 32, + 74, + 135, + 1); + var lightPurple = A4(Color, + 173, + 127, + 168, + 1); + var purple = A4(Color, + 117, + 80, + 123, + 1); + var darkPurple = A4(Color, + 92, + 53, + 102, + 1); + var lightBrown = A4(Color, + 233, + 185, + 110, + 1); + var brown = A4(Color, + 193, + 125, + 17, + 1); + var darkBrown = A4(Color, + 143, + 89, + 2, + 1); + var black = A4(Color,0,0,0,1); + var white = A4(Color, + 255, + 255, + 255, + 1); + var lightGrey = A4(Color, + 238, + 238, + 236, + 1); + var grey = A4(Color, + 211, + 215, + 207, + 1); + var darkGrey = A4(Color, + 186, + 189, + 182, + 1); + var lightGray = A4(Color, + 238, + 238, + 236, + 1); + var gray = A4(Color, + 211, + 215, + 207, + 1); + var darkGray = A4(Color, + 186, + 189, + 182, + 1); + var lightCharcoal = A4(Color, + 136, + 138, + 133, + 1); + var charcoal = A4(Color, + 85, + 87, + 83, + 1); + var darkCharcoal = A4(Color, + 46, + 52, + 54, + 1); + _elm.Color.values = {_op: _op + ,rgba: rgba + ,rgb: rgb + ,lightRed: lightRed + ,red: red + ,darkRed: darkRed + ,lightOrange: lightOrange + ,orange: orange + ,darkOrange: darkOrange + ,lightYellow: lightYellow + ,yellow: yellow + ,darkYellow: darkYellow + ,lightGreen: lightGreen + ,green: green + ,darkGreen: darkGreen + ,lightBlue: lightBlue + ,blue: blue + ,darkBlue: darkBlue + ,lightPurple: lightPurple + ,purple: purple + ,darkPurple: darkPurple + ,lightBrown: lightBrown + ,brown: brown + ,darkBrown: darkBrown + ,black: black + ,white: white + ,lightGrey: lightGrey + ,grey: grey + ,darkGrey: darkGrey + ,lightGray: lightGray + ,gray: gray + ,darkGray: darkGray + ,lightCharcoal: lightCharcoal + ,charcoal: charcoal + ,darkCharcoal: darkCharcoal + ,grayscale: grayscale + ,greyscale: greyscale + ,complement: complement + ,hsva: hsva + ,hsv: hsv + ,linear: linear + ,radial: radial + ,Color: Color + ,Linear: Linear + ,Radial: Radial}; + return _elm.Color.values; +};Elm.Date = Elm.Date || {}; +Elm.Date.make = function (_elm) { + "use strict"; + _elm.Date = _elm.Date || {}; + if (_elm.Date.values) + return _elm.Date.values; + var _N = Elm.Native, + _U = _N.Utils.make(_elm), + _L = _N.List.make(_elm), + _E = _N.Error.make(_elm), + $moduleName = "Date"; + var Maybe = Elm.Maybe.make(_elm); + var Native = Native || {}; + Native.Date = Elm.Native.Date.make(_elm); + var Time = Elm.Time.make(_elm); + var _op = {}; + var second = Native.Date.second; + var minute = Native.Date.minute; + var hour = Native.Date.hour; + var dayOfWeek = Native.Date.dayOfWeek; + var day = Native.Date.day; + var month = Native.Date.month; + var year = Native.Date.year; + var fromTime = Native.Date.fromTime; + var toTime = Native.Date.toTime; + var read = Native.Date.read; + var Dec = {ctor: "Dec"}; + var Nov = {ctor: "Nov"}; + var Oct = {ctor: "Oct"}; + var Sep = {ctor: "Sep"}; + var Aug = {ctor: "Aug"}; + var Jul = {ctor: "Jul"}; + var Jun = {ctor: "Jun"}; + var May = {ctor: "May"}; + var Apr = {ctor: "Apr"}; + var Mar = {ctor: "Mar"}; + var Feb = {ctor: "Feb"}; + var Jan = {ctor: "Jan"}; + var Sun = {ctor: "Sun"}; + var Sat = {ctor: "Sat"}; + var Fri = {ctor: "Fri"}; + var Thu = {ctor: "Thu"}; + var Wed = {ctor: "Wed"}; + var Tue = {ctor: "Tue"}; + var Mon = {ctor: "Mon"}; + var Date = {ctor: "Date"}; + _elm.Date.values = {_op: _op + ,read: read + ,toTime: toTime + ,fromTime: fromTime + ,year: year + ,month: month + ,day: day + ,dayOfWeek: dayOfWeek + ,hour: hour + ,minute: minute + ,second: second + ,Date: Date + ,Mon: Mon + ,Tue: Tue + ,Wed: Wed + ,Thu: Thu + ,Fri: Fri + ,Sat: Sat + ,Sun: Sun + ,Jan: Jan + ,Feb: Feb + ,Mar: Mar + ,Apr: Apr + ,May: May + ,Jun: Jun + ,Jul: Jul + ,Aug: Aug + ,Sep: Sep + ,Oct: Oct + ,Nov: Nov + ,Dec: Dec}; + return _elm.Date.values; +};Elm.Debug = Elm.Debug || {}; +Elm.Debug.make = function (_elm) { + "use strict"; + _elm.Debug = _elm.Debug || {}; + if (_elm.Debug.values) + return _elm.Debug.values; + var _N = Elm.Native, + _U = _N.Utils.make(_elm), + _L = _N.List.make(_elm), + _E = _N.Error.make(_elm), + $moduleName = "Debug"; + var Native = Native || {}; + Native.Debug = Elm.Native.Debug.make(_elm); + var _op = {}; + var log = Native.Debug.log; + _elm.Debug.values = {_op: _op + ,log: log}; + return _elm.Debug.values; +};Elm.Dict = Elm.Dict || {}; +Elm.Dict.make = function (_elm) { + "use strict"; + _elm.Dict = _elm.Dict || {}; + if (_elm.Dict.values) + return _elm.Dict.values; + var _N = Elm.Native, + _U = _N.Utils.make(_elm), + _L = _N.List.make(_elm), + _E = _N.Error.make(_elm), + $moduleName = "Dict"; + var Basics = Elm.Basics.make(_elm); + var List = Elm.List.make(_elm); + var Maybe = Elm.Maybe.make(_elm); + var Native = Native || {}; + Native.Error = Elm.Native.Error.make(_elm); + var Native = Native || {}; + Native.Utils = Elm.Native.Utils.make(_elm); + var _op = {}; + var Same = {ctor: "Same"}; + var Remove = {ctor: "Remove"}; + var Insert = {ctor: "Insert"}; + var showFlag = function (f) { + return function () { + switch (f.ctor) + {case "Insert": return "Insert"; + case "Remove": return "Remove"; + case "Same": return "Same";} + _E.Case($moduleName, + "between lines 179 and 184"); + }(); + }; + var RBEmpty = function (a) { + return {ctor: "RBEmpty" + ,_0: a}; + }; + var RBNode = F5(function (a, + b, + c, + d, + e) { + return {ctor: "RBNode" + ,_0: a + ,_1: b + ,_2: c + ,_3: d + ,_4: e}; + }); + var max = function (t) { + return function () { + switch (t.ctor) + {case "RBEmpty": + return Native.Error.raise("(max Empty) is not defined"); + case "RBNode": + switch (t._4.ctor) + {case "RBEmpty": + return {ctor: "_Tuple2" + ,_0: t._1 + ,_1: t._2};} + return max(t._4);} + _E.Case($moduleName, + "between lines 84 and 101"); + }(); + }; + var LBBlack = {ctor: "LBBlack"}; + var LBlack = {ctor: "LBlack"}; + var showLColor = function (c) { + return function () { + switch (c.ctor) + {case "LBBlack": + return "LBBlack"; + case "LBlack": return "LBlack";} + _E.Case($moduleName, + "between lines 64 and 66"); + }(); + }; + var empty = RBEmpty(LBlack); + var min = function (t) { + return function () { + switch (t.ctor) + {case "RBEmpty": + switch (t._0.ctor) + {case "LBlack": + return Native.Error.raise("(min Empty) is not defined");} + break; + case "RBNode": + switch (t._3.ctor) + {case "RBEmpty": + switch (t._3._0.ctor) + {case "LBlack": + return {ctor: "_Tuple2" + ,_0: t._1 + ,_1: t._2};} + break;} + return min(t._3);} + _E.Case($moduleName, + "between lines 77 and 80"); + }(); + }; + var get = F2(function (k,t) { + return function () { + switch (t.ctor) + {case "RBEmpty": + switch (t._0.ctor) + {case "LBlack": + return Maybe.Nothing;} + break; + case "RBNode": + return function () { + var _v25 = A2(Native.Utils.compare, + k, + t._1); + switch (_v25.ctor) + {case "EQ": + return Maybe.Just(t._2); + case "GT": return A2(get, + k, + t._4); + case "LT": return A2(get, + k, + t._3);} + _E.Case($moduleName, + "between lines 107 and 120"); + }();} + _E.Case($moduleName, + "between lines 104 and 120"); + }(); + }); + var member = F2(function (k,t) { + return Maybe.isJust(A2(get, + k, + t)); + }); + var getOrElse = F3(function (base, + k, + t) { + return function () { + switch (t.ctor) + {case "RBEmpty": + switch (t._0.ctor) + {case "LBlack": return base;} + break; + case "RBNode": + return function () { + var _v33 = A2(Native.Utils.compare, + k, + t._1); + switch (_v33.ctor) + {case "EQ": return t._2; + case "GT": return A3(getOrElse, + base, + k, + t._4); + case "LT": return A3(getOrElse, + base, + k, + t._3);} + _E.Case($moduleName, + "between lines 126 and 142"); + }();} + _E.Case($moduleName, + "between lines 123 and 142"); + }(); + }); + var getOrFail = F2(function (k, + t) { + return function () { + switch (t.ctor) + {case "RBEmpty": + switch (t._0.ctor) + {case "LBlack": + return Native.Error.raise("key not found when using \'getOrFail\'");} + break; + case "RBNode": + return function () { + var _v41 = A2(Native.Utils.compare, + k, + t._1); + switch (_v41.ctor) + {case "EQ": return t._2; + case "GT": return A2(getOrFail, + k, + t._4); + case "LT": return A2(getOrFail, + k, + t._3);} + _E.Case($moduleName, + "between lines 148 and 153"); + }();} + _E.Case($moduleName, + "between lines 145 and 153"); + }(); + }); + var map = F2(function (f,t) { + return function () { + switch (t.ctor) + {case "RBEmpty": + switch (t._0.ctor) + {case "LBlack": + return RBEmpty(LBlack);} + break; + case "RBNode": return A5(RBNode, + t._0, + t._1, + f(t._2), + A2(map,f,t._3), + A2(map,f,t._4));} + _E.Case($moduleName, + "between lines 345 and 350"); + }(); + }); + var foldl = F3(function (f, + acc, + t) { + return function () { + switch (t.ctor) + {case "RBEmpty": + switch (t._0.ctor) + {case "LBlack": return acc;} + break; + case "RBNode": return A3(foldl, + f, + A3(f, + t._1, + t._2, + A3(foldl,f,acc,t._3)), + t._4);} + _E.Case($moduleName, + "between lines 353 and 358"); + }(); + }); + var foldr = F3(function (f, + acc, + t) { + return function () { + switch (t.ctor) + {case "RBEmpty": + switch (t._0.ctor) + {case "LBlack": return acc;} + break; + case "RBNode": return A3(foldr, + f, + A3(f, + t._1, + t._2, + A3(foldr,f,acc,t._4)), + t._3);} + _E.Case($moduleName, + "between lines 361 and 366"); + }(); + }); + var keys = function (t) { + return A3(foldr, + F3(function (k,v,acc) { + return {ctor: "::" + ,_0: k + ,_1: acc}; + }), + _L.fromArray([]), + t); + }; + var values = function (t) { + return A3(foldr, + F3(function (k,v,acc) { + return {ctor: "::" + ,_0: v + ,_1: acc}; + }), + _L.fromArray([]), + t); + }; + var toList = function (t) { + return A3(foldr, + F3(function (k,v,acc) { + return {ctor: "::" + ,_0: {ctor: "_Tuple2" + ,_0: k + ,_1: v} + ,_1: acc}; + }), + _L.fromArray([]), + t); + }; + var NBlack = {ctor: "NBlack"}; + var BBlack = {ctor: "BBlack"}; + var isBBlack = function (t) { + return function () { + switch (t.ctor) + {case "RBEmpty": + switch (t._0.ctor) + {case "LBBlack": return true;} + break; + case "RBNode": + switch (t._0.ctor) + {case "BBlack": return true;} + break;} + return false; + }(); + }; + var Black = {ctor: "Black"}; + var blackish = function (t) { + return function () { + switch (t.ctor) + {case "RBEmpty": return true; + case "RBNode": + return _U.eq(t._0, + Black) || _U.eq(t._0,BBlack);} + _E.Case($moduleName, + "between lines 296 and 298"); + }(); + }; + var blacken = function (t) { + return function () { + switch (t.ctor) + {case "RBEmpty": + return RBEmpty(LBlack); + case "RBNode": return A5(RBNode, + Black, + t._1, + t._2, + t._3, + t._4);} + _E.Case($moduleName, + "between lines 332 and 334"); + }(); + }; + var Red = {ctor: "Red"}; + var showNColor = function (c) { + return function () { + switch (c.ctor) + {case "BBlack": return "BBlack"; + case "Black": return "Black"; + case "NBlack": return "NBlack"; + case "Red": return "Red";} + _E.Case($moduleName, + "between lines 53 and 57"); + }(); + }; + var reportRemBug = F4(function (msg, + c, + lgot, + rgot) { + return Native.Error.raise(List.concat(_L.fromArray(["Internal red-black tree invariant violated, expected " + ,msg + ,"and got" + ,showNColor(c) + ," " + ,lgot + ," " + ,rgot + ,"\nPlease report this bug to https://github.com/evancz/Elm/issues"]))); + }); + var ensureBlackRoot = function (t) { + return function () { + switch (t.ctor) + {case "RBEmpty": + switch (t._0.ctor) + {case "LBlack": return t;} + break; + case "RBNode": + switch (t._0.ctor) + {case "Black": return t; + case "Red": return A5(RBNode, + Black, + t._1, + t._2, + t._3, + t._4);} + break;} + _E.Case($moduleName, + "between lines 160 and 166"); + }(); + }; + var moreBlack = function (c) { + return function () { + switch (c.ctor) + {case "BBlack": + return Native.Error.raise("Can\'t make a double black node more black!"); + case "Black": return BBlack; + case "NBlack": return Red; + case "Red": return Black;} + _E.Case($moduleName, + "between lines 222 and 226"); + }(); + }; + var lessBlack = function (c) { + return function () { + switch (c.ctor) + {case "BBlack": return Black; + case "Black": return Red; + case "NBlack": + return Native.Error.raise("Can\'t make a negative black node less black!"); + case "Red": return NBlack;} + _E.Case($moduleName, + "between lines 229 and 233"); + }(); + }; + var lessBlackTree = function (t) { + return function () { + switch (t.ctor) + {case "RBEmpty": + switch (t._0.ctor) + {case "LBBlack": + return RBEmpty(LBlack);} + break; + case "RBNode": return A5(RBNode, + lessBlack(t._0), + t._1, + t._2, + t._3, + t._4);} + _E.Case($moduleName, + "between lines 236 and 238"); + }(); + }; + var redden = function (t) { + return function () { + switch (t.ctor) + {case "RBEmpty": + return Native.Error.raise("can\'t make a Leaf red"); + case "RBNode": return A5(RBNode, + Red, + t._1, + t._2, + t._3, + t._4);} + _E.Case($moduleName, + "between lines 338 and 342"); + }(); + }; + var balance_node = function (t) { + return function () { + var assemble = function (col) { + return function (xk) { + return function (xv) { + return function (yk) { + return function (yv) { + return function (zk) { + return function (zv) { + return function (a) { + return function (b) { + return function (c) { + return function (d) { + return A5(RBNode, + lessBlack(col), + yk, + yv, + A5(RBNode,Black,xk,xv,a,b), + A5(RBNode,Black,zk,zv,c,d)); + }; + }; + }; + }; + }; + }; + }; + }; + }; + }; + }; + return blackish(t) ? function () { + switch (t.ctor) + {case "RBNode": + switch (t._3.ctor) + {case "RBNode": + switch (t._3._0.ctor) + {case "Red": + switch (t._3._3.ctor) + {case "RBNode": + switch (t._3._3._0.ctor) + {case "Red": + return assemble(t._0)(t._3._3._1)(t._3._3._2)(t._3._1)(t._3._2)(t._1)(t._2)(t._3._3._3)(t._3._3._4)(t._3._4)(t._4);} + break;} + switch (t._3._4.ctor) + {case "RBNode": + switch (t._3._4._0.ctor) + {case "Red": + return assemble(t._0)(t._3._1)(t._3._2)(t._3._4._1)(t._3._4._2)(t._1)(t._2)(t._3._3)(t._3._4._3)(t._3._4._4)(t._4);} + break;} + break;} + break;} + switch (t._4.ctor) + {case "RBNode": + switch (t._4._0.ctor) + {case "Red": + switch (t._4._3.ctor) + {case "RBNode": + switch (t._4._3._0.ctor) + {case "Red": + return assemble(t._0)(t._1)(t._2)(t._4._3._1)(t._4._3._2)(t._4._1)(t._4._2)(t._3)(t._4._3._3)(t._4._3._4)(t._4._4);} + break;} + switch (t._4._4.ctor) + {case "RBNode": + switch (t._4._4._0.ctor) + {case "Red": + return assemble(t._0)(t._1)(t._2)(t._4._1)(t._4._2)(t._4._4._1)(t._4._4._2)(t._3)(t._4._3)(t._4._4._3)(t._4._4._4);} + break;} + break;} + break;} + switch (t._0.ctor) + {case "BBlack": + switch (t._4.ctor) + {case "RBNode": + switch (t._4._0.ctor) + {case "NBlack": + switch (t._4._3.ctor) + {case "RBNode": + switch (t._4._3._0.ctor) + {case "Black": + return function () { + switch (t._4._4.ctor) + {case "RBNode": + switch (t._4._4._0.ctor) + {case "Black": + return A5(RBNode, + Black, + t._4._3._1, + t._4._3._2, + A5(RBNode, + Black, + t._1, + t._2, + t._3, + t._4._3._3), + A5(balance, + Black, + t._4._1, + t._4._2, + t._4._3._4, + redden(t._4._4)));} + break;} + return t; + }();} + break;} + break;} + break;} + switch (t._3.ctor) + {case "RBNode": + switch (t._3._0.ctor) + {case "NBlack": + switch (t._3._4.ctor) + {case "RBNode": + switch (t._3._4._0.ctor) + {case "Black": + return function () { + switch (t._3._3.ctor) + {case "RBNode": + switch (t._3._3._0.ctor) + {case "Black": + return A5(RBNode, + Black, + t._3._4._1, + t._3._4._2, + A5(balance, + Black, + t._3._1, + t._3._2, + redden(t._3._3), + t._3._4._3), + A5(RBNode, + Black, + t._1, + t._2, + t._3._4._4, + t._4));} + break;} + return t; + }();} + break;} + break;} + break;} + break;} + break;} + return t; + }() : t; + }(); + }; + var balance = F5(function (c, + k, + v, + l, + r) { + return balance_node(A5(RBNode, + c, + k, + v, + l, + r)); + }); + var bubble = F5(function (c, + k, + v, + l, + r) { + return isBBlack(l) || isBBlack(r) ? A5(balance, + moreBlack(c), + k, + v, + lessBlackTree(l), + lessBlackTree(r)) : A5(RBNode, + c, + k, + v, + l, + r); + }); + var remove_max = F5(function (c, + k, + v, + l, + r) { + return function () { + switch (r.ctor) + {case "RBEmpty": return A3(rem, + c, + l, + r); + case "RBNode": return A5(bubble, + c, + k, + v, + l, + A5(remove_max, + r._0, + r._1, + r._2, + r._3, + r._4));} + _E.Case($moduleName, + "between lines 284 and 287"); + }(); + }); + var rem = F3(function (c,l,r) { + return function () { + var _v183 = {ctor: "_Tuple2" + ,_0: l + ,_1: r}; + switch (_v183.ctor) + {case "_Tuple2": + switch (_v183._0.ctor) + {case "RBEmpty": + switch (_v183._1.ctor) + {case "RBEmpty": + return function () { + switch (c.ctor) + {case "Black": + return RBEmpty(LBBlack); + case "Red": + return RBEmpty(LBlack);} + _E.Case($moduleName, + "between lines 257 and 260"); + }(); + case "RBNode": + return function () { + var _v205 = {ctor: "_Tuple3" + ,_0: c + ,_1: _v183._0._0 + ,_2: _v183._1._0}; + switch (_v205.ctor) + {case "_Tuple3": + switch (_v205._0.ctor) + {case "Black": + switch (_v205._1.ctor) + {case "LBlack": + switch (_v205._2.ctor) + {case "Red": return A5(RBNode, + Black, + _v183._1._1, + _v183._1._2, + _v183._1._3, + _v183._1._4);} + break;} + break;} + break;} + return A4(reportRemBug, + "Black, LBlack, Red", + c, + showLColor(_v183._0._0), + showNColor(_v183._1._0)); + }();} + break; + case "RBNode": + switch (_v183._1.ctor) + {case "RBEmpty": + return function () { + var _v209 = {ctor: "_Tuple3" + ,_0: c + ,_1: _v183._0._0 + ,_2: _v183._1._0}; + switch (_v209.ctor) + {case "_Tuple3": + switch (_v209._0.ctor) + {case "Black": + switch (_v209._1.ctor) + {case "Red": + switch (_v209._2.ctor) + {case "LBlack": + return A5(RBNode, + Black, + _v183._0._1, + _v183._0._2, + _v183._0._3, + _v183._0._4);} + break;} + break;} + break;} + return A4(reportRemBug, + "Black, Red, LBlack", + c, + showNColor(_v183._0._0), + showLColor(_v183._1._0)); + }(); + case "RBNode": + return function () { + var l$ = A5(remove_max, + _v183._0._0, + _v183._0._1, + _v183._0._2, + _v183._0._3, + _v183._0._4); + var r = A5(RBNode, + _v183._1._0, + _v183._1._1, + _v183._1._2, + _v183._1._3, + _v183._1._4); + var l = A5(RBNode, + _v183._0._0, + _v183._0._1, + _v183._0._2, + _v183._0._3, + _v183._0._4); + var $ = max(l), + k = $._0, + v = $._1; + return A5(bubble,c,k,v,l$,r); + }();} + break;} + break;} + _E.Case($moduleName, + "between lines 256 and 274"); + }(); + }); + var update = F3(function (k, + u, + t) { + return function () { + var up = function (t) { + return function () { + switch (t.ctor) + {case "RBEmpty": + switch (t._0.ctor) + {case "LBlack": + return function () { + var _v220 = u(Maybe.Nothing); + switch (_v220.ctor) + {case "Just": + return {ctor: "_Tuple2" + ,_0: Insert + ,_1: A5(RBNode, + Red, + k, + _v220._0, + empty, + empty)}; + case "Nothing": + return {ctor: "_Tuple2" + ,_0: Same + ,_1: empty};} + _E.Case($moduleName, + "between lines 188 and 191"); + }();} + break; + case "RBNode": + return function () { + var _v222 = A2(Native.Utils.compare, + k, + t._1); + switch (_v222.ctor) + {case "EQ": return function () { + var _v223 = u(Maybe.Just(t._2)); + switch (_v223.ctor) + {case "Just": + return {ctor: "_Tuple2" + ,_0: Same + ,_1: A5(RBNode, + t._0, + t._1, + _v223._0, + t._3, + t._4)}; + case "Nothing": + return {ctor: "_Tuple2" + ,_0: Remove + ,_1: A3(rem,t._0,t._3,t._4)};} + _E.Case($moduleName, + "between lines 192 and 195"); + }(); + case "GT": return function () { + var $ = up(t._4), + fl = $._0, + r$ = $._1; + return function () { + switch (fl.ctor) + {case "Insert": + return {ctor: "_Tuple2" + ,_0: Insert + ,_1: A5(balance, + t._0, + t._1, + t._2, + t._3, + r$)}; + case "Remove": + return {ctor: "_Tuple2" + ,_0: Remove + ,_1: A5(bubble, + t._0, + t._1, + t._2, + t._3, + r$)}; + case "Same": + return {ctor: "_Tuple2" + ,_0: Same + ,_1: A5(RBNode, + t._0, + t._1, + t._2, + t._3, + r$)};} + _E.Case($moduleName, + "between lines 201 and 205"); + }(); + }(); + case "LT": return function () { + var $ = up(t._3), + fl = $._0, + l$ = $._1; + return function () { + switch (fl.ctor) + {case "Insert": + return {ctor: "_Tuple2" + ,_0: Insert + ,_1: A5(balance, + t._0, + t._1, + t._2, + l$, + t._4)}; + case "Remove": + return {ctor: "_Tuple2" + ,_0: Remove + ,_1: A5(bubble, + t._0, + t._1, + t._2, + l$, + t._4)}; + case "Same": + return {ctor: "_Tuple2" + ,_0: Same + ,_1: A5(RBNode, + t._0, + t._1, + t._2, + l$, + t._4)};} + _E.Case($moduleName, + "between lines 196 and 200"); + }(); + }();} + _E.Case($moduleName, + "between lines 191 and 205"); + }();} + _E.Case($moduleName, + "between lines 187 and 205"); + }(); + }; + var $ = up(t), + fl = $._0, + t$ = $._1; + return function () { + switch (fl.ctor) + {case "Insert": + return ensureBlackRoot(t$); + case "Remove": + return blacken(t$); + case "Same": return t$;} + _E.Case($moduleName, + "between lines 206 and 211"); + }(); + }(); + }); + var insert = F3(function (k, + v, + t) { + return function () { + var u = function (_v228) { + return function () { + return Maybe.Just(v); + }(); + }; + return A3(update,k,u,t); + }(); + }); + var singleton = F2(function (k, + v) { + return A3(insert, + k, + v, + RBEmpty(LBlack)); + }); + var union = F2(function (t1, + t2) { + return A3(foldl, + insert, + t2, + t1); + }); + var fromList = function (assocs) { + return A3(List.foldl, + F2(function (_v230,d) { + return function () { + switch (_v230.ctor) + {case "_Tuple2": + return A3(insert, + _v230._0, + _v230._1, + d);} + _E.Case($moduleName, + "on line 394, column 43 to 55"); + }(); + }), + empty, + assocs); + }; + var filter = F2(function (p, + dict) { + return function () { + var add = F3(function (k, + v, + t) { + return A2(p,k,v) ? A3(insert, + k, + v, + t) : t; + }); + return A3(foldl,add,empty,dict); + }(); + }); + var intersect = F2(function (t1, + t2) { + return A2(filter, + F2(function (k,_v234) { + return function () { + return A2(member,k,t2); + }(); + }), + t1); + }); + var partition = F2(function (p, + dict) { + return function () { + var add = F3(function (k, + v, + _v236) { + return function () { + switch (_v236.ctor) + {case "_Tuple2": return A2(p, + k, + v) ? {ctor: "_Tuple2" + ,_0: A3(insert,k,v,_v236._0) + ,_1: _v236._1} : {ctor: "_Tuple2" + ,_0: _v236._0 + ,_1: A3(insert,k,v,_v236._1)};} + _E.Case($moduleName, + "between lines 408 and 410"); + }(); + }); + return A3(foldl, + add, + {ctor: "_Tuple2" + ,_0: empty + ,_1: empty}, + dict); + }(); + }); + var remove = F2(function (k,t) { + return function () { + var u = function (_v240) { + return function () { + return Maybe.Nothing; + }(); + }; + return A3(update,k,u,t); + }(); + }); + var diff = F2(function (t1,t2) { + return A3(foldl, + F3(function (k,v,t) { + return A2(remove,k,t); + }), + t1, + t2); + }); + _elm.Dict.values = {_op: _op + ,empty: empty + ,singleton: singleton + ,insert: insert + ,update: update + ,get: get + ,getOrElse: getOrElse + ,getOrFail: getOrFail + ,remove: remove + ,member: member + ,filter: filter + ,partition: partition + ,foldl: foldl + ,foldr: foldr + ,map: map + ,union: union + ,intersect: intersect + ,diff: diff + ,keys: keys + ,values: values + ,toList: toList + ,fromList: fromList}; + return _elm.Dict.values; +};Elm.Either = Elm.Either || {}; +Elm.Either.make = function (_elm) { + "use strict"; + _elm.Either = _elm.Either || {}; + if (_elm.Either.values) + return _elm.Either.values; + var _N = Elm.Native, + _U = _N.Utils.make(_elm), + _L = _N.List.make(_elm), + _E = _N.Error.make(_elm), + $moduleName = "Either"; + var List = Elm.List.make(_elm); + var _op = {}; + var Right = function (a) { + return {ctor: "Right",_0: a}; + }; + var isRight = function (e) { + return function () { + switch (e.ctor) + {case "Right": return true;} + return false; + }(); + }; + var Left = function (a) { + return {ctor: "Left",_0: a}; + }; + var either = F3(function (f, + g, + e) { + return function () { + switch (e.ctor) + {case "Left": return f(e._0); + case "Right": return g(e._0);} + _E.Case($moduleName, + "on line 37, column 16 to 60"); + }(); + }); + var isLeft = function (e) { + return function () { + switch (e.ctor) + {case "Left": return true;} + return false; + }(); + }; + var consLeft = F2(function (e, + vs) { + return function () { + switch (e.ctor) + {case "Left": return {ctor: "::" + ,_0: e._0 + ,_1: vs}; + case "Right": return vs;} + _E.Case($moduleName, + "between lines 78 and 80"); + }(); + }); + var lefts = function (es) { + return A3(List.foldr, + consLeft, + _L.fromArray([]), + es); + }; + var consRight = F2(function (e, + vs) { + return function () { + switch (e.ctor) + {case "Left": return vs; + case "Right": return {ctor: "::" + ,_0: e._0 + ,_1: vs};} + _E.Case($moduleName, + "between lines 83 and 85"); + }(); + }); + var rights = function (es) { + return A3(List.foldr, + consRight, + _L.fromArray([]), + es); + }; + var consEither = F2(function (e, + _v13) { + return function () { + switch (_v13.ctor) + {case "_Tuple2": + return function () { + switch (e.ctor) + {case "Left": + return {ctor: "_Tuple2" + ,_0: {ctor: "::" + ,_0: e._0 + ,_1: _v13._0} + ,_1: _v13._1}; + case "Right": + return {ctor: "_Tuple2" + ,_0: _v13._0 + ,_1: {ctor: "::" + ,_0: e._0 + ,_1: _v13._1}};} + _E.Case($moduleName, + "between lines 88 and 90"); + }();} + _E.Case($moduleName, + "between lines 88 and 90"); + }(); + }); + var partition = function (es) { + return A3(List.foldr, + consEither, + {ctor: "_Tuple2" + ,_0: _L.fromArray([]) + ,_1: _L.fromArray([])}, + es); + }; + _elm.Either.values = {_op: _op + ,either: either + ,isLeft: isLeft + ,isRight: isRight + ,lefts: lefts + ,rights: rights + ,partition: partition + ,consLeft: consLeft + ,consRight: consRight + ,consEither: consEither + ,Left: Left + ,Right: Right}; + return _elm.Either.values; +};Elm.Http = Elm.Http || {}; +Elm.Http.make = function (_elm) { + "use strict"; + _elm.Http = _elm.Http || {}; + if (_elm.Http.values) + return _elm.Http.values; + var _N = Elm.Native, + _U = _N.Utils.make(_elm), + _L = _N.List.make(_elm), + _E = _N.Error.make(_elm), + $moduleName = "Http"; + var Native = Native || {}; + Native.Http = Elm.Native.Http.make(_elm); + var Signal = Elm.Signal.make(_elm); + var _op = {}; + var send = Native.Http.send; + var Request = F4(function (a, + b, + c, + d) { + return {_: {} + ,body: c + ,headers: d + ,url: b + ,verb: a}; + }); + var request = Request; + var get = function (url) { + return A4(Request, + "GET", + url, + "", + _L.fromArray([])); + }; + var sendGet = function (reqs) { + return send(A2(Signal.lift, + get, + reqs)); + }; + var post = F2(function (url, + body) { + return A4(Request, + "POST", + url, + body, + _L.fromArray([])); + }); + var Failure = F2(function (a, + b) { + return {ctor: "Failure" + ,_0: a + ,_1: b}; + }); + var Waiting = {ctor: "Waiting"}; + var Success = function (a) { + return {ctor: "Success" + ,_0: a}; + }; + _elm.Http.values = {_op: _op + ,request: request + ,get: get + ,post: post + ,send: send + ,sendGet: sendGet + ,Success: Success + ,Waiting: Waiting + ,Failure: Failure + ,Request: Request}; + return _elm.Http.values; +};Elm.Json = Elm.Json || {}; +Elm.Json.make = function (_elm) { + "use strict"; + _elm.Json = _elm.Json || {}; + if (_elm.Json.values) + return _elm.Json.values; + var _N = Elm.Native, + _U = _N.Utils.make(_elm), + _L = _N.List.make(_elm), + _E = _N.Error.make(_elm), + $moduleName = "Json"; + var Dict = Elm.Dict.make(_elm); + var Maybe = Elm.Maybe.make(_elm); + var Native = Native || {}; + Native.Json = Elm.Native.Json.make(_elm); + var _op = {}; + var fromString = function (str) { + return Native.Json.fromString(str); + }; + var toString = F2(function (sep, + value) { + return A2(Native.Json.toString, + sep, + value); + }); + var Object = function (a) { + return {ctor: "Object" + ,_0: a}; + }; + var Array = function (a) { + return {ctor: "Array",_0: a}; + }; + var Null = {ctor: "Null"}; + var Boolean = function (a) { + return {ctor: "Boolean" + ,_0: a}; + }; + var Number = function (a) { + return {ctor: "Number" + ,_0: a}; + }; + var String = function (a) { + return {ctor: "String" + ,_0: a}; + }; + _elm.Json.values = {_op: _op + ,toString: toString + ,fromString: fromString + ,String: String + ,Number: Number + ,Boolean: Boolean + ,Null: Null + ,Array: Array + ,Object: Object}; + return _elm.Json.values; +};Elm.Keyboard = Elm.Keyboard || {}; +Elm.Keyboard.make = function (_elm) { + "use strict"; + _elm.Keyboard = _elm.Keyboard || {}; + if (_elm.Keyboard.values) + return _elm.Keyboard.values; + var _N = Elm.Native, + _U = _N.Utils.make(_elm), + _L = _N.List.make(_elm), + _E = _N.Error.make(_elm), + $moduleName = "Keyboard"; + var Native = Native || {}; + Native.Keyboard = Elm.Native.Keyboard.make(_elm); + var Signal = Elm.Signal.make(_elm); + var _op = {}; + var lastPressed = Native.Keyboard.lastPressed; + var keysDown = Native.Keyboard.keysDown; + var isDown = Native.Keyboard.isDown; + var shift = isDown(16); + var ctrl = isDown(17); + var space = isDown(32); + var enter = isDown(13); + var directions = Native.Keyboard.directions; + var arrows = A4(directions, + 38, + 40, + 37, + 39); + var wasd = A4(directions, + 87, + 83, + 65, + 68); + _elm.Keyboard.values = {_op: _op + ,directions: directions + ,arrows: arrows + ,wasd: wasd + ,isDown: isDown + ,shift: shift + ,ctrl: ctrl + ,space: space + ,enter: enter + ,keysDown: keysDown + ,lastPressed: lastPressed}; + return _elm.Keyboard.values; +};Elm.List = Elm.List || {}; +Elm.List.make = function (_elm) { + "use strict"; + _elm.List = _elm.List || {}; + if (_elm.List.values) + return _elm.List.values; + var _N = Elm.Native, + _U = _N.Utils.make(_elm), + _L = _N.List.make(_elm), + _E = _N.Error.make(_elm), + $moduleName = "List"; + var Basics = Elm.Basics.make(_elm); + var Native = Native || {}; + Native.List = Elm.Native.List.make(_elm); + var _op = {}; + var sortWith = Native.List.sortWith; + var sortBy = Native.List.sortBy; + var sort = Native.List.sort; + var repeat = Native.List.repeat; + var drop = Native.List.drop; + var take = Native.List.take; + var join = Native.List.join; + var zipWith = Native.List.zipWith; + var zip = Native.List.zip; + var concat = Native.List.concat; + var any = Native.List.any; + var all = Native.List.all; + var reverse = Native.List.reverse; + var length = Native.List.length; + var filter = Native.List.filter; + var scanl1 = Native.List.scanl1; + var scanl = Native.List.scanl; + var foldr1 = Native.List.foldr1; + var foldl1 = Native.List.foldl1; + var maximum = foldl1(Basics.max); + var minimum = foldl1(Basics.min); + var foldr = Native.List.foldr; + var foldl = Native.List.foldl; + var and = A2(foldl, + F2(function (x,y) { + return x && y; + }), + true); + var or = A2(foldl, + F2(function (x,y) { + return x || y; + }), + false); + var sum = A2(foldl, + F2(function (x,y) { + return x + y; + }), + 0); + var product = A2(foldl, + F2(function (x,y) { + return x * y; + }), + 1); + var map = Native.List.map; + var concatMap = F2(function (f, + list) { + return concat(A2(map, + f, + list)); + }); + var isEmpty = function (xs) { + return function () { + switch (xs.ctor) + {case "[]": return true;} + return false; + }(); + }; + var last = Native.List.last; + var tail = Native.List.tail; + var head = Native.List.head; + _op["++"] = Native.List.append; + _op["::"] = Native.List.cons; + var partition = function (pred) { + return function () { + var step = F2(function (x, + _v1) { + return function () { + switch (_v1.ctor) + {case "_Tuple2": + return pred(x) ? {ctor: "_Tuple2" + ,_0: {ctor: "::" + ,_0: x + ,_1: _v1._0} + ,_1: _v1._1} : {ctor: "_Tuple2" + ,_0: _v1._0 + ,_1: {ctor: "::" + ,_0: x + ,_1: _v1._1}};} + _E.Case($moduleName, + "between lines 175 and 177"); + }(); + }); + return A2(foldr, + step, + {ctor: "_Tuple2" + ,_0: _L.fromArray([]) + ,_1: _L.fromArray([])}); + }(); + }; + var unzip = function () { + var step = F2(function (_v5, + _v6) { + return function () { + switch (_v6.ctor) + {case "_Tuple2": + return function () { + switch (_v5.ctor) + {case "_Tuple2": + return {ctor: "_Tuple2" + ,_0: {ctor: "::" + ,_0: _v5._0 + ,_1: _v6._0} + ,_1: {ctor: "::" + ,_0: _v5._1 + ,_1: _v6._1}};} + _E.Case($moduleName, + "on line 203, column 32 to 44"); + }();} + _E.Case($moduleName, + "on line 203, column 32 to 44"); + }(); + }); + return A2(foldr, + step, + {ctor: "_Tuple2" + ,_0: _L.fromArray([]) + ,_1: _L.fromArray([])}); + }(); + var intersperse = F2(function (sep, + xs) { + return function () { + switch (xs.ctor) + {case "::": return function () { + var step = F2(function (x, + rest) { + return {ctor: "::" + ,_0: sep + ,_1: {ctor: "::" + ,_0: x + ,_1: rest}}; + }); + var spersed = A3(foldr, + step, + _L.fromArray([]), + xs._1); + return {ctor: "::" + ,_0: xs._0 + ,_1: spersed}; + }(); + case "[]": + return _L.fromArray([]);} + _E.Case($moduleName, + "between lines 220 and 227"); + }(); + }); + _elm.List.values = {_op: _op + ,head: head + ,tail: tail + ,last: last + ,isEmpty: isEmpty + ,map: map + ,foldl: foldl + ,foldr: foldr + ,foldl1: foldl1 + ,foldr1: foldr1 + ,scanl: scanl + ,scanl1: scanl1 + ,filter: filter + ,length: length + ,reverse: reverse + ,all: all + ,any: any + ,and: and + ,or: or + ,concat: concat + ,concatMap: concatMap + ,sum: sum + ,product: product + ,maximum: maximum + ,minimum: minimum + ,partition: partition + ,zip: zip + ,zipWith: zipWith + ,unzip: unzip + ,join: join + ,intersperse: intersperse + ,take: take + ,drop: drop + ,repeat: repeat + ,sort: sort + ,sortBy: sortBy + ,sortWith: sortWith}; + return _elm.List.values; +};Elm.Maybe = Elm.Maybe || {}; +Elm.Maybe.make = function (_elm) { + "use strict"; + _elm.Maybe = _elm.Maybe || {}; + if (_elm.Maybe.values) + return _elm.Maybe.values; + var _N = Elm.Native, + _U = _N.Utils.make(_elm), + _L = _N.List.make(_elm), + _E = _N.Error.make(_elm), + $moduleName = "Maybe"; + var Basics = Elm.Basics.make(_elm); + var List = Elm.List.make(_elm); + var _op = {}; + var Nothing = {ctor: "Nothing"}; + var Just = function (a) { + return {ctor: "Just",_0: a}; + }; + var maybe = F3(function (b, + f, + m) { + return function () { + switch (m.ctor) + {case "Just": return f(m._0); + case "Nothing": return b;} + _E.Case($moduleName, + "between lines 35 and 44"); + }(); + }); + var isJust = A2(maybe, + false, + function (_v2) { + return function () { + return true; + }(); + }); + var isNothing = function ($) { + return Basics.not(isJust($)); + }; + var cons = F2(function (mx,xs) { + return A3(maybe, + xs, + function (x) { + return {ctor: "::" + ,_0: x + ,_1: xs}; + }, + mx); + }); + var justs = A2(List.foldr, + cons, + _L.fromArray([])); + _elm.Maybe.values = {_op: _op + ,maybe: maybe + ,isJust: isJust + ,isNothing: isNothing + ,cons: cons + ,justs: justs + ,Just: Just + ,Nothing: Nothing}; + return _elm.Maybe.values; +};Elm.Mouse = Elm.Mouse || {}; +Elm.Mouse.make = function (_elm) { + "use strict"; + _elm.Mouse = _elm.Mouse || {}; + if (_elm.Mouse.values) + return _elm.Mouse.values; + var _N = Elm.Native, + _U = _N.Utils.make(_elm), + _L = _N.List.make(_elm), + _E = _N.Error.make(_elm), + $moduleName = "Mouse"; + var Native = Native || {}; + Native.Mouse = Elm.Native.Mouse.make(_elm); + var Signal = Elm.Signal.make(_elm); + var _op = {}; + var clicks = Native.Mouse.clicks; + var isDown = Native.Mouse.isDown; + var y = Native.Mouse.y; + var x = Native.Mouse.x; + var position = Native.Mouse.position; + _elm.Mouse.values = {_op: _op + ,position: position + ,x: x + ,y: y + ,isDown: isDown + ,clicks: clicks}; + return _elm.Mouse.values; +};Elm.Random = Elm.Random || {}; +Elm.Random.make = function (_elm) { + "use strict"; + _elm.Random = _elm.Random || {}; + if (_elm.Random.values) + return _elm.Random.values; + var _N = Elm.Native, + _U = _N.Utils.make(_elm), + _L = _N.List.make(_elm), + _E = _N.Error.make(_elm), + $moduleName = "Random"; + var Native = Native || {}; + Native.Random = Elm.Native.Random.make(_elm); + var Signal = Elm.Signal.make(_elm); + var _op = {}; + var floatList = Native.Random.floatList; + var $float = Native.Random.float_; + var range = Native.Random.range; + _elm.Random.values = {_op: _op + ,range: range + ,$float: $float + ,floatList: floatList}; + return _elm.Random.values; +};Elm.Regex = Elm.Regex || {}; +Elm.Regex.make = function (_elm) { + "use strict"; + _elm.Regex = _elm.Regex || {}; + if (_elm.Regex.values) + return _elm.Regex.values; + var _N = Elm.Native, + _U = _N.Utils.make(_elm), + _L = _N.List.make(_elm), + _E = _N.Error.make(_elm), + $moduleName = "Regex"; + var Maybe = Elm.Maybe.make(_elm); + var Native = Native || {}; + Native.Regex = Elm.Native.Regex.make(_elm); + var _op = {}; + var split = Native.Regex.split; + var replace = Native.Regex.replace; + var find = Native.Regex.find; + var AtMost = function (a) { + return {ctor: "AtMost" + ,_0: a}; + }; + var All = {ctor: "All"}; + var Match = F4(function (a, + b, + c, + d) { + return {_: {} + ,index: c + ,match: a + ,number: d + ,submatches: b}; + }); + var contains = Native.Regex.contains; + var caseInsensitive = Native.Regex.caseInsensitive; + var regex = Native.Regex.regex; + var escape = Native.Regex.escape; + var Regex = {ctor: "Regex"}; + _elm.Regex.values = {_op: _op + ,escape: escape + ,regex: regex + ,caseInsensitive: caseInsensitive + ,contains: contains + ,find: find + ,replace: replace + ,split: split + ,Regex: Regex + ,All: All + ,AtMost: AtMost + ,Match: Match}; + return _elm.Regex.values; +};Elm.Set = Elm.Set || {}; +Elm.Set.make = function (_elm) { + "use strict"; + _elm.Set = _elm.Set || {}; + if (_elm.Set.values) + return _elm.Set.values; + var _N = Elm.Native, + _U = _N.Utils.make(_elm), + _L = _N.List.make(_elm), + _E = _N.Error.make(_elm), + $moduleName = "Set"; + var Dict = Elm.Dict.make(_elm); + var List = Elm.List.make(_elm); + var Maybe = Elm.Maybe.make(_elm); + var _op = {}; + var partition = F2(function (p, + set) { + return A2(Dict.partition, + F2(function (k,_v0) { + return function () { + return p(k); + }(); + }), + set); + }); + var filter = F2(function (p, + set) { + return A2(Dict.filter, + F2(function (k,_v2) { + return function () { + return p(k); + }(); + }), + set); + }); + var foldr = F3(function (f, + b, + s) { + return A3(Dict.foldr, + F3(function (k,_v4,b) { + return function () { + return A2(f,k,b); + }(); + }), + b, + s); + }); + var foldl = F3(function (f, + b, + s) { + return A3(Dict.foldl, + F3(function (k,_v6,b) { + return function () { + return A2(f,k,b); + }(); + }), + b, + s); + }); + var toList = Dict.keys; + var diff = Dict.diff; + var intersect = Dict.intersect; + var union = Dict.union; + var member = Dict.member; + var remove = Dict.remove; + var insert = function (k) { + return A2(Dict.insert, + k, + {ctor: "_Tuple0"}); + }; + var singleton = function (k) { + return A2(Dict.singleton, + k, + {ctor: "_Tuple0"}); + }; + var empty = Dict.empty; + var fromList = function (xs) { + return A3(List.foldl, + insert, + empty, + xs); + }; + var map = F2(function (f,s) { + return fromList(A2(List.map, + f, + toList(s))); + }); + _elm.Set.values = {_op: _op + ,empty: empty + ,singleton: singleton + ,insert: insert + ,remove: remove + ,member: member + ,foldl: foldl + ,foldr: foldr + ,map: map + ,filter: filter + ,partition: partition + ,union: union + ,intersect: intersect + ,diff: diff + ,toList: toList + ,fromList: fromList}; + return _elm.Set.values; +};Elm.Signal = Elm.Signal || {}; +Elm.Signal.make = function (_elm) { + "use strict"; + _elm.Signal = _elm.Signal || {}; + if (_elm.Signal.values) + return _elm.Signal.values; + var _N = Elm.Native, + _U = _N.Utils.make(_elm), + _L = _N.List.make(_elm), + _E = _N.Error.make(_elm), + $moduleName = "Signal"; + var Basics = Elm.Basics.make(_elm); + var List = Elm.List.make(_elm); + var Native = Native || {}; + Native.Signal = Elm.Native.Signal.make(_elm); + var _op = {}; + _op["~"] = F2(function (sf,s) { + return A3(Native.Signal.lift2, + F2(function (f,x) { + return f(x); + }), + sf, + s); + }); + _op["<~"] = F2(function (f,s) { + return A2(Native.Signal.lift, + f, + s); + }); + var sampleOn = Native.Signal.sampleOn; + var dropRepeats = Native.Signal.dropRepeats; + var dropIf = Native.Signal.dropIf; + var keepIf = Native.Signal.keepIf; + var keepWhen = F3(function (bs, + def, + sig) { + return A2(_op["<~"], + Basics.snd, + A3(keepIf, + Basics.fst, + {ctor: "_Tuple2" + ,_0: false + ,_1: def}, + A2(_op["~"], + A2(_op["<~"], + F2(function (v0,v1) { + return {ctor: "_Tuple2" + ,_0: v0 + ,_1: v1}; + }), + A2(sampleOn,sig,bs)), + sig))); + }); + var dropWhen = function (bs) { + return keepWhen(A2(_op["<~"], + Basics.not, + bs)); + }; + var countIf = Native.Signal.countIf; + var count = Native.Signal.count; + var combine = A2(List.foldr, + Native.Signal.lift2(F2(function (x, + y) { + return {ctor: "::" + ,_0: x + ,_1: y}; + })), + Native.Signal.constant(_L.fromArray([]))); + var merges = Native.Signal.merges; + var merge = Native.Signal.merge; + var foldp = Native.Signal.foldp; + var lift8 = Native.Signal.lift8; + var lift7 = Native.Signal.lift7; + var lift6 = Native.Signal.lift6; + var lift5 = Native.Signal.lift5; + var lift4 = Native.Signal.lift4; + var lift3 = Native.Signal.lift3; + var lift2 = Native.Signal.lift2; + var lift = Native.Signal.lift; + var constant = Native.Signal.constant; + var Signal = {ctor: "Signal"}; + _elm.Signal.values = {_op: _op + ,constant: constant + ,lift: lift + ,lift2: lift2 + ,lift3: lift3 + ,lift4: lift4 + ,lift5: lift5 + ,lift6: lift6 + ,lift7: lift7 + ,lift8: lift8 + ,foldp: foldp + ,merge: merge + ,merges: merges + ,combine: combine + ,count: count + ,countIf: countIf + ,keepIf: keepIf + ,dropIf: dropIf + ,keepWhen: keepWhen + ,dropWhen: dropWhen + ,dropRepeats: dropRepeats + ,sampleOn: sampleOn + ,Signal: Signal}; + return _elm.Signal.values; +};Elm.String = Elm.String || {}; +Elm.String.make = function (_elm) { + "use strict"; + _elm.String = _elm.String || {}; + if (_elm.String.values) + return _elm.String.values; + var _N = Elm.Native, + _U = _N.Utils.make(_elm), + _L = _N.List.make(_elm), + _E = _N.Error.make(_elm), + $moduleName = "String"; + var Maybe = Elm.Maybe.make(_elm); + var Native = Native || {}; + Native.Show = Elm.Native.Show.make(_elm); + var Native = Native || {}; + Native.String = Elm.Native.String.make(_elm); + var _op = {}; + var fromList = Native.String.fromList; + var toList = Native.String.toList; + var toFloat = Native.String.toFloat; + var toInt = Native.String.toInt; + var show = Native.Show.show; + var indices = Native.String.indexes; + var indexes = Native.String.indexes; + var endsWith = Native.String.endsWith; + var startsWith = Native.String.startsWith; + var contains = Native.String.contains; + var all = Native.String.all; + var any = Native.String.any; + var toLower = Native.String.toLower; + var toUpper = Native.String.toUpper; + var lines = Native.String.lines; + var words = Native.String.words; + var trimRight = Native.String.trimRight; + var trimLeft = Native.String.trimLeft; + var trim = Native.String.trim; + var padRight = Native.String.padRight; + var padLeft = Native.String.padLeft; + var pad = Native.String.pad; + var dropRight = Native.String.dropRight; + var dropLeft = Native.String.dropLeft; + var right = Native.String.right; + var left = Native.String.left; + var slice = Native.String.slice; + var repeat = Native.String.repeat; + var join = Native.String.join; + var split = Native.String.split; + var foldr = Native.String.foldr; + var foldl = Native.String.foldl; + var reverse = Native.String.reverse; + var filter = Native.String.filter; + var map = Native.String.map; + var length = Native.String.length; + var concat = Native.String.concat; + var append = Native.String.append; + var uncons = Native.String.uncons; + var cons = Native.String.cons; + var isEmpty = Native.String.isEmpty; + _elm.String.values = {_op: _op + ,isEmpty: isEmpty + ,cons: cons + ,uncons: uncons + ,append: append + ,concat: concat + ,length: length + ,map: map + ,filter: filter + ,reverse: reverse + ,foldl: foldl + ,foldr: foldr + ,split: split + ,join: join + ,repeat: repeat + ,slice: slice + ,left: left + ,right: right + ,dropLeft: dropLeft + ,dropRight: dropRight + ,pad: pad + ,padLeft: padLeft + ,padRight: padRight + ,trim: trim + ,trimLeft: trimLeft + ,trimRight: trimRight + ,words: words + ,lines: lines + ,toUpper: toUpper + ,toLower: toLower + ,any: any + ,all: all + ,contains: contains + ,startsWith: startsWith + ,endsWith: endsWith + ,indexes: indexes + ,indices: indices + ,show: show + ,toInt: toInt + ,toFloat: toFloat + ,toList: toList + ,fromList: fromList}; + return _elm.String.values; +};Elm.Text = Elm.Text || {}; +Elm.Text.make = function (_elm) { + "use strict"; + _elm.Text = _elm.Text || {}; + if (_elm.Text.values) + return _elm.Text.values; + var _N = Elm.Native, + _U = _N.Utils.make(_elm), + _L = _N.List.make(_elm), + _E = _N.Error.make(_elm), + $moduleName = "Text"; + var Basics = Elm.Basics.make(_elm); + var Color = Elm.Color.make(_elm); + var Graphics = Graphics || {}; + Graphics.Element = Elm.Graphics.Element.make(_elm); + var Maybe = Elm.Maybe.make(_elm); + var Native = Native || {}; + Native.Show = Elm.Native.Show.make(_elm); + var Native = Native || {}; + Native.Text = Elm.Native.Text.make(_elm); + var String = Elm.String.make(_elm); + var _op = {}; + var markdown = Native.Text.markdown; + var justified = Native.Text.justified; + var centered = Native.Text.centered; + var rightAligned = Native.Text.rightAligned; + var leftAligned = Native.Text.leftAligned; + var line = Native.Text.line; + var italic = Native.Text.italic; + var bold = Native.Text.bold; + var color = Native.Text.color; + var height = Native.Text.height; + var link = Native.Text.link; + var monospace = Native.Text.monospace; + var typeface = Native.Text.typeface; + var style = Native.Text.style; + var toText = Native.Text.toText; + var plainText = function (str) { + return leftAligned(toText(str)); + }; + var asText = function (value) { + return leftAligned(monospace(toText(Native.Show.show(value)))); + }; + var defaultStyle = {_: {} + ,bold: false + ,color: Color.black + ,height: Maybe.Nothing + ,italic: false + ,line: Maybe.Nothing + ,typeface: _L.fromArray([])}; + var Style = F6(function (a, + b, + c, + d, + e, + f) { + return {_: {} + ,bold: d + ,color: c + ,height: b + ,italic: e + ,line: f + ,typeface: a}; + }); + var Through = {ctor: "Through"}; + var Over = {ctor: "Over"}; + var Under = {ctor: "Under"}; + var Text = {ctor: "Text"}; + _elm.Text.values = {_op: _op + ,defaultStyle: defaultStyle + ,toText: toText + ,style: style + ,typeface: typeface + ,monospace: monospace + ,link: link + ,height: height + ,color: color + ,bold: bold + ,italic: italic + ,line: line + ,leftAligned: leftAligned + ,rightAligned: rightAligned + ,centered: centered + ,justified: justified + ,plainText: plainText + ,markdown: markdown + ,asText: asText + ,Text: Text + ,Under: Under + ,Over: Over + ,Through: Through + ,Style: Style}; + return _elm.Text.values; +};Elm.Time = Elm.Time || {}; +Elm.Time.make = function (_elm) { + "use strict"; + _elm.Time = _elm.Time || {}; + if (_elm.Time.values) + return _elm.Time.values; + var _N = Elm.Native, + _U = _N.Utils.make(_elm), + _L = _N.List.make(_elm), + _E = _N.Error.make(_elm), + $moduleName = "Time"; + var Basics = Elm.Basics.make(_elm); + var Native = Native || {}; + Native.Time = Elm.Native.Time.make(_elm); + var Signal = Elm.Signal.make(_elm); + var _op = {}; + var delay = Native.Time.delay; + var timestamp = Native.Time.timestamp; + var since = Native.Time.since; + var every = Native.Time.every; + var fpsWhen = Native.Time.fpsWhen; + var fps = Native.Time.fps; + var inMilliseconds = function (t) { + return t; + }; + var millisecond = 1; + var second = 1000 * millisecond; + var minute = 60 * second; + var hour = 60 * minute; + var inHours = function (t) { + return t / hour; + }; + var inMinutes = function (t) { + return t / minute; + }; + var inSeconds = function (t) { + return t / second; + }; + _elm.Time.values = {_op: _op + ,millisecond: millisecond + ,second: second + ,minute: minute + ,hour: hour + ,inMilliseconds: inMilliseconds + ,inSeconds: inSeconds + ,inMinutes: inMinutes + ,inHours: inHours + ,fps: fps + ,fpsWhen: fpsWhen + ,every: every + ,since: since + ,timestamp: timestamp + ,delay: delay}; + return _elm.Time.values; +};Elm.Touch = Elm.Touch || {}; +Elm.Touch.make = function (_elm) { + "use strict"; + _elm.Touch = _elm.Touch || {}; + if (_elm.Touch.values) + return _elm.Touch.values; + var _N = Elm.Native, + _U = _N.Utils.make(_elm), + _L = _N.List.make(_elm), + _E = _N.Error.make(_elm), + $moduleName = "Touch"; + var Native = Native || {}; + Native.Touch = Elm.Native.Touch.make(_elm); + var Signal = Elm.Signal.make(_elm); + var Time = Elm.Time.make(_elm); + var _op = {}; + var taps = Native.Touch.taps; + var touches = Native.Touch.touches; + var Touch = F6(function (a, + b, + c, + d, + e, + f) { + return {_: {} + ,id: c + ,t0: f + ,x: a + ,x0: d + ,y: b + ,y0: e}; + }); + _elm.Touch.values = {_op: _op + ,touches: touches + ,taps: taps + ,Touch: Touch}; + return _elm.Touch.values; +};Elm.Trampoline = Elm.Trampoline || {}; +Elm.Trampoline.make = function (_elm) { + "use strict"; + _elm.Trampoline = _elm.Trampoline || {}; + if (_elm.Trampoline.values) + return _elm.Trampoline.values; + var _N = Elm.Native, + _U = _N.Utils.make(_elm), + _L = _N.List.make(_elm), + _E = _N.Error.make(_elm), + $moduleName = "Trampoline"; + var Native = Native || {}; + Native.Trampoline = Elm.Native.Trampoline.make(_elm); + var _op = {}; + var trampoline = Native.Trampoline.trampoline; + var Continue = function (a) { + return {ctor: "Continue" + ,_0: a}; + }; + var Done = function (a) { + return {ctor: "Done",_0: a}; + }; + _elm.Trampoline.values = {_op: _op + ,trampoline: trampoline + ,Done: Done + ,Continue: Continue}; + return _elm.Trampoline.values; +};Elm.Transform2D = Elm.Transform2D || {}; +Elm.Transform2D.make = function (_elm) { + "use strict"; + _elm.Transform2D = _elm.Transform2D || {}; + if (_elm.Transform2D.values) + return _elm.Transform2D.values; + var _N = Elm.Native, + _U = _N.Utils.make(_elm), + _L = _N.List.make(_elm), + _E = _N.Error.make(_elm), + $moduleName = "Transform2D"; + var Native = Native || {}; + Native.Transform2D = Elm.Native.Transform2D.make(_elm); + var _op = {}; + var multiply = Native.Transform2D.multiply; + var rotation = Native.Transform2D.rotation; + var matrix = Native.Transform2D.matrix; + var translation = F2(function (x, + y) { + return A6(matrix, + 1, + 0, + 0, + 1, + x, + y); + }); + var scale = function (s) { + return A6(matrix, + s, + 0, + 0, + s, + 0, + 0); + }; + var scaleX = function (x) { + return A6(matrix, + x, + 0, + 0, + 1, + 0, + 0); + }; + var scaleY = function (y) { + return A6(matrix, + 1, + 0, + 0, + y, + 0, + 0); + }; + var identity = Native.Transform2D.identity; + var Transform2D = {ctor: "Transform2D"}; + _elm.Transform2D.values = {_op: _op + ,identity: identity + ,matrix: matrix + ,rotation: rotation + ,translation: translation + ,scale: scale + ,scaleX: scaleX + ,scaleY: scaleY + ,multiply: multiply + ,Transform2D: Transform2D}; + return _elm.Transform2D.values; +};Elm.WebSocket = Elm.WebSocket || {}; +Elm.WebSocket.make = function (_elm) { + "use strict"; + _elm.WebSocket = _elm.WebSocket || {}; + if (_elm.WebSocket.values) + return _elm.WebSocket.values; + var _N = Elm.Native, + _U = _N.Utils.make(_elm), + _L = _N.List.make(_elm), + _E = _N.Error.make(_elm), + $moduleName = "WebSocket"; + var Basics = Elm.Basics.make(_elm); + var Native = Native || {}; + Native.WebSocket = Elm.Native.WebSocket.make(_elm); + var Signal = Elm.Signal.make(_elm); + var _op = {}; + var connect = Native.WebSocket.connect; + _elm.WebSocket.values = {_op: _op + ,connect: connect}; + return _elm.WebSocket.values; +};Elm.Window = Elm.Window || {}; +Elm.Window.make = function (_elm) { + "use strict"; + _elm.Window = _elm.Window || {}; + if (_elm.Window.values) + return _elm.Window.values; + var _N = Elm.Native, + _U = _N.Utils.make(_elm), + _L = _N.List.make(_elm), + _E = _N.Error.make(_elm), + $moduleName = "Window"; + var Native = Native || {}; + Native.Window = Elm.Native.Window.make(_elm); + var Signal = Elm.Signal.make(_elm); + var _op = {}; + var height = Native.Window.height; + var width = Native.Window.width; + var dimensions = Native.Window.dimensions; + _elm.Window.values = {_op: _op + ,dimensions: dimensions + ,width: width + ,height: height}; + return _elm.Window.values; +};Elm.Graphics = Elm.Graphics || {}; +Elm.Graphics.Collage = Elm.Graphics.Collage || {}; +Elm.Graphics.Collage.make = function (_elm) { + "use strict"; + _elm.Graphics = _elm.Graphics || {}; + _elm.Graphics.Collage = _elm.Graphics.Collage || {}; + if (_elm.Graphics.Collage.values) + return _elm.Graphics.Collage.values; + var _N = Elm.Native, + _U = _N.Utils.make(_elm), + _L = _N.List.make(_elm), + _E = _N.Error.make(_elm), + $moduleName = "Graphics.Collage"; + var Basics = Elm.Basics.make(_elm); + var Color = Elm.Color.make(_elm); + var Either = Elm.Either.make(_elm); + var Graphics = Graphics || {}; + Graphics.Element = Elm.Graphics.Element.make(_elm); + var List = Elm.List.make(_elm); + var Maybe = Elm.Maybe.make(_elm); + var Native = Native || {}; + Native.Graphics = Native.Graphics || {}; + Native.Graphics.Collage = Elm.Native.Graphics.Collage.make(_elm); + var Transform2D = Elm.Transform2D.make(_elm); + var _op = {}; + var ngon = F2(function (n,r) { + return function () { + var m = Basics.toFloat(n); + var t = 2 * Basics.pi / m; + var f = function (i) { + return {ctor: "_Tuple2" + ,_0: r * Basics.cos(t * i) + ,_1: r * Basics.sin(t * i)}; + }; + return A2(List.map, + f, + _L.range(0,m - 1)); + }(); + }); + var oval = F2(function (w,h) { + return function () { + var hh = h / 2; + var hw = w / 2; + var n = 50; + var t = 2 * Basics.pi / n; + var f = function (i) { + return {ctor: "_Tuple2" + ,_0: hw * Basics.cos(t * i) + ,_1: hh * Basics.sin(t * i)}; + }; + return A2(List.map, + f, + _L.range(0,n - 1)); + }(); + }); + var circle = function (r) { + return A2(oval,2 * r,2 * r); + }; + var rect = F2(function (w,h) { + return function () { + var hh = h / 2; + var hw = w / 2; + return _L.fromArray([{ctor: "_Tuple2" + ,_0: 0 - hw + ,_1: 0 - hh} + ,{ctor: "_Tuple2" + ,_0: 0 - hw + ,_1: hh} + ,{ctor: "_Tuple2",_0: hw,_1: hh} + ,{ctor: "_Tuple2" + ,_0: hw + ,_1: 0 - hh}]); + }(); + }); + var square = function (n) { + return A2(rect,n,n); + }; + var polygon = function (points) { + return points; + }; + var segment = F2(function (p1, + p2) { + return _L.fromArray([p1,p2]); + }); + var path = function (ps) { + return ps; + }; + var collage = Native.Graphics.Collage.collage; + var alpha = F2(function (a,f) { + return _U.replace([["alpha" + ,a]], + f); + }); + var rotate = F2(function (t,f) { + return _U.replace([["theta" + ,f.theta + t]], + f); + }); + var scale = F2(function (s,f) { + return _U.replace([["scale" + ,f.scale * s]], + f); + }); + var moveY = F2(function (y,f) { + return _U.replace([["y" + ,f.y + y]], + f); + }); + var moveX = F2(function (x,f) { + return _U.replace([["x" + ,f.x + x]], + f); + }); + var move = F2(function (_v0,f) { + return function () { + switch (_v0.ctor) + {case "_Tuple2": + return _U.replace([["x" + ,f.x + _v0._0] + ,["y",f.y + _v0._1]], + f);} + _E.Case($moduleName, + "on line 169, column 20 to 48"); + }(); + }); + var form = function (f) { + return {_: {} + ,alpha: 1 + ,form: f + ,scale: 1 + ,theta: 0 + ,x: 0 + ,y: 0}; + }; + var FGroup = F2(function (a,b) { + return {ctor: "FGroup" + ,_0: a + ,_1: b}; + }); + var group = function (fs) { + return form(A2(FGroup, + Transform2D.identity, + fs)); + }; + var groupTransform = F2(function (matrix, + fs) { + return form(A2(FGroup, + matrix, + fs)); + }); + var FElement = function (a) { + return {ctor: "FElement" + ,_0: a}; + }; + var toForm = function (e) { + return form(FElement(e)); + }; + var FImage = F4(function (a, + b, + c, + d) { + return {ctor: "FImage" + ,_0: a + ,_1: b + ,_2: c + ,_3: d}; + }); + var sprite = F4(function (w, + h, + pos, + src) { + return form(A4(FImage, + w, + h, + pos, + src)); + }); + var FShape = F2(function (a,b) { + return {ctor: "FShape" + ,_0: a + ,_1: b}; + }); + var fill = F2(function (style, + shape) { + return form(A2(FShape, + Either.Right(style), + shape)); + }); + var outlined = F2(function (style, + shape) { + return form(A2(FShape, + Either.Left(style), + shape)); + }); + var FPath = F2(function (a,b) { + return {ctor: "FPath" + ,_0: a + ,_1: b}; + }); + var traced = F2(function (style, + path) { + return form(A2(FPath, + style, + path)); + }); + var LineStyle = F6(function (a, + b, + c, + d, + e, + f) { + return {_: {} + ,cap: c + ,color: a + ,dashOffset: f + ,dashing: e + ,join: d + ,width: b}; + }); + var Clipped = {ctor: "Clipped"}; + var Sharp = function (a) { + return {ctor: "Sharp",_0: a}; + }; + var Smooth = {ctor: "Smooth"}; + var Padded = {ctor: "Padded"}; + var Round = {ctor: "Round"}; + var Flat = {ctor: "Flat"}; + var defaultLine = {_: {} + ,cap: Flat + ,color: Color.black + ,dashOffset: 0 + ,dashing: _L.fromArray([]) + ,join: Sharp(10) + ,width: 1}; + var solid = function (clr) { + return _U.replace([["color" + ,clr]], + defaultLine); + }; + var dashed = function (clr) { + return _U.replace([["color" + ,clr] + ,["dashing" + ,_L.fromArray([8,4])]], + defaultLine); + }; + var dotted = function (clr) { + return _U.replace([["color" + ,clr] + ,["dashing" + ,_L.fromArray([3,3])]], + defaultLine); + }; + var Grad = function (a) { + return {ctor: "Grad",_0: a}; + }; + var gradient = F2(function (grad, + shape) { + return A2(fill, + Grad(grad), + shape); + }); + var Texture = function (a) { + return {ctor: "Texture" + ,_0: a}; + }; + var textured = F2(function (src, + shape) { + return A2(fill, + Texture(src), + shape); + }); + var Solid = function (a) { + return {ctor: "Solid",_0: a}; + }; + var filled = F2(function (color, + shape) { + return A2(fill, + Solid(color), + shape); + }); + var Form = F6(function (a, + b, + c, + d, + e, + f) { + return {_: {} + ,alpha: e + ,form: f + ,scale: b + ,theta: a + ,x: c + ,y: d}; + }); + _elm.Graphics.Collage.values = {_op: _op + ,defaultLine: defaultLine + ,solid: solid + ,dashed: dashed + ,dotted: dotted + ,form: form + ,fill: fill + ,filled: filled + ,textured: textured + ,gradient: gradient + ,outlined: outlined + ,traced: traced + ,sprite: sprite + ,toForm: toForm + ,group: group + ,groupTransform: groupTransform + ,move: move + ,moveX: moveX + ,moveY: moveY + ,scale: scale + ,rotate: rotate + ,alpha: alpha + ,collage: collage + ,path: path + ,segment: segment + ,polygon: polygon + ,rect: rect + ,square: square + ,oval: oval + ,circle: circle + ,ngon: ngon + ,Solid: Solid + ,Texture: Texture + ,Grad: Grad + ,Flat: Flat + ,Round: Round + ,Padded: Padded + ,Smooth: Smooth + ,Sharp: Sharp + ,Clipped: Clipped + ,FPath: FPath + ,FShape: FShape + ,FImage: FImage + ,FElement: FElement + ,FGroup: FGroup + ,Form: Form + ,LineStyle: LineStyle}; + return _elm.Graphics.Collage.values; +};Elm.Graphics = Elm.Graphics || {}; +Elm.Graphics.Element = Elm.Graphics.Element || {}; +Elm.Graphics.Element.make = function (_elm) { + "use strict"; + _elm.Graphics = _elm.Graphics || {}; + _elm.Graphics.Element = _elm.Graphics.Element || {}; + if (_elm.Graphics.Element.values) + return _elm.Graphics.Element.values; + var _N = Elm.Native, + _U = _N.Utils.make(_elm), + _L = _N.List.make(_elm), + _E = _N.Error.make(_elm), + $moduleName = "Graphics.Element"; + var Basics = Elm.Basics.make(_elm); + var Color = Elm.Color.make(_elm); + var List = Elm.List.make(_elm); + var Maybe = Elm.Maybe.make(_elm); + var Native = Native || {}; + Native.Utils = Elm.Native.Utils.make(_elm); + var _op = {}; + var DOut = {ctor: "DOut"}; + var outward = DOut; + var DIn = {ctor: "DIn"}; + var inward = DIn; + var DRight = {ctor: "DRight"}; + var right = DRight; + var DLeft = {ctor: "DLeft"}; + var left = DLeft; + var DDown = {ctor: "DDown"}; + var down = DDown; + var DUp = {ctor: "DUp"}; + var up = DUp; + var Position = F4(function (a, + b, + c, + d) { + return {_: {} + ,horizontal: a + ,vertical: b + ,x: c + ,y: d}; + }); + var Relative = function (a) { + return {ctor: "Relative" + ,_0: a}; + }; + var relative = Relative; + var Absolute = function (a) { + return {ctor: "Absolute" + ,_0: a}; + }; + var absolute = Absolute; + var N = {ctor: "N"}; + var bottomLeftAt = F2(function (x, + y) { + return {_: {} + ,horizontal: N + ,vertical: N + ,x: x + ,y: y}; + }); + var Z = {ctor: "Z"}; + var middle = {_: {} + ,horizontal: Z + ,vertical: Z + ,x: Relative(0.5) + ,y: Relative(0.5)}; + var midLeft = _U.replace([["horizontal" + ,N] + ,["x",Absolute(0)]], + middle); + var middleAt = F2(function (x, + y) { + return {_: {} + ,horizontal: Z + ,vertical: Z + ,x: x + ,y: y}; + }); + var midLeftAt = F2(function (x, + y) { + return {_: {} + ,horizontal: N + ,vertical: Z + ,x: x + ,y: y}; + }); + var midBottomAt = F2(function (x, + y) { + return {_: {} + ,horizontal: Z + ,vertical: N + ,x: x + ,y: y}; + }); + var P = {ctor: "P"}; + var topLeft = {_: {} + ,horizontal: N + ,vertical: P + ,x: Absolute(0) + ,y: Absolute(0)}; + var bottomLeft = _U.replace([["vertical" + ,N]], + topLeft); + var topRight = _U.replace([["horizontal" + ,P]], + topLeft); + var bottomRight = _U.replace([["horizontal" + ,P]], + bottomLeft); + var midRight = _U.replace([["horizontal" + ,P]], + midLeft); + var midTop = _U.replace([["vertical" + ,P] + ,["y",Absolute(0)]], + middle); + var midBottom = _U.replace([["vertical" + ,N]], + midTop); + var topLeftAt = F2(function (x, + y) { + return {_: {} + ,horizontal: N + ,vertical: P + ,x: x + ,y: y}; + }); + var topRightAt = F2(function (x, + y) { + return {_: {} + ,horizontal: P + ,vertical: P + ,x: x + ,y: y}; + }); + var bottomRightAt = F2(function (x, + y) { + return {_: {} + ,horizontal: P + ,vertical: N + ,x: x + ,y: y}; + }); + var midRightAt = F2(function (x, + y) { + return {_: {} + ,horizontal: P + ,vertical: Z + ,x: x + ,y: y}; + }); + var midTopAt = F2(function (x, + y) { + return {_: {} + ,horizontal: Z + ,vertical: P + ,x: x + ,y: y}; + }); + var Tiled = {ctor: "Tiled"}; + var Cropped = function (a) { + return {ctor: "Cropped" + ,_0: a}; + }; + var Fitted = {ctor: "Fitted"}; + var Plain = {ctor: "Plain"}; + var Custom = {ctor: "Custom"}; + var RawHtml = {ctor: "RawHtml"}; + var Spacer = {ctor: "Spacer"}; + var Flow = F2(function (a,b) { + return {ctor: "Flow" + ,_0: a + ,_1: b}; + }); + var Container = F2(function (a, + b) { + return {ctor: "Container" + ,_0: a + ,_1: b}; + }); + var Image = F4(function (a, + b, + c, + d) { + return {ctor: "Image" + ,_0: a + ,_1: b + ,_2: c + ,_3: d}; + }); + var link = F2(function (href, + e) { + return function () { + var p = e.props; + return {_: {} + ,element: e.element + ,props: _U.replace([["href" + ,href]], + p)}; + }(); + }); + var tag = F2(function (name,e) { + return function () { + var p = e.props; + return {_: {} + ,element: e.element + ,props: _U.replace([["tag" + ,name]], + p)}; + }(); + }); + var color = F2(function (c,e) { + return function () { + var p = e.props; + return {_: {} + ,element: e.element + ,props: _U.replace([["color" + ,Maybe.Just(c)]], + p)}; + }(); + }); + var opacity = F2(function (o, + e) { + return function () { + var p = e.props; + return {_: {} + ,element: e.element + ,props: _U.replace([["opacity" + ,o]], + p)}; + }(); + }); + var height = F2(function (nh, + e) { + return function () { + var p = e.props; + var props = function () { + var _v0 = e.element; + switch (_v0.ctor) + {case "Image": + return _U.replace([["width" + ,Basics.round(Basics.toFloat(_v0._1) / Basics.toFloat(_v0._2) * Basics.toFloat(nh))]], + p);} + return p; + }(); + return {_: {} + ,element: e.element + ,props: _U.replace([["height" + ,nh]], + p)}; + }(); + }); + var width = F2(function (nw,e) { + return function () { + var p = e.props; + var props = function () { + var _v5 = e.element; + switch (_v5.ctor) + {case "Image": + return _U.replace([["height" + ,Basics.round(Basics.toFloat(_v5._2) / Basics.toFloat(_v5._1) * Basics.toFloat(nw))]], + p); + case "RawHtml": + return _U.replace([["height" + ,Basics.snd(A2(Native.Utils.htmlHeight, + nw, + e.element))]], + p);} + return p; + }(); + return {_: {} + ,element: e.element + ,props: _U.replace([["width" + ,nw]], + props)}; + }(); + }); + var size = F3(function (w,h,e) { + return A2(height, + h, + A2(width,w,e)); + }); + var sizeOf = function (e) { + return {ctor: "_Tuple2" + ,_0: e.props.width + ,_1: e.props.height}; + }; + var heightOf = function (e) { + return e.props.height; + }; + var widthOf = function (e) { + return e.props.width; + }; + var Element = F2(function (a, + b) { + return {_: {} + ,element: b + ,props: a}; + }); + var Properties = F9(function (a, + b, + c, + d, + e, + f, + g, + h, + i) { + return {_: {} + ,click: i + ,color: e + ,height: c + ,hover: h + ,href: f + ,id: a + ,opacity: d + ,tag: g + ,width: b}; + }); + var newElement = F3(function (w, + h, + e) { + return {_: {} + ,element: e + ,props: A9(Properties, + Native.Utils.guid({ctor: "_Tuple0"}), + w, + h, + 1, + Maybe.Nothing, + "", + "", + {ctor: "_Tuple0"}, + {ctor: "_Tuple0"})}; + }); + var image = F3(function (w, + h, + src) { + return A3(newElement, + w, + h, + A4(Image,Plain,w,h,src)); + }); + var fittedImage = F3(function (w, + h, + src) { + return A3(newElement, + w, + h, + A4(Image,Fitted,w,h,src)); + }); + var croppedImage = F4(function (pos, + w, + h, + src) { + return A3(newElement, + w, + h, + A4(Image,Cropped(pos),w,h,src)); + }); + var tiledImage = F3(function (w, + h, + src) { + return A3(newElement, + w, + h, + A4(Image,Tiled,w,h,src)); + }); + var container = F4(function (w, + h, + pos, + e) { + return A3(newElement, + w, + h, + A2(Container,pos,e)); + }); + var spacer = F2(function (w,h) { + return A3(newElement, + w, + h, + Spacer); + }); + var empty = A2(spacer,0,0); + var flow = F2(function (dir, + es) { + return function () { + var newFlow = F2(function (w, + h) { + return A3(newElement, + w, + h, + A2(Flow,dir,es)); + }); + var hs = A2(List.map, + heightOf, + es); + var ws = A2(List.map, + widthOf, + es); + return _U.eq(es, + _L.fromArray([])) ? empty : function () { + switch (dir.ctor) + {case "DDown": + return A2(newFlow, + List.maximum(ws), + List.sum(hs)); + case "DIn": return A2(newFlow, + List.maximum(ws), + List.maximum(hs)); + case "DLeft": return A2(newFlow, + List.sum(ws), + List.maximum(hs)); + case "DOut": return A2(newFlow, + List.maximum(ws), + List.maximum(hs)); + case "DRight": + return A2(newFlow, + List.sum(ws), + List.maximum(hs)); + case "DUp": return A2(newFlow, + List.maximum(ws), + List.sum(hs));} + _E.Case($moduleName, + "between lines 206 and 216"); + }(); + }(); + }); + var above = F2(function (hi, + lo) { + return A3(newElement, + A2(Basics.max, + widthOf(hi), + widthOf(lo)), + heightOf(hi) + heightOf(lo), + A2(Flow, + DDown, + _L.fromArray([hi,lo]))); + }); + var below = F2(function (lo, + hi) { + return A3(newElement, + A2(Basics.max, + widthOf(hi), + widthOf(lo)), + heightOf(hi) + heightOf(lo), + A2(Flow, + DDown, + _L.fromArray([hi,lo]))); + }); + var beside = F2(function (lft, + rht) { + return A3(newElement, + widthOf(lft) + widthOf(rht), + A2(Basics.max, + heightOf(lft), + heightOf(rht)), + A2(Flow, + right, + _L.fromArray([lft,rht]))); + }); + var layers = function (es) { + return function () { + var hs = A2(List.map, + heightOf, + es); + var ws = A2(List.map, + widthOf, + es); + return A3(newElement, + List.maximum(ws), + List.maximum(hs), + A2(Flow,DOut,es)); + }(); + }; + _elm.Graphics.Element.values = {_op: _op + ,empty: empty + ,widthOf: widthOf + ,heightOf: heightOf + ,sizeOf: sizeOf + ,width: width + ,height: height + ,size: size + ,opacity: opacity + ,color: color + ,tag: tag + ,link: link + ,newElement: newElement + ,image: image + ,fittedImage: fittedImage + ,croppedImage: croppedImage + ,tiledImage: tiledImage + ,container: container + ,spacer: spacer + ,flow: flow + ,above: above + ,below: below + ,beside: beside + ,layers: layers + ,absolute: absolute + ,relative: relative + ,middle: middle + ,topLeft: topLeft + ,topRight: topRight + ,bottomLeft: bottomLeft + ,bottomRight: bottomRight + ,midLeft: midLeft + ,midRight: midRight + ,midTop: midTop + ,midBottom: midBottom + ,middleAt: middleAt + ,topLeftAt: topLeftAt + ,topRightAt: topRightAt + ,bottomLeftAt: bottomLeftAt + ,bottomRightAt: bottomRightAt + ,midLeftAt: midLeftAt + ,midRightAt: midRightAt + ,midTopAt: midTopAt + ,midBottomAt: midBottomAt + ,up: up + ,down: down + ,left: left + ,right: right + ,inward: inward + ,outward: outward + ,Image: Image + ,Container: Container + ,Flow: Flow + ,Spacer: Spacer + ,RawHtml: RawHtml + ,Custom: Custom + ,Plain: Plain + ,Fitted: Fitted + ,Cropped: Cropped + ,Tiled: Tiled + ,P: P + ,Z: Z + ,N: N + ,Absolute: Absolute + ,Relative: Relative + ,DUp: DUp + ,DDown: DDown + ,DLeft: DLeft + ,DRight: DRight + ,DIn: DIn + ,DOut: DOut + ,Properties: Properties + ,Element: Element + ,Position: Position}; + return _elm.Graphics.Element.values; +};Elm.Graphics = Elm.Graphics || {}; +Elm.Graphics.Input = Elm.Graphics.Input || {}; +Elm.Graphics.Input.make = function (_elm) { + "use strict"; + _elm.Graphics = _elm.Graphics || {}; + _elm.Graphics.Input = _elm.Graphics.Input || {}; + if (_elm.Graphics.Input.values) + return _elm.Graphics.Input.values; + var _N = Elm.Native, + _U = _N.Utils.make(_elm), + _L = _N.List.make(_elm), + _E = _N.Error.make(_elm), + $moduleName = "Graphics.Input"; + var Graphics = Graphics || {}; + Graphics.Element = Elm.Graphics.Element.make(_elm); + var Native = Native || {}; + Native.Graphics = Native.Graphics || {}; + Native.Graphics.Input = Elm.Native.Graphics.Input.make(_elm); + var Signal = Elm.Signal.make(_elm); + var _op = {}; + var clickable = Native.Graphics.Input.clickable; + var hoverable = Native.Graphics.Input.hoverable; + var dropDown = Native.Graphics.Input.dropDown; + var checkbox = Native.Graphics.Input.checkbox; + var customButton = Native.Graphics.Input.customButton; + var button = Native.Graphics.Input.button; + var input = Native.Graphics.Input.input; + var Handle = {ctor: "Handle"}; + var Input = F2(function (a,b) { + return {_: {} + ,handle: b + ,signal: a}; + }); + _elm.Graphics.Input.values = {_op: _op + ,input: input + ,button: button + ,customButton: customButton + ,checkbox: checkbox + ,dropDown: dropDown + ,hoverable: hoverable + ,clickable: clickable + ,Handle: Handle + ,Input: Input}; + return _elm.Graphics.Input.values; +};Elm.Graphics = Elm.Graphics || {}; +Elm.Graphics.Input = Elm.Graphics.Input || {}; +Elm.Graphics.Input.Field = Elm.Graphics.Input.Field || {}; +Elm.Graphics.Input.Field.make = function (_elm) { + "use strict"; + _elm.Graphics = _elm.Graphics || {}; + _elm.Graphics.Input = _elm.Graphics.Input || {}; + _elm.Graphics.Input.Field = _elm.Graphics.Input.Field || {}; + if (_elm.Graphics.Input.Field.values) + return _elm.Graphics.Input.Field.values; + var _N = Elm.Native, + _U = _N.Utils.make(_elm), + _L = _N.List.make(_elm), + _E = _N.Error.make(_elm), + $moduleName = "Graphics.Input.Field"; + var Color = Elm.Color.make(_elm); + var Graphics = Graphics || {}; + Graphics.Element = Elm.Graphics.Element.make(_elm); + var Graphics = Graphics || {}; + Graphics.Input = Elm.Graphics.Input.make(_elm); + var Native = Native || {}; + Native.Graphics = Native.Graphics || {}; + Native.Graphics.Input = Elm.Native.Graphics.Input.make(_elm); + var Text = Elm.Text.make(_elm); + var _op = {}; + var email = Native.Graphics.Input.email; + var password = Native.Graphics.Input.password; + var field = Native.Graphics.Input.field; + var Backward = {ctor: "Backward"}; + var Forward = {ctor: "Forward"}; + var Selection = F3(function (a, + b, + c) { + return {_: {} + ,direction: c + ,end: b + ,start: a}; + }); + var Content = F2(function (a, + b) { + return {_: {} + ,selection: b + ,string: a}; + }); + var noContent = A2(Content, + "", + A3(Selection,0,0,Forward)); + var Style = F4(function (a, + b, + c, + d) { + return {_: {} + ,highlight: c + ,outline: b + ,padding: a + ,style: d}; + }); + var Highlight = F2(function (a, + b) { + return {_: {} + ,color: a + ,width: b}; + }); + var noHighlight = A2(Highlight, + Color.blue, + 0); + var Outline = F3(function (a, + b, + c) { + return {_: {} + ,color: a + ,radius: c + ,width: b}; + }); + var Dimensions = F4(function (a, + b, + c, + d) { + return {_: {} + ,bottom: d + ,left: a + ,right: b + ,top: c}; + }); + var uniformly = function (n) { + return A4(Dimensions, + n, + n, + n, + n); + }; + var noOutline = A3(Outline, + Color.grey, + uniformly(0), + 0); + var defaultStyle = {_: {} + ,highlight: A2(Highlight, + Color.blue, + 1) + ,outline: A3(Outline, + Color.grey, + uniformly(1), + 2) + ,padding: uniformly(4) + ,style: Text.defaultStyle}; + _elm.Graphics.Input.Field.values = {_op: _op + ,uniformly: uniformly + ,noOutline: noOutline + ,noHighlight: noHighlight + ,defaultStyle: defaultStyle + ,noContent: noContent + ,field: field + ,password: password + ,email: email + ,Forward: Forward + ,Backward: Backward + ,Dimensions: Dimensions + ,Outline: Outline + ,Highlight: Highlight + ,Style: Style + ,Content: Content + ,Selection: Selection}; + return _elm.Graphics.Input.Field.values; +};Elm.JavaScript = Elm.JavaScript || {}; +Elm.JavaScript.Experimental = Elm.JavaScript.Experimental || {}; +Elm.JavaScript.Experimental.make = function (_elm) { + "use strict"; + _elm.JavaScript = _elm.JavaScript || {}; + _elm.JavaScript.Experimental = _elm.JavaScript.Experimental || {}; + if (_elm.JavaScript.Experimental.values) + return _elm.JavaScript.Experimental.values; + var _N = Elm.Native, + _U = _N.Utils.make(_elm), + _L = _N.List.make(_elm), + _E = _N.Error.make(_elm), + $moduleName = "JavaScript.Experimental"; + var Json = Elm.Json.make(_elm); + var Native = Native || {}; + Native.JavaScript = Elm.Native.JavaScript.make(_elm); + var Native = Native || {}; + Native.Json = Elm.Native.Json.make(_elm); + var _op = {}; + var fromJson = Native.Json.toJS; + var toJson = Native.Json.fromJS; + var fromRecord = Native.JavaScript.fromRecord; + var toRecord = Native.JavaScript.toRecord; + var RawObject = {ctor: "RawObject"}; + _elm.JavaScript.Experimental.values = {_op: _op + ,toRecord: toRecord + ,fromRecord: fromRecord + ,toJson: toJson + ,fromJson: fromJson + ,RawObject: RawObject}; + return _elm.JavaScript.Experimental.values; +};(function() { + +// Returns boolean indicating if the swap was successful. +// Requires that the two signal graphs have exactly the same +// structure. +ElmRuntime.swap = function(from, to) { + function similar(nodeOld,nodeNew) { + var idOkay = nodeOld.id === nodeNew.id; + var lengthOkay = nodeOld.kids.length === nodeNew.kids.length; + return idOkay && lengthOkay; + } + function swap(nodeOld,nodeNew) { + nodeNew.value = nodeOld.value; + return true; + } + var canSwap = depthFirstTraversals(similar, from.inputs, to.inputs); + if (canSwap) { depthFirstTraversals(swap, from.inputs, to.inputs); } + from.node.parentNode.replaceChild(to.node, from.node); + return canSwap; +} + +// Returns false if the node operation f ever fails. +function depthFirstTraversals(f, queueOld, queueNew) { + if (queueOld.length !== queueNew.length) return false; + queueOld = queueOld.slice(0); + queueNew = queueNew.slice(0); + + var seen = []; + while (queueOld.length > 0 && queueNew.length > 0) { + var nodeOld = queueOld.pop(); + var nodeNew = queueNew.pop(); + if (seen.indexOf(nodeOld.id) < 0) { + if (!f(nodeOld, nodeNew)) return false; + queueOld = queueOld.concat(nodeOld.kids); + queueNew = queueNew.concat(nodeNew.kids); + seen.push(nodeOld.id); + } + } + return true; +} + +}()); + +(function() { +'use strict'; + +Elm.fullscreen = function(module, ports) { + var style = document.createElement('style'); + style.type = 'text/css'; + style.innerHTML = "html,head,body { padding:0; margin:0; }" + + "body { font-family: calibri, helvetica, arial, sans-serif; }"; + document.head.appendChild(style); + var container = document.createElement('div'); + document.body.appendChild(container); + return init(ElmRuntime.Display.FULLSCREEN, container, module, ports || {}); +}; + +Elm.embed = function(module, container, ports) { + var tag = container.tagName; + if (tag !== 'DIV') { + throw new Error('Elm.node must be given a DIV, not a ' + tag + '.'); + } else if (container.hasChildNodes()) { + throw new Error('Elm.node must be given an empty DIV. No children allowed!'); + } + return init(ElmRuntime.Display.COMPONENT, container, module, ports || {}); +}; + +Elm.worker = function(module, ports) { + return init(ElmRuntime.Display.NONE, {}, module, ports || {}); +}; + +function init(display, container, module, ports, moduleToReplace) { + // defining state needed for an instance of the Elm RTS + var inputs = []; + + var updateInProgress = false; + function notify(id, v) { + if (updateInProgress) { + throw new Error( + 'The notify function has been called synchronously!\n' + + 'This can lead to frames being dropped.\n' + + 'Definitely report this to \n'); + } + updateInProgress = true; + var timestep = Date.now(); + for (var i = inputs.length; i--; ) { + inputs[i].recv(timestep, id, v); + } + updateInProgress = false; + } + + var listeners = []; + function addListener(relevantInputs, domNode, eventName, func) { + domNode.addEventListener(eventName, func); + var listener = { + relevantInputs: relevantInputs, + domNode: domNode, + eventName: eventName, + func: func + }; + listeners.push(listener); + } + + var portUses = {} + for (var key in ports) { + portUses[key] = 0; + } + // create the actual RTS. Any impure modules will attach themselves to this + // object. This permits many Elm programs to be embedded per document. + var elm = { + notify:notify, + node:container, + display:display, + id:ElmRuntime.guid(), + addListener:addListener, + inputs:inputs, + ports: { incoming:ports, outgoing:{}, uses:portUses } + }; + + function swap(newModule) { + removeListeners(listeners); + var div = document.createElement('div'); + var newElm = init(display, div, newModule, ports, elm); + inputs = []; + // elm.swap = newElm.swap; + return newElm; + } + + var Module = {}; + var reportAnyErrors = function() {}; + try { + Module = module.make(elm); + checkPorts(elm); + } catch(e) { + var directions = "
    Open the developer console for more details." + Module.main = Elm.Text.make(elm).leftAligned('' + e.message + directions + ''); + reportAnyErrors = function() { throw e; } + } + inputs = ElmRuntime.filterDeadInputs(inputs); + filterListeners(inputs, listeners); + addReceivers(elm.ports.outgoing); + if (display !== ElmRuntime.Display.NONE) { + var graphicsNode = initGraphics(elm, Module); + } + if (typeof moduleToReplace !== 'undefined') { + ElmRuntime.swap(moduleToReplace, elm); + + // rerender scene if graphics are enabled. + if (typeof graphicsNode !== 'undefined') { + graphicsNode.recv(0, true, 0); + } + } + + reportAnyErrors(); + return { swap:swap, ports:elm.ports.outgoing }; +}; + +function checkPorts(elm) { + var portUses = elm.ports.uses; + for (var key in portUses) { + var uses = portUses[key] + if (uses === 0) { + throw new Error( + "Initialization Error: provided port '" + key + + "' to a module that does not take it as in input.\n" + + "Remove '" + key + "' from the module initialization code."); + } else if (uses > 1) { + throw new Error( + "Initialization Error: port '" + key + + "' has been declared multiple times in the Elm code.\n" + + "Remove declarations until there is exactly one."); + } + } +} + +function filterListeners(inputs, listeners) { + loop: + for (var i = listeners.length; i--; ) { + var listener = listeners[i]; + for (var j = inputs.length; j--; ) { + if (listener.relevantInputs.indexOf(inputs[j].id) >= 0) { + continue loop; + } + } + listener.domNode.removeEventListener(listener.eventName, listener.func); + } +} + +function removeListeners(listeners) { + for (var i = listeners.length; i--; ) { + var listener = listeners[i]; + listener.domNode.removeEventListener(listener.eventName, listener.func); + } +} + +// add receivers for built-in ports if they are defined +function addReceivers(ports) { + if ('log' in ports) { + ports.log.subscribe(function(v) { console.log(v) }); + } + if ('stdout' in ports) { + var process = process || {}; + var handler = process.stdout + ? function(v) { process.stdout.write(v); } + : function(v) { console.log(v); }; + ports.stdout.subscribe(handler); + } + if ('stderr' in ports) { + var process = process || {}; + var handler = process.stderr + ? function(v) { process.stderr.write(v); } + : function(v) { console.log('Error:' + v); }; + ports.stderr.subscribe(handler); + } + if ('title' in ports) { + if (typeof ports.title === 'string') { + document.title = ports.title; + } else { + ports.title.subscribe(function(v) { document.title = v; }); + } + } + if ('redirect' in ports) { + ports.redirect.subscribe(function(v) { + if (v.length > 0) window.location = v; + }); + } + if ('favicon' in ports) { + if (typeof ports.favicon === 'string') { + changeFavicon(ports.favicon); + } else { + ports.favicon.subscribe(changeFavicon); + } + } + function changeFavicon(src) { + var link = document.createElement('link'); + var oldLink = document.getElementById('elm-favicon'); + link.id = 'elm-favicon'; + link.rel = 'shortcut icon'; + link.href = src; + if (oldLink) { + document.head.removeChild(oldLink); + } + document.head.appendChild(link); + } +} + +function initGraphics(elm, Module) { + if (!('main' in Module)) + throw new Error("'main' is missing! What do I display?!"); + + var signalGraph = Module.main; + + // make sure the signal graph is actually a signal & extract the visual model + var Signal = Elm.Signal.make(elm); + if (!('recv' in signalGraph)) { + signalGraph = Signal.constant(signalGraph); + } + var currentScene = signalGraph.value; + + // Add the currentScene to the DOM + var Render = ElmRuntime.use(ElmRuntime.Render.Element); + elm.node.appendChild(Render.render(currentScene)); + + // set up updates so that the DOM is adjusted as necessary. + var savedScene = currentScene; + function domUpdate(newScene) { + ElmRuntime.draw(function(_) { + Render.update(elm.node.firstChild, savedScene, newScene); + if (elm.Native.Window) elm.Native.Window.values.resizeIfNeeded(); + savedScene = newScene; + }); + } + var renderer = A2(Signal.lift, domUpdate, signalGraph); + + // must check for resize after 'renderer' is created so + // that changes show up. + if (elm.Native.Window) elm.Native.Window.values.resizeIfNeeded(); + + return renderer; +} + +}()); + +(function() { +'use strict'; + +ElmRuntime.Display = { FULLSCREEN: 0, COMPONENT: 1, NONE: 2 }; + +ElmRuntime.counter = 0; +ElmRuntime.guid = function() { return ElmRuntime.counter++; } + +ElmRuntime.use = function(M) { + if (typeof M === 'function') M = M(); + return M; +}; + +function isAlive(input) { + if (!('defaultNumberOfKids' in input)) return true; + var len = input.kids.length; + if (len === 0) return false; + if (len > input.defaultNumberOfKids) return true; + var alive = false; + for (var i = len; i--; ) { + alive = alive || isAlive(input.kids[i]); + } + return alive; +} + +ElmRuntime.filterDeadInputs = function(inputs) { + var temp = []; + for (var i = inputs.length; i--; ) { + if (isAlive(inputs[i])) temp.push(inputs[i]); + } + return temp; +}; + +// define the draw function +var vendors = ['ms', 'moz', 'webkit', 'o']; +var win = typeof window !== 'undefined' ? window : {}; +for (var i = 0; i < vendors.length && !win.requestAnimationFrame; ++i) { + win.requestAnimationFrame = win[vendors[i]+'RequestAnimationFrame']; + win.cancelAnimationFrame = win[vendors[i]+'CancelAnimationFrame'] || + win[vendors[i]+'CancelRequestAnimationFrame']; +} + +if (win.requestAnimationFrame && win.cancelAnimationFrame) { + var previous = 0; + ElmRuntime.draw = function(callback) { + win.cancelAnimationFrame(previous); + previous = win.requestAnimationFrame(callback); + }; +} else { + ElmRuntime.draw = function(callback) { callback(); }; +} + +}()); + +ElmRuntime.Render.Collage = function() { + +var Render = ElmRuntime.use(ElmRuntime.Render.Element); +var Transform = Elm.Transform2D.make({}); +var Utils = ElmRuntime.use(ElmRuntime.Render.Utils); +var newElement = Utils.newElement, + extract = Utils.extract, fromList = Utils.fromList, + fromString = Utils.fromString, addTransform = Utils.addTransform; + +function trace(ctx, path) { + var points = fromList(path); + var i = points.length - 1; + if (i <= 0) return; + ctx.moveTo(points[i]._0, points[i]._1); + while (i--) { ctx.lineTo(points[i]._0, points[i]._1); } + if (path.closed) { + i = points.length - 1; + ctx.lineTo(points[i]._0, points[i]._1); + } +} + +function line(ctx,style,path) { + style.dashing.ctor === 'Nil' ? trace(ctx, path) : customLineHelp(ctx, style, path); + ctx.scale(1,-1); + ctx.stroke(); +} + +function customLineHelp(ctx, style, path) { + var points = fromList(path); + if (path.closed) points.push(points[0]); + var pattern = fromList(style.dashing); + var i = points.length - 1; + if (i <= 0) return; + var x0 = points[i]._0, y0 = points[i]._1; + var x1=0, y1=0, dx=0, dy=0, remaining=0, nx=0, ny=0; + var pindex = 0, plen = pattern.length; + var draw = true, segmentLength = pattern[0]; + ctx.moveTo(x0,y0); + while (i--) { + x1 = points[i]._0; y1 = points[i]._1; + dx = x1 - x0; dy = y1 - y0; + remaining = Math.sqrt(dx * dx + dy * dy); + while (segmentLength <= remaining) { + x0 += dx * segmentLength / remaining; + y0 += dy * segmentLength / remaining; + ctx[draw ? 'lineTo' : 'moveTo'](x0, y0); + // update starting position + dx = x1 - x0; dy = y1 - y0; + remaining = Math.sqrt(dx * dx + dy * dy); + // update pattern + draw = !draw; + pindex = (pindex + 1) % plen; + segmentLength = pattern[pindex]; + } + if (remaining > 0) { + ctx[draw ? 'lineTo' : 'moveTo'](x1, y1); + segmentLength -= remaining; + } + x0 = x1; y0 = y1; + } +} + +function drawLine(ctx, style, path) { + ctx.lineWidth = style.width; + var cap = style.cap.ctor; + ctx.lineCap = cap === 'Flat' ? 'butt' : + cap === 'Round' ? 'round' : 'square'; + var join = style.join.ctor; + ctx.lineJoin = join === 'Smooth' ? 'round' : + join === 'Sharp' ? 'miter' : 'bevel'; + ctx.miterLimit = style.join._0 || 10; + ctx.strokeStyle = extract(style.color); + return line(ctx, style, path); +} + +function texture(redo, ctx, src) { + var img = new Image(); + img.src = fromString(src); + img.onload = redo; + return ctx.createPattern(img, 'repeat'); +} + +function gradient(ctx, grad) { + var g; + var stops = []; + if (grad.ctor === 'Linear') { + var p0 = grad._0, p1 = grad._1; + g = ctx.createLinearGradient(p0._0, -p0._1, p1._0, -p1._1); + stops = fromList(grad._2); + } else { + var p0 = grad._0, p2 = grad._2; + g = ctx.createRadialGradient(p0._0, -p0._1, grad._1, p2._0, -p2._1, grad._3); + stops = fromList(grad._4); + } + var len = stops.length; + for (var i = 0; i < len; ++i) { + var stop = stops[i]; + g.addColorStop(stop._0, extract(stop._1)); + } + return g; +} + +function drawShape(redo, ctx, style, path) { + trace(ctx, path); + var sty = style.ctor; + ctx.fillStyle = + sty === 'Solid' ? extract(style._0) : + sty === 'Texture' ? texture(redo, ctx, style._0) : gradient(ctx, style._0); + ctx.scale(1,-1); + ctx.fill(); +} + +function drawImage(redo, ctx, form) { + var img = new Image(); + img.onload = redo; + img.src = fromString(form._3); + var w = form._0, + h = form._1, + pos = form._2, + srcX = pos._0, + srcY = pos._1, + srcW = w, + srcH = h, + destX = -w/2, + destY = -h/2, + destW = w, + destH = h; + + ctx.scale(1,-1); + ctx.drawImage(img, srcX, srcY, srcW, srcH, destX, destY, destW, destH); +} + +function renderForm(redo, ctx, form) { + ctx.save(); + var x = form.x, y = form.y, theta = form.theta, scale = form.scale; + if (x !== 0 || y !== 0) ctx.translate(x, y); + if (theta !== 0) ctx.rotate(theta); + if (scale !== 1) ctx.scale(scale,scale); + if (form.alpha !== 1) ctx.globalAlpha = ctx.globalAlpha * form.alpha; + ctx.beginPath(); + var f = form.form; + switch(f.ctor) { + case 'FPath' : drawLine(ctx, f._0, f._1); break; + case 'FImage': drawImage(redo, ctx, f); break; + case 'FShape': + if (f._0.ctor === 'Left') { + f._1.closed = true; + drawLine(ctx, f._0._0, f._1); + } else { + drawShape(redo, ctx, f._0._0, f._1); + } + break; + } + ctx.restore(); +} + +function formToMatrix(form) { + var scale = form.scale; + var matrix = A6( Transform.matrix, scale, 0, 0, scale, form.x, form.y ); + + var theta = form.theta + if (theta !== 0) + matrix = A2( Transform.multiply, matrix, Transform.rotation(theta) ); + + return matrix; +} + +function str(n) { + if (n < 0.00001 && n > -0.00001) return 0; + return n; +} + +function makeTransform(w, h, form, matrices) { + var props = form.form._0.props; + var m = A6( Transform.matrix, 1, 0, 0, -1, + (w - props.width ) / 2, + (h - props.height) / 2 ); + var len = matrices.length; + for (var i = 0; i < len; ++i) { m = A2( Transform.multiply, m, matrices[i] ); } + m = A2( Transform.multiply, m, formToMatrix(form) ); + + return 'matrix(' + str( m[0]) + ', ' + str( m[3]) + ', ' + + str(-m[1]) + ', ' + str(-m[4]) + ', ' + + str( m[2]) + ', ' + str( m[5]) + ')'; +} + +function stepperHelp(list) { + var arr = fromList(list); + var i = 0; + function peekNext() { + return i < arr.length ? arr[i].form.ctor : ''; + } + // assumes that there is a next element + function next() { + var out = arr[i]; + ++i; + return out; + } + return { peekNext:peekNext, next:next }; +} + +function formStepper(forms) { + var ps = [stepperHelp(forms)]; + var matrices = []; + var alphas = []; + function peekNext() { + var len = ps.length; + var formType = ''; + for (var i = 0; i < len; ++i ) { + if (formType = ps[i].peekNext()) return formType; + } + return ''; + } + // assumes that there is a next element + function next(ctx) { + while (!ps[0].peekNext()) { + ps.shift(); + matrices.pop(); + alphas.shift(); + if (ctx) { ctx.restore(); } + } + var out = ps[0].next(); + var f = out.form; + if (f.ctor === 'FGroup') { + ps.unshift(stepperHelp(f._1)); + var m = A2(Transform.multiply, f._0, formToMatrix(out)); + ctx.save(); + ctx.transform(m[0], m[3], m[1], m[4], m[2], m[5]); + matrices.push(m); + + var alpha = (alphas[0] || 1) * out.alpha; + alphas.unshift(alpha); + ctx.globalAlpha = alpha; + } + return out; + } + function transforms() { return matrices; } + function alpha() { return alphas[0] || 1; } + return { peekNext:peekNext, next:next, transforms:transforms, alpha:alpha }; +} + +function makeCanvas(w,h) { + var canvas = newElement('canvas'); + canvas.style.width = w + 'px'; + canvas.style.height = h + 'px'; + canvas.style.display = "block"; + canvas.style.position = "absolute"; + canvas.width = w; + canvas.height = h; + return canvas; +} + +function render(model) { + var div = newElement('div'); + div.style.overflow = 'hidden'; + div.style.position = 'relative'; + update(div, model, model); + return div; +} + +function nodeStepper(w,h,div) { + var kids = div.childNodes; + var i = 0; + function transform(transforms, ctx) { + ctx.translate(w/2, h/2); + ctx.scale(1,-1); + var len = transforms.length; + for (var i = 0; i < len; ++i) { + var m = transforms[i]; + ctx.save(); + ctx.transform(m[0], m[3], m[1], m[4], m[2], m[5]); + } + return ctx; + } + function nextContext(transforms) { + while (i < kids.length) { + var node = kids[i]; + if (node.getContext) { + node.width = w; + node.height = h; + node.style.width = w + 'px'; + node.style.height = h + 'px'; + ++i; + return transform(transforms, node.getContext('2d')); + } + div.removeChild(node); + } + var canvas = makeCanvas(w,h); + div.appendChild(canvas); + // we have added a new node, so we must step our position + ++i; + return transform(transforms, canvas.getContext('2d')); + } + function addElement(matrices, alpha, form) { + var kid = kids[i]; + var elem = form.form._0; + + var node = (!kid || kid.getContext) + ? Render.render(elem) + : (Render.update(kid, kid.oldElement, elem), kids[i]); + + node.style.position = 'absolute'; + node.style.opacity = alpha * form.alpha; + addTransform(node.style, makeTransform(w, h, form, matrices)); + node.oldElement = elem; + ++i; + if (!kid) { + div.appendChild(node); + } else if (kid.getContext) { + div.insertBefore(node, kid); + } + } + function clearRest() { + while (i < kids.length) { + div.removeChild(kids[i]); + } + } + return { nextContext:nextContext, addElement:addElement, clearRest:clearRest }; +} + + +function update(div, _, model) { + var w = model.w; + var h = model.h; + + var forms = formStepper(model.forms); + var nodes = nodeStepper(w,h,div); + var ctx = null; + var formType = ''; + + while (formType = forms.peekNext()) { + // make sure we have context if we need it + if (ctx === null && formType !== 'FElement') { + ctx = nodes.nextContext(forms.transforms()); + ctx.globalAlpha = forms.alpha(); + } + + var form = forms.next(ctx); + // if it is FGroup, all updates are made within formStepper when next is called. + if (formType === 'FElement') { + // update or insert an element, get a new context + nodes.addElement(forms.transforms(), forms.alpha(), form); + ctx = null; + } else if (formType !== 'FGroup') { + renderForm(function() { update(div, model, model); }, ctx, form); + } + } + nodes.clearRest(); + return false; +} + +return { render:render, update:update }; + +}; + +ElmRuntime.Render.Element = function() { +'use strict'; + +var Utils = ElmRuntime.use(ElmRuntime.Render.Utils); +var newElement = Utils.newElement, extract = Utils.extract, + addTransform = Utils.addTransform, removeTransform = Utils.removeTransform, + fromList = Utils.fromList, eq = Utils.eq; + +function setProps(elem, e) { + var props = elem.props; + var element = elem.element; + var width = props.width - (element.adjustWidth || 0); + var height = props.height - (element.adjustHeight || 0); + e.style.width = (width |0) + 'px'; + e.style.height = (height|0) + 'px'; + if (props.opacity !== 1) { + e.style.opacity = props.opacity; + } + if (props.color.ctor === 'Just') { + e.style.backgroundColor = extract(props.color._0); + } + if (props.tag !== '') { e.id = props.tag; } + if (props.href !== '') { + var a = newElement('a'); + a.href = props.href; + a.style.width = '100%'; + a.style.height = '100%'; + a.style.top = 0; + a.style.left = 0; + a.style.display = 'block'; + a.style.position = 'absolute'; + e.style.position = 'relative'; + a.style.pointerEvents = 'auto'; + e.appendChild(a); + } + if (props.hover.ctor !== '_Tuple0') { + addHover(e, props.hover); + } + if (props.click.ctor !== '_Tuple0') { + addClick(e, props.click); + } + return e; +} + +function addClick(e, handler) { + e.style.pointerEvents = 'auto'; + e.elm_click_handler = handler; + function trigger(ev) { + e.elm_click_handler(Utils.Tuple0); + ev.stopPropagation(); + } + e.elm_click_trigger = trigger; + e.addEventListener('click', trigger); +} + +function removeClick(e, handler) { + if (e.elm_click_trigger) { + e.removeEventListener('click', e.elm_click_trigger); + } +} + +function addHover(e, handler) { + e.style.pointerEvents = 'auto'; + e.elm_hover_handler = handler; + e.elm_hover_count = 0; + + function over(evt) { + if (e.elm_hover_count++ > 0) return; + e.elm_hover_handler(true); + evt.stopPropagation(); + } + function out(evt) { + if (e.contains(evt.toElement || evt.relatedTarget)) return; + e.elm_hover_count = 0; + e.elm_hover_handler(false); + evt.stopPropagation(); + } + e.elm_hover_over = over; + e.elm_hover_out = out; + e.addEventListener('mouseover', over); + e.addEventListener('mouseout', out); +} + +function removeHover(e) { + if (e.elm_hover_over) { + e.removeEventListener('mouseover', e.elm_hover_over); + } + if (e.elm_hover_out) { + e.removeEventListener('mouseout', e.elm_hover_out); + } +} + +function image(props, img) { + switch (img._0.ctor) { + case 'Plain': return plainImage(img._3); + case 'Fitted': return fittedImage(props.width, props.height, img._3); + case 'Cropped': return croppedImage(img,props.width,props.height,img._3); + case 'Tiled': return tiledImage(img._3); + } +} + +function plainImage(src) { + var img = newElement('img'); + img.src = src; + img.name = src; + img.style.display = "block"; + return img; +} + +function tiledImage(src) { + var div = newElement('div'); + div.style.backgroundImage = 'url(' + src + ')'; + return div; +} + +function fittedImage(w, h, src) { + var div = newElement('div'); + div.style.background = 'url(' + src + ') no-repeat center'; + div.style.webkitBackgroundSize = 'cover'; + div.style.MozBackgroundSize = 'cover'; + div.style.OBackgroundSize = 'cover'; + div.style.backgroundSize = 'cover'; + return div; +} + +function croppedImage(elem, w, h, src) { + var pos = elem._0._0; + var e = newElement('div'); + e.style.overflow = "hidden"; + + var img = newElement('img'); + img.onload = function() { + var sw = w / elem._1, sh = h / elem._2; + img.style.width = ((this.width * sw)|0) + 'px'; + img.style.height = ((this.height * sh)|0) + 'px'; + img.style.marginLeft = ((- pos._0 * sw)|0) + 'px'; + img.style.marginTop = ((- pos._1 * sh)|0) + 'px'; + }; + img.src = src; + img.name = src; + e.appendChild(img); + return e; +} + +function goIn(e) { e.style.position = 'absolute'; return e; } +function goDown(e) { return e } +function goRight(e) { e.style.styleFloat = e.style.cssFloat = "left"; return e; } +function flowWith(f, array) { + var container = newElement('div'); + if (f == goIn) container.style.pointerEvents = 'none'; + + for (var i = array.length; i--; ) { + container.appendChild(f(render(array[i]))); + } + return container; +} + +function flow(dir,elist) { + var array = fromList(elist); + switch(dir.ctor) { + case "DDown": array.reverse(); + case "DUp": return flowWith(goDown,array); + case "DRight": array.reverse(); + case "DLeft": return flowWith(goRight,array); + case "DOut": array.reverse(); + case "DIn": return flowWith(goIn,array); + } +} + +function toPos(pos) { + switch(pos.ctor) { + case "Absolute": return pos._0 + "px"; + case "Relative": return (pos._0 * 100) + "%"; + } +} + +// must clear right, left, top, bottom, and transform +// before calling this function +function setPos(pos,elem,e) { + var element = elem.element; + var props = elem.props; + var w = props.width + (element.adjustWidth ? element.adjustWidth : 0); + var h = props.height + (element.adjustHeight ? element.adjustHeight : 0); + + e.style.position = 'absolute'; + e.style.margin = 'auto'; + var transform = ''; + switch(pos.horizontal.ctor) { + case 'P': e.style.right = toPos(pos.x); e.style.removeProperty('left'); break; + case 'Z': transform = 'translateX(' + ((-w/2)|0) + 'px) '; + case 'N': e.style.left = toPos(pos.x); e.style.removeProperty('right'); break; + } + switch(pos.vertical.ctor) { + case 'N': e.style.bottom = toPos(pos.y); e.style.removeProperty('top'); break; + case 'Z': transform += 'translateY(' + ((-h/2)|0) + 'px)'; + case 'P': e.style.top = toPos(pos.y); e.style.removeProperty('bottom'); break; + } + if (transform !== '') addTransform(e.style, transform); + return e; +} + +function container(pos,elem) { + var e = render(elem); + setPos(pos, elem, e); + var div = newElement('div'); + div.style.position = 'relative'; + div.style.overflow = 'hidden'; + div.appendChild(e); + return div; +} + +function rawHtml(elem) { + var html = elem.html; + var args = elem.args; + var guid = elem.guid; + var align = elem.align; + + var div = newElement('div'); + div.innerHTML = html; + div.style.visibility = "hidden"; + if (align) div.style.textAlign = align; + document.body.appendChild(div); + + for (var i = args.length; i--; ) { + var arg = args[i]; + var span = document.getElementById('md-' + guid + '-' + i); + if (arg.isText) { + span.innerHTML = arg; + } else { + span.style.display = 'block'; + span.style.width = arg.props.width + 'px'; + span.style.height = arg.props.height + 'px'; + span.appendChild(render(arg)); + } + } + document.body.removeChild(div); + div.style.visibility = 'visible'; + div.style.pointerEvents = 'auto'; + return div; +} + +function render(elem) { return setProps(elem, makeElement(elem)); } +function makeElement(e) { + var elem = e.element; + switch(elem.ctor) { + case 'Image': return image(e.props, elem); + case 'Flow': return flow(elem._0, elem._1); + case 'Container': return container(elem._0, elem._1); + case 'Spacer': return newElement('div'); + case 'RawHtml': return rawHtml(elem); + case 'Custom': return elem.render(elem.model); + } +} + +function update(node, curr, next) { + if (node.tagName === 'A') { node = node.firstChild; } + if (curr.props.id === next.props.id) return updateProps(node, curr, next); + if (curr.element.ctor !== next.element.ctor) { + node.parentNode.replaceChild(render(next),node); + return true; + } + var nextE = next.element, currE = curr.element; + switch(nextE.ctor) { + case "Spacer": break; + case "RawHtml": + // only markdown blocks have guids, so this must be a text block + if (nextE.guid === null) { + if(currE.html.valueOf() !== nextE.html.valueOf()) { + node.innerHTML = nextE.html; + } + break; + } + if (nextE.guid !== currE.guid) { + node.parentNode.replaceChild(render(next),node); + return true; + } + var nargs = nextE.args; + var cargs = currE.args; + for (var i = nargs.length; i--; ) { + var narg = nargs[i]; + var carg = cargs[i] + if (narg == carg) continue; + var span = document.getElementById('md-' + currE.guid + '-' + i); + if (narg.isElement) { + if (carg.isElement) { + update(span, carg, narg); + } else { + span.style.display = 'block'; + var e = render(narg); + span.innerHTML = ''; + span.appendChild(e); + } + } else { + span.style.display = 'inline'; + span.innerHTML = narg; + } + } + break; + case "Image": + if (nextE._0.ctor === 'Plain') { + if (nextE._3 !== currE._3) node.src = nextE._3; + } else if (!eq(nextE,currE) || + next.props.width !== curr.props.width || + next.props.height !== curr.props.height) { + node.parentNode.replaceChild(render(next),node); + return true; + } + break; + case "Flow": + var arr = fromList(nextE._1); + for (var i = arr.length; i--; ) { arr[i] = arr[i].element.ctor; } + if (nextE._0.ctor !== currE._0.ctor) { + node.parentNode.replaceChild(render(next),node); + return true; + } + var nexts = fromList(nextE._1); + var kids = node.childNodes; + if (nexts.length !== kids.length) { + node.parentNode.replaceChild(render(next),node); + return true; + } + var currs = fromList(currE._1); + var goDir = function(x) { return x; }; + switch(nextE._0.ctor) { + case "DDown": case "DUp": goDir = goDown; break; + case "DRight": case "DLeft": goDir = goRight; break; + case "DOut": case "DIn": goDir = goIn; break; + } + for (var i = kids.length; i-- ;) { + update(kids[i],currs[i],nexts[i]); + goDir(kids[i]); + } + break; + case "Container": + update(node.firstChild, currE._1, nextE._1); + setPos(nextE._0, nextE._1, node.firstChild); + break; + case "Custom": + if (currE.type === nextE.type) { + var done = nextE.update(node, currE.model, nextE.model); + if (done) return; + } else { + return node.parentNode.replaceChild(render(next), node); + } + } + updateProps(node, curr, next); +} + +function updateProps(node, curr, next) { + var props = next.props; + var currP = curr.props; + var e = node; + var element = next.element; + var width = props.width - (element.adjustWidth || 0); + var height = props.height - (element.adjustHeight || 0); + if (width !== currP.width) { + e.style.width = (width|0) + 'px'; + } + if (height !== currP.height) { + e.style.height = (height|0) + 'px'; + } + if (props.opacity !== currP.opacity) { + e.style.opacity = props.opacity; + } + var nextColor = (props.color.ctor === 'Just' ? + extract(props.color._0) : ''); + if (e.style.backgroundColor !== nextColor) { + e.style.backgroundColor = (nextColor === '' ? 'transparent' : nextColor); + } + if (props.tag !== currP.tag) { e.id = props.tag; } + if (props.href !== currP.href) { + if (currP.href === '') { + var a = newElement('a'); + a.href = props.href; + a.style.width = '100%'; + a.style.height = '100%'; + a.style.top = 0; + a.style.left = 0; + a.style.display = 'block'; + a.style.position = 'absolute'; + e.style.position = 'relative'; + a.style.pointerEvents = 'auto'; e.appendChild(a); } else { node.lastNode.href = props.href; diff --git a/data/interfaces.data b/data/interfaces.data Binary files a/data/interfaces.data and b/data/interfaces.data differ diff --git a/tests/Main.hs b/tests/Main.hs deleted file mode 100644 --- a/tests/Main.hs +++ /dev/null @@ -1,11 +0,0 @@ -module Main where - -import Test.Framework - -import Tests.Compiler -import Tests.Property - -main :: IO () -main = defaultMain [ compilerTests - , propertyTests - ] diff --git a/tests/Tests/Compiler.hs b/tests/Tests/Compiler.hs deleted file mode 100644 --- a/tests/Tests/Compiler.hs +++ /dev/null @@ -1,45 +0,0 @@ -module Tests.Compiler (compilerTests) - where - -import Data.Functor ((<$>)) -import Data.Traversable (traverse) -import System.FilePath (()) -import System.FilePath.Find (find, (==?), extension) -import Test.Framework -import Test.Framework.Providers.HUnit (testCase) -import Test.HUnit (Assertion, assertFailure, assertBool) -import Text.Parsec (ParseError) - -import Elm.Internal.Utils as Elm - -compilerTests :: Test -compilerTests = buildTest $ do - goods <- mkTests goodCompile =<< getElms "good" - bads <- mkTests badCompile =<< getElms "bad" - return $ testGroup "Compile Tests" - [ - testGroup "Good Tests" goods - , testGroup "Bad Tests" bads - ] - - where getElms :: FilePath -> IO [FilePath] - getElms fname = find (return True) (extension ==? ".elm") (testsDir fname) - - mkTests :: (Either String String -> Assertion) -> [FilePath] -> IO [Test] - mkTests h = traverse setupTest - where setupTest f = testCase f . mkCompileTest h <$> readFile f - - testsDir = "tests" "test-files" - -goodCompile :: Either String String -> Assertion -goodCompile (Left err) = assertFailure err -goodCompile (Right _) = assertBool "" True - -badCompile :: Either String String -> Assertion -badCompile (Left _) = assertBool "" True -badCompile (Right _) = assertFailure "Compilation succeeded but should have failed" - -mkCompileTest :: ((Either String String) -> Assertion) -- ^ Handler - -> String -- ^ File Contents - -> Assertion -mkCompileTest handle = handle . Elm.compile diff --git a/tests/Tests/Property.hs b/tests/Tests/Property.hs deleted file mode 100644 --- a/tests/Tests/Property.hs +++ /dev/null @@ -1,55 +0,0 @@ -module Tests.Property where - -import Control.Applicative ((<*)) -import Test.Framework -import Test.Framework.Providers.HUnit -import Test.Framework.Providers.QuickCheck2 -import Test.HUnit (assert) -import Test.QuickCheck -import Text.Parsec.Combinator (eof) -import Text.PrettyPrint as P - -import SourceSyntax.Literal as Lit -import qualified SourceSyntax.Pattern as P -import SourceSyntax.PrettyPrint (Pretty, pretty) -import Parse.Helpers (IParser, iParse) -import Parse.Literal (literal) -import qualified Parse.Pattern as Pat (expr) -import qualified Parse.Type as Type (expr) -import Tests.Property.Arbitrary - -propertyTests :: Test -propertyTests = - testGroup "Parse/Print Agreement Tests" - [ - testCase "Long Pattern test" $ assert (prop_parse_print Pat.expr longPat) - , testProperty "Literal test" $ prop_parse_print literal - , testProperty "Pattern test" $ prop_parse_print Pat.expr - , testProperty "Type test" $ prop_parse_print Type.expr - ] - - where - -- This test was autogenerated from the Pattern test and should be - -- left in all its ugly glory. - longPat = P.Data "I" [ P.Literal (Lit.Chr '+') - , P.Record - [ "q7yclkcm7k_ikstrczv_" - , "wQRv6gKsvvkjw4b5F" - ,"c9'eFfhk9FTvsMnwF_D" - ,"yqxhEkHvRFwZ" - ,"o" - ,"nbUlCn3y3NnkVoxhW" - ,"iJ0MNy3KZ_lrs" - ,"ug" - ,"sHHsX" - ,"mRKs9d" - ,"o2KiCX5'ZRzHJfRi8" ] - , P.Var "su'BrrbPUK6I33Eq" - ] - -prop_parse_print :: (Pretty a, Arbitrary a, Eq a) => IParser a -> a -> Bool -prop_parse_print p x = - either (const False) (== x) . parse_print p $ x - -parse_print :: (Pretty a) => IParser a -> a -> Either String a -parse_print p = either (Left . show) Right . iParse (p <* eof) . P.renderStyle P.style {mode=P.LeftMode} . pretty diff --git a/tests/Tests/Property/Arbitrary.hs b/tests/Tests/Property/Arbitrary.hs deleted file mode 100644 --- a/tests/Tests/Property/Arbitrary.hs +++ /dev/null @@ -1,128 +0,0 @@ -{-# OPTIONS_GHC -W -fno-warn-orphans #-} -module Tests.Property.Arbitrary where - -import Control.Applicative ((<$>), (<*>), pure) -import Test.QuickCheck.Arbitrary -import Test.QuickCheck.Gen - -import qualified Data.Set as Set -import qualified Parse.Helpers (reserveds) - -import qualified SourceSyntax.Literal as L -import qualified SourceSyntax.Pattern as P -import qualified SourceSyntax.Type as T - -instance Arbitrary L.Literal where - arbitrary = - oneof - [ L.IntNum <$> arbitrary - , L.FloatNum <$> (arbitrary `suchThat` noE) - , L.Chr <$> arbitrary - -- This is too permissive - , L.Str <$> arbitrary - -- Booleans aren't actually source syntax - -- , Boolean <$> arbitrary - ] - - shrink lit = - case lit of - L.IntNum n -> L.IntNum <$> shrink n - L.FloatNum f -> L.FloatNum <$> (filter noE . shrink $ f) - L.Chr c -> L.Chr <$> shrink c - L.Str s -> L.Str <$> shrink s - L.Boolean b -> L.Boolean <$> shrink b - -noE :: Double -> Bool -noE = notElem 'e' . show - -genVector :: Int -> (Int -> Gen a) -> Gen [a] -genVector n generator = do - len <- choose (0,n) - let m = n `div` (len + 1) - vectorOf len $ generator m - -instance Arbitrary P.Pattern where - arbitrary = sized pat - where - pat :: Int -> Gen P.Pattern - pat n = - oneof - [ pure P.Anything - , P.Var <$> lowVar - , P.Record <$> (listOf1 lowVar) - , P.Literal <$> arbitrary - , P.Alias <$> lowVar <*> pat (n-1) - , P.Data <$> capVar <*> genVector n pat - ] - - shrink pat = - case pat of - P.Anything -> [] - P.Var v -> P.Var <$> shrinkWHead v - P.Literal l -> P.Literal <$> shrink l - P.Alias s p -> p : (P.Alias <$> shrinkWHead s <*> shrink p) - P.Data s ps -> ps ++ (P.Data <$> shrinkWHead s <*> shrink ps) - P.Record fs -> - P.Record <$> filter (all notNull) (filter notNull (shrink fs)) - where - notNull = not . null - -shrinkWHead :: Arbitrary a => [a] -> [[a]] -shrinkWHead [] = error "Should be nonempty" -shrinkWHead (x:xs) = (x:) <$> shrink xs - -instance Arbitrary T.Type where - arbitrary = sized tipe - where - tipe :: Int -> Gen T.Type - tipe n = - let depthTipe = tipe =<< choose (0,n) - field = (,) <$> lowVar <*> depthTipe - fields = genVector n (\m -> (,) <$> lowVar <*> tipe m) - fields1 = (:) <$> field <*> fields - in - oneof - [ T.Lambda <$> depthTipe <*> depthTipe - , T.Var <$> lowVar - , T.Data <$> capVar <*> genVector n tipe - , T.Record <$> fields <*> pure Nothing - , T.Record <$> fields1 <*> (Just <$> lowVar) - ] - - shrink tipe = - case tipe of - T.Lambda s t -> s : t : (T.Lambda <$> shrink s <*> shrink t) - T.Var _ -> [] - T.Data n ts -> ts ++ (T.Data <$> shrinkWHead n <*> shrink ts) - T.Record fs t -> map snd fs ++ record - where - record = - case t of - Nothing -> T.Record <$> shrinkList shrinkField fs <*> pure Nothing - Just _ -> - do fields <- filter (not . null) $ shrinkList shrinkField fs - return $ T.Record fields t - - shrinkField (n,t) = (,) <$> shrinkWHead n <*> shrink t - -lowVar :: Gen String -lowVar = notReserved $ (:) <$> lower <*> listOf varLetter - where - lower = elements ['a'..'z'] - -capVar :: Gen String -capVar = notReserved $ (:) <$> upper <*> listOf varLetter - where - upper = elements ['A'..'Z'] - -varLetter :: Gen Char -varLetter = elements $ ['a'..'z'] ++ ['A'..'Z'] ++ ['0'..'9'] ++ ['\'', '_'] - -notReserved :: Gen String -> Gen String -notReserved = flip exceptFor Parse.Helpers.reserveds - -exceptFor :: (Ord a) => Gen a -> [a] -> Gen a -exceptFor g xs = g `suchThat` notAnX - where - notAnX = flip Set.notMember xset - xset = Set.fromList xs diff --git a/tests/hs/CompilerTest.hs b/tests/hs/CompilerTest.hs new file mode 100644 --- /dev/null +++ b/tests/hs/CompilerTest.hs @@ -0,0 +1,11 @@ +module Main where + +import Test.Framework + +import Tests.Compiler +import Tests.Property + +main :: IO () +main = defaultMain [ compilerTests + , propertyTests + ] diff --git a/tests/hs/LibTest.hs b/tests/hs/LibTest.hs new file mode 100644 --- /dev/null +++ b/tests/hs/LibTest.hs @@ -0,0 +1,30 @@ +module Main where + +import Control.Monad (unless) +import Data.List (isInfixOf) +import System.Directory +import System.Exit +import System.FilePath +import System.Process + +import Elm.Internal.Paths as Elm + +main :: IO () +main = do + top <- getCurrentDirectory + let ioScript s = top"IO"s + runCmd "git submodule update --init" + out <- readProcess "npm" ["ls", "--parseable"] "" + unless ("jsdom" `isInfixOf` out) $ runCmd "npm install jsdom" + setCurrentDirectory $ top"tests""elm" + runCmd $ concat [top"dist""build""elm""elm --make --only-js --src-dir=" , top"automaton", " --src-dir=", top"IO", " --src-dir=", top"Elm-Test", " Test.elm"] + runCmd $ unwords ["cat ", ioScript "prescript.js", Elm.runtime, "build""Test.js", ioScript "handler.js", "> exe.js"] + exitWith =<< waitForProcess =<< (runCommand "node exe.js") + where runCmd cmd = do + putStrLn cmd + exitCode <- waitForProcess =<< runCommand cmd + case exitCode of + ExitSuccess -> return () + ExitFailure _ -> error "something went wrong" + + diff --git a/tests/hs/Tests/Compiler.hs b/tests/hs/Tests/Compiler.hs new file mode 100644 --- /dev/null +++ b/tests/hs/Tests/Compiler.hs @@ -0,0 +1,45 @@ +module Tests.Compiler (compilerTests) + where + +import Data.Functor ((<$>)) +import Data.Traversable (traverse) +import System.FilePath (()) +import System.FilePath.Find (find, (==?), extension) +import Test.Framework +import Test.Framework.Providers.HUnit (testCase) +import Test.HUnit (Assertion, assertFailure, assertBool) +import Text.Parsec (ParseError) + +import Elm.Internal.Utils as Elm + +compilerTests :: Test +compilerTests = buildTest $ do + goods <- mkTests goodCompile =<< getElms "good" + bads <- mkTests badCompile =<< getElms "bad" + return $ testGroup "Compile Tests" + [ + testGroup "Good Tests" goods + , testGroup "Bad Tests" bads + ] + + where getElms :: FilePath -> IO [FilePath] + getElms fname = find (return True) (extension ==? ".elm") (testsDir fname) + + mkTests :: (Either String String -> Assertion) -> [FilePath] -> IO [Test] + mkTests h = traverse setupTest + where setupTest f = testCase f . mkCompileTest h <$> readFile f + + testsDir = "tests" "test-files" + +goodCompile :: Either String String -> Assertion +goodCompile (Left err) = assertFailure err +goodCompile (Right _) = assertBool "" True + +badCompile :: Either String String -> Assertion +badCompile (Left _) = assertBool "" True +badCompile (Right _) = assertFailure "Compilation succeeded but should have failed" + +mkCompileTest :: ((Either String String) -> Assertion) -- ^ Handler + -> String -- ^ File Contents + -> Assertion +mkCompileTest handle = handle . Elm.compile diff --git a/tests/hs/Tests/Property.hs b/tests/hs/Tests/Property.hs new file mode 100644 --- /dev/null +++ b/tests/hs/Tests/Property.hs @@ -0,0 +1,55 @@ +module Tests.Property where + +import Control.Applicative ((<*)) +import Test.Framework +import Test.Framework.Providers.HUnit +import Test.Framework.Providers.QuickCheck2 +import Test.HUnit (assert) +import Test.QuickCheck +import Text.Parsec.Combinator (eof) +import Text.PrettyPrint as P + +import SourceSyntax.Literal as Lit +import qualified SourceSyntax.Pattern as P +import SourceSyntax.PrettyPrint (Pretty, pretty) +import Parse.Helpers (IParser, iParse) +import Parse.Literal (literal) +import qualified Parse.Pattern as Pat (expr) +import qualified Parse.Type as Type (expr) +import Tests.Property.Arbitrary + +propertyTests :: Test +propertyTests = + testGroup "Parse/Print Agreement Tests" + [ + testCase "Long Pattern test" $ assert (prop_parse_print Pat.expr longPat) + , testProperty "Literal test" $ prop_parse_print literal + , testProperty "Pattern test" $ prop_parse_print Pat.expr + , testProperty "Type test" $ prop_parse_print Type.expr + ] + + where + -- This test was autogenerated from the Pattern test and should be + -- left in all its ugly glory. + longPat = P.Data "I" [ P.Literal (Lit.Chr '+') + , P.Record + [ "q7yclkcm7k_ikstrczv_" + , "wQRv6gKsvvkjw4b5F" + ,"c9'eFfhk9FTvsMnwF_D" + ,"yqxhEkHvRFwZ" + ,"o" + ,"nbUlCn3y3NnkVoxhW" + ,"iJ0MNy3KZ_lrs" + ,"ug" + ,"sHHsX" + ,"mRKs9d" + ,"o2KiCX5'ZRzHJfRi8" ] + , P.Var "su'BrrbPUK6I33Eq" + ] + +prop_parse_print :: (Pretty a, Arbitrary a, Eq a) => IParser a -> a -> Bool +prop_parse_print p x = + either (const False) (== x) . parse_print p $ x + +parse_print :: (Pretty a) => IParser a -> a -> Either String a +parse_print p = either (Left . show) Right . iParse (p <* eof) . P.renderStyle P.style {mode=P.LeftMode} . pretty diff --git a/tests/hs/Tests/Property/Arbitrary.hs b/tests/hs/Tests/Property/Arbitrary.hs new file mode 100644 --- /dev/null +++ b/tests/hs/Tests/Property/Arbitrary.hs @@ -0,0 +1,128 @@ +{-# OPTIONS_GHC -W -fno-warn-orphans #-} +module Tests.Property.Arbitrary where + +import Control.Applicative ((<$>), (<*>), pure) +import Test.QuickCheck.Arbitrary +import Test.QuickCheck.Gen + +import qualified Data.Set as Set +import qualified Parse.Helpers (reserveds) + +import qualified SourceSyntax.Literal as L +import qualified SourceSyntax.Pattern as P +import qualified SourceSyntax.Type as T + +instance Arbitrary L.Literal where + arbitrary = + oneof + [ L.IntNum <$> arbitrary + , L.FloatNum <$> (arbitrary `suchThat` noE) + , L.Chr <$> arbitrary + -- This is too permissive + , L.Str <$> arbitrary + -- Booleans aren't actually source syntax + -- , Boolean <$> arbitrary + ] + + shrink lit = + case lit of + L.IntNum n -> L.IntNum <$> shrink n + L.FloatNum f -> L.FloatNum <$> (filter noE . shrink $ f) + L.Chr c -> L.Chr <$> shrink c + L.Str s -> L.Str <$> shrink s + L.Boolean b -> L.Boolean <$> shrink b + +noE :: Double -> Bool +noE = notElem 'e' . show + +genVector :: Int -> (Int -> Gen a) -> Gen [a] +genVector n generator = do + len <- choose (0,n) + let m = n `div` (len + 1) + vectorOf len $ generator m + +instance Arbitrary P.Pattern where + arbitrary = sized pat + where + pat :: Int -> Gen P.Pattern + pat n = + oneof + [ pure P.Anything + , P.Var <$> lowVar + , P.Record <$> (listOf1 lowVar) + , P.Literal <$> arbitrary + , P.Alias <$> lowVar <*> pat (n-1) + , P.Data <$> capVar <*> genVector n pat + ] + + shrink pat = + case pat of + P.Anything -> [] + P.Var v -> P.Var <$> shrinkWHead v + P.Literal l -> P.Literal <$> shrink l + P.Alias s p -> p : (P.Alias <$> shrinkWHead s <*> shrink p) + P.Data s ps -> ps ++ (P.Data <$> shrinkWHead s <*> shrink ps) + P.Record fs -> + P.Record <$> filter (all notNull) (filter notNull (shrink fs)) + where + notNull = not . null + +shrinkWHead :: Arbitrary a => [a] -> [[a]] +shrinkWHead [] = error "Should be nonempty" +shrinkWHead (x:xs) = (x:) <$> shrink xs + +instance Arbitrary T.Type where + arbitrary = sized tipe + where + tipe :: Int -> Gen T.Type + tipe n = + let depthTipe = tipe =<< choose (0,n) + field = (,) <$> lowVar <*> depthTipe + fields = genVector n (\m -> (,) <$> lowVar <*> tipe m) + fields1 = (:) <$> field <*> fields + in + oneof + [ T.Lambda <$> depthTipe <*> depthTipe + , T.Var <$> lowVar + , T.Data <$> capVar <*> genVector n tipe + , T.Record <$> fields <*> pure Nothing + , T.Record <$> fields1 <*> (Just <$> lowVar) + ] + + shrink tipe = + case tipe of + T.Lambda s t -> s : t : (T.Lambda <$> shrink s <*> shrink t) + T.Var _ -> [] + T.Data n ts -> ts ++ (T.Data <$> shrinkWHead n <*> shrink ts) + T.Record fs t -> map snd fs ++ record + where + record = + case t of + Nothing -> T.Record <$> shrinkList shrinkField fs <*> pure Nothing + Just _ -> + do fields <- filter (not . null) $ shrinkList shrinkField fs + return $ T.Record fields t + + shrinkField (n,t) = (,) <$> shrinkWHead n <*> shrink t + +lowVar :: Gen String +lowVar = notReserved $ (:) <$> lower <*> listOf varLetter + where + lower = elements ['a'..'z'] + +capVar :: Gen String +capVar = notReserved $ (:) <$> upper <*> listOf varLetter + where + upper = elements ['A'..'Z'] + +varLetter :: Gen Char +varLetter = elements $ ['a'..'z'] ++ ['A'..'Z'] ++ ['0'..'9'] ++ ['\'', '_'] + +notReserved :: Gen String -> Gen String +notReserved = flip exceptFor Parse.Helpers.reserveds + +exceptFor :: (Ord a) => Gen a -> [a] -> Gen a +exceptFor g xs = g `suchThat` notAnX + where + notAnX = flip Set.notMember xset + xset = Set.fromList xs