@@ -27,7 +27,6 @@ import Ur.Sub
27import Ur.Types exposing (Noun(..))
27import Ur.Types exposing (Noun(..))
28import Html.String
28import Html.String
29import List
29import List
31import Html.Styled.Attributes exposing (css)
30import Html.Styled.Attributes exposing (css)
32import Html.Parser
31import Html.Parser
33import String.Extra exposing (stripTags)
32import String.Extra exposing (stripTags)
@@ -108,7 +107,8 @@ main =
108 [ view model
107 [ view model
109 |> layout
108 |> layout
110 [ Font.family
109 [ Font.family
111− [ Font.typeface "system-ui"
110+ [ Font.typeface "monospace"
111+ , Font.typeface "system-ui"
112 , Font.typeface "-apple-system"
112 , Font.typeface "-apple-system"
113 , Font.typeface "BlinkMacSystemFont"
113 , Font.typeface "BlinkMacSystemFont"
114 , Font.typeface "Segoe UI"
114 , Font.typeface "Segoe UI"
@@ -116,6 +116,7 @@ main =
116 , Font.typeface "Helvetica"
116 , Font.typeface "Helvetica"
117 , Font.typeface "Arial"
117 , Font.typeface "Arial"
118 , Font.sansSerif
118 , Font.sansSerif
@@ -159,6 +160,29 @@ logoView attributes =
159 Element.image (List.append [ Html.Attributes.id "tilt" |> htmlAttribute ] attributes)
160 Element.image (List.append [ Html.Attributes.id "tilt" |> htmlAttribute ] attributes)
160 { src = "assets/img/logo.png", description = "%seax logo" }
161 { src = "assets/img/logo.png", description = "%seax logo" }
163+noSearchResultsView : Element Msg
164+noSearchResultsView = Element.el
165+ [ Html.Attributes.style "padding" "1em" |> htmlAttribute
168+ , Html.Attributes.class "wavy" |> htmlAttribute
170+ (Element.text """No results found... :)
171+We'll try and find you something.
172+Just come back later.""")
174+subtleLink : String -> String -> Element Msg
175+subtleLink text href =
180+ [ Font.color (rgb 0.7 0.7 0.7)
183+ (Element.html (Html.a [ Html.Attributes.href href ] [ Html.text text ]))
162view : Model -> Element Msg
186view : Model -> Element Msg
163view model =
187view model =
164 case model.initiatedSearch of
188 case model.initiatedSearch of
@@ -219,8 +243,10 @@ view model =
222− , Element.html (Html.hr [Html.Attributes.style "width" "95%"] [])
246+ , (if List.isEmpty model.searchResults then
223− , Keyed.column [ width (minimum 0 fill), padding 8 ]
249+ Keyed.column [ width (minimum 0 fill), padding 8 ]
224 (model.searchResults
250 (model.searchResults
225 |> List.filter
251 |> List.filter
226 (\{ engines } ->
252 (\{ engines } ->
@@ -279,9 +305,13 @@ view model =
283 , Element.html (Html.hr [Html.Attributes.style "width" "95%"] [])
309 , Element.html (Html.hr [Html.Attributes.style "width" "95%"] [])
310+ , row [ centerX, padding 10, spacing 10]
311+ [ subtleLink "[About]" "https://vagos.github.io/seax"
312+ , subtleLink "[Code]" "https://github.com/ilyakooo0/seax"
287searchView : { a | search : String } -> Element Msg
317searchView : { a | search : String } -> Element Msg