[clckwrks: added getMenuData
Jeremy Shaw <jeremy@seereason.com>**20130210192005
 Ignore-this: a20773795d7aaaf508b20b4d093a8d8c
] hunk ./clckwrks/Clckwrks/Menu/API.hs 8
+getMenuData :: (Functor m, MonadIO m) => ClckT url m Menu
+getMenuData = query GetMenu
+
hunk ./clckwrks/Clckwrks/Menu/API.hs 30
-{-
--- menuForestHTML :: Forest (MenuItem url) -> GenXML (Clck url)
-menuForestHTML [] = return $ cdata ""
-menuForestHTML forest =
-    <ul class="page-menu">
-     <% mapM menuTreeHTML forest %>
-    </ul>
-
--- menuTreeHTML :: Tree (MenuItem url) -> GenXML (Clck url)
-menuTreeHTML (Node menuItem subMenus) =
-    case menuLink menuItem of
-      (LinkURL url) ->
-          do u <- showURL url
-             <li>
-              <a href=u><% menuTitle menuItem %></a>
-              <% menuForestHTML subMenus %>
-              </li>
-      LinkMenu ->  -- FIXME: add real support for sub menus
-          <li>sub-menu (fixme)</li>
-      LinkText txt ->
-          <li>LinkText not implemented: <% txt %></li>
-
-
--}