diff options
author | Lars-Dominik Braun <lars@6xq.net> | 2015-06-01 14:19:31 +0200 |
---|---|---|
committer | Lars-Dominik Braun <lars@6xq.net> | 2015-06-01 14:27:29 +0200 |
commit | 186949d71c6246954deee556a8cefb8d79f24b24 (patch) | |
tree | 82bea842304bae14970d1df6e42f9f1061d1e0b5 /Main.hs | |
parent | 2ef305a82ba8ae2585f638d8b8fa62e83bdd48bd (diff) | |
download | comatose-186949d71c6246954deee556a8cefb8d79f24b24.tar.gz comatose-186949d71c6246954deee556a8cefb8d79f24b24.tar.bz2 comatose-186949d71c6246954deee556a8cefb8d79f24b24.zip |
Add js feature filter
Diffstat (limited to 'Main.hs')
-rw-r--r-- | Main.hs | 4 |
1 files changed, 3 insertions, 1 deletions
@@ -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 |