diff --git a/src/Activate.purs b/src/Activate.purs index e55f700..15a19a2 100644 --- a/src/Activate.purs +++ b/src/Activate.purs @@ -4,7 +4,7 @@ import Prelude (Unit, bind, not, pure, show, unit, ($), (&&), (<>), (=<<), (==)) import Control.Monad.Aff (runAff) import Control.Monad.Eff (Eff) import Control.Monad.Eff.Console (CONSOLE, log) -import Control.Monad.Eff.JQuery (JQuery, JQueryEvent, getValue, on, preventDefault, ready, select) +import Control.Monad.Eff.JQuery (JQuery, JQueryEvent, display, hide, getValue, on, preventDefault, ready, select) import DOM (DOM) @@ -32,6 +32,8 @@ main :: forall eff. Eff ( ajax :: AJAX main = ready $ do log "activating" + display =<< select ".js-hidden" + hide =<< select ".noscript" activate <- select "#activate" on "click" (onActivateClick activate) activate diff --git a/src/Login.purs b/src/Login.purs index d295e8c..0391b44 100644 --- a/src/Login.purs +++ b/src/Login.purs @@ -4,7 +4,7 @@ import Prelude (Unit, bind, not, pure, show, unit, ($), (&&), (<$>), (<>), (=<<) import Control.Monad.Aff (runAff) import Control.Monad.Eff (Eff) import Control.Monad.Eff.Console (CONSOLE, log) -import Control.Monad.Eff.JQuery (JQuery, JQueryEvent, getValue, hide, on, preventDefault, ready, select, setProp) +import Control.Monad.Eff.JQuery (JQuery, JQueryEvent, display, getValue, hide, on, preventDefault, ready, select, setProp) import DOM (DOM) @@ -36,6 +36,8 @@ main :: forall eff. Eff ( ajax :: AJAX main = ready $ do log "logging in" + display =<< select ".js-hidden" + hide =<< select ".noscript" login <- select "#login" on "click" (onLoginClick login) login diff --git a/static/css/main.css b/static/css/main.css index 90ad21f..511d18c 100644 --- a/static/css/main.css +++ b/static/css/main.css @@ -197,6 +197,10 @@ ul, ol { text-align: left; } +.js-hidden { + display: none; +} + @media (max-width: 755px) { #main { margin-top: 120px; diff --git a/templates/activate.hamlet b/templates/activate.hamlet index 8696497..e73d489 100755 --- a/templates/activate.hamlet +++ b/templates/activate.hamlet @@ -1,18 +1,18 @@ $newline always
-