Receive input from the user.

Ryan Trinkle · Ryan Trinkle · commit a6496e20a4dc · 2013-11-15T10:35:07.000-05:00
diff --git a/memoise.cabal b/memoise.cabal
@@ -1,5 +1,5 @@
 Name:                memoise
-Version:             0.5
+Version:             0.6
 License:             BSD3
 Author:              Ryan Trinkle
 Maintainer:          ryan.trinkle@gmail.com
diff --git a/snaplets/heist/templates/index.tpl b/snaplets/heist/templates/index.tpl
@@ -15,7 +15,12 @@
         </div>
       </div>
       <div class="hero-unit">
-        <h1>Hello, world!</h1>
+        <h1>memoi.se</h1>
+        <p>The world's laziest hyperlink shortener</p>
+        <form action="/" class="form-inline" method="post">
+          <input type="text" name="url" autofocus="autofocus" placeholder="Enter URL">
+          <input type="submit" class="btn btn-primary" value="Submit">
+        </form>
       </div>
       <div class="navbar navbar-fixed-bottom container-fluid">
         <div class="navbar-inner">
diff --git a/src/Main.hs b/src/Main.hs
@@ -12,7 +12,11 @@ instance HasHeist Memoise where
   heistLens = subSnaplet heist
 
 indexHandler :: Handler Memoise Memoise ()
-indexHandler = render "index"
+indexHandler = do
+  mUrl <- getParam "url"
+  case mUrl of
+    Just url -> redirect url
+    Nothing -> render "index"
 
 memoiseInit :: SnapletInit Memoise Memoise
 memoiseInit = makeSnaplet "memoise" "The world's laziest hyperlink shortener" Nothing $ do
