module RenameUtils where

import Data.List.Utils (startswith, replace)

typeFieldModifier :: String -> String
typeFieldModifier "type__" = "type"
typeFieldModifier "type___" = "type"
typeFieldModifier name = name

dotFieldModifier :: String -> String
dotFieldModifier = replace "__" "."

replaceUsername :: String -> String
replaceUsername "username" = "@username:localhost:8080"
replaceUsername name = name

replaceRoomId :: String -> String
replaceRoomId "slay" = "!slay:localhost:8080"
replaceRoomId name = name