flewkey
/
tooty
1
0
Fork 0
Code Releases Activity

Fix #114: Close autocomplete menu when pressing Esc. (#139)

This commit is contained in:
Nicolas Perriault 2017-05-06 16:00:00 +02:00 committed by GitHub
parent bda0a82f3f
commit 55cfab9976
3 changed files with 18 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
src/Model.elm
View File

@ -435,7 +435,7 @@ updateDraft draftMsg currentUser model =
let
( newState, maybeMsg ) =
Autocomplete.update
updateAutocompleteConfig
autocompleteUpdateConfig
autoMsg
draft.autoMaxResults
draft.autoState
@ -451,6 +451,16 @@ updateDraft draftMsg currentUser model =
Just updateMsg ->
update updateMsg newModel
CloseAutocomplete ->
let
newDraft =
{ draft
| showAutoMenu = False
, autoState = Autocomplete.reset autocompleteUpdateConfig draft.autoState
}
in
{ model | draft = newDraft } ! []
ResetAutocomplete toTop ->
let
newDraft =
@ -458,13 +468,13 @@ updateDraft draftMsg currentUser model =
| autoState =
if toTop then
Autocomplete.resetToFirstItem
updateAutocompleteConfig
autocompleteUpdateConfig
(acceptableAccounts draft.autoQuery draft.autoAccounts)
draft.autoMaxResults
draft.autoState
else
Autocomplete.resetToLastItem
updateAutocompleteConfig
autocompleteUpdateConfig
(acceptableAccounts draft.autoQuery draft.autoAccounts)
draft.autoMaxResults
draft.autoState
@ -1015,8 +1025,8 @@ update msg model =
model ! [ Command.scrollColumnToBottom column ]
updateAutocompleteConfig : Autocomplete.UpdateConfig Msg Account
updateAutocompleteConfig =
autocompleteUpdateConfig : Autocomplete.UpdateConfig Msg Account
autocompleteUpdateConfig =
Autocomplete.updateConfig
{ toId = .id >> toString
, onKeyDown =

1
src/Types.elm
View File

@ -22,6 +22,7 @@ type DraftMsg
| ToggleSpoiler Bool
| UpdateInputInformation InputInformation
| ResetAutocomplete Bool
| CloseAutocomplete
| SetAutoState Autocomplete.Msg

2
src/View/Draft.elm
View File

@ -205,6 +205,8 @@ draftView ({ draft, currentUser } as model) =
(\code ->
if code == 38 || code == 40 then
Ok NoOp
else if code == 27 then
Ok <| DraftEvent CloseAutocomplete
else
Err "not handling that key"
)