{
RegularExpression["(\\W)N(\\W)"] :> "$1$N$$2",
RegularExpression["(\\W)D(\\W)"] :> "$1$D$$2",
"he-" -> "He-",
"Delta function" -> "$\\delta$ function",
RegularExpression["([.]\\s+)([a-z])"] :> "$1" <> ToUpperCase["$2"]
}