Fix suppr shortcut inactive if not in edit mode

Chapitalists · Jan 26, 2020 · 65852b7 · 65852b7
1 parent 95d49e9
commit 65852b7
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/src/Doc.elm b/src/Doc.elm
@@ -212,16 +212,16 @@ update msg doc =
                             update (CollarMsg <| CEditor.CursorRight) doc
 
                         ( Suppr, C e ) ->
-                            case e.common.edit of
-                                [ B i ] ->
+                            case ( e.common.edit, e.tool ) of
+                                ( [ B i ], CEditor.Edit ) ->
                                     update (CollarMsg <| CEditor.DeleteBead i) doc
 
                                 _ ->
                                     ( doc, Cmd.none )
 
                         ( Suppr, M e ) ->
-                            case e.common.edit of
-                                [ G id ] ->
+                            case ( e.common.edit, e.tool ) of
+                                ( [ G id ], MEditor.Edit ) ->
                                     update (MobileMsg <| MEditor.DeleteGear id) doc
 
                                 _ ->