feat: 見出し語入力モードから辞書登録モードヘの遷移を実装

emanon001 · Mar 11, 2023 · 2c712bc · 2c712bc
1 parent 240c77c
commit 2c712bc
Show file tree

Hide file tree

Showing 2 changed files with 35 additions and 2 deletions.
diff --git a/src/Skk.elm b/src/Skk.elm
@@ -372,8 +372,14 @@ updateMidashiInputMode { isHiragana, kakutei, conversionModeValue, context, inpu
                     (DictConversionMode { prevMode = prevMode, candidateList = candidateList, pos = 0, okuri = Nothing })
 
             Nothing ->
-                -- TODO: 変換候補がない場合に、辞書登録モードに移行
-                default
+                -- 変換候補がない場合は辞書登録モードに遷移
+                buildKanaMode isHiragana
+                    kakutei
+                    (DictRegistrationMode
+                        { prevMode = PrevDictConversionMidashiInputMode conversionModeValue
+                        , inputMode = initKanaMode isHiragana
+                        }
+                    )
 
     else if isBackSpaceKey inputKey then
         -- 削除

diff --git a/tests/SkkTests.elm b/tests/SkkTests.elm
@@ -435,6 +435,33 @@ suite =
                                 }
                             )
                             (Skk.update skk key).mode
+                , test "見出し語を入力している最中にSpaceキーを入力する かつ 変換候補がない場合、辞書登録モードに遷移すること" <|
+                    \_ ->
+                        let
+                            conversionValue =
+                                { kakuteiMidashi = Just "こうほなし", mikakuteiMidashi = Nothing }
+
+                            skk =
+                                initSkk (Skk.HiraganaMode { kakutei = Just "あいう", conversionMode = Skk.MidashiInputMode conversionValue })
+
+                            key =
+                                { key = "Space", shift = False, ctrl = False }
+                        in
+                        Expect.equal
+                            (Skk.HiraganaMode
+                                { kakutei = Just "あいう"
+                                , conversionMode =
+                                    Skk.DictRegistrationMode
+                                        { prevMode = Skk.PrevDictConversionMidashiInputMode conversionValue
+                                        , inputMode =
+                                            Skk.HiraganaMode
+                                                { kakutei = Nothing
+                                                , conversionMode = Skk.KakuteiInputMode { mikakutei = Nothing }
+                                                }
+                                        }
+                                }
+                            )
+                            (Skk.update skk key).mode
                 ]
             , describe "ひらがな入力モード(変換モード: 見出し語入力モード/送り仮名)"
                 [ test "確定済みの送り仮名が存在する かつ 未確定の送り仮名が存在しない場合、BSキーを入力すると確定済みの送り仮名が削除されること" <|