git.iko.soy/warden
on master help sign in
Got search working
commitb71b0faf1adf2f533894a4fbc7af828564c5d11d authoriko <ilyakooo0@gmail.com> dateFri 29 Jul 2022, 17:32 (4 years ago) parent176ebc3
5 files changed+246−19
compare with master
unifiedsplit
frontend/Main.elm−1 frontend/Pages/Ciphers.elm+36−14 frontend/Pages/Login.elm+21−3 frontend/Pages/MasterPassword.elm+7−1 frontend/Search.elm+182
frontend/Main.elm−1
@@ -134,7 +134,6 @@ subscriptions _ =
134134
135135init : ( Model, Cmd Msg )
136136init =
137− -- Cipher.init |> Tuple.mapBoth (\p -> { notifications = [], page = CipherModel p }) (Cmd.map CipherMsg)
138137 ( { notifications = []
139138 , pageStack = Nonempty.singleton LoadingPage
140139 }
frontend/Pages/Ciphers.elm+36−14
@@ -5,16 +5,19 @@ import Html exposing (..)
55import Html.Attributes as Attr
66import Html.Events as Ev
77import Page exposing (..)
8+import Search
89import Utils exposing (..)
910
1011
1112type alias Model =
1213 { ciphers : Bridge.Sub_LoadCiphers_List
14+ , search : String
1315 }
1416
1517
1618type Msg
1719 = Noop
20+ | UpdateSearch String
1821
1922
2023type alias Callbacks msg =
@@ -25,7 +28,7 @@ type alias Callbacks msg =
2528page : Callbacks emsg -> Page Bridge.Sub_LoadCiphers_List Model Msg emsg
2629page callbacks liftMsg =
2730 { init = \ciphers -> Tuple.mapSecond (Cmd.map liftMsg) (init ciphers)
28− , view = view callbacks
31+ , view = view callbacks liftMsg
2932 , update = \msg model -> update callbacks liftMsg msg model
3033 , subscriptions = \model -> subscriptions model |> Sub.map liftMsg
3134 , title = always "Passwords"
@@ -34,7 +37,7 @@ page callbacks liftMsg =
3437
3538init : Bridge.Sub_LoadCiphers_List -> ( Model, Cmd Msg )
3639init ciphers =
37− ( { ciphers = ciphers }
40+ ( { ciphers = ciphers, search = "" }
3841 , Cmd.none
3942 )
4043
@@ -45,24 +48,43 @@ update {} liftMsg msg model =
4548 Noop ->
4649 ( Ok model, Cmd.none )
4750
51+ UpdateSearch s ->
52+ ( Ok { model | search = s }, Cmd.none )
53+
4854
4955subscriptions : Model -> Sub Msg
5056subscriptions model =
5157 Sub.none
5258
5359
54−view : Callbacks emsg -> Model -> List (Html emsg)
55−view { selected } { ciphers } =
56− [ ul [ Attr.class "p-list--divided" ]
57− (List.map
58− (\{ name, date, id } ->
59− li [ Attr.class "p-list__item cipher-row", Ev.onClick (selected id) ]
60− [ div [ Attr.class "cipher-row-container" ]
61− [ p [] [ text name ]
62− , p [ Attr.class "p-text--small u-align-text--right u-text--muted" ] [ text date ]
60+view : Callbacks emsg -> (Msg -> emsg) -> Model -> List (Html emsg)
61+view { selected } liftMsg { ciphers, search } =
62+ [ input
63+ [ Attr.type_ "search"
64+ , Attr.value search
65+ , Ev.onInput (liftMsg << UpdateSearch)
66+ , Attr.placeholder "Search"
67+ , Attr.attribute "autocomplete" "off"
68+ ]
69+ []
70+ , ul [ Attr.class "p-list--divided" ]
71+ (ciphers
72+ |> Search.searchList (cipherSearch search)
73+ |> List.map
74+ (\{ name, date, id } ->
75+ li [ Attr.class "p-list__item cipher-row", Ev.onClick (selected id) ]
76+ [ div [ Attr.class "cipher-row-container" ]
77+ [ p [] [ text name ]
78+ , p [ Attr.class "p-text--small u-align-text--right u-text--muted" ] [ text date ]
79+ ]
6380 ]
64− ]
65− )
66− ciphers
81+ )
6782 )
6883 ]
84+
85+
86+cipherSearch : String -> Search.Search Bridge.Sub_LoadCiphers
87+cipherSearch query =
88+ Search.Search
89+ [ ( query, \q { name } -> Search.search q name )
90+ ]
frontend/Pages/Login.elm+21−3
@@ -71,11 +71,29 @@ view : Model -> List (Html Msg)
7171view model =
7272 [ form []
7373 [ label [] [ text "Server" ]
74− , input [ Attr.type_ "url", Attr.value model.server, Ev.onInput UpdateServer ] []
74+ , input
75+ [ Attr.type_ "url"
76+ , Attr.value model.server
77+ , Ev.onInput UpdateServer
78+ , Attr.attribute "autocomplete" "url"
79+ ]
80+ []
7581 , label [] [ text "Email" ]
76− , input [ Attr.type_ "email", Attr.value model.email, Ev.onInput UpdateEmail ] []
82+ , input
83+ [ Attr.type_ "email"
84+ , Attr.value model.email
85+ , Ev.onInput UpdateEmail
86+ , Attr.attribute "autocomplete" "email"
87+ ]
88+ []
7789 , label [] [ text "Password" ]
78− , input [ Attr.type_ "password", Attr.value model.password, Ev.onInput UpdatePassword ] []
90+ , input
91+ [ Attr.type_ "password"
92+ , Attr.value model.password
93+ , Ev.onInput UpdatePassword
94+ , Attr.attribute "autocomplete" "current-password"
95+ ]
96+ []
7997 ]
8098 , alignRight [ button [ Ev.onClick Submit ] [ text "Log in" ] ]
8199 ]
frontend/Pages/MasterPassword.elm+7−1
@@ -79,7 +79,13 @@ view model =
7979 ]
8080 , form []
8181 [ label [] [ text "Password" ]
82− , input [ Attr.type_ "password", Attr.value model.password, Ev.onInput UpdatePassword ] []
82+ , input
83+ [ Attr.type_ "password"
84+ , Attr.value model.password
85+ , Ev.onInput UpdatePassword
86+ , Attr.attribute "autocomplete" "current-password"
87+ ]
88+ []
8389 ]
8490 , alignRight [ button [ Ev.onClick Submit ] [ text "Log in" ] ]
8591 ]
frontend/Search.elmnew file+182
@@ -0,0 +1,182 @@
1+module Search exposing
2+ ( Query
3+ , Search(..)
4+ , SearchResult
5+ , combine
6+ , contramap
7+ , search
8+ , searchList
9+ )
10+
11+import Set exposing (Set)
12+
13+
14+ignoredCharacters : Set Char
15+ignoredCharacters =
16+ Set.fromList [ '_', '-', '.' ]
17+
18+
19+prepareString : String -> String
20+prepareString =
21+ String.filter (\c -> Set.member c ignoredCharacters |> not)
22+ >> String.toLower
23+
24+
25+type SearchResult
26+ = Match Int
27+ | NoMatch {- | A search result for an empty query. It is for the most part just ignored, hance the name. -}
28+ | Ignore
29+
30+
31+{-| Used to combine different search results within one search entry.
32+-}
33+combine : List SearchResult -> SearchResult
34+combine ress =
35+ case ress of
36+ [] ->
37+ NoMatch
38+
39+ _ ->
40+ if List.all ((==) Ignore) ress then
41+ Ignore
42+
43+ else
44+ let
45+ go : List SearchResult -> SearchResult
46+ go rr =
47+ case rr of
48+ [] ->
49+ NoMatch
50+
51+ NoMatch :: xs ->
52+ go xs
53+
54+ (Match score) :: xs ->
55+ case go xs of
56+ NoMatch ->
57+ Match score
58+
59+ Match score_ ->
60+ Match (score + score_)
61+
62+ Ignore ->
63+ Match score
64+
65+ Ignore :: xs ->
66+ go xs
67+ in
68+ go ress
69+
70+
71+type alias Haystack =
72+ String
73+
74+
75+type alias Needle =
76+ String
77+
78+
79+type Query
80+ = Query Needle
81+
82+
83+{-| Constructs queries from an input string. (Splits on spaces and requires all words to match)
84+-}
85+constructQueries : String -> List Query
86+constructQueries =
87+ prepareString >> String.words >> List.filter (String.isEmpty >> not) >> List.map Query
88+
89+
90+{-| Search a search term within a search entry.
91+-}
92+search : Query -> Haystack -> SearchResult
93+search (Query needle) haystack =
94+ if String.contains needle (prepareString haystack) then
95+ Match 1
96+
97+ else
98+ NoMatch
99+
100+
101+{-| Requires all search results to be matched
102+-}
103+searchAll : List SearchResult -> SearchResult
104+searchAll =
105+ let
106+ combineQueries : SearchResult -> SearchResult -> SearchResult
107+ combineQueries x y =
108+ case ( x, y ) of
109+ ( NoMatch, _ ) ->
110+ NoMatch
111+
112+ ( _, NoMatch ) ->
113+ NoMatch
114+
115+ ( Ignore, a ) ->
116+ a
117+
118+ ( a, Ignore ) ->
119+ a
120+
121+ ( Match a, Match b ) ->
122+ Match (a + b)
123+ in
124+ List.foldl combineQueries Ignore
125+
126+
127+{-| A list of search inputs with the definition of what it means to search for that query.
128+-}
129+type Search a
130+ = Search (List ( String, Query -> a -> SearchResult ))
131+
132+
133+contramap : (b -> a) -> Search a -> Search b
134+contramap f (Search s) =
135+ List.map (\( q, g ) -> ( q, \query b -> g query (f b) )) s
136+ |> Search
137+
138+
139+{-| The main function of the module. Search a list with the given `Search`.
140+-}
141+searchList : Search a -> List a -> List a
142+searchList (Search searches) aa =
143+ let
144+ searchByTerm =
145+ searches
146+ |> List.concatMap
147+ (\( s, f ) ->
148+ let
149+ qq =
150+ constructQueries s
151+ in
152+ List.map (\q a -> f q a) qq
153+ )
154+
155+ searchEntry a =
156+ List.map (\f -> f a) searchByTerm |> searchAll
157+ in
158+ aa
159+ |> List.map (\a -> ( searchEntry a, a ))
160+ |> sortResult Tuple.first
161+ |> List.map Tuple.second
162+
163+
164+sortResult : (a -> SearchResult) -> List a -> List a
165+sortResult f =
166+ List.filterMap
167+ (\a ->
168+ case f a of
169+ Match score ->
170+ Just ( score, a )
171+
172+ NoMatch ->
173+ Nothing
174+
175+ Ignore ->
176+ Just ( 0, a )
177+ )
178+ -- Here we assume that the sort is stable which is not true for old
179+ -- versions of ECMAScript which would result in undeterministic
180+ -- ordering for empty queries.
181+ >> List.sortBy Tuple.first
182+ >> List.map Tuple.second