{--
 - Add all the javascript required
 --}
setupJavascript :: Window -> UI Element
setupJavascript w = do
        js1 <- UI.mkElement "script"  # 
                set (UI.attr "src") "/static/js/jquery-ui.js" #
                set (UI.attr "type") "text/javascript"
        js2 <- UI.mkElement "script"  # 
                set (UI.attr "src") "/static/js/jquery.jsPlumb-1.6.4-min.js" #
                set (UI.attr "type") "text/javascript"
        getHead w #+ [element js1, element js2]
setupJavascript :: Window -> UI Element
setupJavascript w = do
        js1 <- UI.mkElement "script"  # 
                set (UI.attr "src") "/static/js/jquery-ui.js" #
                set (UI.attr "type") "text/javascript"
        js2 <- UI.mkElement "script"  # 
                set (UI.attr "src") "/static/js/jquery.jsPlumb-1.6.4-min.js" #
                set (UI.attr "type") "text/javascript"
        getHead w #+ [element js1, element js2]
setupJavascript w = do
        js1 <- UI.mkElement "script"  # 
                set (UI.attr "src") "/static/js/jquery-ui.js" #
                set (UI.attr "type") "text/javascript"
        js2 <- UI.mkElement "script"  # 
                set (UI.attr "src") "/static/js/jquery.jsPlumb-1.6.4-min.js" #
                set (UI.attr "type") "text/javascript"
        getHead w #+ [element js1, element js2]