@@ -141,21 +141,25 @@ viewFiles : List String -> List File -> Html msg
141141viewFiles dirs files =
142142 Skeleton.box
143143 { title = "File Navigation"
144− , items = List.map viewDir dirs ++ List.map viewFile files
144+ , items = List.filterMap viewDir dirs ++ List.filterMap viewFile files
145145 , footer = Nothing
146146 }
147147
148148
149−viewDir : String -> List (Html msg)
149+viewDir : String -> Maybe (List (Html msg))
150150viewDir dir =
151− [ a [ href dir ] [ Icon.folder, text dir ]
152− ]
151+ if String.startsWith "." dir || dir == "elm-stuff" then
152+ Nothing
153+ else
154+ Just [ a [ href dir ] [ Icon.folder, text dir ] ]
153155
154156
155−viewFile : File -> List (Html msg)
157+viewFile : File -> Maybe (List (Html msg))
156158viewFile {name} =
157− [ a [ href name ] [ Icon.lookup name, text name ]
158− ]
159+ if String.startsWith "." name then
160+ Nothing
161+ else
162+ Just [ a [ href name ] [ Icon.lookup name, text name ] ]
159163
160164
161165