content: module Lang.Pirate where
  
  import Lang.Strings
  
  pirate :: String -> String
  pirate str
    | is tuiTitle = "                                  Herm's - Drop the anchor!"
    | is tuiName = "  Giv'r a name: "
    | is tuiDesc = "    Describin': "
    | is tuiServingSize = "  Servin' size: "
    | is tuiIngrs = "     Reagents: \n(one per line)  "
    | is tuiHelp1 = "                      Tab / Shift+Tab           - Next / Previous bay"
    | is tuiHelp2 = "                      Ctrl + <Arrow keys>       - Navigate the sea"
    | is tuiHelp3 = "                      [Meta or Alt] + <h-j-k-l> - Navigate the sea"
    | is headerServs = "\nServin's: "
    | is headerIngrs = "\nReagents:\n"
    | is saveRecipeYesNoEdit = "Bury the booty? (Y)ar!  (N)ay  (E)dit"
    | is recipeSaved = "Ahoy! Recipe on-boarded!"
    | is changesDiscarded = "Changes discARRded."
    | is badEntry = "Argh! Please enter ONLY 'y', 'n' or 'e'"
    | is doesNotExist = " don't exist, mate\n"
    | is nothingToImport = "Ain't nothin' to import"
    | is importedRecipes = "On-boarded recipes:"
    | is more = " [marr]"
    | is removingRecipe = "Recipe walked the plank: "
    | is listDesc = "list yer recipes"
    | is viewDesc = "gander at yer particular recipes"
    | is removeDesc = "show a recipe to the plank"
    | is shoppingDesc = "make a list o' needed booty for given recipes"
    | is datadirDesc = "X marks the spot o' yer config file"
    | is progDesc = "Yarr, this be Herm's! Type \"--help\" if yer a landlubber."
    | otherwise = str
    where
      is = (str ==)
  