[Show/Hide button
Joachim Breitner <mail@joachim-breitner.de>**20100909094628
 Ignore-this: 6efe9dcbd501ead876f3059c38bf8103
] hunk ./b18n-combined-cgi.hs 40
+    , showCode :: Bool
hunk ./b18n-combined-cgi.hs 75
+                hidden "showCode" (show showCode) +++
hunk ./b18n-combined-cgi.hs 122
-                            p << ("Result:"+++ br +++
-                                pre << generatedModule
+                            p << ("Result" +++
+                                thespan ! [ identifier "hideShow"
+                                          , thestyle "display:none"] << (
+                                    " (" +++ hotlink "javascript:" << "Hide/Show" +++ ")"
+                                ) +++ ":" +++ br +++
+                                pre ! [identifier "genCode" ] << generatedModule
hunk ./b18n-combined-cgi.hs 307
+        showCode <- case (todo,outMode) of
+            (Just BiDi, HaskellCode) -> return False
+            (Just BiDi, _)           -> return True
+            (_,         HaskellCode) -> maybe False read <$> getInput "showCode"
+            (_,         _)           -> maybe True read <$> getInput "showCode"
+
hunk ./b18n-combined-cgi.hs 354
+                     showCode
hunk ./b18n-combined-cgi.hs 408
-    , "    $(\"#scrolly\").val($(\"html\").scrollTop());"
+    , "    $('#scrolly').val($('html').scrollTop());"
hunk ./b18n-combined-cgi.hs 411
-    , "    $(\"html\").scrollTop($(\"#scrolly\").val());"
+    , "    $('html').scrollTop($('#scrolly').val());"
hunk ./b18n-combined-cgi.hs 413
+    , "$(document).ready(function () {"
+    , "   $('#hideShow').show();"
+    , "   if ($('#showCode').val() == 'False')"
+    , "     { $('#genCode').hide(); };"
+    , "   $('#hideShow a').click(function () {"
+    , "      $('#genCode').toggle('slow');"
+    , "   })"
+    , "})"