helptext: add little html input formrnv

1 files changed, 13 insertions, 3 deletions

diff --git a/app/Main.hs b/app/Main.hs
index 9ee0209..0f2e3e7 100644
--- a/app/Main.hs
+++ b/app/Main.hs
@@ -228,13 +228,23 @@ app AppData{..} request respond = mkAnswer >>= (respond . toResponse)
             Exact (_,match) -> lookupName match ril100map
               & maybe None Exact
             Fuzzy (_,match) -> Fuzzy (ril100BaseUrl <> "/" <> match)
-    helptext = Plaintext $ "\
+    helptext = Html $ "\
+      \<pre>\
       \ril100 → Name: " <> ril100BaseUrl <> "/RM\n\
       \Name → ril100: " <> ril100BaseUrl <> "/Mannheim\n\n\
       \Leitpunkt → Name: " <> leitpunktBaseUrl <> "/MA\n\
-      \Name → Leitpunkt: " <> leitpunktBaseUrl <> "/Mannheim\n\n\
+      \Name → Leitpunkt: " <> leitpunktBaseUrl <> "/Mannheim\n\
+      \</pre>\
+      \<form id=\"form1\"><input id=\"query\" type=\"text\" \
+        \oninput=\"document.getElementById('form1').action = '/' + this.value\">\
+        \<input type=\"submit\" value=\"search\"></form>\
+      \<pre>\
       \Am selben Bahnsteig gegenüber:\n\
-      \  " <> ril100BaseUrl <> "/RM/gleis"
+      \  " <> ril100BaseUrl <> "/RM/gleis\n\
+      \</pre>\
+      \<form id=\"form2\"><input id=\"query\" type=\"text\" \
+        \oninput=\"document.getElementById('form2').action = '/' + this.value + '/gleis'\">\
+        \<input type=\"submit\" value=\"search\"></form>"
     host = head (BS.split (fromIntegral (ord '.')) rawHost)
       where rawHost = case lookup "x-forwarded-host" $ requestHeaders request of
               Nothing   -> fromMaybe "" $ requestHeaderHost request