threepenny-gui (empty) → 0.1.0.0

raw patch · 36 files changed

+3614/−0 lines, 36 filesdep +basedep +bytestringdep +containerssetup-changed

Dependencies added: base, bytestring, containers, data-default, filepath, json, mtl, network, parsec, safe, snap-core, snap-server, text, threepenny-gui, time, transformers, utf8-string

Files

• LICENSE +28/−0
• Setup.hs +2/−0
• src/BarTab.hs +87/−0
• src/Buttons.hs +86/−0
• src/Chat.hs +108/−0
• src/Control/Concurrent/Chan/Extra.hs +22/−0
• src/Control/Concurrent/Delay.hs +17/−0
• src/Control/Event.hs +111/−0
• src/Control/Monad/Extra.hs +30/−0
• src/Control/Monad/IO.hs +8/−0
• src/DragNDropExample.hs +73/−0
• src/Graphics/UI/Threepenny.hs +15/−0
• src/Graphics/UI/Threepenny/Attributes.hs +107/−0
• src/Graphics/UI/Threepenny/Core.hs +472/−0
• src/Graphics/UI/Threepenny/DragNDrop.hs +111/−0
• src/Graphics/UI/Threepenny/Elements.hs +133/−0
• src/Graphics/UI/Threepenny/Events.hs +27/−0
• src/Graphics/UI/Threepenny/Internal/Core.hs +601/−0
• src/Graphics/UI/Threepenny/Internal/Resources.hs +54/−0
• src/Graphics/UI/Threepenny/Internal/Types.hs +161/−0
• src/Graphics/UI/Threepenny/JQuery.hs +53/−0
• src/Graphics/UI/driver.css +3/−0
• src/Graphics/UI/driver.js +435/−0
• src/Graphics/UI/index.html +10/−0
• src/Graphics/UI/jquery-cookie.js +56/−0
• src/Graphics/UI/jquery.js +4/−0
• src/MissingDollars.hs +142/−0
• src/UseWords.hs +110/−0
• threepenny-gui.cabal +160/−0
• wwwroot/and-then-haskell.txt +77/−0
• wwwroot/chat.html +13/−0
• wwwroot/css/DragNDropExample.css +18/−0
• wwwroot/css/buttons.css +52/−0
• wwwroot/css/chat.css +106/−0
• wwwroot/css/missing-dollars.css +52/−0
• wwwroot/css/use-words.css +70/−0

@@ -0,0 +1,28 @@+All rights reserved.++Redistribution and use in source and binary forms, with or without+modification, are permitted provided that the following conditions are met:++    * Redistributions of source code must retain the above copyright+      notice, this list of conditions and the following disclaimer.++    * Redistributions in binary form must reproduce the above+      copyright notice, this list of conditions and the following+      disclaimer in the documentation and/or other materials provided+      with the distribution.++    * Neither the name of Heinrich Apfelmus nor the names of other+      contributors may be used to endorse or promote products derived+      from this software without specific prior written permission.++THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS+"AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT+LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR+A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT+OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,+SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT+LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,+DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY+THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT+(INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE+OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.

@@ -0,0 +1,2 @@+import Distribution.Simple+main = defaultMain

