Skip to content
Snippets Groups Projects
Commit 574ba691 authored by Florian Sesser's avatar Florian Sesser
Browse files

Remove toolbar buttons/icons

... the magic-folder list UI design doesn't have any
parent ba226fe7
No related branches found
No related tags found
1 merge request!34Implement MagicFolders list view
Pipeline #3989 failed
......@@ -17,8 +17,7 @@ import MagicFolder
magicFolders :: (DomBuilder t m, PostBuild t m, SetRoute t (R FrontendRoute) m) => Dynamic t [MagicFolder] -> m ()
magicFolders folders = do
-- dyn_ $ mapM_ folderWidget <$> folders
-- r <- askRoute
-- r <- askRoute -- TODO what is this for?
elClass "header" "mdc-top-app-bar mdc-ripple-surface" $
divClass "mdc-top-app-bar__row" $
elClass "section" "mdc-top-app-bar__section mdc-top-app-bar__section--align-start" $ do
......@@ -26,13 +25,7 @@ magicFolders folders = do
text "close"
elClass "span" "mdc-top-app-bar__title" $
text "Documents"
elAttr "section" ("class" =: "mdc-top-app-bar__section mdc-top-app-bar__section--align-end" <> "role" =: "toolbar") $ do
elAttr "button" ("class" =: "material-icons mdc-top-app-bar__action-item mdc-icon-button" <> "aria-label" =: "Share") $
text "share"
elAttr "button" ("class" =: "material-icons mdc-top-app-bar__action-item mdc-icon-button" <> "aria-label" =: "Delete") $
text "delete"
elAttr "button" ("Class" =: "material-icons mdc-top-app-bar__action-item mdc-icon-button" <> "aria-label" =: "Open menu") $
text "more_vert"
elAttr "section" ("class" =: "mdc-top-app-bar__section mdc-top-app-bar__section--align-end" <> "role" =: "toolbar") $ blank
-- setRoute $ ffor (tag (current r) (domEvent Click leaveButton)) $ \path ->
-- case leaveAction path of
......@@ -52,7 +45,6 @@ magicFolders folders = do
folderWidget :: (DomBuilder t m, SetRoute t (R FrontendRoute) m) => MagicFolder -> m ()
folderWidget (MagicFolder name) = do
-- (theEl', _) <- el' "div" $ text name
(theEl', _) <- elClass' "li" "mdc-list-item mdc-ripple-surface" $ do
elAttr "span" ("class" =: "mdc-list-item__graphic material-icons" <> "aria-hidden" =: "true") $
text "folder_open"
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment