Комбинации клавиш в Elm 0.17 и более поздних версиях

Question

Как создать комбинации клавиш в приложении Elm, например. "shift + alt + enter"? Вы бы сделать что-то подобное, чтобы реагировать на одну клавишу нажатой (например, ключ входа):

import Keyboard 

type Msg 
    = KeyDown Keyboard.KeyCode 

type alias Model = 
    ... 

update msg model = 
    case msg of 
     KeyDown key -> 
      handleKeyDown key model 

subscriptions model = 
    Sub.batch 
     [ 
      Keyboard.downs KeyDown 
     ] 

handleKeyDown key model = 
    case key of 
    13 -> -- Enter key 
     Debug.log "Other key" 
     model 

    _ -> -- Any other key 
     Debug.log "Other key" 
     model 


view model = 
    ... 

Но как вы можете сделать то же самое для нескольких клавиш нажата?

Answer 1

Вы можете использовать Keyboard.downs как указано pdoherty926, а также Set, чтобы отслеживать, какие клавиши нажаты. Вам нужно посмотреть на Keyboard.ups, а также узнать, когда выйдет ключ.

Вот рабочий пример:

import Html exposing (..) 
import Html.App exposing (program) 
import Keyboard exposing (..) 
import Set exposing (Set) 
import Char 

main = 
    program { init = (initialModel, Cmd.none), view = view, update = update, subscriptions = subscriptions } 

initialModel = 
    { keysDown = Set.empty 
    } 

view : Model -> Html Msg 
view model = 
    text <| toString <| Set.map Char.fromCode model.keysDown 

type Msg 
    = KeyDown KeyCode 
    | KeyUp KeyCode 

type alias Model = 
    { keysDown : Set KeyCode 
    } 

update msg model = 
    case msg of 
    KeyDown key -> 
     ({ model | keysDown = Set.insert key model.keysDown }, Cmd.none) 
    KeyUp key -> 
     ({ model | keysDown = Set.remove key model.keysDown }, Cmd.none) 

subscriptions _ = 
    Sub.batch 
     [ Keyboard.downs KeyDown 
     , Keyboard.ups KeyUp 
     ] 

Answer 2

От the documentation:

В долгосрочной перспективе, это имеет смысл, чтобы помочь отслеживать ключевые комбинации и пару других распространенных сценариев. Если у вас есть какая-то особая проблема, вы думаете, что эта библиотека может обращаться более непосредственно, пожалуйста, опишите ее как SSCCE в проблеме. Пожалуйста, не предлагайте решение. Просто опишите сценарий. Как только становится понятнее, что делают люди, настало время добавить поддержку этих случаев согласованным образом.

Таким образом, по крайней мере, это означает, что оно не поддерживается прямо сейчас. Я не совсем уверен, означает ли это также, что вы должны открыть проблему, чтобы поддержать это позднее дополнение или нет.

Теперь ответ Чада выглядит хорошим временным решением для меня. Это выглядит еще лучше с предложением swelet отслеживать только несколько клавиш-модификаторов. Обратите внимание, что если вы примете такой подход, вам не нужно полагаться на любые List или Set, но вместо этого вы можете записать небольшую запись с 4 булевыми.

Наконец, если вы хотите по каким-либо причинам отследить все ключи (если, например, вы хотели бы, чтобы пользователь мог связать [F1] с некоторыми действиями, то с точки зрения производительности было бы целесообразно использовать более эффективные представление множеств. Любое подмножество конечного множества, например, может быть определено как одно число, каждый бит является логическим значением отсутствия или наличием одного конкретного элемента. Вы можете делать такие вещи с помощью библиотеки Bitwise.