Add simple way to view keyboard shortcuts

unisonweb · Jan 7, 2025 · 08ef7e8 · 08ef7e8
1 parent 6e6386b
commit 08ef7e8
Showing 1 changed file with 22 additions and 0 deletions.
diff --git a/src/UI/KeyboardShortcut.elm b/src/UI/KeyboardShortcut.elm
@@ -190,6 +190,28 @@ view model shortcut =
     viewBase content
 
 
+viewSimple : OperatingSystem -> KeyboardShortcut -> Html msg
+viewSimple os shortcut =
+    let
+        content =
+            case shortcut of
+                Sequence Nothing key ->
+                    [ viewKey os key False ]
+
+                Sequence (Just keyA) keyB ->
+                    [ viewKey os keyA False
+                    , viewThen
+                    , viewKey os keyB False
+                    ]
+
+                Chord mod key ->
+                    [ viewKey os mod False
+                    , viewKey os key False
+                    ]
+    in
+    viewBase content
+
+
 viewShortcuts : Model -> List KeyboardShortcut -> Html msg
 viewShortcuts model shortcuts =
     let