From 186949d71c6246954deee556a8cefb8d79f24b24 Mon Sep 17 00:00:00 2001
From: Lars-Dominik Braun <lars@6xq.net>
Date: Mon, 1 Jun 2015 14:19:31 +0200
Subject: Add js feature filter

---
 Main.hs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'Main.hs')

diff --git a/Main.hs b/Main.hs
index caad9d0..9ef47be 100644
--- a/Main.hs
+++ b/Main.hs
@@ -263,7 +263,9 @@ features db =
 				h3_ [id_ $ T.pack featureanchor] $ a_ [href_ $ T.pack $ '#':featureanchor] $ toHtml $ fname basefeature
 				maybe mempty (p_ . toHtml) $ fdescription basefeature
 				dl_ $ forM_ (M.toList $ getFeaturesByBase db baseident) $ \(ident, feature) -> do
-					dt_ $ toHtml $ fname feature
+					dt_ [class_ "form-inline"] $ let i = T.pack ("filter-feature-" ++ ident) in do
+						input_ [type_ "checkbox", id_ i, class_ "filter-feature", value_ (T.pack ident)]
+						label_ [for_ i] $ toHtml $ fname feature
 					maybe mempty (dd_ . toHtml) $ fdescription feature
 
 -- | The list of protocols
-- 
cgit v1.2.3