mirror of
https://github.com/ilyakooo0/seax.git
synced 2024-09-11 12:05:27 +03:00
Added animations
This commit is contained in:
parent
683f1d1ccf
commit
601f905e2a
@ -15,6 +15,7 @@
|
||||
transform: traslateY(0);
|
||||
}
|
||||
}
|
||||
|
||||
.bobbing {
|
||||
animation-duration: 2s;
|
||||
animation-name: bobbing;
|
||||
@ -22,6 +23,10 @@
|
||||
animation-direction: alternate;
|
||||
animation-timing-function: ease-in-out;
|
||||
}
|
||||
|
||||
.hidden-engine {
|
||||
transition: max-width 1s ease-out, top 1s ease-out, margin-left 1s ease-out;
|
||||
}
|
||||
</style>
|
||||
</head>
|
||||
<body>
|
||||
|
@ -199,13 +199,17 @@ view model =
|
||||
[ row [ spacing 16, width fill ]
|
||||
[ searchView model |> el [ padding 8 ]
|
||||
, model.engines
|
||||
|> List.filter (\( _, state ) -> state /= Failed)
|
||||
|> List.map
|
||||
(\( name, state ) ->
|
||||
text ("%" ++ name)
|
||||
( name
|
||||
, text ("%" ++ name)
|
||||
|> el
|
||||
([ Font.size 43
|
||||
, Font.bold
|
||||
, Html.Attributes.style "max-width" "300px"
|
||||
|> htmlAttribute
|
||||
|
||||
-- , clip
|
||||
]
|
||||
++ (if Set.isEmpty model.selectedEngines then
|
||||
[]
|
||||
@ -232,11 +236,20 @@ view model =
|
||||
]
|
||||
|
||||
Failed ->
|
||||
[]
|
||||
[ Html.Attributes.class "hidden-engine" |> htmlAttribute
|
||||
, Html.Attributes.style "max-width" "0px" |> htmlAttribute
|
||||
, Html.Attributes.style "top" "-100px"
|
||||
|> htmlAttribute
|
||||
, Html.Attributes.style "margin" "0"
|
||||
|> htmlAttribute
|
||||
, Font.color (rgb 0.8 0.8 0.8)
|
||||
, Html.Attributes.class "bobbing" |> htmlAttribute
|
||||
]
|
||||
)
|
||||
)
|
||||
)
|
||||
)
|
||||
|> row
|
||||
|> Keyed.row
|
||||
[ spacing 16
|
||||
, clipX
|
||||
, scrollbarX
|
||||
|
@ -52,6 +52,7 @@ $:
|
||||
(~(get by search-results:(~(got by search-subscriptions.state) query)) engine)
|
||||
?~ results %loading
|
||||
?~ +.results %failed
|
||||
?~ +.+.results %failed
|
||||
%completed
|
||||
=* search-results
|
||||
|= =query
|
||||
@ -61,6 +62,7 @@ $:
|
||||
search-results.search-state
|
||||
=* sink-for-query
|
||||
|= =query
|
||||
~& (~(get by search-subscriptions.state) query)
|
||||
[(current-engines query) (search-results query)]
|
||||
=* sink
|
||||
|= =query
|
||||
@ -145,8 +147,11 @@ $:
|
||||
=. search-subscriptions.state
|
||||
(~(put by search-subscriptions.state) query search-subscription)
|
||||
=^ card sink (sync:sink (sink-for-query query))
|
||||
~& (current-engines query)
|
||||
[~[card] this]
|
||||
==
|
||||
++ on-fail |=([term tang] `..on-init)
|
||||
++ on-fail
|
||||
|= [term =tang]
|
||||
((slog tang) `this)
|
||||
--
|
||||
|
||||
|
@ -9,9 +9,9 @@
|
||||
%- zing
|
||||
%+ turn results
|
||||
|= [engine=term results=(list search-result)]
|
||||
%+ turn (zip (gulf 1 (lent results)) results)
|
||||
%+ turn (zip (gulf 0 (lent results)) results)
|
||||
|= [ord=@u result=search-result]
|
||||
%- malt ~[[url.result [~[engine] ~[ord] result]]]
|
||||
%- malt ~[[url.result [~[engine] ~[+(ord)] result]]]
|
||||
=/ url-to-engines-map
|
||||
^- (map @t [engines=(list term) ords=(list @u) result=search-result])
|
||||
%+ roll url-to-engine-map
|
||||
|
Loading…
Reference in New Issue
Block a user