diff options
| -rw-r--r-- | src/I18n.hs | 8 | ||||
| -rw-r--r-- | src/Plugin/GitHubCommit.hs | 15 |
2 files changed, 19 insertions, 4 deletions
diff --git a/src/I18n.hs b/src/I18n.hs index e50ba5b..f7a4571 100644 --- a/src/I18n.hs +++ b/src/I18n.hs @@ -21,5 +21,13 @@ translate_en_US GitHubCommitRepoURLNotFound = "I couldn't find a repo URL for \ translate_en_US (GitRemoteSetOriginUpdatedRepoURL url) = "I updated the channel's repo URL to '" `T.append` url `T.append` "'." +translate_fr_FR :: Message -> T.Text +translate_fr_FR GitHubCommitRepoURLNotFound = "Je n'ai pas trouvé une URL de \ + \repo pour ce channel. Essaye `git remote set origin REPO_URL`." +translate_fr_FR (GitRemoteSetOriginUpdatedRepoURL url) = + "J'ai mis à jour l'URL de repo pour ce channel (" + `T.append` url `T.append` ")." + translate :: Locale -> Message -> T.Text translate EN = translate_en_US +translate FR = translate_fr_FR diff --git a/src/Plugin/GitHubCommit.hs b/src/Plugin/GitHubCommit.hs index 3d2e490..b8ecf9e 100644 --- a/src/Plugin/GitHubCommit.hs +++ b/src/Plugin/GitHubCommit.hs @@ -12,6 +12,7 @@ import Text.Regex.TDFA import I18n import qualified Message as M +import CliOptions (Options(language), parseOptions) import Plugin.Base gitHubCommit = defaultPlugin @@ -32,14 +33,20 @@ gitHubCommitAction message = do :: IO [RepoUrlRow] close dbConn - return $ respond rs + opts <- parseOptions + let lang = language opts + + return $ respond rs lang where - respond [] = - Left $ translate EN GitHubCommitRepoURLNotFound - respond ((RepoUrlRow r):_) = + respond [] lang = + Left $ translate lang GitHubCommitRepoURLNotFound + respond ((RepoUrlRow r):_) _ = Right $ r `T.append` "/commits/" `T.append` T.pack ( M.textStr message =~ matchRegex gitHubCommit) +-- TODO +-- lang :: + type Id = Int type RepoUrl = T.Text |