scratch/brilliant/App.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41

--------------------------------------------------------------------------------
module App where
--------------------------------------------------------------------------------
import Keyboard (Keyboard(..))
import Transforms (Transform(..))
import Utils ((|>))

import qualified Data.Char as Char
import qualified Utils
import qualified Data.List.Split as Split
import qualified Keyboard
import qualified Data.HashMap.Strict as HM
--------------------------------------------------------------------------------

transform :: Keyboard -> Transform -> Keyboard

transform (Keyboard xs) xform =
  case xform of
    HorizontalFlip ->
      xs
      |> fmap reverse
      |> Keyboard

    VerticalFlip ->
      xs
      |> reverse
      |> Keyboard

    Shift n ->
      xs
      |> concat
      |> Utils.rotate n
      |> Split.chunksOf 10
      |> Keyboard

retypePassage :: String -> Keyboard -> Maybe String
retypePassage passage newKeyboard =
  passage
  |> fmap Char.toUpper
  |> traverse (\c -> HM.lookup c Keyboard.charToCoord)
  >>= traverse (Keyboard.coordToChar newKeyboard)