NoRedInk/noredink-ui
1
1
Fork 0
mirror of https://github.com/NoRedInk/noredink-ui.git synced 2024-11-14 03:48:13 +03:00
Code Issues Packages Projects Releases Wiki Activity

go back to using Key helpers

Browse Source
This commit is contained in:
Tessa Kelly 2022-11-02 16:54:59 -06:00
parent 3f597ba3d6
commit e4c1469910
1 changed files with 12 additions and 83 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

95
src/Nri/Ui/Highlighter/V1.elm
View File

@ -776,89 +776,18 @@ viewHighlightable highlighterId marker focusIndex index highlightable =
, onPreventDefault "mousedown" (Pointer <| Down highlightable.groupIndex)
, onPreventDefault "touchstart" (Pointer <| Down highlightable.groupIndex)
, attribute "data-interactive" ""
--, Key.onKeyDownPreventDefault
-- [ Key.space (Keyboard <| ToggleHighlight highlightable.groupIndex)
-- , Key.right (Keyboard <| MoveRight highlightable.groupIndex)
-- , Key.left (Keyboard <| MoveLeft highlightable.groupIndex)
-- , Key.shiftRight (Keyboard <| SelectionExpandRight highlightable.groupIndex)
-- , Key.shiftLeft (Keyboard <| SelectionExpandLeft highlightable.groupIndex)
-- ]
--, Key.onKeyUpPreventDefault
-- [ Key.shiftRight (Keyboard <| SelectionApplyTool highlightable.groupIndex)
-- , Key.shiftLeft (Keyboard <| SelectionApplyTool highlightable.groupIndex)
-- , shift (Keyboard <| SelectionReset highlightable.groupIndex)
-- ]
, Events.preventDefaultOn "keydown" <|
Json.Decode.andThen
(\result ->
case result of
Ok v ->
Json.Decode.succeed ( v, True )
Err e ->
Json.Decode.fail e
)
(Json.Decode.map2
(\keyCode shiftKey ->
case ( keyCode, shiftKey ) of
-- space
( 32, _ ) ->
Ok (Keyboard <| ToggleHighlight highlightable.groupIndex)
-- right
( 39, False ) ->
Ok (Keyboard <| MoveRight highlightable.groupIndex)
-- left
( 37, False ) ->
Ok (Keyboard <| MoveLeft highlightable.groupIndex)
-- shift right
( 39, True ) ->
Ok (Keyboard <| SelectionExpandRight highlightable.groupIndex)
-- shift left
( 37, True ) ->
Ok (Keyboard <| SelectionExpandLeft highlightable.groupIndex)
_ ->
Err "Unmapped key code"
)
Events.keyCode
(Json.Decode.field "shiftKey" Json.Decode.bool)
)
, Events.preventDefaultOn "keyup" <|
Json.Decode.andThen
(\result ->
case result of
Ok v ->
Json.Decode.succeed ( v, True )
Err e ->
Json.Decode.fail e
)
(Json.Decode.map2
(\keyCode shiftKey ->
case ( keyCode, shiftKey ) of
-- shift right
( 39, True ) ->
Ok (Keyboard <| SelectionApplyTool highlightable.groupIndex)
-- shift left
( 37, True ) ->
Ok (Keyboard <| SelectionApplyTool highlightable.groupIndex)
-- just shift
( 16, _ ) ->
Ok (Keyboard <| SelectionReset highlightable.groupIndex)
_ ->
Err "Unmapped key code"
)
Events.keyCode
(Json.Decode.field "shiftKey" Json.Decode.bool)
)
, Key.onKeyDownPreventDefault
[ Key.space (Keyboard <| ToggleHighlight highlightable.groupIndex)
, Key.right (Keyboard <| MoveRight highlightable.groupIndex)
, Key.left (Keyboard <| MoveLeft highlightable.groupIndex)
, Key.shiftRight (Keyboard <| SelectionExpandRight highlightable.groupIndex)
, Key.shiftLeft (Keyboard <| SelectionExpandLeft highlightable.groupIndex)
]
, Key.onKeyUpPreventDefault
[ Key.shiftRight (Keyboard <| SelectionApplyTool highlightable.groupIndex)
, Key.shiftLeft (Keyboard <| SelectionApplyTool highlightable.groupIndex)
, Key.shift (Keyboard <| SelectionReset highlightable.groupIndex)
]
]
, maybeTool = Just marker
}