@@ -0,0 +1,87 @@+{-# LANGUAGE CPP, PackageImports #-}+{-# LANGUAGE TypeSynonymInstances, FlexibleInstances #-}++import Control.Applicative+import Control.Monad+import Data.IORef+import Data.Maybe++import Paths++#ifdef CABAL+import qualified "threepenny-gui" Graphics.UI.Threepenny as UI+import "threepenny-gui" Graphics.UI.Threepenny.Core+#else+import qualified Graphics.UI.Threepenny as UI+import Graphics.UI.Threepenny.Core+#endif++-- | Main entry point. Starts a TP server.+main :: IO ()+main = do+    static <- getStaticDir+    startGUI Config+        { tpPort       = 10000+        , tpCustomHTML = Nothing+        , tpStatic     = static+        } setup++setup :: Window -> IO ()+setup w = do+    -- active elements+    return w # set title "BarTab"++    elAdd    <- UI.button # set UI.text "Add"+    elRemove <- UI.button # set UI.text "Remove"+    elResult <- UI.span++    inputs   <- newIORef []+    +    -- functionality+    let+        displayTotal = void $ do+            xs <- getValuesList =<< readIORef inputs+            element elResult # set text (showNumber . sum $ map readNumber xs)+        +        redoLayout :: IO ()+        redoLayout = void $ do+            layout <- mkLayout =<< readIORef inputs+            getBody w # set children [layout]+            displayTotal++        mkLayout :: [Element] -> IO Element+        mkLayout xs = column $+            [row [element elAdd, element elRemove]+            ,UI.hr]+            ++ map element xs +++            [UI.hr+            ,row [UI.span # set text "Sum: ", element elResult]+            ]+        +        addInput :: IO ()+        addInput = do+            elInput <- UI.input # set value "0"+            on (domEvent "livechange") elInput $ \_ -> displayTotal+            modifyIORef inputs (elInput:)+    +    on UI.click elAdd    $ \_ -> addInput                    >> redoLayout+    on UI.click elRemove $ \_ -> modifyIORef inputs (drop 1) >> redoLayout+    addInput >> redoLayout+++{-----------------------------------------------------------------------------+    Functionality+------------------------------------------------------------------------------}+type Number = Maybe Double++instance Num Number where+    (+) = liftA2 (+)+    (-) = liftA2 (-)+    (*) = liftA2 (*)+    abs = fmap abs+    signum = fmap signum+    fromInteger = pure . fromInteger++readNumber :: String -> Number+readNumber s = listToMaybe [x | (x,"") <- reads s]    +showNumber   = maybe "--" show

@@ -0,0 +1,86 @@+{-# LANGUAGE CPP, PackageImports #-}+++import Control.Monad+import Control.Concurrent (threadDelay)++#ifdef CABAL+import qualified "threepenny-gui" Graphics.UI.Threepenny as UI+import "threepenny-gui" Graphics.UI.Threepenny.Core+#else+import qualified Graphics.UI.Threepenny as UI+import Graphics.UI.Threepenny.Core+#endif+import Paths++{-----------------------------------------------------------------------------+    Buttons+------------------------------------------------------------------------------}++main :: IO ()+main = do+    static <- getStaticDir+    startGUI Config+        { tpPort       = 10000+        , tpCustomHTML = Nothing+        , tpStatic     = static+        } setup++setup :: Window -> IO ()+setup w = void $ do+    return w # set title "Buttons"+    UI.addStyleSheet w "buttons.css"++    buttons <- mkButtons+    getBody w #++        [UI.div #. "wrap" #+ (greet ++ map element buttons ++ [viewSource])]++greet :: [IO Element]+greet =+    [ UI.h1  #+ [string "Hello, Haskell!"]+    , UI.div #+ [string "Try the buttons below, they hover and click."]+    ]+++mkButton :: String -> IO (Element, Element)+mkButton title = do+    button <- UI.button #. "button" #+ [string title]+    view   <- UI.p #+ [element button]+    return (button, view)++mkButtons :: IO [Element]+mkButtons = do+    list    <- UI.ul #. "buttons-list"+    +    (button1, view1) <- mkButton button1Title+    +    on UI.hover button1 $ \_ -> do+        element button1 # set text (button1Title ++ " [hover]")+    on UI.leave button1 $ \_ -> do+        element button1 # set text button1Title+    on UI.click button1 $ \_ -> do+        threadDelay $ 1000 * 1000 * 1+        element button1 # set text (button1Title ++ " [pressed]")+        element list    #+ [UI.li # set html "<b>Delayed</b> result!"]+    +    (button2, view2) <- mkButton button2Title++    on UI.hover button2 $ \_ -> do+        element button2 # set text (button2Title ++ " [hover]")+    on UI.leave button2 $ \_ -> do+        element button2 # set text button2Title+    on UI.click button2 $ \_ -> do+        element button1 # set text (button1Title ++ " [pressed]")+        element list    #+ [UI.li # set html "Zap! Quick result!"]+    +    return [list, view1, view2]++  where button1Title = "Click me, I delay a bit"+        button2Title = "Click me, I work immediately"++viewSource :: IO Element+viewSource = UI.p #++    [UI.anchor #. "view-source" # set UI.href url #+ [string "View source code"]]+    where+    url = "https://github.com/HeinrichApfelmus/threepenny-gui/blob/master/src/Buttons.hs"+

@@ -0,0 +1,108 @@+{-# LANGUAGE CPP, PackageImports #-}+{-# LANGUAGE TypeSynonymInstances, FlexibleInstances #-}++import Control.Concurrent+import qualified Control.Concurrent.Chan as Chan+import Control.Exception+import Control.Monad+import Data.Functor+import Data.List.Extra+import Data.Time+import Prelude hiding (catch)++import Control.Monad.Trans.Reader as Reader+import Control.Monad.IO.Class++#ifdef CABAL+import qualified "threepenny-gui" Graphics.UI.Threepenny as UI+import "threepenny-gui" Graphics.UI.Threepenny.Core hiding (text)+#else+import qualified Graphics.UI.Threepenny as UI+import Graphics.UI.Threepenny.Core hiding (text)+#endif+import Paths++{-----------------------------------------------------------------------------+    Chat+------------------------------------------------------------------------------}++main :: IO ()+main = do+    static   <- getStaticDir+    messages <- Chan.newChan+    startGUI Config+        { tpPort       = 10000+        , tpCustomHTML = Just "chat.html"+        , tpStatic     = static+        } $ setup messages++type Message = (UTCTime, String, String)++setup :: Chan Message -> Window -> IO ()+setup globalMsgs w = do+    msgs <- Chan.dupChan globalMsgs++    return w # set title "Chat"+    +    (nick, nickname) <- mkNickname+    messageArea      <- mkMessageArea msgs nick++    getBody w #++        [ UI.div #. "header"   #+ [string "Threepenny Chat"]+        , UI.div #. "gradient"+        , viewSource+        , element nickname+        , element messageArea+        ]+    +    void $ forkIO $ receiveMessages w msgs messageArea++--    io $ catch (runTP session handleEvents)+--             (\e -> do killThread messageReceiver+--                       throw (e :: SomeException))++receiveMessages w msgs messageArea = do+    messages <- Chan.getChanContents msgs+    forM_ messages $ \msg -> do+        atomic w $ do+          element messageArea #+ [mkMessage msg]+          UI.scrollToBottom messageArea++mkMessageArea :: Chan Message -> Element -> IO Element+mkMessageArea msgs nickname = do+    input <- UI.textarea #. "send-textarea"+    +    on UI.sendValue input $ (. trim) $ \content -> do+        when (not (null content)) $ do+            now  <- getCurrentTime+            nick <- trim <$> get value nickname+            element input # set value ""+            when (not (null nick)) $+                Chan.writeChan msgs (now,nick,content)++    UI.div #. "message-area" #+ [UI.div #. "send-area" #+ [element input]]+++mkNickname :: IO (Element, Element)+mkNickname = do+    i  <- UI.input #. "name-input"+    el <- UI.div   #. "name-area"  #++        [ UI.span  #. "name-label" #+ [string "Your name "]+        , element i+        ]+    UI.setFocus i+    return (i,el)++mkMessage :: Message -> IO Element+mkMessage (timestamp, nick, content) =+    UI.div #. "message" #++        [ UI.div #. "timestamp" #+ [string $ show timestamp]+        , UI.div #. "name"      #+ [string $ nick ++ " says:"]+        , UI.div #. "content"   #+ [string content]+        ]++viewSource :: IO Element+viewSource =+    UI.anchor #. "view-source" # set UI.href url #+ [string "View source code"]+    where+    url = "https://github.com/HeinrichApfelmus/threepenny-gui/blob/master/src/Chat.hs"

@@ -0,0 +1,22 @@+-- | Extra utilities for chans.++module Control.Concurrent.Chan.Extra+  (readAvailableChan)+  where++import Control.Concurrent.Chan++readAvailableChan :: Chan a -> IO [a]+readAvailableChan chan = do+  v <- readChan chan+  vs <- rest+  return (v:vs)++  where+    rest = do+      empty <- isEmptyChan chan+      if empty+         then return []+         else do v <- readChan chan+                 vs <- rest+                 return (v:vs)

@@ -0,0 +1,17 @@+-- | Delay a thread for n seconds or minutes.++module Control.Concurrent.Delay+  (delaySeconds+  ,delayMinutes)+  where++import Control.Concurrent++-- | Delay the current thread for at least n seconds.+delaySeconds :: Integer -> IO ()+delaySeconds 0 = return ()+delaySeconds n = do threadDelay (1000 * 1000); delaySeconds (n-1)++-- | Delay the current thread for at least n minutes.+delayMinutes :: Integer -> IO ()+delayMinutes = delaySeconds . (*60)

@@ -0,0 +1,111 @@+module Control.Event (+    -- * Synopsis+    -- | Event-driven programming in the imperative style.+        +    -- * Documentation+    Handler, Event(..),+    mapIO, filterIO, filterJust,+    newEvent, newEventsTagged+    ) where+++import Data.IORef+import qualified Data.Unique -- ordinary uniques here, because they are Ord++import qualified Data.Map as Map++type Map = Map.Map++{-----------------------------------------------------------------------------+    Types+------------------------------------------------------------------------------}+-- | An /event handler/ is a function that takes an+-- /event value/ and performs some computation.+type Handler a = a -> IO ()+++-- | An /event/ is a facility for registering+-- event handlers. These will be called whenever the event occurs.+-- +-- When registering an event handler, you will also be given an action+-- that unregisters this handler again.+-- +-- > do unregisterMyHandler <- register event myHandler+--+newtype Event a = Event { register :: Handler a -> IO (IO ()) }++{-----------------------------------------------------------------------------+    Combinators+------------------------------------------------------------------------------}+instance Functor Event where+    fmap f = mapIO (return . f)++-- | Map the event value with an 'IO' action.+mapIO :: (a -> IO b) -> Event a -> Event b+mapIO f e = Event $ \h -> register e $ \x -> f x >>= h ++-- | Filter event values that don't return 'True'.+filterIO :: (a -> IO Bool) -> Event a -> Event a+filterIO f e = Event $ \h ->+    register e $ \x -> f x >>= \b -> if b then h x else return ()++-- | Keep only those event values that are of the form 'Just'.+filterJust :: Event (Maybe a) -> Event a+filterJust e = Event $ \g -> register e (maybe (return ()) g)+++{-----------------------------------------------------------------------------+    Construction+------------------------------------------------------------------------------}+-- | Build a facility to register and unregister event handlers.+-- Also yields a function that takes an event handler and runs all the registered+-- handlers.+--+-- Example:+--+-- > do+-- >     (event, fire) <- newEvent+-- >     register event (putStrLn)+-- >     fire "Hello!"+newEvent :: IO (Event a, a -> IO ())+newEvent = do+    handlers <- newIORef Map.empty+    let register handler = do+            key <- Data.Unique.newUnique+            atomicModifyIORef_ handlers $ Map.insert key handler+            return $ atomicModifyIORef_ handlers $ Map.delete key+        runHandlers a =+            mapM_ ($ a) . map snd . Map.toList =<< readIORef handlers+    return (Event register, runHandlers)++-- | Build several 'Event's from case analysis on a tag.+-- Generalization of 'newEvent'.+newEventsTagged :: Ord tag => IO (tag -> Event a, (tag, a) -> IO ())+newEventsTagged = do+    handlersRef <- newIORef Map.empty       -- :: Map key (Map Unique (Handler a))++    let register tag handler = do+            -- new identifier for this handler+            uid <- Data.Unique.newUnique+            -- add handler to map at  key+            atomicModifyIORef_ handlersRef $+                Map.alter (Just . Map.insert uid handler . maybe Map.empty id) tag+            -- remove handler from map at  key+            return $ atomicModifyIORef_ handlersRef $+                Map.adjust (Map.delete uid) tag++    let runHandlers (tag,a) = do+            handlers <- readIORef handlersRef+            case Map.lookup tag handlers of+                Just hs -> mapM_ ($ a) (Map.elems hs)+                Nothing -> return ()++    return (\tag -> Event (register tag), runHandlers)+            +{-----------------------------------------------------------------------------+    Utilities+------------------------------------------------------------------------------}+atomicModifyIORef_ ref f = atomicModifyIORef ref $ \x -> (f x, ())+++

@@ -0,0 +1,30 @@+-- | Extra utilities for monads.++module Control.Monad.Extra where++import Data.Maybe++-- | Ignore the given action's return.+ig :: (Monad m) => m a -> m ()+ig m = m >> return ()++-- | A non-operator version of (=<<).+bind :: (Monad m) => (a -> m b) -> m a -> m b+bind = flip (>>=)++-- | When the value is Just, run the action.+whenJust :: Monad m => Maybe a -> (a -> m ()) -> m ()+whenJust (Just a) m = m a+whenJust Nothing  _ = return ()++-- | Wrap up a functor in a Maybe.+just :: Functor m => m a -> m (Maybe a)+just = fmap Just++-- | Flip mapMaybe.+forMaybe :: [a] -> (a -> Maybe b) -> [b]+forMaybe = flip mapMaybe++-- | Monadic version of maybe.+maybeM :: (Monad m) => a -> (a1 -> m a) -> Maybe a1 -> m a+maybeM nil cons a = maybe (return nil) cons a

@@ -0,0 +1,8 @@+{-# OPTIONS -Wall #-}++module Control.Monad.IO where++import Control.Monad.Trans++io :: MonadIO m => IO a -> m a+io = liftIO

@@ -0,0 +1,73 @@+{-# LANGUAGE CPP, PackageImports #-}++import Control.Applicative+import Control.Monad+import Data.IORef+import Data.Maybe++#ifdef CABAL+import qualified  "threepenny-gui" Graphics.UI.Threepenny as UI+import "threepenny-gui" Graphics.UI.Threepenny.Core+#else+import qualified Graphics.UI.Threepenny as UI+import Graphics.UI.Threepenny.Core+#endif+import Paths++{-----------------------------------------------------------------------------+    Drag'N'Drop example+------------------------------------------------------------------------------}+main :: IO ()+main = do+    static <- getStaticDir+    startGUI Config+        { tpPort       = 10000+        , tpCustomHTML = Nothing+        , tpStatic     = static+        } setup++setup :: Window -> IO ()+setup w = void $ do+    return w # set title "Drag 'N' Drop Example"+    UI.addStyleSheet w "DragNDropExample.css"+    +    pairs <- sequence $+        zipWith (mkDragPair w) (words "red green blue") (map (150*) [0..2])+    getBody w #+ concat [[element i, element o] | (i,o) <- pairs]++type Color = String++mkDragPair :: Window -> Color -> Int -> IO (Element, Element)+mkDragPair w color position = do+    elDrag <- UI.new #. "box-drag"+        # set UI.style [("left", show position ++ "px"), ("color",color)]+        # set text "Drag me!"+        # set UI.draggable True+        # set UI.dragData color++    elDrop  <- UI.new #. "box-drop"+        # set UI.style [("border","2px solid " ++ color), ("left", show position ++ "px")]+++    dropSuccess <- newIORef False++    on UI.dragStart elDrag $ \_ -> void $+        element elDrop+            # set text "Drop here!"+            # set UI.droppable True+    on UI.dragEnd   elDrag $ \_ -> void $ do+        dropped <- readIORef dropSuccess+        when (not dropped) $ void $+            element elDrop+                # set text ""+                # set UI.droppable False++    on UI.drop elDrop $ \color' -> when (color == color') $ void $ do+        writeIORef dropSuccess True+        delete elDrag+        element elDrop+            # set text "Dropped!"+            # set UI.droppable False+    +    return (elDrag, elDrop)+

@@ -0,0 +1,15 @@+module Graphics.UI.Threepenny (+    module Graphics.UI.Threepenny.Attributes,+    module Graphics.UI.Threepenny.Core,+    module Graphics.UI.Threepenny.DragNDrop,+    module Graphics.UI.Threepenny.Elements,+    module Graphics.UI.Threepenny.Events,+    module Graphics.UI.Threepenny.JQuery,+    ) where++import Graphics.UI.Threepenny.Attributes+import Graphics.UI.Threepenny.Core+import Graphics.UI.Threepenny.DragNDrop+import Graphics.UI.Threepenny.Elements+import Graphics.UI.Threepenny.Events+import Graphics.UI.Threepenny.JQuery

@@ -0,0 +1,107 @@+module Graphics.UI.Threepenny.Attributes (+    -- * Synopsis+    -- | Element Attributes, for convenience.+    +    -- * Documentation+    action, align, alink, alt, altcode, archive,+    background, base, bgcolor, border, bordercolor,+    cellpadding, cellspacing, checked, class_, clear_, code, codebase,+    color, cols, colspan, compact, content, coords,+    enctype, face, frameborder, height, href, hspace, httpequiv,+    id_, ismap, lang, link, marginheight, marginwidth, maxlength, method, multiple,+    name, nohref, noresize, noshade, nowrap,+    rel, rev, rows, rowspan, rules,+    scrolling, selected, shape, size, src, start,+    target, text_, type_, usemap, valign, version, vlink, vspace, width,+    ) where+++import Graphics.UI.Threepenny.Core++{-----------------------------------------------------------------------------+    Attributes+------------------------------------------------------------------------------}+strAttr :: String -> WriteAttr Element String+strAttr name = mkWriteAttr (set' (attr name))++intAttr :: String -> WriteAttr Element Int+intAttr name = mkWriteAttr (set' (attr name) . show)++emptyAttr :: String -> WriteAttr Element Bool+emptyAttr name = mkWriteAttr (set' (attr name) . f)+    where+    f True  = "1"+    f False = "0"++{-----------------------------------------------------------------------------+    Primitives+    +    Taken from the HTML library (BSD3 license)+    http://hackage.haskell.org/package/html+------------------------------------------------------------------------------}+action              =   strAttr "action"+align               =   strAttr "align"+alink               =   strAttr "alink"+alt                 =   strAttr "alt"+altcode             =   strAttr "altcode"+archive             =   strAttr "archive"+background          =   strAttr "background"+base                =   strAttr "base"+bgcolor             =   strAttr "bgcolor"+border              =   intAttr "border"+bordercolor         =   strAttr "bordercolor"+cellpadding         =   intAttr "cellpadding"+cellspacing         =   intAttr "cellspacing"+checked             = emptyAttr "checked"+clear_              =   strAttr "clear"+code                =   strAttr "code"+codebase            =   strAttr "codebase"+color               =   strAttr "color"+cols                =   strAttr "cols"+colspan             =   intAttr "colspan"+compact             = emptyAttr "compact"+content             =   strAttr "content"+coords              =   strAttr "coords"+enctype             =   strAttr "enctype"+face                =   strAttr "face"+frameborder         =   intAttr "frameborder"+height              =   intAttr "height"+href                =   strAttr "href"+hspace              =   intAttr "hspace"+httpequiv           =   strAttr "http-equiv"+id_                 =   strAttr "id"+ismap               = emptyAttr "ismap"+lang                =   strAttr "lang"+link                =   strAttr "link"+marginheight        =   intAttr "marginheight"+marginwidth         =   intAttr "marginwidth"+maxlength           =   intAttr "maxlength"+method              =   strAttr "method"+multiple            = emptyAttr "multiple"+name                =   strAttr "name"+nohref              = emptyAttr "nohref"+noresize            = emptyAttr "noresize"+noshade             = emptyAttr "noshade"+nowrap              = emptyAttr "nowrap"+rel                 =   strAttr "rel"+rev                 =   strAttr "rev"+rows                =   strAttr "rows"+rowspan             =   intAttr "rowspan"+rules               =   strAttr "rules"+scrolling           =   strAttr "scrolling"+selected            = emptyAttr "selected"+shape               =   strAttr "shape"+size                =   strAttr "size"+src                 =   strAttr "src"+start               =   intAttr "start"+target              =   strAttr "target"+text_               =   strAttr "text"+class_              =   strAttr "class"+type_               =   strAttr "type"+title               =   strAttr "title"+usemap              =   strAttr "usemap"+valign              =   strAttr "valign"+version             =   strAttr "version"+vlink               =   strAttr "vlink"+vspace              =   intAttr "vspace"+width               =   strAttr "width"

@@ -0,0 +1,472 @@+module Graphics.UI.Threepenny.Core (+    -- * Guide+    -- $guide+    +    -- * Server+    -- $server+    Config(..), startGUI,+    loadFile, loadDirectory,+    +    -- * Browser Window+    Window, title, cookies, getRequestLocation,+    +    -- * DOM elements+    -- | Create and manipulate DOM elements.+    Element, mkElement, getWindow, delete, (#+), string,+        getHead, getBody, +        children, text, html, attr, style, value,+    getValuesList,+    getElementsByTagName, getElementByTagName, getElementsById, getElementById,+    +    -- * Layout+    -- | Combinators for quickly creating layouts.+    -- They can be adjusted with CSS later on.+    grid, row, column,+    +    -- * Events+    -- | For a list of predefined events, see "Graphics.UI.Threepenny.Events".+    EventData(..), domEvent, on,+    module Control.Event,+    +    -- * Attributes+    -- | For a list of predefined attributes, see "Graphics.UI.Threepenny.Attributes".+    (#), (#.), element,+    Attr, WriteAttr, ReadAttr, ReadWriteAttr(..),+    set, get, mkReadWriteAttr, mkWriteAttr, mkReadAttr,+    +    -- * Utilities+    -- | A few raw JavaScript utilities.+    debug, clear,+    callFunction, runFunction, callDeferredFunction,+    atomic,+    +    -- * Internal+    updateElement,+    +    ) where++import Data.Maybe (listToMaybe)+import Data.Functor+import Control.Event+import Control.Monad+import Control.Monad.IO.Class+import Control.Monad.Trans.Reader as Reader++import Control.Concurrent.MVar+import Data.IORef++import Data.String (fromString)++import Network.URI++import qualified Graphics.UI.Threepenny.Internal.Core  as Core+import Graphics.UI.Threepenny.Internal.Core+    (getRequestLocation,+     debug, clear, callFunction, runFunction, callDeferredFunction, atomic, )+import qualified Graphics.UI.Threepenny.Internal.Types as Core+import Graphics.UI.Threepenny.Internal.Types (Window, Config, EventData)++{-----------------------------------------------------------------------------+    Guide+------------------------------------------------------------------------------}+{- $guide++Threepenny runs a small web server that displays the user interface+as a web page to any browser that connects to it.+To start the web server, use the 'startGUI' function.++Creating of DOM elements is easy,+the '(#+)' combinator allows a style similar to HTML combinator libraries.++Existing DOM elements can be accessed much in the same way they are+accessed from JavaScript; they can be searched, updated, moved and+inspected. Events can be bound to DOM elements and handled.+++Applications written in Threepenny are multithreaded. Each client (user)+has a separate thread which runs with no awareness of the asynchronous+protocol below. Each session should only be accessed from one+thread. There is not yet any clever architecture for accessing the+(single threaded) web browser from multi-threaded Haskell. That's+my recommendation. You can choose to ignore it, but don't blame me+when you run an element search and you get a click event as a+result.++This project was originally called Ji.++-}+++{-----------------------------------------------------------------------------+    Server+------------------------------------------------------------------------------}+{- $server++To display the user interface, you have to start a server using 'startGUI'.+Then, visit the URL <http://localhost:10000/> in your browser+(assuming that you have set the port number to @tpPort=10000@+in the server configuration).++-}++-- | Start server for GUI sessions.+startGUI+    :: Config               -- ^ Server configuration.+    -> (Window -> IO ())    -- ^ Action to run whenever a client browser connects.+    -> IO ()+startGUI config handler =+    Core.serve config $ \w -> handler w >> Core.handleEvents w+++-- | Make a local file available as a relative URI.+loadFile+    :: Window     -- ^ Browser window+    -> String     -- ^ MIME type+    -> FilePath   -- ^ Local path to the file+    -> IO String  -- ^ Generated URI+loadFile w mime path = Core.loadFile w (fromString mime) path++-- | Make a local directory available as a relative URI.+loadDirectory :: Window -> FilePath -> IO String+loadDirectory = Core.loadDirectory++{-----------------------------------------------------------------------------+    Browser window+------------------------------------------------------------------------------}+-- | Title of the client window.+title :: WriteAttr Window String+title = mkWriteAttr Core.setTitle++-- | Cookies on the client.+cookies :: ReadAttr Window [(String,String)]+cookies = mkReadAttr Core.getRequestCookies++{-----------------------------------------------------------------------------+    Elements+------------------------------------------------------------------------------}+type Value = String++-- | Reference to an element in the DOM of the client window.+newtype Element = Element (MVar Elem)+data    Elem+    = Alive Core.Element                       -- element exists in a window+    | Limbo Value (Window -> IO Core.Element)  -- still needs to be created++-- Turn a live reference into an 'Element'.+-- Note that multiple MVars may now point to the same live reference,+-- but this is ok since live references never change.+fromAlive :: Core.Element -> IO Element+fromAlive e = Element <$> newMVar (Alive e)++-- Update an element that may be in Limbo.+updateElement :: (Core.Element -> IO ()) -> Element -> IO ()+updateElement f (Element me) = do+    e <- takeMVar me+    case e of+        Alive e -> do   -- update immediately+            f e+            putMVar me $ Alive e+        Limbo value create ->      -- update on creation+            putMVar me $ Limbo value $ \w -> create w >>= \e -> f e >> return e++-- Given a browser window, make sure that the element exists there.+-- TODO: 1. Throw exception if the element exists in another window.+--       2. Don't throw exception, but move the element across windows.+manifestElement :: Window -> Element -> IO Core.Element+manifestElement w (Element me) = do+    e1 <- takeMVar me+    e2 <- case e1 of+        Alive e        -> return e+        Limbo v create -> do { e2 <- create w; Core.setAttr "value" v e2; return e2 }+    putMVar me $ Alive e2+    return e2++-- Append a child element to a parent element. Non-blocking.+appendTo+    :: Element   -- ^ Parent.+    -> Element   -- ^ Child.+    -> IO ()+appendTo parent child = do+    flip updateElement parent $ \x -> do+        y <- manifestElement (Core.getWindow x) child+        Core.appendElementTo x y++-- | Make a new DOM element.+mkElement+    :: String           -- ^ Tag name+    -> IO Element+mkElement tag = Element <$> newMVar (Limbo "" $ \w -> Core.newElement w tag)++-- | Retreive the browser 'Window' in which the element resides.+-- +-- Note that elements do not reside in any browser window when they are first created.+-- To move the element to a particular browser window,+-- you have to append it to a parent, for instance with the `(#+)` operator.+--+-- WARNING: The ability to move elements from one browser window to another+-- is currently not implemented yet.+getWindow :: Element -> IO (Maybe Window)+getWindow (Element ref) = do+    e1 <- readMVar ref+    return $ case e1 of+        Alive e   -> Just $ Core.getWindow e+        Limbo _ _ -> Nothing++-- | Delete the given element.+delete :: Element -> IO ()+delete = updateElement (Core.delete)++-- | Append DOM elements as children to a given element.+(#+) :: IO Element -> [IO Element] -> IO Element+(#+) mx mys = do+    x  <- mx+    ys <- sequence mys+    mapM_ (appendTo x) ys+    return x++-- | Child elements of a given element.+children :: WriteAttr Element [Element]+children = mkWriteAttr set+    where+    set xs x = do+        updateElement Core.emptyEl x+        mapM_ (appendTo x) xs++-- | Child elements of a given element as a HTML string.+html :: WriteAttr Element String+html = mkWriteAttr (updateElement . Core.setHtml)++-- | HTML attributes of an element.+attr :: String -> WriteAttr Element String+attr name = mkWriteAttr (updateElement . Core.setAttr name)++-- | Set CSS style of an Element+style :: WriteAttr Element [(String,String)]+style = mkWriteAttr (updateElement . Core.setStyle)++-- | Value attribute of an element.+-- Particularly relevant for control widgets like 'input'.+value :: Attr Element String+value = mkReadWriteAttr get set+    where+    get   (Element ref) = getValue =<< readMVar ref+    set v (Element ref) = updateMVar (setValue v) ref+    +    getValue (Limbo v _) = return v+    getValue (Alive e  ) = Core.getValue e+    +    setValue v (Limbo _ f) = return $ Limbo v f+    setValue v (Alive e  ) = Core.setAttr "value" v e >> return (Alive e)+    +    updateMVar f ref = do+        x <- takeMVar ref+        y <- f x+        putMVar ref y++-- | Get values from inputs. Blocks. This is faster than many 'getValue' invocations.+getValuesList+    :: [Element]   -- ^ A list of elements to get the values of.+    -> IO [String] -- ^ The list of plain text values.+getValuesList = mapM (get value)+    -- TODO: improve this to use Core.getValuesList++-- | Text content of an element.+text :: WriteAttr Element String+text = mkWriteAttr (updateElement . Core.setText)++-- | Make a @span@ element with a given text content.+string :: String -> IO Element+string s = mkElement "span" # set text s+++-- | Get the head of the page.+getHead :: Window -> IO Element+getHead = fromAlive <=< Core.getHead++-- | Get the body of the page.+getBody :: Window -> IO Element+getBody = fromAlive <=< Core.getBody++-- | Get an element by its tag name.  Blocks.+getElementByTagName+    :: Window             -- ^ Browser window+    -> String             -- ^ The tag name.+    -> IO (Maybe Element) -- ^ An element (if any) with that tag name.+getElementByTagName window = liftM listToMaybe . getElementsByTagName window++-- | Get all elements of the given tag name.  Blocks.+getElementsByTagName+    :: Window        -- ^ Browser window+    -> String        -- ^ The tag name.+    -> IO [Element]  -- ^ All elements with that tag name.+getElementsByTagName window name =+    mapM fromAlive =<< Core.getElementsByTagName window name++-- | Get an element by a particular ID.  Blocks.+getElementById+    :: Window              -- ^ Browser window+    -> String              -- ^ The ID string.+    -> IO (Maybe Element)  -- ^ Element (if any) with given ID.+getElementById window id = listToMaybe `fmap` getElementsById window [id]++-- | Get a list of elements by particular IDs.  Blocks.+getElementsById+    :: Window        -- ^ Browser window+    -> [String]      -- ^ The ID string.+    -> IO [Element]  -- ^ Elements with given ID.+getElementsById window name =+    mapM fromAlive =<< Core.getElementsById window name+++{-----------------------------------------------------------------------------+    Layout+------------------------------------------------------------------------------}+-- | Align given elements in a row. Special case of 'grid'.+row :: [IO Element] -> IO Element+row xs = grid [xs]++-- | Align given elements in a column. Special case of 'grid'.+column :: [IO Element] -> IO Element+column = grid . map (:[])++-- | Align given elements in a rectangular grid.+--+-- Layout is achieved by using the CSS @display:table@ property.+-- The following element tree will be generated+--+-- >  <div class="table">+-- >    <div class="table-row">+-- >      <div class="table-cell> ... </div>+-- >      <div class="table-cell> ... </div>+-- >    </div>+-- >    <div class="table-row">+-- >      ...+-- >    </div>+-- >   ...+-- >   </div>+--+-- You can customatize the actual layout by assigning an @id@ to the element+-- and changing the @.table@, @.table-row@ and @table-column@+-- classes in a custom CSS file.+grid    :: [[IO Element]] -> IO Element+grid mrows = do+        rows0 <- mapM (sequence) mrows+    +        rows  <- forM rows0 $ \row0 -> do+            row <- forM row0 $ \entry ->+                wrap "table-cell" [entry]+            wrap "table-row" row+        wrap "table" rows++    where+    wrap c xs = mkElement "div" # set (attr "class") c #+ map element xs++{-----------------------------------------------------------------------------+    Events+------------------------------------------------------------------------------}+-- | Obtain DOM event for a given element.+domEvent+    :: String+        -- ^ Event name. A full list can be found at+        --   <http://www.w3schools.com/jsref/dom_obj_event.asp>.+        --   Note that the @on@-prefix is not included,+        --   the name is @click@ and so on.+    -> Element          -- ^ Element where the event is to occur.+    -> Event EventData+domEvent name element = Control.Event.Event $ \handler -> do+    ref <- newIORef $ return ()+    let+        -- register handler and remember unregister function+        register' = flip updateElement element $ \e -> do+            unregister <- register (Core.bind name e) handler+            writeIORef ref unregister+        +        -- update element to unregister the event handler+        unregister' = flip updateElement element $ \_ -> do+            join $ readIORef ref+    +    register'+    return unregister'++-- | Convenience function to register 'Event's for 'Element's.+--+-- Example usage.+--+-- > on click element $ \_ -> ...+on :: (element -> Event a) -> element -> (a -> IO void) -> IO ()+on f x h = register (f x) (void . h) >> return ()+++{-----------------------------------------------------------------------------+    Attributes+------------------------------------------------------------------------------}+infixl 8 #+infixl 8 #++infixl 8 #.++-- | Reverse function application.+-- Allows convenient notation for setting properties.+--+-- Example usage.+--+-- > mkElement "div"+-- >     # set style     [("color","#CCAABB")]+-- >     # set draggable True+-- >     # set children  otherElements+(#) :: a -> (a -> b) -> b+(#) = flip ($)++-- | Convenient combinator for setting the CSS class on element creation.+(#.) :: IO Element -> String -> IO Element+(#.) mx s = mx # set (attr "class") s+++-- | Convience synonym for 'return' to make elements work well with 'set'.+--+-- Example usage.+--+-- > e <- mkElement "button"+-- > element e # set text "Ok"+element :: Element -> IO Element+element = return+++-- | Attributes can be 'set' and 'get'.+type Attr x a = ReadWriteAttr x a a++-- | Attribute that only supports the 'get' operation.+type ReadAttr x o = ReadWriteAttr x () o++-- | Attribute that only supports the 'set' operation.+type WriteAttr x i = ReadWriteAttr x i ()++-- | Generalized attribute with different types for getting and setting.+data ReadWriteAttr x i o = ReadWriteAttr+    { get' :: x -> IO o+    , set' :: i -> x -> IO ()+    }++-- | Set value of an attribute in the 'IO' monad.+-- Best used in conjunction with '#'.+set :: MonadIO m => ReadWriteAttr x i o -> i -> m x -> m x+set attr i mx = do { x <- mx; liftIO (set' attr i x); return x; }++-- | Get attribute value.+get :: ReadWriteAttr x i o -> x -> IO o+get = get'++-- | Build an attribute from a getter and a setter.+mkReadWriteAttr+    :: (x -> IO o)          -- ^ Getter.+    -> (i -> x -> IO ())    -- ^ Setter.+    -> ReadWriteAttr x i o+mkReadWriteAttr get set = ReadWriteAttr { get' = get, set' = set }++-- | Build attribute from a getter.+mkReadAttr :: (x -> IO o) -> ReadAttr x o+mkReadAttr get = mkReadWriteAttr get (\_ _ -> return ())++-- | Build attribute from a setter.+mkWriteAttr :: (i -> x -> IO ()) -> WriteAttr x i+mkWriteAttr set = mkReadWriteAttr (\_ -> return ()) set+

@@ -0,0 +1,111 @@+module Graphics.UI.Threepenny.DragNDrop (+    -- * Synopsis+    -- | API for handling drag and drop operations.+    -- +    -- See the documentation below for details on the drag and drop model.+    -- +    -- WARNING: Events in this module may not behave as expected.+    -- The model is currently implemented in terms of HTML 5 drag and drop,+    -- but unfortunately,+    -- the HTML 5 specification for drag and drop is horrible and+    -- browser implementations are buggy.+    +    -- * Documentation+    draggable, droppable, dragData,+    DragData,+    drag, dragStart, dragEnd, drop, dragEnter, dragLeave, dragOver,+    ) where++import Prelude hiding (drop)+import Control.Monad+import Graphics.UI.Threepenny.Core++{-----------------------------------------------------------------------------+    Attributes+------------------------------------------------------------------------------}+-- | Enable or disable whether the element can be dragged by the user.+--+-- An element with draggable set to 'True' will receive+-- 'drag', 'dragStart' and 'dragEnd' events.+draggable :: WriteAttr Element Bool+draggable = mkWriteAttr set+    where+    set v = set' (attr "draggable") $ if v then "true" else "false"++-- | Set the data that is transferred when dragging this element.+dragData :: WriteAttr Element DragData+dragData = mkWriteAttr set+    where+    set v = set' (attr "ondragstart") $+        "event.dataTransfer.setData('dragData', '" ++ v ++ "')"++-- | Enable or disable whether the element accepts drops.+--+-- An element with 'droppable' set to 'True' will receive+-- 'drop', 'dragOver', 'dragEnter' and 'dragLeave' events.+--+-- Child elements of a 'droppable' element may also be 'droppable'.+-- When dragging something over an element, the closest ancestor element+-- that is 'droppable' will be the target and receive corresponding+-- events.+droppable :: WriteAttr Element Bool+droppable = mkWriteAttr enable+    where+    enable v = void . if v then allowDrop else blockDrop+    allowDrop el =+        element el+            # set (attr "ondragover") "event.preventDefault()"+            # set (attr "ondrop"    ) "event.preventDefault()"+    blockDrop el =+        element el+            # set (attr "ondragover") ""+            # set (attr "ondrop"    ) ""++{-----------------------------------------------------------------------------+    Events+------------------------------------------------------------------------------}+-- | Data carried by a dragged element. +--+-- FIXME: Empty data is currently encoded by the empty String.+-- Change this to 'Maybe String' instead.+type DragData = String+++withDragData = fmap extract+    where+    extract (EventData [Just s]) = s+    extract _                    = ""++-- | Occurs periodically while the element is being dragged around.+drag :: Element -> Event DragData+drag = withDragData . domEvent "drag"++-- | Dragging the element starts.+dragStart :: Element -> Event DragData+dragStart = withDragData . domEvent "dragstart"++-- | Dragging the element ends.+--+-- WARNING: This event can occur both before and after a corresponding 'drop' event.+dragEnd :: Element -> Event DragData+dragEnd = withDragData . domEvent "dragend"++-- | The element is now the current target element for a 'drop'.+-- +-- WARNING: This element is buggy when moving the mouse over child elements.+dragEnter :: Element -> Event DragData+dragEnter = withDragData . domEvent "dragenter"++-- | Occurs periodically while the element is the current target element.+dragOver :: Element -> Event DragData+dragOver = withDragData . domEvent "dragover"++-- | The element is no longer the current target element for a 'drop'.+--+-- WARNING: This event is also fired when the mouse is moved over a child element.+dragLeave :: Element -> Event DragData+dragLeave = withDragData . domEvent "dragleave"++-- | The drag and drop operation is being completed on this element.+drop :: Element -> Event DragData+drop = withDragData . domEvent "drop"

@@ -0,0 +1,133 @@+-- | Predefined DOM elements, for convenience.+module Graphics.UI.Threepenny.Elements (+    -- * Combinations and utilities+    addStyleSheet,+    -- text,+    new,+    +    -- * Primitive HTML elements+    address, a, anchor, applet, area,+    basefont, big, blockquote, body, bold, br, button,+    caption, center, cite, ddef, define, div, dlist,+    dterm, emphasize, fieldset, font, form, frame, frameset,+    h1, h2, h3, h4, h5, h6, header, hr,+    img, image, input, italics,+    keyboard, legend, li, meta, noframes, olist, option,+    p, paragraph, param, pre,+    sample, select, small, source, span, strong, sub, sup,+    table, td, textarea, th, thebase, thecode,+    thehtml, thelink, themap, thetitle, tr, tt, ul,+    underline, variable, video,+    ) where++import Control.Monad+import Control.Monad.Trans.Reader+import Prelude hiding (span,div)+import Graphics.UI.Threepenny.Core++{-----------------------------------------------------------------------------+    Combinations+------------------------------------------------------------------------------}+-- | Add a stylesheet to the head.+--+-- The second argument refers to the filename of the stylesheet,+-- but not its complete filepath.+-- Threepenny will prefix the 'css' subdirectory of the 'tpStatic' configuration field+-- to construct the complete filepath.+addStyleSheet+    :: Window+    -> FilePath+    -> IO ()+addStyleSheet w filename = void $ do+    el <- mkElement "link"+            # set (attr "rel" ) "stylesheet"+            # set (attr "type") "text/css"+            # set (attr "href") ("/static/css/" ++ filename)+    getHead w #+ [element el]++-- | Make a new @div@ element, synonym for 'div'.+new :: IO Element+new = div++{-----------------------------------------------------------------------------+    Primitives+    +    Taken from the HTML library (BSD3 license)+    http://hackage.haskell.org/package/html+------------------------------------------------------------------------------}+tag    = mkElement+itag   = mkElement++address             =  tag "address"+a                   =  anchor+anchor              =  tag "a"+applet              =  tag "applet"+area                = itag "area"+basefont            = itag "basefont"+big                 =  tag "big"+blockquote          =  tag "blockquote"+body                =  tag "body"+bold                =  tag "b"+br                  = itag "br"+button              =  tag "button"+caption             =  tag "caption"+center              =  tag "center"+cite                =  tag "cite"+ddef                =  tag "dd"+define              =  tag "dfn"+div                 =  tag "div"+dlist               =  tag "dl"+dterm               =  tag "dt"+emphasize           =  tag "em"+fieldset            =  tag "fieldset"+font                =  tag "font"+form                =  tag "form"+frame               =  tag "frame"+frameset            =  tag "frameset"+h1                  =  tag "h1"+h2                  =  tag "h2"+h3                  =  tag "h3"+h4                  =  tag "h4"+h5                  =  tag "h5"+h6                  =  tag "h6"+header              =  tag "head"+hr                  = itag "hr"+img                 = image+image               = itag "img"+input               = itag "input"+italics             =  tag "i"+keyboard            =  tag "kbd"+legend              =  tag "legend"+li                  =  tag "li"+meta                = itag "meta"+noframes            =  tag "noframes"+olist               =  tag "ol"+option              =  tag "option"+p                   =  tag "p"+paragraph           =  tag "p"+param               = itag "param"+pre                 =  tag "pre"+sample              =  tag "samp"+select              =  tag "select"+small               =  tag "small"+source              =  tag "source"+strong              =  tag "strong"+sub                 =  tag "sub"+sup                 =  tag "sup"+table               =  tag "table"+td                  =  tag "td"+textarea            =  tag "textarea"+th                  =  tag "th"+thebase             = itag "base"+thecode             =  tag "code"+thehtml             =  tag "html"+thelink             =  tag "link"+themap              =  tag "map"+span                =  tag "span"+thetitle            =  tag "title"+tr                  =  tag "tr"+tt                  =  tag "tt"+ul                  =  tag "ul"+underline           =  tag "u"+variable            =  tag "var"+video               =  tag "video"

@@ -0,0 +1,27 @@+module Graphics.UI.Threepenny.Events (+    -- * Synopsis+    -- | Common DOM events, for convenience.+    +    -- * Documentation+    click, hover, blur, leave,+    ) where++import Graphics.UI.Threepenny.Core++silence = fmap (const ())++-- | Mouse click.+click :: Element -> Event ()+click = silence . domEvent "click"++-- | Mouse hovering over an element.+hover :: Element -> Event ()+hover = silence . domEvent "mouseenter"++-- | Mouse leaving an element.+leave :: Element -> Event ()+leave = silence . domEvent "mouseleave"++-- | Element loses focus.+blur :: Element -> Event ()+blur = silence . domEvent "blur"

@@ -0,0 +1,601 @@+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE OverloadedStrings #-}+{-# OPTIONS -fno-warn-name-shadowing #-}++-- | The main Threepenny module.+++--------------------------------------------------------------------------------+-- Exports++module Graphics.UI.Threepenny.Internal.Core+  (+  -- * Server running+   serve+  ,loadFile+  ,loadDirectory+  +  -- * Event handling+  -- $eventhandling+  ,bind+  ,handleEvent+  ,handleEvents+  ,module Control.Event+  +  -- * Setting attributes+  -- $settingattributes+  ,setStyle+  ,setAttr+  ,setText+  ,setHtml+  ,setTitle+  ,emptyEl+  ,delete+  +  -- * Manipulating tree structure+  -- $treestructure+  ,newElement+  ,appendElementTo+  +  -- * Querying+  -- $querying+  ,getHead+  ,getBody+  ,getElementsByTagName+  ,getElementsById+  ,getWindow+  ,getValue+  ,getValuesList+  ,readValue+  ,readValuesList+  ,getRequestCookies+  ,getRequestLocation+  +  -- * Utilities+  ,debug+  ,clear+  ,callFunction+  ,runFunction+  ,callDeferredFunction+  ,atomic+  +  -- * Types+  ,Window+  ,Element+  ,Config(..)+  ,EventData(..)+  ) where+++--------------------------------------------------------------------------------+-- Imports++import           Graphics.UI.Threepenny.Internal.Types     as Threepenny+import           Graphics.UI.Threepenny.Internal.Resources++import           Control.Applicative+import           Control.Concurrent+import           Control.Concurrent.Chan.Extra+import           Control.Concurrent.Delay+import qualified Control.Exception             as E+import           Control.Event+import           Control.Monad.IO+import           Control.Monad.Reader+import           Data.ByteString               (ByteString)+import           Data.ByteString.UTF8          (toString,fromString)+import           Data.Map                      (Map)+import qualified Data.Map                      as M+import           Data.Maybe+import           Data.Text                     (Text,pack,unpack)+import qualified Data.Text                     as Text+import           Data.Text.Encoding+import           Data.Time+import           Network.URI+import           Prelude                       hiding (init)+import           Safe+import           Snap.Core+import           Snap.Http.Server              hiding (Config)+import           Snap.Util.FileServe+import           System.FilePath+import           Text.JSON.Generic+++{-----------------------------------------------------------------------------+    Server running+------------------------------------------------------------------------------}+newServerState :: IO ServerState+newServerState = ServerState +    <$> newMVar M.empty+    <*> newMVar (0,M.empty)+    <*> newMVar (0,M.empty)++-- | Run a TP server with Snap on the specified port and the given+--   worker action.+serve :: Config -> (Session -> IO ()) -> IO () -- ^ A TP server.+serve Config{..} worker = do+  server <- newServerState+  _ <- forkIO $ custodian 30 (sSessions server)+  httpServe config (router tpCustomHTML tpStatic worker server)+ where config = setPort tpPort defaultConfig++-- | Kill sessions after at least n seconds of disconnectedness.+custodian :: Integer -> MVar Sessions -> IO ()+custodian seconds sessions = forever $ do+  delaySeconds seconds+  modifyMVar_ sessions $ \sessions -> do+    killed <- fmap catMaybes $ forM (M.assocs sessions) $ \(key,Session{..}) -> do+      state <- readMVar sConnectedState+      case state of+        Connected -> return Nothing+        Disconnected time -> do+          now <- getCurrentTime+          let dcSeconds = diffUTCTime now time+          if (dcSeconds > fromIntegral seconds)+             then do killThread sThreadId+                     return (Just key)+             else return Nothing+            +    return (M.filterWithKey (\k _ -> not (k `elem` killed)) sessions)++-- Route requests.  If the initFile is Nothing, then a default+-- file will be served at /.+router+    :: Maybe FilePath+    -> FilePath+    -> (Session -> IO a)+    -> ServerState+    -> Snap ()+router customHTML wwwroot worker server =+        route [("/static"                    , serveDirectory wwwroot)+              ,("/"                          , root)+              ,("/driver/threepenny-gui.js"  , writeText jsDriverCode )+              ,("/driver/threepenny-gui.css" , writeText cssDriverCode)+              ,("/init"                      , init worker server)+              ,("/poll"                      , withSession  server poll  )+              ,("/signal"                    , withSession  server signal)+              ,("/file/:name"                ,+                    withFilepath (sFiles server) (flip serveFileAs))+              ,("/dir/:name"                 ,+                    withFilepath (sDirs  server) (\path _ -> serveDirectory path))+              ]+    where+    root = case customHTML of+        Just file -> serveFile (wwwroot </> file)+        Nothing   -> writeText defaultHtmlFile++-- Get a filename from a URI+withFilepath :: MVar Filepaths -> (FilePath -> MimeType -> Snap a) -> Snap a+withFilepath rDict cont = do+    mName    <- getParam "name"+    (_,dict) <- io $ withMVar rDict return+    case (\key -> M.lookup key dict) =<< mName of+        Just (path,mimetype) -> cont path mimetype+        Nothing              -> error $ "File not loaded: " ++ show mName++-- FIXME: Serving large files fails with the exception+-- System.SendFile.Darwin: invalid argument (Socket is not connected)+++newAssociation :: MVar Filepaths -> (FilePath, MimeType) -> IO String+newAssociation rDict (path,mimetype) = do+    (old, dict) <- takeMVar rDict+    let new = old + 1; key = show new ++ takeFileName path+    putMVar rDict $ (new, M.insert (fromString key) (path,mimetype) dict)+    return key++-- | Begin to serve a local file under an URI.+loadFile :: Session -> MimeType -> FilePath -> IO String+loadFile Session{..} mimetype path = do+    key <- newAssociation (sFiles sServerState) (path,mimetype)+    return $ "/file/" ++ key++-- | Begin to serve a local directory under an URI.+loadDirectory :: Session -> FilePath -> IO String+loadDirectory Session{..} path = do+    key <- newAssociation (sDirs sServerState) (path,"")+    return $ "/dir/" ++ key++-- Initialize the session.+init :: (Session -> IO void) -> ServerState -> Snap ()+init sessionThread server = do+  uri <- getRequestURI+  params <- getRequestCookies+  key <- io $ modifyMVar (sSessions server) $ \sessions -> do+    let newKey = maybe 0 (+1) (lastMay (M.keys sessions))+    session <- newSession server (uri,params) newKey+    _ <- forkIO $ do _ <- sessionThread session; return ()+    return (M.insert newKey session sessions,newKey)+  modifyResponse $ setHeader "Set-Token" (fromString (show key))+  withGivenSession key server poll+    +  where getRequestURI = do+          uri <- getInput "info"+          maybe (error ("Unable to parse request URI: " ++ show uri)) return (uri >>= parseURI)+        getRequestCookies = do+          cookies <- getsRequest rqCookies+          return $ flip map cookies $ \Cookie{..} -> (toString cookieName,toString cookieValue)++-- Make a new session.+newSession :: ServerState -> (URI,[(String, String)]) -> Integer -> IO Session+newSession server info token = do+  signals <- newChan+  instructions <- newChan+  (event, handler) <- newEventsTagged+  ids <- newMVar [0..]+  mutex <- newMVar ()+  now <- getCurrentTime+  conState <- newMVar (Disconnected now)+  threadId <- myThreadId+  closures <- newMVar [0..]+  return $ Session+    { sSignals = signals+    , sInstructions = instructions+    , sEvent        = event+    , sEventHandler = handler+    , sElementIds = ids+    , sToken = token+    , sMutex = mutex+    , sConnectedState = conState+    , sThreadId    = threadId+    , sClosures    = closures+    , sStartInfo   = info+    , sServerState = server+    }+  +-- Respond to poll requests.+poll :: Session -> Snap ()+poll Session{..} = do+  let setDisconnected = do+        now <- getCurrentTime+        modifyMVar_ sConnectedState (const (return (Disconnected now)))+  io $ modifyMVar_ sConnectedState (const (return Connected))+  threadId <- io $ myThreadId+  _ <- io $ forkIO $ do+    delaySeconds $ 60 * 5 -- Force kill after 5 minutes.+    killThread threadId+  instructions <- io $ E.catch (readAvailableChan sInstructions) $ \e -> do+    when (e == E.ThreadKilled) $ do+      setDisconnected+    E.throw e+  writeJson instructions++-- Write JSON to output.+writeJson :: (MonadSnap m, Data a) => a -> m ()+writeJson json = do+    modifyResponse $ setContentType "application/json"+    (writeString . encodeJSON) json++-- Write a string to output.+writeString :: (MonadSnap m) => String -> m ()+writeString = writeText . pack++-- Handle signals sent from the client.+signal :: Session -> Snap ()+signal Session{..} = do+    input <- getInput "signal"+    case input of+      Just signalJson -> do+        let signal = decode signalJson+        case signal of+          Ok signal -> io $ writeChan sSignals signal+          Error err -> error err+      Nothing -> error $ "Unable to parse " ++ show input++-- Get a text input from snap.+getInput :: (MonadSnap f) => ByteString -> f (Maybe String)+getInput = fmap (fmap (unpack . decodeUtf8)) . getParam++-- Run a snap action with the given session.+withSession :: ServerState -> (Session -> Snap a) -> Snap a+withSession server cont = do+  token <- readInput "token"+  case token of+    Nothing    -> error $ "Invalid session token format."+    Just token -> withGivenSession token server cont+    +-- Do something with the session given by its token id.+withGivenSession :: Integer -> ServerState -> (Session -> Snap a) -> Snap a+withGivenSession token ServerState{..} cont = do+  sessions <- io $ withMVar sSessions return+  case M.lookup token sessions of+    Nothing -> error $ "Nonexistant token: " ++ show token+    Just session -> cont session++-- Read an input from snap.+readInput :: (MonadSnap f,Read a) => ByteString -> f (Maybe a)+readInput = fmap (>>= readMay) . getInput++--------------------------------------------------------------------------------+-- Event handling+-- +-- $eventhandling+-- +-- To bind events to elements, use the 'bind' function.+--+-- To handle DOM events, use the 'handleEvent' function, or the+-- 'handleEvents' function which will block forever.+--+-- See the rest of this section for some helpful functions that do+-- common binding, such as clicks, hovers, etc.++-- | Handle events signalled from the client.+handleEvents :: Window -> IO ()+handleEvents window = forever $ handleEvent window++-- | Handle one event.+handleEvent :: Window -> IO ()+handleEvent window@(Session{..}) = do+    signal <- getSignal window+    case signal of+        Threepenny.Event (elid,eventType,params) -> do+            sEventHandler ((elid,eventType), EventData params)+        _ -> return ()++-- Get the latest signal sent from the client.+getSignal :: Window -> IO Signal+getSignal (Session{..}) = readChan sSignals++-- | Return an 'Event' associated to an 'Element'.+bind+    :: String               -- ^ The eventType, see any DOM documentation for a list of these.+    -> Element              -- ^ The element to bind to.+    -> Event EventData      -- ^ The event handler.+bind eventType (Element el@(ElementId elid) session) =+    Control.Event.Event register+    where+    key        = (elid, eventType)+    register h = do+        -- register with server+        unregister <- Control.Event.register (sEvent session key) h+        -- register with client+        run session $ Bind eventType el (Closure key)+        return unregister++-- Make a uniquely numbered event handler.+newClosure :: Window -> String -> String -> ([Maybe String] -> IO ()) -> IO Closure+newClosure window@(Session{..}) eventType elid thunk = do+    let key = (elid, eventType)+    _ <- register (sEvent key) $ \(EventData xs) -> thunk xs+    return (Closure key)++--------------------------------------------------------------------------------+-- Setting attributes+--+-- $settingattributes+-- +-- Text, HTML and attributes of DOM nodes can be set using the+-- functions in this section. ++-- | Set the style of the given element.+setStyle :: [(String, String)] -- ^ Pairs of CSS (property,value).+         -> Element            -- ^ The element to update.+         -> IO ()+setStyle props e@(Element el session) = run session $ SetStyle el props++-- | Set the attribute of the given element.+setAttr :: String  -- ^ The attribute name.+        -> String  -- ^ The attribute value.+        -> Element -- ^ The element to update.+        -> IO ()+setAttr key value e@(Element el session) = run session $ SetAttr el key value++-- | Set the text of the given element.+setText :: String  -- ^ The plain text.+        -> Element -- ^ The element to update.+        -> IO ()+setText props e@(Element el session) = run session $ SetText el props++-- | Set the HTML of the given element.+setHtml :: String  -- ^ The HTML.+        -> Element -- ^ The element to update.+        -> IO ()+setHtml props e@(Element el session) = run session $ SetHtml el props++-- | Set the title of the document.+setTitle+    :: String  -- ^ The title.+    -> Window  -- ^ The document window+    -> IO ()+setTitle title session = run session $ SetTitle title++-- | Empty the given element.+emptyEl :: Element -> IO ()+emptyEl e@(Element el session) = run session $ EmptyEl el++-- | Delete the given element.+delete :: Element -> IO ()+delete e@(Element el session)  = run session $ Delete el+++--------------------------------------------------------------------------------+-- Manipulating tree structure+--+-- $treestructure+-- +-- Functions for creating, deleting, moving, appending, prepending, DOM nodes.++-- | Create a new element of the given tag name.+newElement :: Window      -- ^ Browser window in which context to create the element+           -> String      -- ^ The tag name.+           -> IO Element  -- ^ A tag reference. Non-blocking.+newElement session@(Session{..}) tagName = do+    -- TODO: Remove the need to specify in which browser window is to be created+    elid <- modifyMVar sElementIds $ \elids ->+        return (tail elids,"*" ++ show (head elids) ++ ":" ++ tagName)+    return (Element (ElementId elid) session)++-- | Append a child element to a parent element. Non-blocking.+appendElementTo+    :: Element     -- ^ Parent.+    -> Element     -- ^ Child.+    -> IO () +appendElementTo (Element parent session) e@(Element child _) =+    -- TODO: Right now, parent and child need to be from the same session/browser window+    --       Implement transfer of elements across browser windows+    run session $ Append parent child+++--------------------------------------------------------------------------------+-- Querying the DOM+--+-- $querying+-- +-- The DOM can be searched for elements of a given name, and nodes can+-- be inspected for their values.++-- | Get all elements of the given tag name.  Blocks.+getElementsByTagName+    :: Window        -- ^ Browser window+    -> String        -- ^ The tag name.+    -> IO [Element]  -- ^ All elements with that tag name.+getElementsByTagName window tagName =+  call window (GetElementsByTagName tagName) $ \signal ->+    case signal of+      Elements els -> return $ Just $ [Element el window | el <- els]+      _            -> return Nothing++-- | Get a list of elements by particular IDs.  Blocks.+getElementsById+    :: Window        -- ^ Browser window+    -> [String]      -- ^ The ID string.+    -> IO [Element]  -- ^ Elements with given ID.+getElementsById window ids =+  call window (GetElementsById ids) $ \signal ->+    case signal of+      Elements els -> return $ Just [Element el window | el <- els]+      _            -> return Nothing++-- | Get the value of an input. Blocks.+getValue+    :: Element   -- ^ The element to get the value of.+    -> IO String -- ^ The plain text value.+getValue e@(Element el window) =+  call window (GetValue el) $ \signal ->+    case signal of+      Value str -> return (Just str)+      _         -> return Nothing++-- | Get 'Window' associated to an 'Element'.+getWindow :: Element -> Window+getWindow (Element _ window) = window++-- | Get values from inputs. Blocks. This is faster than many 'getValue' invocations.+getValuesList+    :: [Element]   -- ^ A list of elements to get the values of.+    -> IO [String] -- ^ The list of plain text values.+getValuesList [] = return []+getValuesList es@(Element _ window : _) =+    let elids = [elid | Element elid _ <- es] in+    call window (GetValues elids) $ \signal ->+        case signal of+            Values strs -> return $ Just strs+            _           -> return Nothing++-- | Read a value from an input. Blocks.+readValue+    :: Read a+    => Element      -- ^ The element to read a value from.+    -> IO (Maybe a) -- ^ Maybe the read value.+readValue = liftM readMay . getValue++-- | Read values from inputs. Blocks. This is faster than many 'readValue' invocations.+readValuesList+    :: Read a+    => [Element]      -- ^ The element to read a value from.+    -> IO (Maybe [a]) -- ^ Maybe the read values. All or none.+readValuesList = liftM (sequence . map readMay) . getValuesList++-- | Atomically execute the given computation in the context of a browser window+atomic :: Window -> IO a -> IO a+atomic window@(Session{..}) m = do+  takeMVar sMutex+  ret <- m+  putMVar sMutex ()+  return ret+++-- Send an instruction and read the signal response.+call :: Session -> Instruction -> (Signal -> IO (Maybe a)) -> IO a+call session@(Session{..}) instruction withSignal = do+  takeMVar sMutex+  run session $ instruction+  newChan <- dupChan sSignals+  go sMutex newChan++  where+    go mutex newChan = do+      signal <- readChan newChan+      result <- withSignal signal+      case result of+        Just signal -> do putMVar mutex ()+                          return signal+        Nothing     -> go mutex newChan++-- Run the given instruction.+run :: Session -> Instruction -> IO ()+run (Session{..}) i = writeChan sInstructions i++-- | Get the head of the page.+getHead :: Window -> IO Element+getHead session = return $ Element (ElementId "head") session++-- | Get the body of the page.+getBody :: Window -> IO Element+getBody session = return $ Element (ElementId "body") session++-- | Get the request location.+getRequestLocation :: Window -> IO URI+getRequestLocation = return . fst . sStartInfo++-- | Get the request cookies.+getRequestCookies :: Window -> IO [(String,String)]+getRequestCookies = return . snd . sStartInfo+++--------------------------------------------------------------------------------+-- Utilities++-- | Send a debug message to the client. The behaviour of the client+--   is unspecified.+debug+    :: Window -- ^ Client window+    -> String -- ^ Some plain text to send to the client.+    -> IO ()+debug window = run window . Debug++-- | Clear the client's DOM.+clear :: Window -> IO ()+clear window = run window $ Clear ()++-- | Call the given function and wait for results. Blocks.+callFunction+  :: Window             -- ^ Browser window+  -> String             -- ^ The function name.+  -> [String]           -- ^ Parameters.+  -> IO [Maybe String]  -- ^ Return tuple.+callFunction window func params =+  call window (CallFunction (func,params)) $ \signal ->+    case signal of+      FunctionCallValues vs -> return (Just vs)+      _                     -> return Nothing++-- | Call the given function and carry on. Doesn't block.+runFunction+  :: Window            -- ^ Browser window+  -> String            -- ^ The function name.+  -> [String]          -- ^ Parameters.+  -> IO ()+runFunction window func params =+  run window $ CallFunction (func,params)++-- | Call the given function with the given continuation. Doesn't block.+callDeferredFunction+  :: Window                    -- ^ Browser window+  -> String                    -- ^ The function name.+  -> [String]                  -- ^ Parameters.+  -> ([Maybe String] -> IO ()) -- ^ The continuation to call if/when the function completes.+  -> IO ()+callDeferredFunction session@(Session{..}) func params closure = do+  cid      <- modifyMVar sClosures (\(x:xs) -> return (xs,x))+  closure' <- newClosure session func (show cid) closure+  run session $ CallDeferredFunction (closure',func,params)

@@ -0,0 +1,54 @@+{-# LANGUAGE QuasiQuotes, CPP #-}+module Graphics.UI.Threepenny.Internal.Resources where++import           Data.Text                               (Text)+import qualified Data.Text                               as Text+import qualified Data.Text.IO                            as Text+import           System.FilePath+import           System.IO.Unsafe++#ifdef CABAL+import qualified Paths_threepenny_gui+getDataDir = fmap (</> "src" </> "Graphics" </> "UI") Paths_threepenny_gui.getDataDir++#else+getDataDir = return $ "Graphics" </> "UI"+#endif+++jsDriverCode    :: Text+cssDriverCode   :: Text+defaultHtmlFile :: Text+++jsDriverCode = unsafePerformIO $+    readFiles $ words "jquery.js jquery-cookie.js driver.js" ++cssDriverCode = unsafePerformIO $+    readFiles ["driver.css"]++defaultHtmlFile = unsafePerformIO $+    readFiles ["index.html"]++readFiles files = do+    ys <- mapM (Text.readFile . getDataFile) files+    return $ Text.unlines ys++getDataFile x = unsafePerformIO $ fmap (</> x) getDataDir+++{-+-- Temporarily disabled code.+-- Use quasiquotation to bundle resource files with executable.++jsDriverCode = Text.unlines $ map Text.pack+    [ [include|Graphics/UI/jquery.js|]+    , [include|Graphics/UI/jquery-cookie.js|]+    , [include|Graphics/UI/driver.js|]+    ]++cssDriverCode = Text.pack [include|Graphics/UI/driver.css|]++defaultHtmlFile = Text.pack [include|Graphics/UI/index.html|]++-}

@@ -0,0 +1,161 @@+{-# LANGUAGE MultiParamTypeClasses #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE GeneralizedNewtypeDeriving #-}++-- | All Threepenny's types. See "Graphics.UI.Threepenny.Types" for only public+--   types. Non-public types can be manipulated at your own risk, if you+--   know what you're doing and you want to add something that the+--   library doesn't do.++module Graphics.UI.Threepenny.Internal.Types+  where++import Prelude              hiding ((++),init)++import Control.Applicative+import Control.Concurrent+import qualified Control.Event as E+import Control.Monad.Reader+import Data.ByteString               (ByteString)+import Data.Map             (Map)+import Data.Time++import Network.URI+import Text.JSON.Generic++--------------------------------------------------------------------------------+-- Public types++-- | Reference to an element in the DOM of the client window.+data Element = Element+    { elId      :: ElementId+    , elSession :: Session+    }++instance Show Element where+    show = show . elId++-- | An opaque reference to an element in the DOM.+data ElementId = ElementId String+  deriving (Data,Typeable,Show)++instance JSON ElementId where+  showJSON (ElementId o) = showJSON o+  readJSON obj = do+    obj <- readJSON obj+    ElementId <$> valFromObj "Element" obj++  +-- | A client session. This type is opaque, you don't need to inspect it.+data Session = Session+  { sSignals        :: Chan Signal+  , sInstructions   :: Chan Instruction+  , sEvent          :: EventKey -> E.Event EventData+  , sEventHandler   :: E.Handler (EventKey, EventData)+  , sClosures       :: MVar [Integer]+  , sElementIds     :: MVar [Integer]+  , sToken          :: Integer+  , sMutex          :: MVar ()+  , sConnectedState :: MVar ConnectedState+  , sThreadId       :: ThreadId+  , sStartInfo      :: (URI,[(String,String)])+  , sServerState    :: ServerState+  }++type Sessions  = Map Integer Session+type MimeType  = ByteString+type Filepaths = (Integer, Map ByteString (FilePath, MimeType))++data ServerState = ServerState+    { sSessions :: MVar Sessions+    , sFiles    :: MVar Filepaths+    , sDirs     :: MVar Filepaths+    }++type EventKey = (String, String)++-- | The client browser window.+type Window = Session++data ConnectedState+  = Disconnected UTCTime -- ^ The time that the poll disconnected, or+                         -- the first initial connection time.+  | Connected            -- ^ The client is connected, we don't care+                         -- since when.+  deriving (Show)++-- | Data from an event. At the moment it is empty.+data EventData = EventData [Maybe String]++--------------------------------------------------------------------------------+-- Internal types++-- | An instruction that is sent to the client as JSON.+data Instruction+  = Debug String+  | Begin ()+  | End ()+  | SetToken Integer+  | Clear ()+  | GetElementsById [String]+  | GetElementsByTagName String+  | SetStyle ElementId [(String,String)]+  | SetAttr ElementId String String+  | Append ElementId ElementId+  | SetText ElementId String+  | SetHtml ElementId String+  | Bind String ElementId Closure+  | GetValue ElementId+  | GetValues [ElementId]+  | SetTitle String+  | GetLocation ()+  | CallFunction (String,[String])+  | CallDeferredFunction (Closure,String,[String])+  | EmptyEl ElementId+  | Delete ElementId+  deriving (Typeable,Data,Show)++-- | A signal (mostly events) that are sent from the client to the server.+data Signal+  = Init ()+  | Elements [ElementId]+  | Event (String,String,[Maybe String])+  | Value String+  | Values [String]+  | Location String+  | FunctionCallValues [Maybe String]+  deriving (Show)++instance JSON Signal where+  showJSON _ = error "JSON.Signal.showJSON: No method implemented."+  readJSON obj = do+    obj <- readJSON obj+    let init = Init <$> valFromObj "Init" obj+        elements = Elements <$> valFromObj "Elements" obj+        event = do+          (cid,typ,arguments) <- valFromObj "Event" obj+          args <- mapM nullable arguments+          return $ Event (cid,typ,args)+        value = Value <$> valFromObj "Value" obj+        location = Location <$> valFromObj "Location" obj+        values = Values <$> valFromObj "Values" obj+        fcallvalues = do+          FunctionCallValues <$> (valFromObj "FunctionCallValues" obj >>= mapM nullable)+    init <|> elements <|> event <|> value <|> values <|> location <|> fcallvalues++-- | Read a JSValue that may be null.+nullable :: JSON a => JSValue -> Result (Maybe a)+nullable JSNull = return Nothing+nullable v      = Just <$> readJSON v++-- | An opaque reference to a closure that the event manager uses to+--   trigger events signalled by the client.+data Closure = Closure (String,String)+  deriving (Typeable,Data,Show)++-- | Record for configuring the Threepenny GUI server.+data Config = Config+  { tpPort       :: Int               -- ^ Port number.+  , tpCustomHTML :: Maybe FilePath    -- ^ Custom HTML file to replace the default one.+  , tpStatic     :: FilePath          -- ^ Directory that is served under @/static@.+  }

@@ -0,0 +1,53 @@+{-# OPTIONS -fno-warn-wrong-do-bind #-}+module Graphics.UI.Threepenny.JQuery where++import Control.Event+import Control.Arrow+import Data.Char+import Data.Default+import Data.Maybe+import Graphics.UI.Threepenny.Core+import qualified Graphics.UI.Threepenny.Internal.Core as Core+import qualified Graphics.UI.Threepenny.Internal.Types as Core+import Text.JSON++data Easing = Swing | Linear+  deriving (Eq,Enum,Show)++instance Default Easing where+  def = Linear++-- | Animate property changes of a function.+animate :: Element -> [(String,String)] -> Int -> Easing -> IO () -> IO ()+animate el props duration easing complete =+    flip updateElement el $ \(Core.Element el window) ->+        callDeferredFunction window+            "jquery_animate"+            [encode el,encode (makeObj (map (second showJSON) props)),show duration,map toLower (show easing)]+            (const complete)++-- | Fade in an element.+fadeIn :: Element -> Int -> Easing -> IO () -> IO ()+fadeIn el duration easing complete =+    animate el [("opacity","1")] duration easing complete++-- | Fade out an element.+fadeOut :: Element -> Int -> Easing -> IO () -> IO ()+fadeOut el duration easing complete =+    animate el [("opacity","0")] duration easing complete++-- | Do something on return.+sendValue :: Element -> Event String+sendValue el = fmap f (domEvent "sendvalue" el)+    where+    f (EventData x) = concat . catMaybes $ x++-- | Focus an element.+setFocus :: Element -> IO ()+setFocus = updateElement $ \(Core.Element el window) ->+    runFunction window "jquery_setFocus" [encode el]++-- | Scroll to the bottom of an element.+scrollToBottom :: Element -> IO ()+scrollToBottom = updateElement $ \(Core.Element area window) ->+    runFunction window "jquery_scrollToBottom" [encode area]

@@ -0,0 +1,3 @@+.tabel      { display: table; }+.table-row  { display: table-row; }+.table-cell { display: table-cell; }

@@ -0,0 +1,435 @@+$.fn.sendvalue = function(trigger){+  $(this).each(function(){+    var self = this;+    var el = $(self);+    el.keydown(function(e){+      if(e.which == 13) {+        trigger.call(self,el.val());+        return false;+      }+      else+        return true;+    });+  });+};++$.fn.livechange = function(ms,trigger){+  $(this).each(function(){+    var self = this;+    var el = $(self);+    var last_val;+    var check = function(){+      var val = el.val();+      if(val != last_val)+        trigger.call(self);+      last_val = val;+    };+    var checker;+    var restart = function(){+      clearTimeout(checker);+      checker = setInterval(check,ms);+    };+    restart();+    el.keypress(restart).change(restart);+  });+};++(function(){++  ////////////////////////////////////////////////////////////////////////////////+  // State+  var sessionToken = null;+  var element_count = 0, el_table = {};+  var tp_enable_log = $.cookie('tp_log') == "true";+  var signal_count = 0;++  document.head = document.head || document.getElementsByTagName('head')[0];++  ////////////////////////////////////////////////////////////////////////////////+  // Main entry point+  $(document).ready(function(){+    setTimeout(function(){+      waitForEvents();+    })+  });++  ////////////////////////////////////////////////////////////////////////////////+  // Running instructions++  window.do_logging = function(x){+    $.cookie('tp_log',x.toString());+  };+  +  window.jquery_animate = function(el_id,props,duration,easing,complete){+    var el = elidToElement(JSON.parse(el_id));+    $(el).animate(JSON.parse(props),+                  duration * 1,+                  easing * 1,+                  complete);+  }++  window.jquery_scrollToBottom = function(el_id,cont){+    var el = elidToElement(JSON.parse(el_id));+    $(el).scrollTop(el.scrollHeight);+    cont();+  };++  window.jquery_setFocus = function(el_id,cont){+    var el = elidToElement(JSON.parse(el_id));+    $(el).focus();+    cont();+  };+  +  function waitForEvents(){+    console_log("Polling… (%d signals so far)",signal_count);+    var data = { token: sessionToken };+    var cmd = sessionToken != null? 'poll' : 'init';+    if(cmd == 'init')+      data.info = window.location.href;+    var req = $.ajax({+      dataType: 'json',+      url: cmd,+      data: data,+      success: function(events){+        if(sessionToken == null) {+          sessionToken = req.getResponseHeader('Set-Token').match(/[0-9]+/)*1;+        }+        console_log("Running event" +(events.length>1?'s':'') +"…")+        if(events.length){+          console_log('Event list:');+          runMultipleEvents(events);+        } else {+          runEvent(events,function(){+            waitForEvents();+          });+        }+      },+      error: function(reply){+        console_log("Error, waiting…");+        setTimeout(function(){+          waitForEvents();+        },5000);+      }+    });+  }++  function runMultipleEvents(events){+    if(events.length == 0) {+      return waitForEvents();+    }+    runEvent(events.shift(),function(){+      runMultipleEvents(events);+    });+  }++  function runEvent(event,continuation){+    console_log("Event: %s",JSON.stringify(event));+    for(var key in event){+      switch(key){+      case "EmptyEl": {+        var id = event.EmptyEl;+        var el = elidToElement(id);+        // Detach child elements without deleting associated event handlers and data.+        // It is not correct to remove the child elements from the el_table+        // because they may still be present on the server side.+        $(el).contents().detach();+        continuation();+        break;+      }+      case "CallDeferredFunction": {+        var call = event.CallDeferredFunction;+        var closure = call[0];+        var theFunction = eval(call[1]);+        var params = call[2];+        theFunction.apply(window, params.concat(function(){+          console_log(this);+          var args = Array.prototype.slice.call(arguments,0);+          signal({+            Event: closure.concat([args])+          },function(){+            // No action.+          });+        }));+        continuation();+        break;+      }+      case "CallFunction": {+        var call = event.CallFunction;+        var theFunction = eval(call[0]);+        var params = call[1];+        theFunction.apply(window, params.concat(function(){+          var args = Array.prototype.slice.call(arguments,0);+          signal({+            FunctionCallValues: args+          },function(){+            continuation();+          });+        }));+        break;+      }+      case "Delete": {+        event_delete(event);+        continuation();+        break;+      }+      case "Debug": {+        if(window.console)+          console.log("Server debug: %o",event.Debug);+        continuation();+        break;+      }+      case "Clear": {+        $('body').contents().detach();+        continuation();+        break;+      }+      case "GetElementsByTagName": {+        var elements = document.getElementsByTagName(event.GetElementsByTagName);+        var els = [];+        var len = elements.length;+        for(var i = 0; i < len; i++) {+          els.push({+            Element: elementToElid(elements[i])+          });+        }+        signal({+          Elements: els+        },function(){+          continuation();+        });+        break;+      }+      case "GetElementsById": {+        // Note that this is the html ID, not the elid that is the key of the el_table.+        var ids = event.GetElementsById;+        var els = [];+        for(var i = 0; i < ids.length; i++) {+            var match = document.getElementById(ids[i]);+            if (match != null) {+                els.push({+                  Element: elementToElid(match)+                });+            }+        }+        signal({+          Elements: els+        },function(){+          continuation();+        });+        break;+      }+      case "SetStyle": {+        var set = event.SetStyle;+        var id = set[0];+        var style = set[1];+        var el = elidToElement(id);+        var len = style.length;+        for(var i = 0; i < len; i++){+          el.style[style[i][0]] = style[i][1];+        }+        continuation();+        break;+      }+      case "SetAttr": {+        var set = event.SetAttr;+        var id = set[0];+        var key = set[1];+        var value = set[2];+        var el = elidToElement(id);+        $(el).attr(key,value);+        continuation();+        break;+      }+      case "GetValue": {+        var id = event.GetValue;+        var el = elidToElement(id);+        var value = $(el).val();+        signal({+          Value: value+        },function(){+          continuation();+        });+        break;+      }+      case "GetLocation": {+        signal({+          Location: window.location.href+        },function(){+          continuation();+        });+        break;+      }+      case "GetValues": {+        var ids = event.GetValues;+        var len = ids.length;+        var values = [];+        for(var i = 0; i < len; i++) {+          values.push($(elidToElement(ids[i])).val());+        }+        signal({+          Values: values+        },function(){+          continuation();+        });+        break;+      }+      case "Append": {+        var append = event.Append;+        $(elidToElement(append[0])).append($(elidToElement(append[1])));+        continuation();+        break;+      }+      case "SetText": {+        var set = event.SetText;+        $(elidToElement(set[0])).text(set[1]);+        continuation();+        break;+      }+      case "SetTitle": {+        document.title = event.SetTitle;+        continuation();+        break;+      }+      case "SetHtml": {+        var set = event.SetHtml;+        $(elidToElement(set[0])).html(set[1]);+        continuation();+        break;+      }+      case "Bind": {+        var bind = event.Bind;+        var eventType = bind[0];+        var handlerGuid = bind[2];+        var el = elidToElement(bind[1]);+        console_log('event type: ' + eventType);+        if(eventType == 'livechange') {+          $(el).livechange(300,function(e){+            signal({+              Event: handlerGuid.concat([[$(el).val()]])+            },function(){+              // no action+            });+            return true;+          });+        } else if(eventType == 'sendvalue') {+          $(el).sendvalue(function(x){+            signal({+              Event: handlerGuid.concat([[x]])+            },function(){});+          });+        } else if(eventType.match('dragstart|dragenter|dragover|dragleave|drag|drop|dragend')) {+          $(el).bind(eventType,function(e){+            signal({+              Event: handlerGuid.concat([+                e.originalEvent.dataTransfer+                    ?[e.originalEvent.dataTransfer.getData("dragData")]+                    :[]])+            },function(){+              // no action+            });+            return true;+          });+        } else {+          $(el).bind(eventType,function(e){+            signal({+              Event: handlerGuid.concat([e.which?[e.which.toString()]:[]])+            },function(){+              // no action+            });+            return true;+          });+        }+        continuation();+        break;+      }+      default: continuation();+      }+    }+  }++  function event_delete(event){+    var id = event.Delete;+    var el = elidToElement(id);+    // TODO: Think whether it is correct to remove element ids+    $(el).detach();+    deleteElementTable(id);+  }++  ////////////////////////////////////////////////////////////////////////////////+  // Signalling events++  function signal(signal,continuation){+    signal_count++;+    console_log('Signal: %s',JSON.stringify(signal));+    $.ajax({+      dataType: 'json',+      url:'signal',+      data: { token: sessionToken, signal: JSON.stringify(signal) },+      success: function(){+        continuation();+      },+      error: function(reply){+        console_log("Error: %o",reply);+      }+    });+  }++  // When the server creates elements, it assigns them a string "elid".  +  // This elidToElement function is used to sync the elids on the server with the +  // elids on this client code.  Lookups on elids that do not already exist in the client+  // table are created and added automatically.+  function elidToElement(elid){+    if(elid == 'body')+      return document.body;+    else if(elid == 'head')+      return document.head;+    else if(el_table[elid]){+      return el_table[elid];+    } else {+      if(elid[0] == '*'){+        var create = elid.split(':');+        var element = document.createElement(create[1]);+        element.elid   = elid;+        el_table[elid] = element;+        return element;+      } else {+        throw "Unknown element: " + elid;+      }+    }+  }+  function deleteElementTable(elid){+    delete el_table[elid];+  }+  +  // Get/generate a elid for an element.  This function is used for cases in which the+  // element is accessed without knowing an elid from the server, such as when the +  // element is retrieved by type or html ID attribute.  The element is then added to +  // elid lookup table using the new elid.+  // Note: The mapping between  elids  and  DOM elements  must be bijective.+  function elementToElid(element){+    if(element.elid) {+        return element.elid;+	}+	else if (element === document.body) {+        return "body";+    }+	else if (element === document.head) {+        return "head";+    }+    else {+        var elid = "!" + element_count.toString();+        element_count++;+        element.elid   = elid;+        el_table[elid] = element;+        return elid;+    }+  }++  // A log+  function console_log(){+    if (tp_enable_log) {+      window.console.log.apply(window.console,arguments);+    }+  };++})();

@@ -0,0 +1,10 @@+<!doctype html>+<head>+  <title></title>+  <script src="driver/threepenny-gui.js"></script>+  <link rel="stylesheet" type="text/css" href="driver/threepenny-gui.css"/>+</head>+<body>+  <noscript>Please enable JavaScript.</noscript>+</body>+</html>

@@ -0,0 +1,56 @@+/**+ * jQuery Cookie plugin+ *+ * Copyright (c) 2010 Klaus Hartl (stilbuero.de)+ * Dual licensed under the MIT and GPL licenses:+ * http://www.opensource.org/licenses/mit-license.php+ * http://www.gnu.org/licenses/gpl.html+ *+ */+(function($) {+  $.cookie = function(key, value, options) {++    // key and at least value given, set cookie...+    if (arguments.length > 1 && (!/Object/.test(Object.prototype.toString.call(value)) || value === null || value === undefined)) {+      options = $.extend({}, options);++      if (value === null || value === undefined) {+        options.expires = -1;+      }++      if (typeof options.expires === 'number') {+        var days = options.expires, t = options.expires = new Date();+        t.setDate(t.getDate() + days);+      }++      value = String(value);++      return (document.cookie = [+        encodeURIComponent(key), '=', options.raw ? value : encodeURIComponent(value),+        options.expires ? '; expires=' + options.expires.toUTCString() : '', // use expires attribute, max-age is not supported by IE+        options.path    ? '; path=' + options.path : '',+        options.domain  ? '; domain=' + options.domain : '',+        options.secure  ? '; secure' : ''+      ].join(''));+    }++    // key and possibly options given, get cookie...+    options = value || {};+    var decode = options.raw ? function(s) { return s; } : decodeURIComponent;++    var pairs = document.cookie.split('; ');+    for (var i = 0, pair; pair = pairs[i] && pairs[i].split('='); i++) {+      if (decode(pair[0]) === key) return decode(pair[1] || ''); // IE saves cookies with empty string as "c; ", e.g. without "=" as opposed to EOMB, thus pair[1] may be undefined+    }+    return null;+  };++  $.setSimpleCookie = function(name,value,f) {+    $.cookie(name,value,{+      path: '/',+      expire: 999 // TODO: +    });+    f();+  };+  +})(jQuery);

@@ -0,0 +1,4 @@+/*! jQuery v1.7.1 jquery.com | jquery.org/license */+(function(a,b){function cy(a){return f.isWindow(a)?a:a.nodeType===9?a.defaultView||a.parentWindow:!1}function cv(a){if(!ck[a]){var b=c.body,d=f("<"+a+">").appendTo(b),e=d.css("display");d.remove();if(e==="none"||e===""){cl||(cl=c.createElement("iframe"),cl.frameBorder=cl.width=cl.height=0),b.appendChild(cl);if(!cm||!cl.createElement)cm=(cl.contentWindow||cl.contentDocument).document,cm.write((c.compatMode==="CSS1Compat"?"<!doctype html>":"")+"<html><body>"),cm.close();d=cm.createElement(a),cm.body.appendChild(d),e=f.css(d,"display"),b.removeChild(cl)}ck[a]=e}return ck[a]}function cu(a,b){var c={};f.each(cq.concat.apply([],cq.slice(0,b)),function(){c[this]=a});return c}function ct(){cr=b}function cs(){setTimeout(ct,0);return cr=f.now()}function cj(){try{return new a.ActiveXObject("Microsoft.XMLHTTP")}catch(b){}}function ci(){try{return new a.XMLHttpRequest}catch(b){}}function cc(a,c){a.dataFilter&&(c=a.dataFilter(c,a.dataType));var d=a.dataTypes,e={},g,h,i=d.length,j,k=d[0],l,m,n,o,p;for(g=1;g<i;g++){if(g===1)for(h in a.converters)typeof h=="string"&&(e[h.toLowerCase()]=a.converters[h]);l=k,k=d[g];if(k==="*")k=l;else if(l!=="*"&&l!==k){m=l+" "+k,n=e[m]||e["* "+k];if(!n){p=b;for(o in e){j=o.split(" ");if(j[0]===l||j[0]==="*"){p=e[j[1]+" "+k];if(p){o=e[o],o===!0?n=p:p===!0&&(n=o);break}}}}!n&&!p&&f.error("No conversion from "+m.replace(" "," to ")),n!==!0&&(c=n?n(c):p(o(c)))}}return c}function cb(a,c,d){var e=a.contents,f=a.dataTypes,g=a.responseFields,h,i,j,k;for(i in g)i in d&&(c[g[i]]=d[i]);while(f[0]==="*")f.shift(),h===b&&(h=a.mimeType||c.getResponseHeader("content-type"));if(h)for(i in e)if(e[i]&&e[i].test(h)){f.unshift(i);break}if(f[0]in d)j=f[0];else{for(i in d){if(!f[0]||a.converters[i+" "+f[0]]){j=i;break}k||(k=i)}j=j||k}if(j){j!==f[0]&&f.unshift(j);return d[j]}}function ca(a,b,c,d){if(f.isArray(b))f.each(b,function(b,e){c||bE.test(a)?d(a,e):ca(a+"["+(typeof e=="object"||f.isArray(e)?b:"")+"]",e,c,d)});else if(!c&&b!=null&&typeof b=="object")for(var e in b)ca(a+"["+e+"]",b[e],c,d);else d(a,b)}function b_(a,c){var d,e,g=f.ajaxSettings.flatOptions||{};for(d in c)c[d]!==b&&((g[d]?a:e||(e={}))[d]=c[d]);e&&f.extend(!0,a,e)}function b$(a,c,d,e,f,g){f=f||c.dataTypes[0],g=g||{},g[f]=!0;var h=a[f],i=0,j=h?h.length:0,k=a===bT,l;for(;i<j&&(k||!l);i++)l=h[i](c,d,e),typeof l=="string"&&(!k||g[l]?l=b:(c.dataTypes.unshift(l),l=b$(a,c,d,e,l,g)));(k||!l)&&!g["*"]&&(l=b$(a,c,d,e,"*",g));return l}function bZ(a){return function(b,c){typeof b!="string"&&(c=b,b="*");if(f.isFunction(c)){var d=b.toLowerCase().split(bP),e=0,g=d.length,h,i,j;for(;e<g;e++)h=d[e],j=/^\+/.test(h),j&&(h=h.substr(1)||"*"),i=a[h]=a[h]||[],i[j?"unshift":"push"](c)}}}function bC(a,b,c){var d=b==="width"?a.offsetWidth:a.offsetHeight,e=b==="width"?bx:by,g=0,h=e.length;if(d>0){if(c!=="border")for(;g<h;g++)c||(d-=parseFloat(f.css(a,"padding"+e[g]))||0),c==="margin"?d+=parseFloat(f.css(a,c+e[g]))||0:d-=parseFloat(f.css(a,"border"+e[g]+"Width"))||0;return d+"px"}d=bz(a,b,b);if(d<0||d==null)d=a.style[b]||0;d=parseFloat(d)||0;if(c)for(;g<h;g++)d+=parseFloat(f.css(a,"padding"+e[g]))||0,c!=="padding"&&(d+=parseFloat(f.css(a,"border"+e[g]+"Width"))||0),c==="margin"&&(d+=parseFloat(f.css(a,c+e[g]))||0);return d+"px"}function bp(a,b){b.src?f.ajax({url:b.src,async:!1,dataType:"script"}):f.globalEval((b.text||b.textContent||b.innerHTML||"").replace(bf,"/*$0*/")),b.parentNode&&b.parentNode.removeChild(b)}function bo(a){var b=c.createElement("div");bh.appendChild(b),b.innerHTML=a.outerHTML;return b.firstChild}function bn(a){var b=(a.nodeName||"").toLowerCase();b==="input"?bm(a):b!=="script"&&typeof a.getElementsByTagName!="undefined"&&f.grep(a.getElementsByTagName("input"),bm)}function bm(a){if(a.type==="checkbox"||a.type==="radio")a.defaultChecked=a.checked}function bl(a){return typeof a.getElementsByTagName!="undefined"?a.getElementsByTagName("*"):typeof a.querySelectorAll!="undefined"?a.querySelectorAll("*"):[]}function bk(a,b){var c;if(b.nodeType===1){b.clearAttributes&&b.clearAttributes(),b.mergeAttributes&&b.mergeAttributes(a),c=b.nodeName.toLowerCase();if(c==="object")b.outerHTML=a.outerHTML;else if(c!=="input"||a.type!=="checkbox"&&a.type!=="radio"){if(c==="option")b.selected=a.defaultSelected;else if(c==="input"||c==="textarea")b.defaultValue=a.defaultValue}else a.checked&&(b.defaultChecked=b.checked=a.checked),b.value!==a.value&&(b.value=a.value);b.removeAttribute(f.expando)}}function bj(a,b){if(b.nodeType===1&&!!f.hasData(a)){var c,d,e,g=f._data(a),h=f._data(b,g),i=g.events;if(i){delete h.handle,h.events={};for(c in i)for(d=0,e=i[c].length;d<e;d++)f.event.add(b,c+(i[c][d].namespace?".":"")+i[c][d].namespace,i[c][d],i[c][d].data)}h.data&&(h.data=f.extend({},h.data))}}function bi(a,b){return f.nodeName(a,"table")?a.getElementsByTagName("tbody")[0]||a.appendChild(a.ownerDocument.createElement("tbody")):a}function U(a){var b=V.split("|"),c=a.createDocumentFragment();if(c.createElement)while(b.length)c.createElement(b.pop());return c}function T(a,b,c){b=b||0;if(f.isFunction(b))return f.grep(a,function(a,d){var e=!!b.call(a,d,a);return e===c});if(b.nodeType)return f.grep(a,function(a,d){return a===b===c});if(typeof b=="string"){var d=f.grep(a,function(a){return a.nodeType===1});if(O.test(b))return f.filter(b,d,!c);b=f.filter(b,d)}return f.grep(a,function(a,d){return f.inArray(a,b)>=0===c})}function S(a){return!a||!a.parentNode||a.parentNode.nodeType===11}function K(){return!0}function J(){return!1}function n(a,b,c){var d=b+"defer",e=b+"queue",g=b+"mark",h=f._data(a,d);h&&(c==="queue"||!f._data(a,e))&&(c==="mark"||!f._data(a,g))&&setTimeout(function(){!f._data(a,e)&&!f._data(a,g)&&(f.removeData(a,d,!0),h.fire())},0)}function m(a){for(var b in a){if(b==="data"&&f.isEmptyObject(a[b]))continue;if(b!=="toJSON")return!1}return!0}function l(a,c,d){if(d===b&&a.nodeType===1){var e="data-"+c.replace(k,"-$1").toLowerCase();d=a.getAttribute(e);if(typeof d=="string"){try{d=d==="true"?!0:d==="false"?!1:d==="null"?null:f.isNumeric(d)?parseFloat(d):j.test(d)?f.parseJSON(d):d}catch(g){}f.data(a,c,d)}else d=b}return d}function h(a){var b=g[a]={},c,d;a=a.split(/\s+/);for(c=0,d=a.length;c<d;c++)b[a[c]]=!0;return b}var c=a.document,d=a.navigator,e=a.location,f=function(){function J(){if(!e.isReady){try{c.documentElement.doScroll("left")}catch(a){setTimeout(J,1);return}e.ready()}}var e=function(a,b){return new e.fn.init(a,b,h)},f=a.jQuery,g=a.$,h,i=/^(?:[^#<]*(<[\w\W]+>)[^>]*$|#([\w\-]*)$)/,j=/\S/,k=/^\s+/,l=/\s+$/,m=/^<(\w+)\s*\/?>(?:<\/\1>)?$/,n=/^[\],:{}\s]*$/,o=/\\(?:["\\\/bfnrt]|u[0-9a-fA-F]{4})/g,p=/"[^"\\\n\r]*"|true|false|null|-?\d+(?:\.\d*)?(?:[eE][+\-]?\d+)?/g,q=/(?:^|:|,)(?:\s*\[)+/g,r=/(webkit)[ \/]([\w.]+)/,s=/(opera)(?:.*version)?[ \/]([\w.]+)/,t=/(msie) ([\w.]+)/,u=/(mozilla)(?:.*? rv:([\w.]+))?/,v=/-([a-z]|[0-9])/ig,w=/^-ms-/,x=function(a,b){return(b+"").toUpperCase()},y=d.userAgent,z,A,B,C=Object.prototype.toString,D=Object.prototype.hasOwnProperty,E=Array.prototype.push,F=Array.prototype.slice,G=String.prototype.trim,H=Array.prototype.indexOf,I={};e.fn=e.prototype={constructor:e,init:function(a,d,f){var g,h,j,k;if(!a)return this;if(a.nodeType){this.context=this[0]=a,this.length=1;return this}if(a==="body"&&!d&&c.body){this.context=c,this[0]=c.body,this.selector=a,this.length=1;return this}if(typeof a=="string"){a.charAt(0)!=="<"||a.charAt(a.length-1)!==">"||a.length<3?g=i.exec(a):g=[null,a,null];if(g&&(g[1]||!d)){if(g[1]){d=d instanceof e?d[0]:d,k=d?d.ownerDocument||d:c,j=m.exec(a),j?e.isPlainObject(d)?(a=[c.createElement(j[1])],e.fn.attr.call(a,d,!0)):a=[k.createElement(j[1])]:(j=e.buildFragment([g[1]],[k]),a=(j.cacheable?e.clone(j.fragment):j.fragment).childNodes);return e.merge(this,a)}h=c.getElementById(g[2]);if(h&&h.parentNode){if(h.id!==g[2])return f.find(a);this.length=1,this[0]=h}this.context=c,this.selector=a;return this}return!d||d.jquery?(d||f).find(a):this.constructor(d).find(a)}if(e.isFunction(a))return f.ready(a);a.selector!==b&&(this.selector=a.selector,this.context=a.context);return e.makeArray(a,this)},selector:"",jquery:"1.7.1",length:0,size:function(){return this.length},toArray:function(){return F.call(this,0)},get:function(a){return a==null?this.toArray():a<0?this[this.length+a]:this[a]},pushStack:function(a,b,c){var d=this.constructor();e.isArray(a)?E.apply(d,a):e.merge(d,a),d.prevObject=this,d.context=this.context,b==="find"?d.selector=this.selector+(this.selector?" ":"")+c:b&&(d.selector=this.selector+"."+b+"("+c+")");return d},each:function(a,b){return e.each(this,a,b)},ready:function(a){e.bindReady(),A.add(a);return this},eq:function(a){a=+a;return a===-1?this.slice(a):this.slice(a,a+1)},first:function(){return this.eq(0)},last:function(){return this.eq(-1)},slice:function(){return this.pushStack(F.apply(this,arguments),"slice",F.call(arguments).join(","))},map:function(a){return this.pushStack(e.map(this,function(b,c){return a.call(b,c,b)}))},end:function(){return this.prevObject||this.constructor(null)},push:E,sort:[].sort,splice:[].splice},e.fn.init.prototype=e.fn,e.extend=e.fn.extend=function(){var a,c,d,f,g,h,i=arguments[0]||{},j=1,k=arguments.length,l=!1;typeof i=="boolean"&&(l=i,i=arguments[1]||{},j=2),typeof i!="object"&&!e.isFunction(i)&&(i={}),k===j&&(i=this,--j);for(;j<k;j++)if((a=arguments[j])!=null)for(c in a){d=i[c],f=a[c];if(i===f)continue;l&&f&&(e.isPlainObject(f)||(g=e.isArray(f)))?(g?(g=!1,h=d&&e.isArray(d)?d:[]):h=d&&e.isPlainObject(d)?d:{},i[c]=e.extend(l,h,f)):f!==b&&(i[c]=f)}return i},e.extend({noConflict:function(b){a.$===e&&(a.$=g),b&&a.jQuery===e&&(a.jQuery=f);return e},isReady:!1,readyWait:1,holdReady:function(a){a?e.readyWait++:e.ready(!0)},ready:function(a){if(a===!0&&!--e.readyWait||a!==!0&&!e.isReady){if(!c.body)return setTimeout(e.ready,1);e.isReady=!0;if(a!==!0&&--e.readyWait>0)return;A.fireWith(c,[e]),e.fn.trigger&&e(c).trigger("ready").off("ready")}},bindReady:function(){if(!A){A=e.Callbacks("once memory");if(c.readyState==="complete")return setTimeout(e.ready,1);if(c.addEventListener)c.addEventListener("DOMContentLoaded",B,!1),a.addEventListener("load",e.ready,!1);else if(c.attachEvent){c.attachEvent("onreadystatechange",B),a.attachEvent("onload",e.ready);var b=!1;try{b=a.frameElement==null}catch(d){}c.documentElement.doScroll&&b&&J()}}},isFunction:function(a){return e.type(a)==="function"},isArray:Array.isArray||function(a){return e.type(a)==="array"},isWindow:function(a){return a&&typeof a=="object"&&"setInterval"in a},isNumeric:function(a){return!isNaN(parseFloat(a))&&isFinite(a)},type:function(a){return a==null?String(a):I[C.call(a)]||"object"},isPlainObject:function(a){if(!a||e.type(a)!=="object"||a.nodeType||e.isWindow(a))return!1;try{if(a.constructor&&!D.call(a,"constructor")&&!D.call(a.constructor.prototype,"isPrototypeOf"))return!1}catch(c){return!1}var d;for(d in a);return d===b||D.call(a,d)},isEmptyObject:function(a){for(var b in a)return!1;return!0},error:function(a){throw new Error(a)},parseJSON:function(b){if(typeof b!="string"||!b)return null;b=e.trim(b);if(a.JSON&&a.JSON.parse)return a.JSON.parse(b);if(n.test(b.replace(o,"@").replace(p,"]").replace(q,"")))return(new Function("return "+b))();e.error("Invalid JSON: "+b)},parseXML:function(c){var d,f;try{a.DOMParser?(f=new DOMParser,d=f.parseFromString(c,"text/xml")):(d=new ActiveXObject("Microsoft.XMLDOM"),d.async="false",d.loadXML(c))}catch(g){d=b}(!d||!d.documentElement||d.getElementsByTagName("parsererror").length)&&e.error("Invalid XML: "+c);return d},noop:function(){},globalEval:function(b){b&&j.test(b)&&(a.execScript||function(b){a.eval.call(a,b)})(b)},camelCase:function(a){return a.replace(w,"ms-").replace(v,x)},nodeName:function(a,b){return a.nodeName&&a.nodeName.toUpperCase()===b.toUpperCase()},each:function(a,c,d){var f,g=0,h=a.length,i=h===b||e.isFunction(a);if(d){if(i){for(f in a)if(c.apply(a[f],d)===!1)break}else for(;g<h;)if(c.apply(a[g++],d)===!1)break}else if(i){for(f in a)if(c.call(a[f],f,a[f])===!1)break}else for(;g<h;)if(c.call(a[g],g,a[g++])===!1)break;return a},trim:G?function(a){return a==null?"":G.call(a)}:function(a){return a==null?"":(a+"").replace(k,"").replace(l,"")},makeArray:function(a,b){var c=b||[];if(a!=null){var d=e.type(a);a.length==null||d==="string"||d==="function"||d==="regexp"||e.isWindow(a)?E.call(c,a):e.merge(c,a)}return c},inArray:function(a,b,c){var d;if(b){if(H)return H.call(b,a,c);d=b.length,c=c?c<0?Math.max(0,d+c):c:0;for(;c<d;c++)if(c in b&&b[c]===a)return c}return-1},merge:function(a,c){var d=a.length,e=0;if(typeof c.length=="number")for(var f=c.length;e<f;e++)a[d++]=c[e];else while(c[e]!==b)a[d++]=c[e++];a.length=d;return a},grep:function(a,b,c){var d=[],e;c=!!c;for(var f=0,g=a.length;f<g;f++)e=!!b(a[f],f),c!==e&&d.push(a[f]);return d},map:function(a,c,d){var f,g,h=[],i=0,j=a.length,k=a instanceof e||j!==b&&typeof j=="number"&&(j>0&&a[0]&&a[j-1]||j===0||e.isArray(a));if(k)for(;i<j;i++)f=c(a[i],i,d),f!=null&&(h[h.length]=f);else for(g in a)f=c(a[g],g,d),f!=null&&(h[h.length]=f);return h.concat.apply([],h)},guid:1,proxy:function(a,c){if(typeof c=="string"){var d=a[c];c=a,a=d}if(!e.isFunction(a))return b;var f=F.call(arguments,2),g=function(){return a.apply(c,f.concat(F.call(arguments)))};g.guid=a.guid=a.guid||g.guid||e.guid++;return g},access:function(a,c,d,f,g,h){var i=a.length;if(typeof c=="object"){for(var j in c)e.access(a,j,c[j],f,g,d);return a}if(d!==b){f=!h&&f&&e.isFunction(d);for(var k=0;k<i;k++)g(a[k],c,f?d.call(a[k],k,g(a[k],c)):d,h);return a}return i?g(a[0],c):b},now:function(){return(new Date).getTime()},uaMatch:function(a){a=a.toLowerCase();var b=r.exec(a)||s.exec(a)||t.exec(a)||a.indexOf("compatible")<0&&u.exec(a)||[];return{browser:b[1]||"",version:b[2]||"0"}},sub:function(){function a(b,c){return new a.fn.init(b,c)}e.extend(!0,a,this),a.superclass=this,a.fn=a.prototype=this(),a.fn.constructor=a,a.sub=this.sub,a.fn.init=function(d,f){f&&f instanceof e&&!(f instanceof a)&&(f=a(f));return e.fn.init.call(this,d,f,b)},a.fn.init.prototype=a.fn;var b=a(c);return a},browser:{}}),e.each("Boolean Number String Function Array Date RegExp Object".split(" "),function(a,b){I["[object "+b+"]"]=b.toLowerCase()}),z=e.uaMatch(y),z.browser&&(e.browser[z.browser]=!0,e.browser.version=z.version),e.browser.webkit&&(e.browser.safari=!0),j.test(" ")&&(k=/^[\s\xA0]+/,l=/[\s\xA0]+$/),h=e(c),c.addEventListener?B=function(){c.removeEventListener("DOMContentLoaded",B,!1),e.ready()}:c.attachEvent&&(B=function(){c.readyState==="complete"&&(c.detachEvent("onreadystatechange",B),e.ready())});return e}(),g={};f.Callbacks=function(a){a=a?g[a]||h(a):{};var c=[],d=[],e,i,j,k,l,m=function(b){var d,e,g,h,i;for(d=0,e=b.length;d<e;d++)g=b[d],h=f.type(g),h==="array"?m(g):h==="function"&&(!a.unique||!o.has(g))&&c.push(g)},n=function(b,f){f=f||[],e=!a.memory||[b,f],i=!0,l=j||0,j=0,k=c.length;for(;c&&l<k;l++)if(c[l].apply(b,f)===!1&&a.stopOnFalse){e=!0;break}i=!1,c&&(a.once?e===!0?o.disable():c=[]:d&&d.length&&(e=d.shift(),o.fireWith(e[0],e[1])))},o={add:function(){if(c){var a=c.length;m(arguments),i?k=c.length:e&&e!==!0&&(j=a,n(e[0],e[1]))}return this},remove:function(){if(c){var b=arguments,d=0,e=b.length;for(;d<e;d++)for(var f=0;f<c.length;f++)if(b[d]===c[f]){i&&f<=k&&(k--,f<=l&&l--),c.splice(f--,1);if(a.unique)break}}return this},has:function(a){if(c){var b=0,d=c.length;for(;b<d;b++)if(a===c[b])return!0}return!1},empty:function(){c=[];return this},disable:function(){c=d=e=b;return this},disabled:function(){return!c},lock:function(){d=b,(!e||e===!0)&&o.disable();return this},locked:function(){return!d},fireWith:function(b,c){d&&(i?a.once||d.push([b,c]):(!a.once||!e)&&n(b,c));return this},fire:function(){o.fireWith(this,arguments);return this},fired:function(){return!!e}};return o};var i=[].slice;f.extend({Deferred:function(a){var b=f.Callbacks("once memory"),c=f.Callbacks("once memory"),d=f.Callbacks("memory"),e="pending",g={resolve:b,reject:c,notify:d},h={done:b.add,fail:c.add,progress:d.add,state:function(){return e},isResolved:b.fired,isRejected:c.fired,then:function(a,b,c){i.done(a).fail(b).progress(c);return this},always:function(){i.done.apply(i,arguments).fail.apply(i,arguments);return this},pipe:function(a,b,c){return f.Deferred(function(d){f.each({done:[a,"resolve"],fail:[b,"reject"],progress:[c,"notify"]},function(a,b){var c=b[0],e=b[1],g;f.isFunction(c)?i[a](function(){g=c.apply(this,arguments),g&&f.isFunction(g.promise)?g.promise().then(d.resolve,d.reject,d.notify):d[e+"With"](this===i?d:this,[g])}):i[a](d[e])})}).promise()},promise:function(a){if(a==null)a=h;else for(var b in h)a[b]=h[b];return a}},i=h.promise({}),j;for(j in g)i[j]=g[j].fire,i[j+"With"]=g[j].fireWith;i.done(function(){e="resolved"},c.disable,d.lock).fail(function(){e="rejected"},b.disable,d.lock),a&&a.call(i,i);return i},when:function(a){function m(a){return function(b){e[a]=arguments.length>1?i.call(arguments,0):b,j.notifyWith(k,e)}}function l(a){return function(c){b[a]=arguments.length>1?i.call(arguments,0):c,--g||j.resolveWith(j,b)}}var b=i.call(arguments,0),c=0,d=b.length,e=Array(d),g=d,h=d,j=d<=1&&a&&f.isFunction(a.promise)?a:f.Deferred(),k=j.promise();if(d>1){for(;c<d;c++)b[c]&&b[c].promise&&f.isFunction(b[c].promise)?b[c].promise().then(l(c),j.reject,m(c)):--g;g||j.resolveWith(j,b)}else j!==a&&j.resolveWith(j,d?[a]:[]);return k}}),f.support=function(){var b,d,e,g,h,i,j,k,l,m,n,o,p,q=c.createElement("div"),r=c.documentElement;q.setAttribute("className","t"),q.innerHTML="   <link/><table></table><a href='/a' style='top:1px;float:left;opacity:.55;'>a</a><input type='checkbox'/>",d=q.getElementsByTagName("*"),e=q.getElementsByTagName("a")[0];if(!d||!d.length||!e)return{};g=c.createElement("select"),h=g.appendChild(c.createElement("option")),i=q.getElementsByTagName("input")[0],b={leadingWhitespace:q.firstChild.nodeType===3,tbody:!q.getElementsByTagName("tbody").length,htmlSerialize:!!q.getElementsByTagName("link").length,style:/top/.test(e.getAttribute("style")),hrefNormalized:e.getAttribute("href")==="/a",opacity:/^0.55/.test(e.style.opacity),cssFloat:!!e.style.cssFloat,checkOn:i.value==="on",optSelected:h.selected,getSetAttribute:q.className!=="t",enctype:!!c.createElement("form").enctype,html5Clone:c.createElement("nav").cloneNode(!0).outerHTML!=="<:nav></:nav>",submitBubbles:!0,changeBubbles:!0,focusinBubbles:!1,deleteExpando:!0,noCloneEvent:!0,inlineBlockNeedsLayout:!1,shrinkWrapBlocks:!1,reliableMarginRight:!0},i.checked=!0,b.noCloneChecked=i.cloneNode(!0).checked,g.disabled=!0,b.optDisabled=!h.disabled;try{delete q.test}catch(s){b.deleteExpando=!1}!q.addEventListener&&q.attachEvent&&q.fireEvent&&(q.attachEvent("onclick",function(){b.noCloneEvent=!1}),q.cloneNode(!0).fireEvent("onclick")),i=c.createElement("input"),i.value="t",i.setAttribute("type","radio"),b.radioValue=i.value==="t",i.setAttribute("checked","checked"),q.appendChild(i),k=c.createDocumentFragment(),k.appendChild(q.lastChild),b.checkClone=k.cloneNode(!0).cloneNode(!0).lastChild.checked,b.appendChecked=i.checked,k.removeChild(i),k.appendChild(q),q.innerHTML="",a.getComputedStyle&&(j=c.createElement("div"),j.style.width="0",j.style.marginRight="0",q.style.width="2px",q.appendChild(j),b.reliableMarginRight=(parseInt((a.getComputedStyle(j,null)||{marginRight:0}).marginRight,10)||0)===0);if(q.attachEvent)for(o in{submit:1,change:1,focusin:1})n="on"+o,p=n in q,p||(q.setAttribute(n,"return;"),p=typeof q[n]=="function"),b[o+"Bubbles"]=p;k.removeChild(q),k=g=h=j=q=i=null,f(function(){var a,d,e,g,h,i,j,k,m,n,o,r=c.getElementsByTagName("body")[0];!r||(j=1,k="position:absolute;top:0;left:0;width:1px;height:1px;margin:0;",m="visibility:hidden;border:0;",n="style='"+k+"border:5px solid #000;padding:0;'",o="<div "+n+"><div></div></div>"+"<table "+n+" cellpadding='0' cellspacing='0'>"+"<tr><td></td></tr></table>",a=c.createElement("div"),a.style.cssText=m+"width:0;height:0;position:static;top:0;margin-top:"+j+"px",r.insertBefore(a,r.firstChild),q=c.createElement("div"),a.appendChild(q),q.innerHTML="<table><tr><td style='padding:0;border:0;display:none'></td><td>t</td></tr></table>",l=q.getElementsByTagName("td"),p=l[0].offsetHeight===0,l[0].style.display="",l[1].style.display="none",b.reliableHiddenOffsets=p&&l[0].offsetHeight===0,q.innerHTML="",q.style.width=q.style.paddingLeft="1px",f.boxModel=b.boxModel=q.offsetWidth===2,typeof q.style.zoom!="undefined"&&(q.style.display="inline",q.style.zoom=1,b.inlineBlockNeedsLayout=q.offsetWidth===2,q.style.display="",q.innerHTML="<div style='width:4px;'></div>",b.shrinkWrapBlocks=q.offsetWidth!==2),q.style.cssText=k+m,q.innerHTML=o,d=q.firstChild,e=d.firstChild,h=d.nextSibling.firstChild.firstChild,i={doesNotAddBorder:e.offsetTop!==5,doesAddBorderForTableAndCells:h.offsetTop===5},e.style.position="fixed",e.style.top="20px",i.fixedPosition=e.offsetTop===20||e.offsetTop===15,e.style.position=e.style.top="",d.style.overflow="hidden",d.style.position="relative",i.subtractsBorderForOverflowNotVisible=e.offsetTop===-5,i.doesNotIncludeMarginInBodyOffset=r.offsetTop!==j,r.removeChild(a),q=a=null,f.extend(b,i))});return b}();var j=/^(?:\{.*\}|\[.*\])$/,k=/([A-Z])/g;f.extend({cache:{},uuid:0,expando:"jQuery"+(f.fn.jquery+Math.random()).replace(/\D/g,""),noData:{embed:!0,object:"clsid:D27CDB6E-AE6D-11cf-96B8-444553540000",applet:!0},hasData:function(a){a=a.nodeType?f.cache[a[f.expando]]:a[f.expando];return!!a&&!m(a)},data:function(a,c,d,e){if(!!f.acceptData(a)){var g,h,i,j=f.expando,k=typeof c=="string",l=a.nodeType,m=l?f.cache:a,n=l?a[j]:a[j]&&j,o=c==="events";if((!n||!m[n]||!o&&!e&&!m[n].data)&&k&&d===b)return;n||(l?a[j]=n=++f.uuid:n=j),m[n]||(m[n]={},l||(m[n].toJSON=f.noop));if(typeof c=="object"||typeof c=="function")e?m[n]=f.extend(m[n],c):m[n].data=f.extend(m[n].data,c);g=h=m[n],e||(h.data||(h.data={}),h=h.data),d!==b&&(h[f.camelCase(c)]=d);if(o&&!h[c])return g.events;k?(i=h[c],i==null&&(i=h[f.camelCase(c)])):i=h;return i}},removeData:function(a,b,c){if(!!f.acceptData(a)){var d,e,g,h=f.expando,i=a.nodeType,j=i?f.cache:a,k=i?a[h]:h;if(!j[k])return;if(b){d=c?j[k]:j[k].data;if(d){f.isArray(b)||(b in d?b=[b]:(b=f.camelCase(b),b in d?b=[b]:b=b.split(" ")));for(e=0,g=b.length;e<g;e++)delete d[b[e]];if(!(c?m:f.isEmptyObject)(d))return}}if(!c){delete j[k].data;if(!m(j[k]))return}f.support.deleteExpando||!j.setInterval?delete j[k]:j[k]=null,i&&(f.support.deleteExpando?delete a[h]:a.removeAttribute?a.removeAttribute(h):a[h]=null)}},_data:function(a,b,c){return f.data(a,b,c,!0)},acceptData:function(a){if(a.nodeName){var b=f.noData[a.nodeName.toLowerCase()];if(b)return b!==!0&&a.getAttribute("classid")===b}return!0}}),f.fn.extend({data:function(a,c){var d,e,g,h=null;if(typeof a=="undefined"){if(this.length){h=f.data(this[0]);if(this[0].nodeType===1&&!f._data(this[0],"parsedAttrs")){e=this[0].attributes;for(var i=0,j=e.length;i<j;i++)g=e[i].name,g.indexOf("data-")===0&&(g=f.camelCase(g.substring(5)),l(this[0],g,h[g]));f._data(this[0],"parsedAttrs",!0)}}return h}if(typeof a=="object")return this.each(function(){f.data(this,a)});d=a.split("."),d[1]=d[1]?"."+d[1]:"";if(c===b){h=this.triggerHandler("getData"+d[1]+"!",[d[0]]),h===b&&this.length&&(h=f.data(this[0],a),h=l(this[0],a,h));return h===b&&d[1]?this.data(d[0]):h}return this.each(function(){var b=f(this),e=[d[0],c];b.triggerHandler("setData"+d[1]+"!",e),f.data(this,a,c),b.triggerHandler("changeData"+d[1]+"!",e)})},removeData:function(a){return this.each(function(){f.removeData(this,a)})}}),f.extend({_mark:function(a,b){a&&(b=(b||"fx")+"mark",f._data(a,b,(f._data(a,b)||0)+1))},_unmark:function(a,b,c){a!==!0&&(c=b,b=a,a=!1);if(b){c=c||"fx";var d=c+"mark",e=a?0:(f._data(b,d)||1)-1;e?f._data(b,d,e):(f.removeData(b,d,!0),n(b,c,"mark"))}},queue:function(a,b,c){var d;if(a){b=(b||"fx")+"queue",d=f._data(a,b),c&&(!d||f.isArray(c)?d=f._data(a,b,f.makeArray(c)):d.push(c));return d||[]}},dequeue:function(a,b){b=b||"fx";var c=f.queue(a,b),d=c.shift(),e={};d==="inprogress"&&(d=c.shift()),d&&(b==="fx"&&c.unshift("inprogress"),f._data(a,b+".run",e),d.call(a,function(){f.dequeue(a,b)},e)),c.length||(f.removeData(a,b+"queue "+b+".run",!0),n(a,b,"queue"))}}),f.fn.extend({queue:function(a,c){typeof a!="string"&&(c=a,a="fx");if(c===b)return f.queue(this[0],a);return this.each(function(){var b=f.queue(this,a,c);a==="fx"&&b[0]!=="inprogress"&&f.dequeue(this,a)})},dequeue:function(a){return this.each(function(){f.dequeue(this,a)})},delay:function(a,b){a=f.fx?f.fx.speeds[a]||a:a,b=b||"fx";return this.queue(b,function(b,c){var d=setTimeout(b,a);c.stop=function(){clearTimeout(d)}})},clearQueue:function(a){return this.queue(a||"fx",[])},promise:function(a,c){function m(){--h||d.resolveWith(e,[e])}typeof a!="string"&&(c=a,a=b),a=a||"fx";var d=f.Deferred(),e=this,g=e.length,h=1,i=a+"defer",j=a+"queue",k=a+"mark",l;while(g--)if(l=f.data(e[g],i,b,!0)||(f.data(e[g],j,b,!0)||f.data(e[g],k,b,!0))&&f.data(e[g],i,f.Callbacks("once memory"),!0))h++,l.add(m);m();return d.promise()}});var o=/[\n\t\r]/g,p=/\s+/,q=/\r/g,r=/^(?:button|input)$/i,s=/^(?:button|input|object|select|textarea)$/i,t=/^a(?:rea)?$/i,u=/^(?:autofocus|autoplay|async|checked|controls|defer|disabled|hidden|loop|multiple|open|readonly|required|scoped|selected)$/i,v=f.support.getSetAttribute,w,x,y;f.fn.extend({attr:function(a,b){return f.access(this,a,b,!0,f.attr)},removeAttr:function(a){return this.each(function(){f.removeAttr(this,a)})},prop:function(a,b){return f.access(this,a,b,!0,f.prop)},removeProp:function(a){a=f.propFix[a]||a;return this.each(function(){try{this[a]=b,delete this[a]}catch(c){}})},addClass:function(a){var b,c,d,e,g,h,i;if(f.isFunction(a))return this.each(function(b){f(this).addClass(a.call(this,b,this.className))});if(a&&typeof a=="string"){b=a.split(p);for(c=0,d=this.length;c<d;c++){e=this[c];if(e.nodeType===1)if(!e.className&&b.length===1)e.className=a;else{g=" "+e.className+" ";for(h=0,i=b.length;h<i;h++)~g.indexOf(" "+b[h]+" ")||(g+=b[h]+" ");e.className=f.trim(g)}}}return this},removeClass:function(a){var c,d,e,g,h,i,j;if(f.isFunction(a))return this.each(function(b){f(this).removeClass(a.call(this,b,this.className))});if(a&&typeof a=="string"||a===b){c=(a||"").split(p);for(d=0,e=this.length;d<e;d++){g=this[d];if(g.nodeType===1&&g.className)if(a){h=(" "+g.className+" ").replace(o," ");for(i=0,j=c.length;i<j;i++)h=h.replace(" "+c[i]+" "," ");g.className=f.trim(h)}else g.className=""}}return this},toggleClass:function(a,b){var c=typeof a,d=typeof b=="boolean";if(f.isFunction(a))return this.each(function(c){f(this).toggleClass(a.call(this,c,this.className,b),b)});return this.each(function(){if(c==="string"){var e,g=0,h=f(this),i=b,j=a.split(p);while(e=j[g++])i=d?i:!h.hasClass(e),h[i?"addClass":"removeClass"](e)}else if(c==="undefined"||c==="boolean")this.className&&f._data(this,"__className__",this.className),this.className=this.className||a===!1?"":f._data(this,"__className__")||""})},hasClass:function(a){var b=" "+a+" ",c=0,d=this.length;for(;c<d;c++)if(this[c].nodeType===1&&(" "+this[c].className+" ").replace(o," ").indexOf(b)>-1)return!0;return!1},val:function(a){var c,d,e,g=this[0];{if(!!arguments.length){e=f.isFunction(a);return this.each(function(d){var g=f(this),h;if(this.nodeType===1){e?h=a.call(this,d,g.val()):h=a,h==null?h="":typeof h=="number"?h+="":f.isArray(h)&&(h=f.map(h,function(a){return a==null?"":a+""})),c=f.valHooks[this.nodeName.toLowerCase()]||f.valHooks[this.type];if(!c||!("set"in c)||c.set(this,h,"value")===b)this.value=h}})}if(g){c=f.valHooks[g.nodeName.toLowerCase()]||f.valHooks[g.type];if(c&&"get"in c&&(d=c.get(g,"value"))!==b)return d;d=g.value;return typeof d=="string"?d.replace(q,""):d==null?"":d}}}}),f.extend({valHooks:{option:{get:function(a){var b=a.attributes.value;return!b||b.specified?a.value:a.text}},select:{get:function(a){var b,c,d,e,g=a.selectedIndex,h=[],i=a.options,j=a.type==="select-one";if(g<0)return null;c=j?g:0,d=j?g+1:i.length;for(;c<d;c++){e=i[c];if(e.selected&&(f.support.optDisabled?!e.disabled:e.getAttribute("disabled")===null)&&(!e.parentNode.disabled||!f.nodeName(e.parentNode,"optgroup"))){b=f(e).val();if(j)return b;h.push(b)}}if(j&&!h.length&&i.length)return f(i[g]).val();return h},set:function(a,b){var c=f.makeArray(b);f(a).find("option").each(function(){this.selected=f.inArray(f(this).val(),c)>=0}),c.length||(a.selectedIndex=-1);return c}}},attrFn:{val:!0,css:!0,html:!0,text:!0,data:!0,width:!0,height:!0,offset:!0},attr:function(a,c,d,e){var g,h,i,j=a.nodeType;if(!!a&&j!==3&&j!==8&&j!==2){if(e&&c in f.attrFn)return f(a)[c](d);if(typeof a.getAttribute=="undefined")return f.prop(a,c,d);i=j!==1||!f.isXMLDoc(a),i&&(c=c.toLowerCase(),h=f.attrHooks[c]||(u.test(c)?x:w));if(d!==b){if(d===null){f.removeAttr(a,c);return}if(h&&"set"in h&&i&&(g=h.set(a,d,c))!==b)return g;a.setAttribute(c,""+d);return d}if(h&&"get"in h&&i&&(g=h.get(a,c))!==null)return g;g=a.getAttribute(c);return g===null?b:g}},removeAttr:function(a,b){var c,d,e,g,h=0;if(b&&a.nodeType===1){d=b.toLowerCase().split(p),g=d.length;for(;h<g;h++)e=d[h],e&&(c=f.propFix[e]||e,f.attr(a,e,""),a.removeAttribute(v?e:c),u.test(e)&&c in a&&(a[c]=!1))}},attrHooks:{type:{set:function(a,b){if(r.test(a.nodeName)&&a.parentNode)f.error("type property can't be changed");else if(!f.support.radioValue&&b==="radio"&&f.nodeName(a,"input")){var c=a.value;a.setAttribute("type",b),c&&(a.value=c);return b}}},value:{get:function(a,b){if(w&&f.nodeName(a,"button"))return w.get(a,b);return b in a?a.value:null},set:function(a,b,c){if(w&&f.nodeName(a,"button"))return w.set(a,b,c);a.value=b}}},propFix:{tabindex:"tabIndex",readonly:"readOnly","for":"htmlFor","class":"className",maxlength:"maxLength",cellspacing:"cellSpacing",cellpadding:"cellPadding",rowspan:"rowSpan",colspan:"colSpan",usemap:"useMap",frameborder:"frameBorder",contenteditable:"contentEditable"},prop:function(a,c,d){var e,g,h,i=a.nodeType;if(!!a&&i!==3&&i!==8&&i!==2){h=i!==1||!f.isXMLDoc(a),h&&(c=f.propFix[c]||c,g=f.propHooks[c]);return d!==b?g&&"set"in g&&(e=g.set(a,d,c))!==b?e:a[c]=d:g&&"get"in g&&(e=g.get(a,c))!==null?e:a[c]}},propHooks:{tabIndex:{get:function(a){var c=a.getAttributeNode("tabindex");return c&&c.specified?parseInt(c.value,10):s.test(a.nodeName)||t.test(a.nodeName)&&a.href?0:b}}}}),f.attrHooks.tabindex=f.propHooks.tabIndex,x={get:function(a,c){var d,e=f.prop(a,c);return e===!0||typeof e!="boolean"&&(d=a.getAttributeNode(c))&&d.nodeValue!==!1?c.toLowerCase():b},set:function(a,b,c){var d;b===!1?f.removeAttr(a,c):(d=f.propFix[c]||c,d in a&&(a[d]=!0),a.setAttribute(c,c.toLowerCase()));return c}},v||(y={name:!0,id:!0},w=f.valHooks.button={get:function(a,c){var d;d=a.getAttributeNode(c);return d&&(y[c]?d.nodeValue!=="":d.specified)?d.nodeValue:b},set:function(a,b,d){var e=a.getAttributeNode(d);e||(e=c.createAttribute(d),a.setAttributeNode(e));return e.nodeValue=b+""}},f.attrHooks.tabindex.set=w.set,f.each(["width","height"],function(a,b){f.attrHooks[b]=f.extend(f.attrHooks[b],{set:function(a,c){if(c===""){a.setAttribute(b,"auto");return c}}})}),f.attrHooks.contenteditable={get:w.get,set:function(a,b,c){b===""&&(b="false"),w.set(a,b,c)}}),f.support.hrefNormalized||f.each(["href","src","width","height"],function(a,c){f.attrHooks[c]=f.extend(f.attrHooks[c],{get:function(a){var d=a.getAttribute(c,2);return d===null?b:d}})}),f.support.style||(f.attrHooks.style={get:function(a){return a.style.cssText.toLowerCase()||b},set:function(a,b){return a.style.cssText=""+b}}),f.support.optSelected||(f.propHooks.selected=f.extend(f.propHooks.selected,{get:function(a){var b=a.parentNode;b&&(b.selectedIndex,b.parentNode&&b.parentNode.selectedIndex);return null}})),f.support.enctype||(f.propFix.enctype="encoding"),f.support.checkOn||f.each(["radio","checkbox"],function(){f.valHooks[this]={get:function(a){return a.getAttribute("value")===null?"on":a.value}}}),f.each(["radio","checkbox"],function(){f.valHooks[this]=f.extend(f.valHooks[this],{set:function(a,b){if(f.isArray(b))return a.checked=f.inArray(f(a).val(),b)>=0}})});var z=/^(?:textarea|input|select)$/i,A=/^([^\.]*)?(?:\.(.+))?$/,B=/\bhover(\.\S+)?\b/,C=/^key/,D=/^(?:mouse|contextmenu)|click/,E=/^(?:focusinfocus|focusoutblur)$/,F=/^(\w*)(?:#([\w\-]+))?(?:\.([\w\-]+))?$/,G=function(a){var b=F.exec(a);b&&(b[1]=(b[1]||"").toLowerCase(),b[3]=b[3]&&new RegExp("(?:^|\\s)"+b[3]+"(?:\\s|$)"));return b},H=function(a,b){var c=a.attributes||{};return(!b[1]||a.nodeName.toLowerCase()===b[1])&&(!b[2]||(c.id||{}).value===b[2])&&(!b[3]||b[3].test((c["class"]||{}).value))},I=function(a){return f.event.special.hover?a:a.replace(B,"mouseenter$1 mouseleave$1")};+f.event={add:function(a,c,d,e,g){var h,i,j,k,l,m,n,o,p,q,r,s;if(!(a.nodeType===3||a.nodeType===8||!c||!d||!(h=f._data(a)))){d.handler&&(p=d,d=p.handler),d.guid||(d.guid=f.guid++),j=h.events,j||(h.events=j={}),i=h.handle,i||(h.handle=i=function(a){return typeof f!="undefined"&&(!a||f.event.triggered!==a.type)?f.event.dispatch.apply(i.elem,arguments):b},i.elem=a),c=f.trim(I(c)).split(" ");for(k=0;k<c.length;k++){l=A.exec(c[k])||[],m=l[1],n=(l[2]||"").split(".").sort(),s=f.event.special[m]||{},m=(g?s.delegateType:s.bindType)||m,s=f.event.special[m]||{},o=f.extend({type:m,origType:l[1],data:e,handler:d,guid:d.guid,selector:g,quick:G(g),namespace:n.join(".")},p),r=j[m];if(!r){r=j[m]=[],r.delegateCount=0;if(!s.setup||s.setup.call(a,e,n,i)===!1)a.addEventListener?a.addEventListener(m,i,!1):a.attachEvent&&a.attachEvent("on"+m,i)}s.add&&(s.add.call(a,o),o.handler.guid||(o.handler.guid=d.guid)),g?r.splice(r.delegateCount++,0,o):r.push(o),f.event.global[m]=!0}a=null}},global:{},remove:function(a,b,c,d,e){var g=f.hasData(a)&&f._data(a),h,i,j,k,l,m,n,o,p,q,r,s;if(!!g&&!!(o=g.events)){b=f.trim(I(b||"")).split(" ");for(h=0;h<b.length;h++){i=A.exec(b[h])||[],j=k=i[1],l=i[2];if(!j){for(j in o)f.event.remove(a,j+b[h],c,d,!0);continue}p=f.event.special[j]||{},j=(d?p.delegateType:p.bindType)||j,r=o[j]||[],m=r.length,l=l?new RegExp("(^|\\.)"+l.split(".").sort().join("\\.(?:.*\\.)?")+"(\\.|$)"):null;for(n=0;n<r.length;n++)s=r[n],(e||k===s.origType)&&(!c||c.guid===s.guid)&&(!l||l.test(s.namespace))&&(!d||d===s.selector||d==="**"&&s.selector)&&(r.splice(n--,1),s.selector&&r.delegateCount--,p.remove&&p.remove.call(a,s));r.length===0&&m!==r.length&&((!p.teardown||p.teardown.call(a,l)===!1)&&f.removeEvent(a,j,g.handle),delete o[j])}f.isEmptyObject(o)&&(q=g.handle,q&&(q.elem=null),f.removeData(a,["events","handle"],!0))}},customEvent:{getData:!0,setData:!0,changeData:!0},trigger:function(c,d,e,g){if(!e||e.nodeType!==3&&e.nodeType!==8){var h=c.type||c,i=[],j,k,l,m,n,o,p,q,r,s;if(E.test(h+f.event.triggered))return;h.indexOf("!")>=0&&(h=h.slice(0,-1),k=!0),h.indexOf(".")>=0&&(i=h.split("."),h=i.shift(),i.sort());if((!e||f.event.customEvent[h])&&!f.event.global[h])return;c=typeof c=="object"?c[f.expando]?c:new f.Event(h,c):new f.Event(h),c.type=h,c.isTrigger=!0,c.exclusive=k,c.namespace=i.join("."),c.namespace_re=c.namespace?new RegExp("(^|\\.)"+i.join("\\.(?:.*\\.)?")+"(\\.|$)"):null,o=h.indexOf(":")<0?"on"+h:"";if(!e){j=f.cache;for(l in j)j[l].events&&j[l].events[h]&&f.event.trigger(c,d,j[l].handle.elem,!0);return}c.result=b,c.target||(c.target=e),d=d!=null?f.makeArray(d):[],d.unshift(c),p=f.event.special[h]||{};if(p.trigger&&p.trigger.apply(e,d)===!1)return;r=[[e,p.bindType||h]];if(!g&&!p.noBubble&&!f.isWindow(e)){s=p.delegateType||h,m=E.test(s+h)?e:e.parentNode,n=null;for(;m;m=m.parentNode)r.push([m,s]),n=m;n&&n===e.ownerDocument&&r.push([n.defaultView||n.parentWindow||a,s])}for(l=0;l<r.length&&!c.isPropagationStopped();l++)m=r[l][0],c.type=r[l][1],q=(f._data(m,"events")||{})[c.type]&&f._data(m,"handle"),q&&q.apply(m,d),q=o&&m[o],q&&f.acceptData(m)&&q.apply(m,d)===!1&&c.preventDefault();c.type=h,!g&&!c.isDefaultPrevented()&&(!p._default||p._default.apply(e.ownerDocument,d)===!1)&&(h!=="click"||!f.nodeName(e,"a"))&&f.acceptData(e)&&o&&e[h]&&(h!=="focus"&&h!=="blur"||c.target.offsetWidth!==0)&&!f.isWindow(e)&&(n=e[o],n&&(e[o]=null),f.event.triggered=h,e[h](),f.event.triggered=b,n&&(e[o]=n));return c.result}},dispatch:function(c){c=f.event.fix(c||a.event);var d=(f._data(this,"events")||{})[c.type]||[],e=d.delegateCount,g=[].slice.call(arguments,0),h=!c.exclusive&&!c.namespace,i=[],j,k,l,m,n,o,p,q,r,s,t;g[0]=c,c.delegateTarget=this;if(e&&!c.target.disabled&&(!c.button||c.type!=="click")){m=f(this),m.context=this.ownerDocument||this;for(l=c.target;l!=this;l=l.parentNode||this){o={},q=[],m[0]=l;for(j=0;j<e;j++)r=d[j],s=r.selector,o[s]===b&&(o[s]=r.quick?H(l,r.quick):m.is(s)),o[s]&&q.push(r);q.length&&i.push({elem:l,matches:q})}}d.length>e&&i.push({elem:this,matches:d.slice(e)});for(j=0;j<i.length&&!c.isPropagationStopped();j++){p=i[j],c.currentTarget=p.elem;for(k=0;k<p.matches.length&&!c.isImmediatePropagationStopped();k++){r=p.matches[k];if(h||!c.namespace&&!r.namespace||c.namespace_re&&c.namespace_re.test(r.namespace))c.data=r.data,c.handleObj=r,n=((f.event.special[r.origType]||{}).handle||r.handler).apply(p.elem,g),n!==b&&(c.result=n,n===!1&&(c.preventDefault(),c.stopPropagation()))}}return c.result},props:"attrChange attrName relatedNode srcElement altKey bubbles cancelable ctrlKey currentTarget eventPhase metaKey relatedTarget shiftKey target timeStamp view which".split(" "),fixHooks:{},keyHooks:{props:"char charCode key keyCode".split(" "),filter:function(a,b){a.which==null&&(a.which=b.charCode!=null?b.charCode:b.keyCode);return a}},mouseHooks:{props:"button buttons clientX clientY fromElement offsetX offsetY pageX pageY screenX screenY toElement".split(" "),filter:function(a,d){var e,f,g,h=d.button,i=d.fromElement;a.pageX==null&&d.clientX!=null&&(e=a.target.ownerDocument||c,f=e.documentElement,g=e.body,a.pageX=d.clientX+(f&&f.scrollLeft||g&&g.scrollLeft||0)-(f&&f.clientLeft||g&&g.clientLeft||0),a.pageY=d.clientY+(f&&f.scrollTop||g&&g.scrollTop||0)-(f&&f.clientTop||g&&g.clientTop||0)),!a.relatedTarget&&i&&(a.relatedTarget=i===a.target?d.toElement:i),!a.which&&h!==b&&(a.which=h&1?1:h&2?3:h&4?2:0);return a}},fix:function(a){if(a[f.expando])return a;var d,e,g=a,h=f.event.fixHooks[a.type]||{},i=h.props?this.props.concat(h.props):this.props;a=f.Event(g);for(d=i.length;d;)e=i[--d],a[e]=g[e];a.target||(a.target=g.srcElement||c),a.target.nodeType===3&&(a.target=a.target.parentNode),a.metaKey===b&&(a.metaKey=a.ctrlKey);return h.filter?h.filter(a,g):a},special:{ready:{setup:f.bindReady},load:{noBubble:!0},focus:{delegateType:"focusin"},blur:{delegateType:"focusout"},beforeunload:{setup:function(a,b,c){f.isWindow(this)&&(this.onbeforeunload=c)},teardown:function(a,b){this.onbeforeunload===b&&(this.onbeforeunload=null)}}},simulate:function(a,b,c,d){var e=f.extend(new f.Event,c,{type:a,isSimulated:!0,originalEvent:{}});d?f.event.trigger(e,null,b):f.event.dispatch.call(b,e),e.isDefaultPrevented()&&c.preventDefault()}},f.event.handle=f.event.dispatch,f.removeEvent=c.removeEventListener?function(a,b,c){a.removeEventListener&&a.removeEventListener(b,c,!1)}:function(a,b,c){a.detachEvent&&a.detachEvent("on"+b,c)},f.Event=function(a,b){if(!(this instanceof f.Event))return new f.Event(a,b);a&&a.type?(this.originalEvent=a,this.type=a.type,this.isDefaultPrevented=a.defaultPrevented||a.returnValue===!1||a.getPreventDefault&&a.getPreventDefault()?K:J):this.type=a,b&&f.extend(this,b),this.timeStamp=a&&a.timeStamp||f.now(),this[f.expando]=!0},f.Event.prototype={preventDefault:function(){this.isDefaultPrevented=K;var a=this.originalEvent;!a||(a.preventDefault?a.preventDefault():a.returnValue=!1)},stopPropagation:function(){this.isPropagationStopped=K;var a=this.originalEvent;!a||(a.stopPropagation&&a.stopPropagation(),a.cancelBubble=!0)},stopImmediatePropagation:function(){this.isImmediatePropagationStopped=K,this.stopPropagation()},isDefaultPrevented:J,isPropagationStopped:J,isImmediatePropagationStopped:J},f.each({mouseenter:"mouseover",mouseleave:"mouseout"},function(a,b){f.event.special[a]={delegateType:b,bindType:b,handle:function(a){var c=this,d=a.relatedTarget,e=a.handleObj,g=e.selector,h;if(!d||d!==c&&!f.contains(c,d))a.type=e.origType,h=e.handler.apply(this,arguments),a.type=b;return h}}}),f.support.submitBubbles||(f.event.special.submit={setup:function(){if(f.nodeName(this,"form"))return!1;f.event.add(this,"click._submit keypress._submit",function(a){var c=a.target,d=f.nodeName(c,"input")||f.nodeName(c,"button")?c.form:b;d&&!d._submit_attached&&(f.event.add(d,"submit._submit",function(a){this.parentNode&&!a.isTrigger&&f.event.simulate("submit",this.parentNode,a,!0)}),d._submit_attached=!0)})},teardown:function(){if(f.nodeName(this,"form"))return!1;f.event.remove(this,"._submit")}}),f.support.changeBubbles||(f.event.special.change={setup:function(){if(z.test(this.nodeName)){if(this.type==="checkbox"||this.type==="radio")f.event.add(this,"propertychange._change",function(a){a.originalEvent.propertyName==="checked"&&(this._just_changed=!0)}),f.event.add(this,"click._change",function(a){this._just_changed&&!a.isTrigger&&(this._just_changed=!1,f.event.simulate("change",this,a,!0))});return!1}f.event.add(this,"beforeactivate._change",function(a){var b=a.target;z.test(b.nodeName)&&!b._change_attached&&(f.event.add(b,"change._change",function(a){this.parentNode&&!a.isSimulated&&!a.isTrigger&&f.event.simulate("change",this.parentNode,a,!0)}),b._change_attached=!0)})},handle:function(a){var b=a.target;if(this!==b||a.isSimulated||a.isTrigger||b.type!=="radio"&&b.type!=="checkbox")return a.handleObj.handler.apply(this,arguments)},teardown:function(){f.event.remove(this,"._change");return z.test(this.nodeName)}}),f.support.focusinBubbles||f.each({focus:"focusin",blur:"focusout"},function(a,b){var d=0,e=function(a){f.event.simulate(b,a.target,f.event.fix(a),!0)};f.event.special[b]={setup:function(){d++===0&&c.addEventListener(a,e,!0)},teardown:function(){--d===0&&c.removeEventListener(a,e,!0)}}}),f.fn.extend({on:function(a,c,d,e,g){var h,i;if(typeof a=="object"){typeof c!="string"&&(d=c,c=b);for(i in a)this.on(i,c,d,a[i],g);return this}d==null&&e==null?(e=c,d=c=b):e==null&&(typeof c=="string"?(e=d,d=b):(e=d,d=c,c=b));if(e===!1)e=J;else if(!e)return this;g===1&&(h=e,e=function(a){f().off(a);return h.apply(this,arguments)},e.guid=h.guid||(h.guid=f.guid++));return this.each(function(){f.event.add(this,a,e,d,c)})},one:function(a,b,c,d){return this.on.call(this,a,b,c,d,1)},off:function(a,c,d){if(a&&a.preventDefault&&a.handleObj){var e=a.handleObj;f(a.delegateTarget).off(e.namespace?e.type+"."+e.namespace:e.type,e.selector,e.handler);return this}if(typeof a=="object"){for(var g in a)this.off(g,c,a[g]);return this}if(c===!1||typeof c=="function")d=c,c=b;d===!1&&(d=J);return this.each(function(){f.event.remove(this,a,d,c)})},bind:function(a,b,c){return this.on(a,null,b,c)},unbind:function(a,b){return this.off(a,null,b)},live:function(a,b,c){f(this.context).on(a,this.selector,b,c);return this},die:function(a,b){f(this.context).off(a,this.selector||"**",b);return this},delegate:function(a,b,c,d){return this.on(b,a,c,d)},undelegate:function(a,b,c){return arguments.length==1?this.off(a,"**"):this.off(b,a,c)},trigger:function(a,b){return this.each(function(){f.event.trigger(a,b,this)})},triggerHandler:function(a,b){if(this[0])return f.event.trigger(a,b,this[0],!0)},toggle:function(a){var b=arguments,c=a.guid||f.guid++,d=0,e=function(c){var e=(f._data(this,"lastToggle"+a.guid)||0)%d;f._data(this,"lastToggle"+a.guid,e+1),c.preventDefault();return b[e].apply(this,arguments)||!1};e.guid=c;while(d<b.length)b[d++].guid=c;return this.click(e)},hover:function(a,b){return this.mouseenter(a).mouseleave(b||a)}}),f.each("blur focus focusin focusout load resize scroll unload click dblclick mousedown mouseup mousemove mouseover mouseout mouseenter mouseleave change select submit keydown keypress keyup error contextmenu".split(" "),function(a,b){f.fn[b]=function(a,c){c==null&&(c=a,a=null);return arguments.length>0?this.on(b,null,a,c):this.trigger(b)},f.attrFn&&(f.attrFn[b]=!0),C.test(b)&&(f.event.fixHooks[b]=f.event.keyHooks),D.test(b)&&(f.event.fixHooks[b]=f.event.mouseHooks)}),function(){function x(a,b,c,e,f,g){for(var h=0,i=e.length;h<i;h++){var j=e[h];if(j){var k=!1;j=j[a];while(j){if(j[d]===c){k=e[j.sizset];break}if(j.nodeType===1){g||(j[d]=c,j.sizset=h);if(typeof b!="string"){if(j===b){k=!0;break}}else if(m.filter(b,[j]).length>0){k=j;break}}j=j[a]}e[h]=k}}}function w(a,b,c,e,f,g){for(var h=0,i=e.length;h<i;h++){var j=e[h];if(j){var k=!1;j=j[a];while(j){if(j[d]===c){k=e[j.sizset];break}j.nodeType===1&&!g&&(j[d]=c,j.sizset=h);if(j.nodeName.toLowerCase()===b){k=j;break}j=j[a]}e[h]=k}}}var a=/((?:\((?:\([^()]+\)|[^()]+)+\)|\[(?:\[[^\[\]]*\]|['"][^'"]*['"]|[^\[\]'"]+)+\]|\\.|[^ >+~,(\[\\]+)+|[>+~])(\s*,\s*)?((?:.|\r|\n)*)/g,d="sizcache"+(Math.random()+"").replace(".",""),e=0,g=Object.prototype.toString,h=!1,i=!0,j=/\\/g,k=/\r\n/g,l=/\W/;[0,0].sort(function(){i=!1;return 0});var m=function(b,d,e,f){e=e||[],d=d||c;var h=d;if(d.nodeType!==1&&d.nodeType!==9)return[];if(!b||typeof b!="string")return e;var i,j,k,l,n,q,r,t,u=!0,v=m.isXML(d),w=[],x=b;do{a.exec(""),i=a.exec(x);if(i){x=i[3],w.push(i[1]);if(i[2]){l=i[3];break}}}while(i);if(w.length>1&&p.exec(b))if(w.length===2&&o.relative[w[0]])j=y(w[0]+w[1],d,f);else{j=o.relative[w[0]]?[d]:m(w.shift(),d);while(w.length)b=w.shift(),o.relative[b]&&(b+=w.shift()),j=y(b,j,f)}else{!f&&w.length>1&&d.nodeType===9&&!v&&o.match.ID.test(w[0])&&!o.match.ID.test(w[w.length-1])&&(n=m.find(w.shift(),d,v),d=n.expr?m.filter(n.expr,n.set)[0]:n.set[0]);if(d){n=f?{expr:w.pop(),set:s(f)}:m.find(w.pop(),w.length===1&&(w[0]==="~"||w[0]==="+")&&d.parentNode?d.parentNode:d,v),j=n.expr?m.filter(n.expr,n.set):n.set,w.length>0?k=s(j):u=!1;while(w.length)q=w.pop(),r=q,o.relative[q]?r=w.pop():q="",r==null&&(r=d),o.relative[q](k,r,v)}else k=w=[]}k||(k=j),k||m.error(q||b);if(g.call(k)==="[object Array]")if(!u)e.push.apply(e,k);else if(d&&d.nodeType===1)for(t=0;k[t]!=null;t++)k[t]&&(k[t]===!0||k[t].nodeType===1&&m.contains(d,k[t]))&&e.push(j[t]);else for(t=0;k[t]!=null;t++)k[t]&&k[t].nodeType===1&&e.push(j[t]);else s(k,e);l&&(m(l,h,e,f),m.uniqueSort(e));return e};m.uniqueSort=function(a){if(u){h=i,a.sort(u);if(h)for(var b=1;b<a.length;b++)a[b]===a[b-1]&&a.splice(b--,1)}return a},m.matches=function(a,b){return m(a,null,null,b)},m.matchesSelector=function(a,b){return m(b,null,null,[a]).length>0},m.find=function(a,b,c){var d,e,f,g,h,i;if(!a)return[];for(e=0,f=o.order.length;e<f;e++){h=o.order[e];if(g=o.leftMatch[h].exec(a)){i=g[1],g.splice(1,1);if(i.substr(i.length-1)!=="\\"){g[1]=(g[1]||"").replace(j,""),d=o.find[h](g,b,c);if(d!=null){a=a.replace(o.match[h],"");break}}}}d||(d=typeof b.getElementsByTagName!="undefined"?b.getElementsByTagName("*"):[]);return{set:d,expr:a}},m.filter=function(a,c,d,e){var f,g,h,i,j,k,l,n,p,q=a,r=[],s=c,t=c&&c[0]&&m.isXML(c[0]);while(a&&c.length){for(h in o.filter)if((f=o.leftMatch[h].exec(a))!=null&&f[2]){k=o.filter[h],l=f[1],g=!1,f.splice(1,1);if(l.substr(l.length-1)==="\\")continue;s===r&&(r=[]);if(o.preFilter[h]){f=o.preFilter[h](f,s,d,r,e,t);if(!f)g=i=!0;else if(f===!0)continue}if(f)for(n=0;(j=s[n])!=null;n++)j&&(i=k(j,f,n,s),p=e^i,d&&i!=null?p?g=!0:s[n]=!1:p&&(r.push(j),g=!0));if(i!==b){d||(s=r),a=a.replace(o.match[h],"");if(!g)return[];break}}if(a===q)if(g==null)m.error(a);else break;q=a}return s},m.error=function(a){throw new Error("Syntax error, unrecognized expression: "+a)};var n=m.getText=function(a){var b,c,d=a.nodeType,e="";if(d){if(d===1||d===9){if(typeof a.textContent=="string")return a.textContent;if(typeof a.innerText=="string")return a.innerText.replace(k,"");for(a=a.firstChild;a;a=a.nextSibling)e+=n(a)}else if(d===3||d===4)return a.nodeValue}else for(b=0;c=a[b];b++)c.nodeType!==8&&(e+=n(c));return e},o=m.selectors={order:["ID","NAME","TAG"],match:{ID:/#((?:[\w\u00c0-\uFFFF\-]|\\.)+)/,CLASS:/\.((?:[\w\u00c0-\uFFFF\-]|\\.)+)/,NAME:/\[name=['"]*((?:[\w\u00c0-\uFFFF\-]|\\.)+)['"]*\]/,ATTR:/\[\s*((?:[\w\u00c0-\uFFFF\-]|\\.)+)\s*(?:(\S?=)\s*(?:(['"])(.*?)\3|(#?(?:[\w\u00c0-\uFFFF\-]|\\.)*)|)|)\s*\]/,TAG:/^((?:[\w\u00c0-\uFFFF\*\-]|\\.)+)/,CHILD:/:(only|nth|last|first)-child(?:\(\s*(even|odd|(?:[+\-]?\d+|(?:[+\-]?\d*)?n\s*(?:[+\-]\s*\d+)?))\s*\))?/,POS:/:(nth|eq|gt|lt|first|last|even|odd)(?:\((\d*)\))?(?=[^\-]|$)/,PSEUDO:/:((?:[\w\u00c0-\uFFFF\-]|\\.)+)(?:\((['"]?)((?:\([^\)]+\)|[^\(\)]*)+)\2\))?/},leftMatch:{},attrMap:{"class":"className","for":"htmlFor"},attrHandle:{href:function(a){return a.getAttribute("href")},type:function(a){return a.getAttribute("type")}},relative:{"+":function(a,b){var c=typeof b=="string",d=c&&!l.test(b),e=c&&!d;d&&(b=b.toLowerCase());for(var f=0,g=a.length,h;f<g;f++)if(h=a[f]){while((h=h.previousSibling)&&h.nodeType!==1);a[f]=e||h&&h.nodeName.toLowerCase()===b?h||!1:h===b}e&&m.filter(b,a,!0)},">":function(a,b){var c,d=typeof b=="string",e=0,f=a.length;if(d&&!l.test(b)){b=b.toLowerCase();for(;e<f;e++){c=a[e];if(c){var g=c.parentNode;a[e]=g.nodeName.toLowerCase()===b?g:!1}}}else{for(;e<f;e++)c=a[e],c&&(a[e]=d?c.parentNode:c.parentNode===b);d&&m.filter(b,a,!0)}},"":function(a,b,c){var d,f=e++,g=x;typeof b=="string"&&!l.test(b)&&(b=b.toLowerCase(),d=b,g=w),g("parentNode",b,f,a,d,c)},"~":function(a,b,c){var d,f=e++,g=x;typeof b=="string"&&!l.test(b)&&(b=b.toLowerCase(),d=b,g=w),g("previousSibling",b,f,a,d,c)}},find:{ID:function(a,b,c){if(typeof b.getElementById!="undefined"&&!c){var d=b.getElementById(a[1]);return d&&d.parentNode?[d]:[]}},NAME:function(a,b){if(typeof b.getElementsByName!="undefined"){var c=[],d=b.getElementsByName(a[1]);for(var e=0,f=d.length;e<f;e++)d[e].getAttribute("name")===a[1]&&c.push(d[e]);return c.length===0?null:c}},TAG:function(a,b){if(typeof b.getElementsByTagName!="undefined")return b.getElementsByTagName(a[1])}},preFilter:{CLASS:function(a,b,c,d,e,f){a=" "+a[1].replace(j,"")+" ";if(f)return a;for(var g=0,h;(h=b[g])!=null;g++)h&&(e^(h.className&&(" "+h.className+" ").replace(/[\t\n\r]/g," ").indexOf(a)>=0)?c||d.push(h):c&&(b[g]=!1));return!1},ID:function(a){return a[1].replace(j,"")},TAG:function(a,b){return a[1].replace(j,"").toLowerCase()},CHILD:function(a){if(a[1]==="nth"){a[2]||m.error(a[0]),a[2]=a[2].replace(/^\+|\s*/g,"");var b=/(-?)(\d*)(?:n([+\-]?\d*))?/.exec(a[2]==="even"&&"2n"||a[2]==="odd"&&"2n+1"||!/\D/.test(a[2])&&"0n+"+a[2]||a[2]);a[2]=b[1]+(b[2]||1)-0,a[3]=b[3]-0}else a[2]&&m.error(a[0]);a[0]=e++;return a},ATTR:function(a,b,c,d,e,f){var g=a[1]=a[1].replace(j,"");!f&&o.attrMap[g]&&(a[1]=o.attrMap[g]),a[4]=(a[4]||a[5]||"").replace(j,""),a[2]==="~="&&(a[4]=" "+a[4]+" ");return a},PSEUDO:function(b,c,d,e,f){if(b[1]==="not")if((a.exec(b[3])||"").length>1||/^\w/.test(b[3]))b[3]=m(b[3],null,null,c);else{var g=m.filter(b[3],c,d,!0^f);d||e.push.apply(e,g);return!1}else if(o.match.POS.test(b[0])||o.match.CHILD.test(b[0]))return!0;return b},POS:function(a){a.unshift(!0);return a}},filters:{enabled:function(a){return a.disabled===!1&&a.type!=="hidden"},disabled:function(a){return a.disabled===!0},checked:function(a){return a.checked===!0},selected:function(a){a.parentNode&&a.parentNode.selectedIndex;return a.selected===!0},parent:function(a){return!!a.firstChild},empty:function(a){return!a.firstChild},has:function(a,b,c){return!!m(c[3],a).length},header:function(a){return/h\d/i.test(a.nodeName)},text:function(a){var b=a.getAttribute("type"),c=a.type;return a.nodeName.toLowerCase()==="input"&&"text"===c&&(b===c||b===null)},radio:function(a){return a.nodeName.toLowerCase()==="input"&&"radio"===a.type},checkbox:function(a){return a.nodeName.toLowerCase()==="input"&&"checkbox"===a.type},file:function(a){return a.nodeName.toLowerCase()==="input"&&"file"===a.type},password:function(a){return a.nodeName.toLowerCase()==="input"&&"password"===a.type},submit:function(a){var b=a.nodeName.toLowerCase();return(b==="input"||b==="button")&&"submit"===a.type},image:function(a){return a.nodeName.toLowerCase()==="input"&&"image"===a.type},reset:function(a){var b=a.nodeName.toLowerCase();return(b==="input"||b==="button")&&"reset"===a.type},button:function(a){var b=a.nodeName.toLowerCase();return b==="input"&&"button"===a.type||b==="button"},input:function(a){return/input|select|textarea|button/i.test(a.nodeName)},focus:function(a){return a===a.ownerDocument.activeElement}},setFilters:{first:function(a,b){return b===0},last:function(a,b,c,d){return b===d.length-1},even:function(a,b){return b%2===0},odd:function(a,b){return b%2===1},lt:function(a,b,c){return b<c[3]-0},gt:function(a,b,c){return b>c[3]-0},nth:function(a,b,c){return c[3]-0===b},eq:function(a,b,c){return c[3]-0===b}},filter:{PSEUDO:function(a,b,c,d){var e=b[1],f=o.filters[e];if(f)return f(a,c,b,d);if(e==="contains")return(a.textContent||a.innerText||n([a])||"").indexOf(b[3])>=0;if(e==="not"){var g=b[3];for(var h=0,i=g.length;h<i;h++)if(g[h]===a)return!1;return!0}m.error(e)},CHILD:function(a,b){var c,e,f,g,h,i,j,k=b[1],l=a;switch(k){case"only":case"first":while(l=l.previousSibling)if(l.nodeType===1)return!1;if(k==="first")return!0;l=a;case"last":while(l=l.nextSibling)if(l.nodeType===1)return!1;return!0;case"nth":c=b[2],e=b[3];if(c===1&&e===0)return!0;f=b[0],g=a.parentNode;if(g&&(g[d]!==f||!a.nodeIndex)){i=0;for(l=g.firstChild;l;l=l.nextSibling)l.nodeType===1&&(l.nodeIndex=++i);g[d]=f}j=a.nodeIndex-e;return c===0?j===0:j%c===0&&j/c>=0}},ID:function(a,b){return a.nodeType===1&&a.getAttribute("id")===b},TAG:function(a,b){return b==="*"&&a.nodeType===1||!!a.nodeName&&a.nodeName.toLowerCase()===b},CLASS:function(a,b){return(" "+(a.className||a.getAttribute("class"))+" ").indexOf(b)>-1},ATTR:function(a,b){var c=b[1],d=m.attr?m.attr(a,c):o.attrHandle[c]?o.attrHandle[c](a):a[c]!=null?a[c]:a.getAttribute(c),e=d+"",f=b[2],g=b[4];return d==null?f==="!=":!f&&m.attr?d!=null:f==="="?e===g:f==="*="?e.indexOf(g)>=0:f==="~="?(" "+e+" ").indexOf(g)>=0:g?f==="!="?e!==g:f==="^="?e.indexOf(g)===0:f==="$="?e.substr(e.length-g.length)===g:f==="|="?e===g||e.substr(0,g.length+1)===g+"-":!1:e&&d!==!1},POS:function(a,b,c,d){var e=b[2],f=o.setFilters[e];if(f)return f(a,c,b,d)}}},p=o.match.POS,q=function(a,b){return"\\"+(b-0+1)};for(var r in o.match)o.match[r]=new RegExp(o.match[r].source+/(?![^\[]*\])(?![^\(]*\))/.source),o.leftMatch[r]=new RegExp(/(^(?:.|\r|\n)*?)/.source+o.match[r].source.replace(/\\(\d+)/g,q));var s=function(a,b){a=Array.prototype.slice.call(a,0);if(b){b.push.apply(b,a);return b}return a};try{Array.prototype.slice.call(c.documentElement.childNodes,0)[0].nodeType}catch(t){s=function(a,b){var c=0,d=b||[];if(g.call(a)==="[object Array]")Array.prototype.push.apply(d,a);else if(typeof a.length=="number")for(var e=a.length;c<e;c++)d.push(a[c]);else for(;a[c];c++)d.push(a[c]);return d}}var u,v;c.documentElement.compareDocumentPosition?u=function(a,b){if(a===b){h=!0;return 0}if(!a.compareDocumentPosition||!b.compareDocumentPosition)return a.compareDocumentPosition?-1:1;return a.compareDocumentPosition(b)&4?-1:1}:(u=function(a,b){if(a===b){h=!0;return 0}if(a.sourceIndex&&b.sourceIndex)return a.sourceIndex-b.sourceIndex;var c,d,e=[],f=[],g=a.parentNode,i=b.parentNode,j=g;if(g===i)return v(a,b);if(!g)return-1;if(!i)return 1;while(j)e.unshift(j),j=j.parentNode;j=i;while(j)f.unshift(j),j=j.parentNode;c=e.length,d=f.length;for(var k=0;k<c&&k<d;k++)if(e[k]!==f[k])return v(e[k],f[k]);return k===c?v(a,f[k],-1):v(e[k],b,1)},v=function(a,b,c){if(a===b)return c;var d=a.nextSibling;while(d){if(d===b)return-1;d=d.nextSibling}return 1}),function(){var a=c.createElement("div"),d="script"+(new Date).getTime(),e=c.documentElement;a.innerHTML="<a name='"+d+"'/>",e.insertBefore(a,e.firstChild),c.getElementById(d)&&(o.find.ID=function(a,c,d){if(typeof c.getElementById!="undefined"&&!d){var e=c.getElementById(a[1]);return e?e.id===a[1]||typeof e.getAttributeNode!="undefined"&&e.getAttributeNode("id").nodeValue===a[1]?[e]:b:[]}},o.filter.ID=function(a,b){var c=typeof a.getAttributeNode!="undefined"&&a.getAttributeNode("id");return a.nodeType===1&&c&&c.nodeValue===b}),e.removeChild(a),e=a=null}(),function(){var a=c.createElement("div");a.appendChild(c.createComment("")),a.getElementsByTagName("*").length>0&&(o.find.TAG=function(a,b){var c=b.getElementsByTagName(a[1]);if(a[1]==="*"){var d=[];for(var e=0;c[e];e++)c[e].nodeType===1&&d.push(c[e]);c=d}return c}),a.innerHTML="<a href='#'></a>",a.firstChild&&typeof a.firstChild.getAttribute!="undefined"&&a.firstChild.getAttribute("href")!=="#"&&(o.attrHandle.href=function(a){return a.getAttribute("href",2)}),a=null}(),c.querySelectorAll&&function(){var a=m,b=c.createElement("div"),d="__sizzle__";b.innerHTML="<p class='TEST'></p>";if(!b.querySelectorAll||b.querySelectorAll(".TEST").length!==0){m=function(b,e,f,g){e=e||c;if(!g&&!m.isXML(e)){var h=/^(\w+$)|^\.([\w\-]+$)|^#([\w\-]+$)/.exec(b);if(h&&(e.nodeType===1||e.nodeType===9)){if(h[1])return s(e.getElementsByTagName(b),f);if(h[2]&&o.find.CLASS&&e.getElementsByClassName)return s(e.getElementsByClassName(h[2]),f)}if(e.nodeType===9){if(b==="body"&&e.body)return s([e.body],f);if(h&&h[3]){var i=e.getElementById(h[3]);if(!i||!i.parentNode)return s([],f);if(i.id===h[3])return s([i],f)}try{return s(e.querySelectorAll(b),f)}catch(j){}}else if(e.nodeType===1&&e.nodeName.toLowerCase()!=="object"){var k=e,l=e.getAttribute("id"),n=l||d,p=e.parentNode,q=/^\s*[+~]/.test(b);l?n=n.replace(/'/g,"\\$&"):e.setAttribute("id",n),q&&p&&(e=e.parentNode);try{if(!q||p)return s(e.querySelectorAll("[id='"+n+"'] "+b),f)}catch(r){}finally{l||k.removeAttribute("id")}}}return a(b,e,f,g)};for(var e in a)m[e]=a[e];b=null}}(),function(){var a=c.documentElement,b=a.matchesSelector||a.mozMatchesSelector||a.webkitMatchesSelector||a.msMatchesSelector;if(b){var d=!b.call(c.createElement("div"),"div"),e=!1;try{b.call(c.documentElement,"[test!='']:sizzle")}catch(f){e=!0}m.matchesSelector=function(a,c){c=c.replace(/\=\s*([^'"\]]*)\s*\]/g,"='$1']");if(!m.isXML(a))try{if(e||!o.match.PSEUDO.test(c)&&!/!=/.test(c)){var f=b.call(a,c);if(f||!d||a.document&&a.document.nodeType!==11)return f}}catch(g){}return m(c,null,null,[a]).length>0}}}(),function(){var a=c.createElement("div");a.innerHTML="<div class='test e'></div><div class='test'></div>";if(!!a.getElementsByClassName&&a.getElementsByClassName("e").length!==0){a.lastChild.className="e";if(a.getElementsByClassName("e").length===1)return;o.order.splice(1,0,"CLASS"),o.find.CLASS=function(a,b,c){if(typeof b.getElementsByClassName!="undefined"&&!c)return b.getElementsByClassName(a[1])},a=null}}(),c.documentElement.contains?m.contains=function(a,b){return a!==b&&(a.contains?a.contains(b):!0)}:c.documentElement.compareDocumentPosition?m.contains=function(a,b){return!!(a.compareDocumentPosition(b)&16)}:m.contains=function(){return!1},m.isXML=function(a){var b=(a?a.ownerDocument||a:0).documentElement;return b?b.nodeName!=="HTML":!1};var y=function(a,b,c){var d,e=[],f="",g=b.nodeType?[b]:b;while(d=o.match.PSEUDO.exec(a))f+=d[0],a=a.replace(o.match.PSEUDO,"");a=o.relative[a]?a+"*":a;for(var h=0,i=g.length;h<i;h++)m(a,g[h],e,c);return m.filter(f,e)};m.attr=f.attr,m.selectors.attrMap={},f.find=m,f.expr=m.selectors,f.expr[":"]=f.expr.filters,f.unique=m.uniqueSort,f.text=m.getText,f.isXMLDoc=m.isXML,f.contains=m.contains}();var L=/Until$/,M=/^(?:parents|prevUntil|prevAll)/,N=/,/,O=/^.[^:#\[\.,]*$/,P=Array.prototype.slice,Q=f.expr.match.POS,R={children:!0,contents:!0,next:!0,prev:!0};f.fn.extend({find:function(a){var b=this,c,d;if(typeof a!="string")return f(a).filter(function(){for(c=0,d=b.length;c<d;c++)if(f.contains(b[c],this))return!0});var e=this.pushStack("","find",a),g,h,i;for(c=0,d=this.length;c<d;c++){g=e.length,f.find(a,this[c],e);if(c>0)for(h=g;h<e.length;h++)for(i=0;i<g;i++)if(e[i]===e[h]){e.splice(h--,1);break}}return e},has:function(a){var b=f(a);return this.filter(function(){for(var a=0,c=b.length;a<c;a++)if(f.contains(this,b[a]))return!0})},not:function(a){return this.pushStack(T(this,a,!1),"not",a)},filter:function(a){return this.pushStack(T(this,a,!0),"filter",a)},is:function(a){return!!a&&(typeof a=="string"?Q.test(a)?f(a,this.context).index(this[0])>=0:f.filter(a,this).length>0:this.filter(a).length>0)},closest:function(a,b){var c=[],d,e,g=this[0];if(f.isArray(a)){var h=1;while(g&&g.ownerDocument&&g!==b){for(d=0;d<a.length;d++)f(g).is(a[d])&&c.push({selector:a[d],elem:g,level:h});g=g.parentNode,h++}return c}var i=Q.test(a)||typeof a!="string"?f(a,b||this.context):0;for(d=0,e=this.length;d<e;d++){g=this[d];while(g){if(i?i.index(g)>-1:f.find.matchesSelector(g,a)){c.push(g);break}g=g.parentNode;if(!g||!g.ownerDocument||g===b||g.nodeType===11)break}}c=c.length>1?f.unique(c):c;return this.pushStack(c,"closest",a)},index:function(a){if(!a)return this[0]&&this[0].parentNode?this.prevAll().length:-1;if(typeof a=="string")return f.inArray(this[0],f(a));return f.inArray(a.jquery?a[0]:a,this)},add:function(a,b){var c=typeof a=="string"?f(a,b):f.makeArray(a&&a.nodeType?[a]:a),d=f.merge(this.get(),c);return this.pushStack(S(c[0])||S(d[0])?d:f.unique(d))},andSelf:function(){return this.add(this.prevObject)}}),f.each({parent:function(a){var b=a.parentNode;return b&&b.nodeType!==11?b:null},parents:function(a){return f.dir(a,"parentNode")},parentsUntil:function(a,b,c){return f.dir(a,"parentNode",c)},next:function(a){return f.nth(a,2,"nextSibling")},prev:function(a){return f.nth(a,2,"previousSibling")},nextAll:function(a){return f.dir(a,"nextSibling")},prevAll:function(a){return f.dir(a,"previousSibling")},nextUntil:function(a,b,c){return f.dir(a,"nextSibling",c)},prevUntil:function(a,b,c){return f.dir(a,"previousSibling",c)},siblings:function(a){return f.sibling(a.parentNode.firstChild,a)},children:function(a){return f.sibling(a.firstChild)},contents:function(a){return f.nodeName(a,"iframe")?a.contentDocument||a.contentWindow.document:f.makeArray(a.childNodes)}},function(a,b){f.fn[a]=function(c,d){var e=f.map(this,b,c);L.test(a)||(d=c),d&&typeof d=="string"&&(e=f.filter(d,e)),e=this.length>1&&!R[a]?f.unique(e):e,(this.length>1||N.test(d))&&M.test(a)&&(e=e.reverse());return this.pushStack(e,a,P.call(arguments).join(","))}}),f.extend({filter:function(a,b,c){c&&(a=":not("+a+")");return b.length===1?f.find.matchesSelector(b[0],a)?[b[0]]:[]:f.find.matches(a,b)},dir:function(a,c,d){var e=[],g=a[c];while(g&&g.nodeType!==9&&(d===b||g.nodeType!==1||!f(g).is(d)))g.nodeType===1&&e.push(g),g=g[c];return e},nth:function(a,b,c,d){b=b||1;var e=0;for(;a;a=a[c])if(a.nodeType===1&&++e===b)break;return a},sibling:function(a,b){var c=[];for(;a;a=a.nextSibling)a.nodeType===1&&a!==b&&c.push(a);return c}});var V="abbr|article|aside|audio|canvas|datalist|details|figcaption|figure|footer|header|hgroup|mark|meter|nav|output|progress|section|summary|time|video",W=/ jQuery\d+="(?:\d+|null)"/g,X=/^\s+/,Y=/<(?!area|br|col|embed|hr|img|input|link|meta|param)(([\w:]+)[^>]*)\/>/ig,Z=/<([\w:]+)/,$=/<tbody/i,_=/<|&#?\w+;/,ba=/<(?:script|style)/i,bb=/<(?:script|object|embed|option|style)/i,bc=new RegExp("<(?:"+V+")","i"),bd=/checked\s*(?:[^=]|=\s*.checked.)/i,be=/\/(java|ecma)script/i,bf=/^\s*<!(?:\[CDATA\[|\-\-)/,bg={option:[1,"<select multiple='multiple'>","</select>"],legend:[1,"<fieldset>","</fieldset>"],thead:[1,"<table>","</table>"],tr:[2,"<table><tbody>","</tbody></table>"],td:[3,"<table><tbody><tr>","</tr></tbody></table>"],col:[2,"<table><tbody></tbody><colgroup>","</colgroup></table>"],area:[1,"<map>","</map>"],_default:[0,"",""]},bh=U(c);bg.optgroup=bg.option,bg.tbody=bg.tfoot=bg.colgroup=bg.caption=bg.thead,bg.th=bg.td,f.support.htmlSerialize||(bg._default=[1,"div<div>","</div>"]),f.fn.extend({text:function(a){if(f.isFunction(a))return this.each(function(b){var c=f(this);c.text(a.call(this,b,c.text()))});if(typeof a!="object"&&a!==b)return this.empty().append((this[0]&&this[0].ownerDocument||c).createTextNode(a));return f.text(this)},wrapAll:function(a){if(f.isFunction(a))return this.each(function(b){f(this).wrapAll(a.call(this,b))});if(this[0]){var b=f(a,this[0].ownerDocument).eq(0).clone(!0);this[0].parentNode&&b.insertBefore(this[0]),b.map(function(){var a=this;while(a.firstChild&&a.firstChild.nodeType===1)a=a.firstChild;return a}).append(this)}return this},wrapInner:function(a){if(f.isFunction(a))return this.each(function(b){f(this).wrapInner(a.call(this,b))});return this.each(function(){var b=f(this),c=b.contents();c.length?c.wrapAll(a):b.append(a)})},wrap:function(a){var b=f.isFunction(a);return this.each(function(c){f(this).wrapAll(b?a.call(this,c):a)})},unwrap:function(){return this.parent().each(function(){f.nodeName(this,"body")||f(this).replaceWith(this.childNodes)}).end()},append:function(){return this.domManip(arguments,!0,function(a){this.nodeType===1&&this.appendChild(a)})},prepend:function(){return this.domManip(arguments,!0,function(a){this.nodeType===1&&this.insertBefore(a,this.firstChild)})},before:function(){if(this[0]&&this[0].parentNode)return this.domManip(arguments,!1,function(a){this.parentNode.insertBefore(a,this)});if(arguments.length){var a=f.clean(arguments);a.push.apply(a,this.toArray());return this.pushStack(a,"before",arguments)}},after:function(){if(this[0]&&this[0].parentNode)return this.domManip(arguments,!1,function(a){this.parentNode.insertBefore(a,this.nextSibling)});if(arguments.length){var a=this.pushStack(this,"after",arguments);a.push.apply(a,f.clean(arguments));return a}},remove:function(a,b){for(var c=0,d;(d=this[c])!=null;c++)if(!a||f.filter(a,[d]).length)!b&&d.nodeType===1&&(f.cleanData(d.getElementsByTagName("*")),f.cleanData([d])),d.parentNode&&d.parentNode.removeChild(d);return this},empty:function()+{for(var a=0,b;(b=this[a])!=null;a++){b.nodeType===1&&f.cleanData(b.getElementsByTagName("*"));while(b.firstChild)b.removeChild(b.firstChild)}return this},clone:function(a,b){a=a==null?!1:a,b=b==null?a:b;return this.map(function(){return f.clone(this,a,b)})},html:function(a){if(a===b)return this[0]&&this[0].nodeType===1?this[0].innerHTML.replace(W,""):null;if(typeof a=="string"&&!ba.test(a)&&(f.support.leadingWhitespace||!X.test(a))&&!bg[(Z.exec(a)||["",""])[1].toLowerCase()]){a=a.replace(Y,"<$1></$2>");try{for(var c=0,d=this.length;c<d;c++)this[c].nodeType===1&&(f.cleanData(this[c].getElementsByTagName("*")),this[c].innerHTML=a)}catch(e){this.empty().append(a)}}else f.isFunction(a)?this.each(function(b){var c=f(this);c.html(a.call(this,b,c.html()))}):this.empty().append(a);return this},replaceWith:function(a){if(this[0]&&this[0].parentNode){if(f.isFunction(a))return this.each(function(b){var c=f(this),d=c.html();c.replaceWith(a.call(this,b,d))});typeof a!="string"&&(a=f(a).detach());return this.each(function(){var b=this.nextSibling,c=this.parentNode;f(this).remove(),b?f(b).before(a):f(c).append(a)})}return this.length?this.pushStack(f(f.isFunction(a)?a():a),"replaceWith",a):this},detach:function(a){return this.remove(a,!0)},domManip:function(a,c,d){var e,g,h,i,j=a[0],k=[];if(!f.support.checkClone&&arguments.length===3&&typeof j=="string"&&bd.test(j))return this.each(function(){f(this).domManip(a,c,d,!0)});if(f.isFunction(j))return this.each(function(e){var g=f(this);a[0]=j.call(this,e,c?g.html():b),g.domManip(a,c,d)});if(this[0]){i=j&&j.parentNode,f.support.parentNode&&i&&i.nodeType===11&&i.childNodes.length===this.length?e={fragment:i}:e=f.buildFragment(a,this,k),h=e.fragment,h.childNodes.length===1?g=h=h.firstChild:g=h.firstChild;if(g){c=c&&f.nodeName(g,"tr");for(var l=0,m=this.length,n=m-1;l<m;l++)d.call(c?bi(this[l],g):this[l],e.cacheable||m>1&&l<n?f.clone(h,!0,!0):h)}k.length&&f.each(k,bp)}return this}}),f.buildFragment=function(a,b,d){var e,g,h,i,j=a[0];b&&b[0]&&(i=b[0].ownerDocument||b[0]),i.createDocumentFragment||(i=c),a.length===1&&typeof j=="string"&&j.length<512&&i===c&&j.charAt(0)==="<"&&!bb.test(j)&&(f.support.checkClone||!bd.test(j))&&(f.support.html5Clone||!bc.test(j))&&(g=!0,h=f.fragments[j],h&&h!==1&&(e=h)),e||(e=i.createDocumentFragment(),f.clean(a,i,e,d)),g&&(f.fragments[j]=h?e:1);return{fragment:e,cacheable:g}},f.fragments={},f.each({appendTo:"append",prependTo:"prepend",insertBefore:"before",insertAfter:"after",replaceAll:"replaceWith"},function(a,b){f.fn[a]=function(c){var d=[],e=f(c),g=this.length===1&&this[0].parentNode;if(g&&g.nodeType===11&&g.childNodes.length===1&&e.length===1){e[b](this[0]);return this}for(var h=0,i=e.length;h<i;h++){var j=(h>0?this.clone(!0):this).get();f(e[h])[b](j),d=d.concat(j)}return this.pushStack(d,a,e.selector)}}),f.extend({clone:function(a,b,c){var d,e,g,h=f.support.html5Clone||!bc.test("<"+a.nodeName)?a.cloneNode(!0):bo(a);if((!f.support.noCloneEvent||!f.support.noCloneChecked)&&(a.nodeType===1||a.nodeType===11)&&!f.isXMLDoc(a)){bk(a,h),d=bl(a),e=bl(h);for(g=0;d[g];++g)e[g]&&bk(d[g],e[g])}if(b){bj(a,h);if(c){d=bl(a),e=bl(h);for(g=0;d[g];++g)bj(d[g],e[g])}}d=e=null;return h},clean:function(a,b,d,e){var g;b=b||c,typeof b.createElement=="undefined"&&(b=b.ownerDocument||b[0]&&b[0].ownerDocument||c);var h=[],i;for(var j=0,k;(k=a[j])!=null;j++){typeof k=="number"&&(k+="");if(!k)continue;if(typeof k=="string")if(!_.test(k))k=b.createTextNode(k);else{k=k.replace(Y,"<$1></$2>");var l=(Z.exec(k)||["",""])[1].toLowerCase(),m=bg[l]||bg._default,n=m[0],o=b.createElement("div");b===c?bh.appendChild(o):U(b).appendChild(o),o.innerHTML=m[1]+k+m[2];while(n--)o=o.lastChild;if(!f.support.tbody){var p=$.test(k),q=l==="table"&&!p?o.firstChild&&o.firstChild.childNodes:m[1]==="<table>"&&!p?o.childNodes:[];for(i=q.length-1;i>=0;--i)f.nodeName(q[i],"tbody")&&!q[i].childNodes.length&&q[i].parentNode.removeChild(q[i])}!f.support.leadingWhitespace&&X.test(k)&&o.insertBefore(b.createTextNode(X.exec(k)[0]),o.firstChild),k=o.childNodes}var r;if(!f.support.appendChecked)if(k[0]&&typeof (r=k.length)=="number")for(i=0;i<r;i++)bn(k[i]);else bn(k);k.nodeType?h.push(k):h=f.merge(h,k)}if(d){g=function(a){return!a.type||be.test(a.type)};for(j=0;h[j];j++)if(e&&f.nodeName(h[j],"script")&&(!h[j].type||h[j].type.toLowerCase()==="text/javascript"))e.push(h[j].parentNode?h[j].parentNode.removeChild(h[j]):h[j]);else{if(h[j].nodeType===1){var s=f.grep(h[j].getElementsByTagName("script"),g);h.splice.apply(h,[j+1,0].concat(s))}d.appendChild(h[j])}}return h},cleanData:function(a){var b,c,d=f.cache,e=f.event.special,g=f.support.deleteExpando;for(var h=0,i;(i=a[h])!=null;h++){if(i.nodeName&&f.noData[i.nodeName.toLowerCase()])continue;c=i[f.expando];if(c){b=d[c];if(b&&b.events){for(var j in b.events)e[j]?f.event.remove(i,j):f.removeEvent(i,j,b.handle);b.handle&&(b.handle.elem=null)}g?delete i[f.expando]:i.removeAttribute&&i.removeAttribute(f.expando),delete d[c]}}}});var bq=/alpha\([^)]*\)/i,br=/opacity=([^)]*)/,bs=/([A-Z]|^ms)/g,bt=/^-?\d+(?:px)?$/i,bu=/^-?\d/,bv=/^([\-+])=([\-+.\de]+)/,bw={position:"absolute",visibility:"hidden",display:"block"},bx=["Left","Right"],by=["Top","Bottom"],bz,bA,bB;f.fn.css=function(a,c){if(arguments.length===2&&c===b)return this;return f.access(this,a,c,!0,function(a,c,d){return d!==b?f.style(a,c,d):f.css(a,c)})},f.extend({cssHooks:{opacity:{get:function(a,b){if(b){var c=bz(a,"opacity","opacity");return c===""?"1":c}return a.style.opacity}}},cssNumber:{fillOpacity:!0,fontWeight:!0,lineHeight:!0,opacity:!0,orphans:!0,widows:!0,zIndex:!0,zoom:!0},cssProps:{"float":f.support.cssFloat?"cssFloat":"styleFloat"},style:function(a,c,d,e){if(!!a&&a.nodeType!==3&&a.nodeType!==8&&!!a.style){var g,h,i=f.camelCase(c),j=a.style,k=f.cssHooks[i];c=f.cssProps[i]||i;if(d===b){if(k&&"get"in k&&(g=k.get(a,!1,e))!==b)return g;return j[c]}h=typeof d,h==="string"&&(g=bv.exec(d))&&(d=+(g[1]+1)*+g[2]+parseFloat(f.css(a,c)),h="number");if(d==null||h==="number"&&isNaN(d))return;h==="number"&&!f.cssNumber[i]&&(d+="px");if(!k||!("set"in k)||(d=k.set(a,d))!==b)try{j[c]=d}catch(l){}}},css:function(a,c,d){var e,g;c=f.camelCase(c),g=f.cssHooks[c],c=f.cssProps[c]||c,c==="cssFloat"&&(c="float");if(g&&"get"in g&&(e=g.get(a,!0,d))!==b)return e;if(bz)return bz(a,c)},swap:function(a,b,c){var d={};for(var e in b)d[e]=a.style[e],a.style[e]=b[e];c.call(a);for(e in b)a.style[e]=d[e]}}),f.curCSS=f.css,f.each(["height","width"],function(a,b){f.cssHooks[b]={get:function(a,c,d){var e;if(c){if(a.offsetWidth!==0)return bC(a,b,d);f.swap(a,bw,function(){e=bC(a,b,d)});return e}},set:function(a,b){if(!bt.test(b))return b;b=parseFloat(b);if(b>=0)return b+"px"}}}),f.support.opacity||(f.cssHooks.opacity={get:function(a,b){return br.test((b&&a.currentStyle?a.currentStyle.filter:a.style.filter)||"")?parseFloat(RegExp.$1)/100+"":b?"1":""},set:function(a,b){var c=a.style,d=a.currentStyle,e=f.isNumeric(b)?"alpha(opacity="+b*100+")":"",g=d&&d.filter||c.filter||"";c.zoom=1;if(b>=1&&f.trim(g.replace(bq,""))===""){c.removeAttribute("filter");if(d&&!d.filter)return}c.filter=bq.test(g)?g.replace(bq,e):g+" "+e}}),f(function(){f.support.reliableMarginRight||(f.cssHooks.marginRight={get:function(a,b){var c;f.swap(a,{display:"inline-block"},function(){b?c=bz(a,"margin-right","marginRight"):c=a.style.marginRight});return c}})}),c.defaultView&&c.defaultView.getComputedStyle&&(bA=function(a,b){var c,d,e;b=b.replace(bs,"-$1").toLowerCase(),(d=a.ownerDocument.defaultView)&&(e=d.getComputedStyle(a,null))&&(c=e.getPropertyValue(b),c===""&&!f.contains(a.ownerDocument.documentElement,a)&&(c=f.style(a,b)));return c}),c.documentElement.currentStyle&&(bB=function(a,b){var c,d,e,f=a.currentStyle&&a.currentStyle[b],g=a.style;f===null&&g&&(e=g[b])&&(f=e),!bt.test(f)&&bu.test(f)&&(c=g.left,d=a.runtimeStyle&&a.runtimeStyle.left,d&&(a.runtimeStyle.left=a.currentStyle.left),g.left=b==="fontSize"?"1em":f||0,f=g.pixelLeft+"px",g.left=c,d&&(a.runtimeStyle.left=d));return f===""?"auto":f}),bz=bA||bB,f.expr&&f.expr.filters&&(f.expr.filters.hidden=function(a){var b=a.offsetWidth,c=a.offsetHeight;return b===0&&c===0||!f.support.reliableHiddenOffsets&&(a.style&&a.style.display||f.css(a,"display"))==="none"},f.expr.filters.visible=function(a){return!f.expr.filters.hidden(a)});var bD=/%20/g,bE=/\[\]$/,bF=/\r?\n/g,bG=/#.*$/,bH=/^(.*?):[ \t]*([^\r\n]*)\r?$/mg,bI=/^(?:color|date|datetime|datetime-local|email|hidden|month|number|password|range|search|tel|text|time|url|week)$/i,bJ=/^(?:about|app|app\-storage|.+\-extension|file|res|widget):$/,bK=/^(?:GET|HEAD)$/,bL=/^\/\//,bM=/\?/,bN=/<script\b[^<]*(?:(?!<\/script>)<[^<]*)*<\/script>/gi,bO=/^(?:select|textarea)/i,bP=/\s+/,bQ=/([?&])_=[^&]*/,bR=/^([\w\+\.\-]+:)(?:\/\/([^\/?#:]*)(?::(\d+))?)?/,bS=f.fn.load,bT={},bU={},bV,bW,bX=["*/"]+["*"];try{bV=e.href}catch(bY){bV=c.createElement("a"),bV.href="",bV=bV.href}bW=bR.exec(bV.toLowerCase())||[],f.fn.extend({load:function(a,c,d){if(typeof a!="string"&&bS)return bS.apply(this,arguments);if(!this.length)return this;var e=a.indexOf(" ");if(e>=0){var g=a.slice(e,a.length);a=a.slice(0,e)}var h="GET";c&&(f.isFunction(c)?(d=c,c=b):typeof c=="object"&&(c=f.param(c,f.ajaxSettings.traditional),h="POST"));var i=this;f.ajax({url:a,type:h,dataType:"html",data:c,complete:function(a,b,c){c=a.responseText,a.isResolved()&&(a.done(function(a){c=a}),i.html(g?f("<div>").append(c.replace(bN,"")).find(g):c)),d&&i.each(d,[c,b,a])}});return this},serialize:function(){return f.param(this.serializeArray())},serializeArray:function(){return this.map(function(){return this.elements?f.makeArray(this.elements):this}).filter(function(){return this.name&&!this.disabled&&(this.checked||bO.test(this.nodeName)||bI.test(this.type))}).map(function(a,b){var c=f(this).val();return c==null?null:f.isArray(c)?f.map(c,function(a,c){return{name:b.name,value:a.replace(bF,"\r\n")}}):{name:b.name,value:c.replace(bF,"\r\n")}}).get()}}),f.each("ajaxStart ajaxStop ajaxComplete ajaxError ajaxSuccess ajaxSend".split(" "),function(a,b){f.fn[b]=function(a){return this.on(b,a)}}),f.each(["get","post"],function(a,c){f[c]=function(a,d,e,g){f.isFunction(d)&&(g=g||e,e=d,d=b);return f.ajax({type:c,url:a,data:d,success:e,dataType:g})}}),f.extend({getScript:function(a,c){return f.get(a,b,c,"script")},getJSON:function(a,b,c){return f.get(a,b,c,"json")},ajaxSetup:function(a,b){b?b_(a,f.ajaxSettings):(b=a,a=f.ajaxSettings),b_(a,b);return a},ajaxSettings:{url:bV,isLocal:bJ.test(bW[1]),global:!0,type:"GET",contentType:"application/x-www-form-urlencoded",processData:!0,async:!0,accepts:{xml:"application/xml, text/xml",html:"text/html",text:"text/plain",json:"application/json, text/javascript","*":bX},contents:{xml:/xml/,html:/html/,json:/json/},responseFields:{xml:"responseXML",text:"responseText"},converters:{"* text":a.String,"text html":!0,"text json":f.parseJSON,"text xml":f.parseXML},flatOptions:{context:!0,url:!0}},ajaxPrefilter:bZ(bT),ajaxTransport:bZ(bU),ajax:function(a,c){function w(a,c,l,m){if(s!==2){s=2,q&&clearTimeout(q),p=b,n=m||"",v.readyState=a>0?4:0;var o,r,u,w=c,x=l?cb(d,v,l):b,y,z;if(a>=200&&a<300||a===304){if(d.ifModified){if(y=v.getResponseHeader("Last-Modified"))f.lastModified[k]=y;if(z=v.getResponseHeader("Etag"))f.etag[k]=z}if(a===304)w="notmodified",o=!0;else try{r=cc(d,x),w="success",o=!0}catch(A){w="parsererror",u=A}}else{u=w;if(!w||a)w="error",a<0&&(a=0)}v.status=a,v.statusText=""+(c||w),o?h.resolveWith(e,[r,w,v]):h.rejectWith(e,[v,w,u]),v.statusCode(j),j=b,t&&g.trigger("ajax"+(o?"Success":"Error"),[v,d,o?r:u]),i.fireWith(e,[v,w]),t&&(g.trigger("ajaxComplete",[v,d]),--f.active||f.event.trigger("ajaxStop"))}}typeof a=="object"&&(c=a,a=b),c=c||{};var d=f.ajaxSetup({},c),e=d.context||d,g=e!==d&&(e.nodeType||e instanceof f)?f(e):f.event,h=f.Deferred(),i=f.Callbacks("once memory"),j=d.statusCode||{},k,l={},m={},n,o,p,q,r,s=0,t,u,v={readyState:0,setRequestHeader:function(a,b){if(!s){var c=a.toLowerCase();a=m[c]=m[c]||a,l[a]=b}return this},getAllResponseHeaders:function(){return s===2?n:null},getResponseHeader:function(a){var c;if(s===2){if(!o){o={};while(c=bH.exec(n))o[c[1].toLowerCase()]=c[2]}c=o[a.toLowerCase()]}return c===b?null:c},overrideMimeType:function(a){s||(d.mimeType=a);return this},abort:function(a){a=a||"abort",p&&p.abort(a),w(0,a);return this}};h.promise(v),v.success=v.done,v.error=v.fail,v.complete=i.add,v.statusCode=function(a){if(a){var b;if(s<2)for(b in a)j[b]=[j[b],a[b]];else b=a[v.status],v.then(b,b)}return this},d.url=((a||d.url)+"").replace(bG,"").replace(bL,bW[1]+"//"),d.dataTypes=f.trim(d.dataType||"*").toLowerCase().split(bP),d.crossDomain==null&&(r=bR.exec(d.url.toLowerCase()),d.crossDomain=!(!r||r[1]==bW[1]&&r[2]==bW[2]&&(r[3]||(r[1]==="http:"?80:443))==(bW[3]||(bW[1]==="http:"?80:443)))),d.data&&d.processData&&typeof d.data!="string"&&(d.data=f.param(d.data,d.traditional)),b$(bT,d,c,v);if(s===2)return!1;t=d.global,d.type=d.type.toUpperCase(),d.hasContent=!bK.test(d.type),t&&f.active++===0&&f.event.trigger("ajaxStart");if(!d.hasContent){d.data&&(d.url+=(bM.test(d.url)?"&":"?")+d.data,delete d.data),k=d.url;if(d.cache===!1){var x=f.now(),y=d.url.replace(bQ,"$1_="+x);d.url=y+(y===d.url?(bM.test(d.url)?"&":"?")+"_="+x:"")}}(d.data&&d.hasContent&&d.contentType!==!1||c.contentType)&&v.setRequestHeader("Content-Type",d.contentType),d.ifModified&&(k=k||d.url,f.lastModified[k]&&v.setRequestHeader("If-Modified-Since",f.lastModified[k]),f.etag[k]&&v.setRequestHeader("If-None-Match",f.etag[k])),v.setRequestHeader("Accept",d.dataTypes[0]&&d.accepts[d.dataTypes[0]]?d.accepts[d.dataTypes[0]]+(d.dataTypes[0]!=="*"?", "+bX+"; q=0.01":""):d.accepts["*"]);for(u in d.headers)v.setRequestHeader(u,d.headers[u]);if(d.beforeSend&&(d.beforeSend.call(e,v,d)===!1||s===2)){v.abort();return!1}for(u in{success:1,error:1,complete:1})v[u](d[u]);p=b$(bU,d,c,v);if(!p)w(-1,"No Transport");else{v.readyState=1,t&&g.trigger("ajaxSend",[v,d]),d.async&&d.timeout>0&&(q=setTimeout(function(){v.abort("timeout")},d.timeout));try{s=1,p.send(l,w)}catch(z){if(s<2)w(-1,z);else throw z}}return v},param:function(a,c){var d=[],e=function(a,b){b=f.isFunction(b)?b():b,d[d.length]=encodeURIComponent(a)+"="+encodeURIComponent(b)};c===b&&(c=f.ajaxSettings.traditional);if(f.isArray(a)||a.jquery&&!f.isPlainObject(a))f.each(a,function(){e(this.name,this.value)});else for(var g in a)ca(g,a[g],c,e);return d.join("&").replace(bD,"+")}}),f.extend({active:0,lastModified:{},etag:{}});var cd=f.now(),ce=/(\=)\?(&|$)|\?\?/i;f.ajaxSetup({jsonp:"callback",jsonpCallback:function(){return f.expando+"_"+cd++}}),f.ajaxPrefilter("json jsonp",function(b,c,d){var e=b.contentType==="application/x-www-form-urlencoded"&&typeof b.data=="string";if(b.dataTypes[0]==="jsonp"||b.jsonp!==!1&&(ce.test(b.url)||e&&ce.test(b.data))){var g,h=b.jsonpCallback=f.isFunction(b.jsonpCallback)?b.jsonpCallback():b.jsonpCallback,i=a[h],j=b.url,k=b.data,l="$1"+h+"$2";b.jsonp!==!1&&(j=j.replace(ce,l),b.url===j&&(e&&(k=k.replace(ce,l)),b.data===k&&(j+=(/\?/.test(j)?"&":"?")+b.jsonp+"="+h))),b.url=j,b.data=k,a[h]=function(a){g=[a]},d.always(function(){a[h]=i,g&&f.isFunction(i)&&a[h](g[0])}),b.converters["script json"]=function(){g||f.error(h+" was not called");return g[0]},b.dataTypes[0]="json";return"script"}}),f.ajaxSetup({accepts:{script:"text/javascript, application/javascript, application/ecmascript, application/x-ecmascript"},contents:{script:/javascript|ecmascript/},converters:{"text script":function(a){f.globalEval(a);return a}}}),f.ajaxPrefilter("script",function(a){a.cache===b&&(a.cache=!1),a.crossDomain&&(a.type="GET",a.global=!1)}),f.ajaxTransport("script",function(a){if(a.crossDomain){var d,e=c.head||c.getElementsByTagName("head")[0]||c.documentElement;return{send:function(f,g){d=c.createElement("script"),d.async="async",a.scriptCharset&&(d.charset=a.scriptCharset),d.src=a.url,d.onload=d.onreadystatechange=function(a,c){if(c||!d.readyState||/loaded|complete/.test(d.readyState))d.onload=d.onreadystatechange=null,e&&d.parentNode&&e.removeChild(d),d=b,c||g(200,"success")},e.insertBefore(d,e.firstChild)},abort:function(){d&&d.onload(0,1)}}}});var cf=a.ActiveXObject?function(){for(var a in ch)ch[a](0,1)}:!1,cg=0,ch;f.ajaxSettings.xhr=a.ActiveXObject?function(){return!this.isLocal&&ci()||cj()}:ci,function(a){f.extend(f.support,{ajax:!!a,cors:!!a&&"withCredentials"in a})}(f.ajaxSettings.xhr()),f.support.ajax&&f.ajaxTransport(function(c){if(!c.crossDomain||f.support.cors){var d;return{send:function(e,g){var h=c.xhr(),i,j;c.username?h.open(c.type,c.url,c.async,c.username,c.password):h.open(c.type,c.url,c.async);if(c.xhrFields)for(j in c.xhrFields)h[j]=c.xhrFields[j];c.mimeType&&h.overrideMimeType&&h.overrideMimeType(c.mimeType),!c.crossDomain&&!e["X-Requested-With"]&&(e["X-Requested-With"]="XMLHttpRequest");try{for(j in e)h.setRequestHeader(j,e[j])}catch(k){}h.send(c.hasContent&&c.data||null),d=function(a,e){var j,k,l,m,n;try{if(d&&(e||h.readyState===4)){d=b,i&&(h.onreadystatechange=f.noop,cf&&delete ch[i]);if(e)h.readyState!==4&&h.abort();else{j=h.status,l=h.getAllResponseHeaders(),m={},n=h.responseXML,n&&n.documentElement&&(m.xml=n),m.text=h.responseText;try{k=h.statusText}catch(o){k=""}!j&&c.isLocal&&!c.crossDomain?j=m.text?200:404:j===1223&&(j=204)}}}catch(p){e||g(-1,p)}m&&g(j,k,m,l)},!c.async||h.readyState===4?d():(i=++cg,cf&&(ch||(ch={},f(a).unload(cf)),ch[i]=d),h.onreadystatechange=d)},abort:function(){d&&d(0,1)}}}});var ck={},cl,cm,cn=/^(?:toggle|show|hide)$/,co=/^([+\-]=)?([\d+.\-]+)([a-z%]*)$/i,cp,cq=[["height","marginTop","marginBottom","paddingTop","paddingBottom"],["width","marginLeft","marginRight","paddingLeft","paddingRight"],["opacity"]],cr;f.fn.extend({show:function(a,b,c){var d,e;if(a||a===0)return this.animate(cu("show",3),a,b,c);for(var g=0,h=this.length;g<h;g++)d=this[g],d.style&&(e=d.style.display,!f._data(d,"olddisplay")&&e==="none"&&(e=d.style.display=""),e===""&&f.css(d,"display")==="none"&&f._data(d,"olddisplay",cv(d.nodeName)));for(g=0;g<h;g++){d=this[g];if(d.style){e=d.style.display;if(e===""||e==="none")d.style.display=f._data(d,"olddisplay")||""}}return this},hide:function(a,b,c){if(a||a===0)return this.animate(cu("hide",3),a,b,c);var d,e,g=0,h=this.length;for(;g<h;g++)d=this[g],d.style&&(e=f.css(d,"display"),e!=="none"&&!f._data(d,"olddisplay")&&f._data(d,"olddisplay",e));for(g=0;g<h;g++)this[g].style&&(this[g].style.display="none");return this},_toggle:f.fn.toggle,toggle:function(a,b,c){var d=typeof a=="boolean";f.isFunction(a)&&f.isFunction(b)?this._toggle.apply(this,arguments):a==null||d?this.each(function(){var b=d?a:f(this).is(":hidden");f(this)[b?"show":"hide"]()}):this.animate(cu("toggle",3),a,b,c);return this},fadeTo:function(a,b,c,d){return this.filter(":hidden").css("opacity",0).show().end().animate({opacity:b},a,c,d)},animate:function(a,b,c,d){function g(){e.queue===!1&&f._mark(this);var b=f.extend({},e),c=this.nodeType===1,d=c&&f(this).is(":hidden"),g,h,i,j,k,l,m,n,o;b.animatedProperties={};for(i in a){g=f.camelCase(i),i!==g&&(a[g]=a[i],delete a[i]),h=a[g],f.isArray(h)?(b.animatedProperties[g]=h[1],h=a[g]=h[0]):b.animatedProperties[g]=b.specialEasing&&b.specialEasing[g]||b.easing||"swing";if(h==="hide"&&d||h==="show"&&!d)return b.complete.call(this);c&&(g==="height"||g==="width")&&(b.overflow=[this.style.overflow,this.style.overflowX,this.style.overflowY],f.css(this,"display")==="inline"&&f.css(this,"float")==="none"&&(!f.support.inlineBlockNeedsLayout||cv(this.nodeName)==="inline"?this.style.display="inline-block":this.style.zoom=1))}b.overflow!=null&&(this.style.overflow="hidden");for(i in a)j=new f.fx(this,b,i),h=a[i],cn.test(h)?(o=f._data(this,"toggle"+i)||(h==="toggle"?d?"show":"hide":0),o?(f._data(this,"toggle"+i,o==="show"?"hide":"show"),j[o]()):j[h]()):(k=co.exec(h),l=j.cur(),k?(m=parseFloat(k[2]),n=k[3]||(f.cssNumber[i]?"":"px"),n!=="px"&&(f.style(this,i,(m||1)+n),l=(m||1)/j.cur()*l,f.style(this,i,l+n)),k[1]&&(m=(k[1]==="-="?-1:1)*m+l),j.custom(l,m,n)):j.custom(l,h,""));return!0}var e=f.speed(b,c,d);if(f.isEmptyObject(a))return this.each(e.complete,[!1]);a=f.extend({},a);return e.queue===!1?this.each(g):this.queue(e.queue,g)},stop:function(a,c,d){typeof a!="string"&&(d=c,c=a,a=b),c&&a!==!1&&this.queue(a||"fx",[]);return this.each(function(){function h(a,b,c){var e=b[c];f.removeData(a,c,!0),e.stop(d)}var b,c=!1,e=f.timers,g=f._data(this);d||f._unmark(!0,this);if(a==null)for(b in g)g[b]&&g[b].stop&&b.indexOf(".run")===b.length-4&&h(this,g,b);else g[b=a+".run"]&&g[b].stop&&h(this,g,b);for(b=e.length;b--;)e[b].elem===this&&(a==null||e[b].queue===a)&&(d?e[b](!0):e[b].saveState(),c=!0,e.splice(b,1));(!d||!c)&&f.dequeue(this,a)})}}),f.each({slideDown:cu("show",1),slideUp:cu("hide",1),slideToggle:cu("toggle",1),fadeIn:{opacity:"show"},fadeOut:{opacity:"hide"},fadeToggle:{opacity:"toggle"}},function(a,b){f.fn[a]=function(a,c,d){return this.animate(b,a,c,d)}}),f.extend({speed:function(a,b,c){var d=a&&typeof a=="object"?f.extend({},a):{complete:c||!c&&b||f.isFunction(a)&&a,duration:a,easing:c&&b||b&&!f.isFunction(b)&&b};d.duration=f.fx.off?0:typeof d.duration=="number"?d.duration:d.duration in f.fx.speeds?f.fx.speeds[d.duration]:f.fx.speeds._default;if(d.queue==null||d.queue===!0)d.queue="fx";d.old=d.complete,d.complete=function(a){f.isFunction(d.old)&&d.old.call(this),d.queue?f.dequeue(this,d.queue):a!==!1&&f._unmark(this)};return d},easing:{linear:function(a,b,c,d){return c+d*a},swing:function(a,b,c,d){return(-Math.cos(a*Math.PI)/2+.5)*d+c}},timers:[],fx:function(a,b,c){this.options=b,this.elem=a,this.prop=c,b.orig=b.orig||{}}}),f.fx.prototype={update:function(){this.options.step&&this.options.step.call(this.elem,this.now,this),(f.fx.step[this.prop]||f.fx.step._default)(this)},cur:function(){if(this.elem[this.prop]!=null&&(!this.elem.style||this.elem.style[this.prop]==null))return this.elem[this.prop];var a,b=f.css(this.elem,this.prop);return isNaN(a=parseFloat(b))?!b||b==="auto"?0:b:a},custom:function(a,c,d){function h(a){return e.step(a)}var e=this,g=f.fx;this.startTime=cr||cs(),this.end=c,this.now=this.start=a,this.pos=this.state=0,this.unit=d||this.unit||(f.cssNumber[this.prop]?"":"px"),h.queue=this.options.queue,h.elem=this.elem,h.saveState=function(){e.options.hide&&f._data(e.elem,"fxshow"+e.prop)===b&&f._data(e.elem,"fxshow"+e.prop,e.start)},h()&&f.timers.push(h)&&!cp&&(cp=setInterval(g.tick,g.interval))},show:function(){var a=f._data(this.elem,"fxshow"+this.prop);this.options.orig[this.prop]=a||f.style(this.elem,this.prop),this.options.show=!0,a!==b?this.custom(this.cur(),a):this.custom(this.prop==="width"||this.prop==="height"?1:0,this.cur()),f(this.elem).show()},hide:function(){this.options.orig[this.prop]=f._data(this.elem,"fxshow"+this.prop)||f.style(this.elem,this.prop),this.options.hide=!0,this.custom(this.cur(),0)},step:function(a){var b,c,d,e=cr||cs(),g=!0,h=this.elem,i=this.options;if(a||e>=i.duration+this.startTime){this.now=this.end,this.pos=this.state=1,this.update(),i.animatedProperties[this.prop]=!0;for(b in i.animatedProperties)i.animatedProperties[b]!==!0&&(g=!1);if(g){i.overflow!=null&&!f.support.shrinkWrapBlocks&&f.each(["","X","Y"],function(a,b){h.style["overflow"+b]=i.overflow[a]}),i.hide&&f(h).hide();if(i.hide||i.show)for(b in i.animatedProperties)f.style(h,b,i.orig[b]),f.removeData(h,"fxshow"+b,!0),f.removeData(h,"toggle"+b,!0);d=i.complete,d&&(i.complete=!1,d.call(h))}return!1}i.duration==Infinity?this.now=e:(c=e-this.startTime,this.state=c/i.duration,this.pos=f.easing[i.animatedProperties[this.prop]](this.state,c,0,1,i.duration),this.now=this.start+(this.end-this.start)*this.pos),this.update();return!0}},f.extend(f.fx,{tick:function(){var a,b=f.timers,c=0;for(;c<b.length;c++)a=b[c],!a()&&b[c]===a&&b.splice(c--,1);b.length||f.fx.stop()},interval:13,stop:function(){clearInterval(cp),cp=null},speeds:{slow:600,fast:200,_default:400},step:{opacity:function(a){f.style(a.elem,"opacity",a.now)},_default:function(a){a.elem.style&&a.elem.style[a.prop]!=null?a.elem.style[a.prop]=a.now+a.unit:a.elem[a.prop]=a.now}}}),f.each(["width","height"],function(a,b){f.fx.step[b]=function(a){f.style(a.elem,b,Math.max(0,a.now)+a.unit)}}),f.expr&&f.expr.filters&&(f.expr.filters.animated=function(a){return f.grep(f.timers,function(b){return a===b.elem}).length});var cw=/^t(?:able|d|h)$/i,cx=/^(?:body|html)$/i;"getBoundingClientRect"in c.documentElement?f.fn.offset=function(a){var b=this[0],c;if(a)return this.each(function(b){f.offset.setOffset(this,a,b)});if(!b||!b.ownerDocument)return null;if(b===b.ownerDocument.body)return f.offset.bodyOffset(b);try{c=b.getBoundingClientRect()}catch(d){}var e=b.ownerDocument,g=e.documentElement;if(!c||!f.contains(g,b))return c?{top:c.top,left:c.left}:{top:0,left:0};var h=e.body,i=cy(e),j=g.clientTop||h.clientTop||0,k=g.clientLeft||h.clientLeft||0,l=i.pageYOffset||f.support.boxModel&&g.scrollTop||h.scrollTop,m=i.pageXOffset||f.support.boxModel&&g.scrollLeft||h.scrollLeft,n=c.top+l-j,o=c.left+m-k;return{top:n,left:o}}:f.fn.offset=function(a){var b=this[0];if(a)return this.each(function(b){f.offset.setOffset(this,a,b)});if(!b||!b.ownerDocument)return null;if(b===b.ownerDocument.body)return f.offset.bodyOffset(b);var c,d=b.offsetParent,e=b,g=b.ownerDocument,h=g.documentElement,i=g.body,j=g.defaultView,k=j?j.getComputedStyle(b,null):b.currentStyle,l=b.offsetTop,m=b.offsetLeft;while((b=b.parentNode)&&b!==i&&b!==h){if(f.support.fixedPosition&&k.position==="fixed")break;c=j?j.getComputedStyle(b,null):b.currentStyle,l-=b.scrollTop,m-=b.scrollLeft,b===d&&(l+=b.offsetTop,m+=b.offsetLeft,f.support.doesNotAddBorder&&(!f.support.doesAddBorderForTableAndCells||!cw.test(b.nodeName))&&(l+=parseFloat(c.borderTopWidth)||0,m+=parseFloat(c.borderLeftWidth)||0),e=d,d=b.offsetParent),f.support.subtractsBorderForOverflowNotVisible&&c.overflow!=="visible"&&(l+=parseFloat(c.borderTopWidth)||0,m+=parseFloat(c.borderLeftWidth)||0),k=c}if(k.position==="relative"||k.position==="static")l+=i.offsetTop,m+=i.offsetLeft;f.support.fixedPosition&&k.position==="fixed"&&(l+=Math.max(h.scrollTop,i.scrollTop),m+=Math.max(h.scrollLeft,i.scrollLeft));return{top:l,left:m}},f.offset={bodyOffset:function(a){var b=a.offsetTop,c=a.offsetLeft;f.support.doesNotIncludeMarginInBodyOffset&&(b+=parseFloat(f.css(a,"marginTop"))||0,c+=parseFloat(f.css(a,"marginLeft"))||0);return{top:b,left:c}},setOffset:function(a,b,c){var d=f.css(a,"position");d==="static"&&(a.style.position="relative");var e=f(a),g=e.offset(),h=f.css(a,"top"),i=f.css(a,"left"),j=(d==="absolute"||d==="fixed")&&f.inArray("auto",[h,i])>-1,k={},l={},m,n;j?(l=e.position(),m=l.top,n=l.left):(m=parseFloat(h)||0,n=parseFloat(i)||0),f.isFunction(b)&&(b=b.call(a,c,g)),b.top!=null&&(k.top=b.top-g.top+m),b.left!=null&&(k.left=b.left-g.left+n),"using"in b?b.using.call(a,k):e.css(k)}},f.fn.extend({position:function(){if(!this[0])return null;var a=this[0],b=this.offsetParent(),c=this.offset(),d=cx.test(b[0].nodeName)?{top:0,left:0}:b.offset();c.top-=parseFloat(f.css(a,"marginTop"))||0,c.left-=parseFloat(f.css(a,"marginLeft"))||0,d.top+=parseFloat(f.css(b[0],"borderTopWidth"))||0,d.left+=parseFloat(f.css(b[0],"borderLeftWidth"))||0;return{top:c.top-d.top,left:c.left-d.left}},offsetParent:function(){return this.map(function(){var a=this.offsetParent||c.body;while(a&&!cx.test(a.nodeName)&&f.css(a,"position")==="static")a=a.offsetParent;return a})}}),f.each(["Left","Top"],function(a,c){var d="scroll"+c;f.fn[d]=function(c){var e,g;if(c===b){e=this[0];if(!e)return null;g=cy(e);return g?"pageXOffset"in g?g[a?"pageYOffset":"pageXOffset"]:f.support.boxModel&&g.document.documentElement[d]||g.document.body[d]:e[d]}return this.each(function(){g=cy(this),g?g.scrollTo(a?f(g).scrollLeft():c,a?c:f(g).scrollTop()):this[d]=c})}}),f.each(["Height","Width"],function(a,c){var d=c.toLowerCase();f.fn["inner"+c]=function(){var a=this[0];return a?a.style?parseFloat(f.css(a,d,"padding")):this[d]():null},f.fn["outer"+c]=function(a){var b=this[0];return b?b.style?parseFloat(f.css(b,d,a?"margin":"border")):this[d]():null},f.fn[d]=function(a){var e=this[0];if(!e)return a==null?null:this;if(f.isFunction(a))return this.each(function(b){var c=f(this);c[d](a.call(this,b,c[d]()))});if(f.isWindow(e)){var g=e.document.documentElement["client"+c],h=e.document.body;return e.document.compatMode==="CSS1Compat"&&g||h&&h["client"+c]||g}if(e.nodeType===9)return Math.max(e.documentElement["client"+c],e.body["scroll"+c],e.documentElement["scroll"+c],e.body["offset"+c],e.documentElement["offset"+c]);if(a===b){var i=f.css(e,d),j=parseFloat(i);return f.isNumeric(j)?j:i}return this.css(d,typeof a=="string"?a:a+"px")}}),a.jQuery=a.$=f,typeof define=="function"&&define.amd&&define.amd.jQuery&&define("jquery",[],function(){return f})})(window);

@@ -0,0 +1,142 @@+{-# LANGUAGE CPP, PackageImports #-}++import Control.Monad+import Control.Monad.Extra+import Safe++#ifdef CABAL+import qualified  "threepenny-gui" Graphics.UI.Threepenny as UI+import "threepenny-gui" Graphics.UI.Threepenny.Core+#else+import qualified Graphics.UI.Threepenny as UI+import Graphics.UI.Threepenny.Core+#endif+import Paths++{-----------------------------------------------------------------------------+    Missing Dollars+------------------------------------------------------------------------------}+main :: IO ()+main = do+    static <- getStaticDir+    startGUI Config+        { tpPort       = 10000+        , tpCustomHTML = Nothing+        , tpStatic     = static+        } setup+++setup :: Window -> IO ()+setup w = void $ do+    return w # set title "Missing Dollars"+    UI.addStyleSheet w "missing-dollars.css"+    +    (headerView,headerMe) <- mkHeader+    riddle                <- mkMissingDollarRiddle headerMe+    let layout = [element headerView] ++ riddle ++ attributionSource        +    getBody w #+ [UI.div #. "wrap" #+ layout]+++mkHeader :: IO (Element, Element)+mkHeader = do+    headerMe <- string "..."+    view     <- UI.h1   #+ [string "The ", element headerMe, string " Dollars"]+    return (view, headerMe)++attributionSource :: [IO Element]+attributionSource =+    [ UI.p #++        [ UI.anchor #. "view-source" # set UI.href urlSource+            #+ [string "View source code"]+        ]+    , UI.p #++        [ string "Originally by "+        , UI.anchor # set UI.href urlAttribution #+ [string "Albert Lai"]+        ]+    ]+  where+    urlSource      = "https://github.com/HeinrichApfelmus/threepenny-gui/blob/master/src/MissingDollars.hs"+    urlAttribution = "http://www.vex.net/~trebla/humour/missing_dollar.html"+++mkMissingDollarRiddle :: Element -> IO [IO Element]+mkMissingDollarRiddle headerMe = do+    -- declare input and display values+    (hotelOut : hotelCost : hotelHold : _)+        <- sequence . replicate 3 $+            UI.input # set (attr "size") "3" # set (attr "type") "text"++    (hotelChange : hotelRet     : hotelBal : hotelPocket :+     hotelBal2   : hotelPocket2 : hotelSum : hotelMe     : _)+        <- sequence . replicate 8 $ UI.span+    +    -- update procedure+    let updateDisplay out cost hold = do+        let change = out - cost+            ret    = change - hold+            bal    = out - ret+            sum    = bal + hold+            diff   = sum - out+        element hotelOut     # set value (show out)+        element hotelCost    # set value (show cost)+        element hotelHold    # set value (show hold)+        element hotelChange  # set text  (show change)+        element hotelRet     # set text  (show ret)+        element hotelBal     # set text  (show bal)+        element hotelPocket  # set text  (show hold)+        element hotelBal2    # set text  (show bal)+        element hotelPocket2 # set text  (show hold)+        element hotelSum     # set text  (show sum)+        +        if diff >= 0+           then do element hotelMe  # set text ("extra $" ++ show diff ++ " come from")+                   element headerMe # set text "Extra"+           else do element hotelMe  # set text ("missing $" ++ show (-diff) ++ " go")+                   element headerMe # set text "Missing"+        return ()+    +    -- initialize values+    updateDisplay 30 25 2+    +    -- calculate button+    calculate <- UI.button #+ [string "Calculate"]+    on UI.click calculate $ \_ -> do+        result <- mapM readMay `liftM` getValuesList [hotelOut,hotelCost,hotelHold]+        case result of+            Just [getout,getcost,gethold] -> updateDisplay getout getcost gethold+            _ -> return ()+    +    return $+        [ UI.h2 #+ [string "The Guests, The Bellhop, And The Pizza"]+        , UI.p  #++            [ string "Three guests went to a hotel and gave $"+            , element hotelOut+            , string " to the bellhop to buy pizza. The pizza cost only $"+            , element hotelCost+            , string ". Of the $"+            , element hotelChange+            , string " change, the bellhop kept $"+            , element hotelHold+            , string " to himself and returned $"+            , element hotelRet+            , string " to the guests."+            ]+        , UI.p  #++            [ string "So the guests spent $"+            , element hotelBal+            , string ", and the bellhop pocketed $"+            , element hotelPocket+            , string ". Now "+            , string "$"+            , element hotelBal2+            , string "+$"+            , element hotelPocket2+            , string "=$"+            , element hotelSum+            , string ". Where did the "+            , element hotelMe+            , string "?"+            ]+        , element calculate+        ]    +

@@ -0,0 +1,110 @@+{-# LANGUAGE CPP, PackageImports #-}+{-# LANGUAGE ViewPatterns #-}++module Main where++import Control.Applicative hiding ((<|>),many)+import Control.Monad+import Control.Arrow (second)+import Data.Maybe+import Text.Parsec++#ifdef CABAL+import qualified  "threepenny-gui" Graphics.UI.Threepenny as UI+import "threepenny-gui" Graphics.UI.Threepenny.Core hiding (string)+#else+import qualified Graphics.UI.Threepenny as UI+import Graphics.UI.Threepenny.Core hiding (string)+#endif+import Paths+import System.FilePath ((</>))++{-----------------------------------------------------------------------------+    GUI+------------------------------------------------------------------------------}+main :: IO ()+main = do+    static <- getStaticDir+    startGUI Config+        { tpPort       = 10000+        , tpCustomHTML = Nothing+        , tpStatic     = static+        } setup+++setup :: Window -> IO ()+setup w = do+    filename <- fmap (</> "and-then-haskell.txt") getStaticDir +    andthen  <- readFile filename+    case parts filename andthen of+        Left parseerror -> debug w $ show parseerror+        Right parts     -> void $ do+            UI.addStyleSheet w "use-words.css"++            let (header, Prelude.drop 2 -> rest) = splitAt 3 parts            +            +            (views1, vars1) <- renderParts header+            (views2, vars2) <- renderParts rest+            varChoices      <- mapM (renderVarChoice (vars1 ++ vars2)) vars+        +            getBody w #++                [ viewSource+                , UI.div #. "wrap" #+ (+                    [ UI.div #. "header" #+ map element views1+                    , UI.ul  #. "vars"   #+ map element varChoices+                    ]+                    ++ map element views2 )+                ]+            +type VariableViews = [(Name, Element)]++renderVarChoice :: VariableViews -> Variable -> IO Element+renderVarChoice views (label,(name,def)) = do+    input <- UI.input #. "var-value" # set value def+    +    on (domEvent "livechange") input $ \(EventData xs) -> do+        let s = concat $ catMaybes xs+        forM_ (filter ((==name).fst) views) $ \(_,el) -> do+            element el # set text s+    +    UI.li #+ [UI.string (label ++ ":"), element input]++renderParts :: [Part] -> IO ([Element], VariableViews)+renderParts parts = do+    views <- mapM renderPart parts+    let variables = [(var, view) | (Ref var, view) <- zip parts views]+    return (views, variables)++renderPart :: Part -> IO Element+renderPart (Text str) = UI.div #. "text" #+ [UI.string str]+renderPart (Ref  var) = UI.div #. "var"+    # maybe (set text $ "{" ++ var ++ "}") (either (set html) (set text))+            (lookup var templatevars)++viewSource :: IO Element+viewSource = UI.p #++    [UI.anchor #. "view-source" # set UI.href url #+ [UI.string "View source code"]]+    where+    url = "https://github.com/HeinrichApfelmus/threepenny-gui/blob/master/src/UseWords.hs"++{-----------------------------------------------------------------------------+    Parsing+------------------------------------------------------------------------------}+type Name     = String+type Variable = (String, (Name, String))++templatevars = map (second Right . snd) vars ++ map (second Left) exts++vars :: [Variable]+vars = [("Favourite technology",("favourite-language","Haskell"))+       ,("Technology used at work",("work-language","Python"))+       ,("Cool forum",("bar","LtU"))+       ,("Particular to technology",("particular-stuff","monads"))]+exts = [("br","<br><br>")]++data Part = Text String | Ref String deriving Show++parts :: SourceName -> String -> Either ParseError [Part]+parts = parse (many (ref <|> text)) where+    text = Text <$> many1 (notFollowedBy (string "{") *> anyChar)+    ref  = Ref  <$> (string "{" *> many1 (noneOf "}") <* (string "}"))

@@ -0,0 +1,160 @@+Name:                threepenny-gui+Version:             0.1.0.0+Synopsis:            Small GUI framework that uses the web browser as a display.+Description:+    Threepenny-GUI is a small GUI framework that uses the web browser as a display.+    .+    It's cheap and easy to install because everyone has a web browser installed.+    .+    Internally, the library implements a small web server+    that serves a HTML/JavaScript page with the GUI elements.+    You can freely manipulate the HTML DOM and handle browser events+    from your Haskell code.+    .+    Stability forecast: This is an experimental release! Send us your feedback!+    Basic functionality should work.+    Significant API changes are likely in future versions.++License:             BSD3+License-file:        LICENSE+Author:              Chris Done, Heinrich Apfelmus+Maintainer:          Heinrich Apfelmus <apfelmus at quantentunnel dot de>+Homepage:            http://github.com/HeinrichApfelmus/threepenny-gui+Category:            Web, GUI+Build-type:          Simple+Cabal-version:       >=1.8++Extra-Source-Files:  src/Graphics/UI/*.html+                    ,src/Graphics/UI/*.js++Data-dir:            .+Data-files:          src/Graphics/UI/*.js+                    ,src/Graphics/UI/*.html+                    ,src/Graphics/UI/*.css+                    ,wwwroot/css/*.css+                    ,wwwroot/*.html+                    ,wwwroot/*.txt+++flag buildExamples+    description: Build example executables.+    default:     True++Source-repository head+    type:               git+    location:           git://github.com/HeinrichApfelmus/threepenny-gui.git+++Library+  Hs-source-dirs:    src+  Exposed-modules:+                     Control.Event+                    ,Graphics.UI.Threepenny+                    ,Graphics.UI.Threepenny.Attributes+                    ,Graphics.UI.Threepenny.Core+                    ,Graphics.UI.Threepenny.DragNDrop+                    ,Graphics.UI.Threepenny.Elements+                    ,Graphics.UI.Threepenny.Events+                    ,Graphics.UI.Threepenny.JQuery+  Other-modules:+                     Control.Concurrent.Chan.Extra+                    ,Control.Monad.Extra+                    ,Control.Monad.IO+                    ,Control.Concurrent.Delay+                    ,Graphics.UI.Threepenny.Internal.Core+                    ,Graphics.UI.Threepenny.Internal.Resources+                    ,Graphics.UI.Threepenny.Internal.Types+                    ,Paths_threepenny_gui+  CPP-Options:      -DCABAL+  Build-depends:     base                      >= 4     && < 5+                    ,snap-server+                    ,snap-core+                    ,mtl+                    ,text+                    ,safe+                    ,containers+                    ,bytestring+                    ,json >= 0.4.4 && < 0.6+                    ,time+                    ,utf8-string+                    ,network+                    ,filepath+                    ,data-default+                    ,transformers+                    +Executable threepenny-examples-bartab+    if flag(buildExamples)+        cpp-options:       -DCABAL+        build-depends:     base                      >= 4     && < 5+                          ,threepenny-gui+                          ,filepath+    else+        buildable: False+    main-is:           BarTab.hs+    other-modules:     Paths_threepenny_gui+    hs-source-dirs:    src++Executable threepenny-examples-buttons+    if flag(buildExamples)+        cpp-options:       -DCABAL+        build-depends:     base                      >= 4     && < 5+                          ,threepenny-gui+                          ,filepath+    else+        buildable: False+    main-is:           Buttons.hs+    other-modules:     Paths_threepenny_gui+    hs-source-dirs:    src++Executable threepenny-examples-dragndropexample+    if flag(buildExamples)+        cpp-options:       -DCABAL+        build-depends:     base                      >= 4     && < 5+                          ,threepenny-gui+                          ,filepath+    else+        buildable: False+    main-is:           DragNDropExample.hs+    other-modules:     Paths_threepenny_gui+    hs-source-dirs:    src+++Executable threepenny-examples-missing-dollars+    if flag(buildExamples)+        cpp-options:       -DCABAL+        build-depends:     base                      >= 4     && < 5+                          ,filepath+                          ,threepenny-gui+                          ,safe+    else+        buildable: False+    main-is:           MissingDollars.hs+    other-modules:     Paths_threepenny_gui+    hs-source-dirs:    src++Executable threepenny-examples-use-words+    if flag(buildExamples)+        cpp-options:       -DCABAL+        build-depends:     base                      >= 4     && < 5+                          ,threepenny-gui+                          ,filepath+                          ,parsec+    else+        buildable: False+    main-is:           UseWords.hs+    other-modules:     Paths_threepenny_gui+    hs-source-dirs:    src++Executable threepenny-examples-chat+    if flag(buildExamples)+        cpp-options:       -DCABAL+        build-depends:     base                      >= 4     && < 5+                          ,threepenny-gui+                          ,transformers+                          ,filepath+                          ,time+    else+        buildable: False+    main-is:           Chat.hs+    other-modules:     Paths_threepenny_gui+    hs-source-dirs:    src

@@ -0,0 +1,77 @@+And then there's {favourite-language}...+{br}+{favourite-language} is like "that girl."  You know the one...+{br}+You never really went steady, but you'd run into her from time to time+while knocking around in disreputable joints, usually late at night,+every several months or so.  She looked so hot, so sleek, so sexy, so+expressive, so exotic.  You'd end up back at her place and the night+would just...  take off.  A complete blur of hot, sweaty, feverish,+delirious, fumbling passion.  You'd do things to each other...  you'd+do things to her, she'd do things to you...  things that you're not+even sure have names, that you're pretty sure are illegal almost+anywhere.  Even her kinks have kinks --- and after one of these+nights, you'd realize that you yourself had a lot more kinks than you.+And it wasn't just physical, it was --- cerebral.  Ethereal.+Transcendent.  But it would all whiz by in a blur, and by morning+you'd find yourself lightheaded, a bit confused, and stumbling+homeward to your regular gal.+{br}+Over the next few days and weeks you'd find yourself occasionally+drifting away, thinking about her.  {favourite-language}.  You'd be+there, banging away at your regular girl, and find yourself thinking+"you know, if I was with {favourite-language}, I'd be doing this+completely differently."  You'd think "I could be doing so much bigger+and better stuff with {favourite-language}."  Now, your regular girl,+she's not as exotic as {favourite-language}.  Pretty, maybe, if you're+lucky.  (Perhaps your regular girlfriend's name is+{work-language}. ;-) But not nearly as --- weird.  Wild.  Cool.+Exciting.  Don't get me wrong --- your girl, she's wonderful.  You've+got a wonderful relationship.  She's --- comfortable.  You can bang+away at her all day and night.  She's accommodating.  Easy going.  You+work well together.  But --- confidentially --- she's, well, maybe+just a little bit boring.  You'd catch yourself thinking these things,+and the guilty pangs would get to you...  You'd quash the thoughts,+buckle down, and get back to banging away.  Comfortable...  there's a+lot to be said for that, ya know?  Comfortable...  just keep telling+yourself that.+{br}+Months would go by.  Late some night you'd find yourself out,+disreputable places again.  Maybe that hacker bar, {bar}.  Somebody'd+slip you an URL for some renegade paper, you know, one of *those*+papers.  You'd run into {favourite-language} again.  And the whole+thing starts over.+{br}+Eventually, you're going to get the ultimatum.  {favourite-language}'s+ultimately just like any other girl on some level; she needs+commitment.  Eventually, after one night of wild, feverish, kinky,+abstract passion, she's going to say to you: "All these times, and you+don't understand me at all!  You know, you're going to have to get+serious, mister!  I've got needs, too.  You're going to have to get+serious about my {particular-stuff}, or that's the last time you're+going to play with them!  Got it?"+{br}+...and then, you've got to make The Choice.+{br}+Chances are, you're going to go back to your regular gal.+{favourite-language}'s just too much for any one man, probably.  She+leaves a trail of broken, brainy, embittered PhDs and former+programmers behind her.  She ruins you for the RealWorld.  You can+ride a while, but you probably can't go the distance with her.  Go+back to your regular gal and try not to think too much about what+you've seen.  Done.  Felt.  Thought.+{br}+Maybe you can salvage a little happiness; but it'll be hard.  After+all...  you've tasted {favourite-language}.+{br}+She's not like anything else.+{br}+Original post: http://www.xent.com/pipermail/fork/Week-of-Mon-20070219/044101.html+{br}+{br}+(It's intended in good humour (and just a demonstration of the Threepenny library). Haskell is my favourite programming language, and I like+this mailing list message, but anyone with a brain can realise it's+easy to replace the word "Haskell" with "Lisp" or "Vim" or whatever+you prefer and suddenly it's stroking your sense of identity, the post+is lacking in any content… when you're next reading evangelism, try+swapping the names with other technologies in your head, it's funny.)

@@ -0,0 +1,13 @@+<!doctype html>+<head>+  <title>Chat</title>+  <link rel="stylesheet" type="text/css" href="static/css/chat.css"/>+<link href='http://fonts.googleapis.com/css?family=Fredericka+the+Great'+  rel='stylesheet' type='text/css'>+<link href='http://fonts.googleapis.com/css?family=Annie+Use+Your+Telescope' rel='stylesheet' type='text/css'>+  <script src="driver/threepenny-gui.js"></script>+</head>+<body>+  <noscript>Please enable JavaScript.</noscript>+</body>+</html>

@@ -0,0 +1,18 @@+.box-drag {+    position: absolute;+    top   : 20px;+    border: 1px solid gray;+    width : 90px;+    height: 2ex;+    text-align: center;+    padding: 1ex;+}++.box-drop {+    position: absolute;+    top   : 100px;+    width : 100px;+    height: 2.2ex;+    text-align: center;+    padding: 1ex;+}

@@ -0,0 +1,52 @@+body {+  background: #333;+  color: #ccc;+  font-family: ubuntu, sans-serif;+  font-size: 14px;+  background: url(stripes-bg.png);+  padding-top: 1em;+  text-shadow: #000 3px 1px 3px;+}+.wrap {+  width: 40em;+  margin: auto;+}+.buttons-list {+  color: #aaa;+}+.button {+  cursor: pointer;+  color: #acc2a1;+  text-decoration: underline;+}+a {+  color: #acc2a1;+}+button, input {+  border: 0;+  color: #ccc;+  padding: 0.3em;+  border-radius:0.3em;+  box-shadow: #191919 2px 1px 2px;+}+input {+  background: #292929;+  width: 2em;+}+button:focus,input:focus {+  background: #222;+}+button {+  background: #444;+}+h1 {+  font-size: 4em;+  margin: 0;+  padding-bottom: 0.2em;+}+h2 {+  margin-top: 1.3em;+  padding-bottom: 0em;+  margin-bottom:0;+}+.view-source { float: right }

@@ -0,0 +1,106 @@+body {+  background: #333;+  color: #ccc;+  font-family: 'Annie Use Your Telescope';+  font-size: 26px;+  text-shadow: #000 3px 1px 3px;+  padding:0;+  margin:0;+  background: url(wood-bg.png) #333;+}+.header {+  font-family: 'Fredericka the Great', cursive;+  font-size: 50px;+  color: #ad1c43;+  float: left;+  padding: 10px 20px;+  position:absolute;+  z-index:2;+}+.message-area {+  clear:both;+  padding: 20px;+  color: #fff;+  position: absolute;+  top: 1em;+  right:0;+  left:0;+  bottom:10%;+  overflow: auto;+}+.gradient {+  background: url(fade.png) repeat-x;+  position:absolute;+  top:0;+  height: 150px;+  left:0;+  right:0;+  z-index:1;+}+.send-area {+  z-index:0;+  position:fixed;+  top:90%;+  left:0;+  right:0;+  bottom:0;+  background:#fff;+}+.send-textarea {+  padding: 0.25em;+  border:0;+  position: absolute;+  left:0;+  width:100%;+  bottom:0;+  top:-1px;+  font-family: 'Annie Use Your Telescope';+  font-size: 25px;+  background: #111;+  color: #999;+}+.message {+  margin-top: 1em;+  border-top: 0.1em dotted #333;+}+.message .timestamp {+  color: #888;+  font-size: 15px;+  display: inline;+  float: right;+}+.message .name {+  display: inline-block;+  font-size: 18px;+  font-style: italic;+  float:left;+}+.message .content {+  display:block;+  clear:both;+}+.name-area {+  position: absolute;+  top: 20px;+  right: 20px;+  z-index: 3;+}+.name-input {+  background: #111;+  border: 0;+  border-radius: 0.3em;+  font-family: 'Annie Use Your Telescope';+  color: #777;+  font-size: 20px;+  padding-left: 0.2em;+}+.name-input:focus,.send-textarea:focus {+  background: #333;+}+.view-source {+  position: absolute;+  z-index: 4;+  right: 20px;+  color: #555;+  top: 100px;+}

@@ -0,0 +1,52 @@+body {+  background: #333;+  color: #ccc;+  font-family: ubuntu, sans-serif;+  font-size: 14px;+  background: url(stripes-bg.png);+  padding-top: 1em;+  text-shadow: #000 3px 1px 3px;+}+.wrap {+  width: 40em;+  margin: auto;+}+.buttons-list {+  color: #aaa;+}+.button {+  cursor: pointer;+  color: #acc2a1;+  text-decoration: underline;+}+a {+  color: #acc2a1;+}+button, input {+  border: 0;+  color: #ccc;+  padding: 0.3em;+  border-radius:0.3em;+  box-shadow: #191919 2px 1px 2px;+}+input {+  background: #292929;+  width: 2em;+}+button:focus,input:focus {+  background: #222;+}+button {+  background: #444;+}+h1 {+  font-size: 4em;+  margin: 0;+  padding: 0;+}+h2 {+  margin-top: 1.3em;+  padding-bottom: 0em;+  margin-bottom:0;+}+.view-source { float: right }

@@ -0,0 +1,70 @@+.text,.var {+  display: inline;+}+.var {+  color: #fff;+}+body {+  background: #333;+  color: #ccc;+  font-family: ubuntu, sans-serif;+  font-size: 14px;+  background: url(stripes-bg.png);+  padding-top: 1em;+  text-shadow: #000 3px 1px 3px;+}+.wrap {+  width: 50em;+  margin: auto;+  padding-bottom: 5em;+  line-height: 1.5em;+}+.buttons-list {+  color: #aaa;+}+.button {+  cursor: pointer;+  color: #acc2a1;+  text-decoration: underline;+}+a {+  color: #acc2a1;+}+button, input {+  border: 0;+  color: #ccc;+  padding: 0.3em;+  border-radius:0.3em;+  box-shadow: #191919 2px 1px 2px;+}+label { display: block; padding-bottom: 0.4em; padding-top: 0.8em;}+input {+  background: #292929;+  width: 20em;+}+button:focus,input:focus {+  background: #222;+}+button {+  background: #444;+}+h1 {+  font-size: 4em;+  margin: 0;+  padding-bottom: 0.2em;+}+h2 {+  margin-top: 1.3em;+  padding-bottom: 0em;+  margin-bottom:0;+}+.view-source { float: right }+.vars { margin-bottom: 3em; margin-top: 2em; }+.header {+  font-size: 3em;+  padding-top: 0.5em;+}+.code-link {+  float: right;+  display: block;+}