@@ -1,24 +1,9 @@
1−module Index.Navigator exposing (view, (</>))
1+module Index.Navigator exposing (view)
22
33
4−import Color
54import Html exposing (..)
65import Html.Attributes exposing (..)
7−
8−import TempFontAwesome as FA
9−
10−
11−
12−-- ADD SLASHES
13−
14−
15−(</>) : String -> String -> String
16−(</>) directory file =
17− if String.endsWith "/" directory then
18− directory ++ file
19−
20− else
21− directory ++ "/" ++ file
6+import Index.Icon as Icon
227
238
249
@@ -43,7 +28,7 @@ makeLinks root dirs oldPath revAnchors =
4328 dir :: otherDirs ->
4429 let
4530 newPath =
46− oldPath </> dir
31+ oldPath ++ "/" ++ dir
4732
4833 anchor =
4934 a [ href newPath ] [ text dir ]
@@ -57,7 +42,7 @@ makeLinks root dirs oldPath revAnchors =
5742 , title root
5843 , style "display" "inherit"
5944 ]
60− [ FA.home Color.darkGrey 36
45+ [ Icon.home
6146 ]
6247 in
6348 case revAnchors of