getTitleShort :: Text -> State EvalState Text
getTitleShort s = do let s' = T.dropEnd 6 s  -- drop '-short'
                     v <- getStringVar s'
                     abbrs <- gets (abbrevs . env)
                     return $ getAbbreviation abbrs s' v
getTitleShort :: Text -> State EvalState Text
getTitleShort s = do let s' = T.dropEnd 6 s  -- drop '-short'
                     v <- getStringVar s'
                     abbrs <- gets (abbrevs . env)
                     return $ getAbbreviation abbrs s' v
getTitleShort s = do let s' = T.dropEnd 6 s  -- drop '-short'
                     v <- getStringVar s'
                     abbrs <- gets (abbrevs . env)
                     return $ getAbbreviation abbrs s' v