                                      :back            "Back"
                                      :chars-remaining "characters remaining"
                                      :hello           "Hello"
-                                     :issue           "Issue"}
+                                     :issue           "Issue"
+                                     :login           "Login"
+                                     :logout          "Logout"
+                                     :save            "Save"
+                                     :show-discuss    "Show discuss"}
                         :discussion {:add-argument "Add a new argument"
                                      :current      "Current Discussion"
                                      :restart      "Restart"

                                     :back            "Zurück"
                                     :chars-remaining "Zeichen verbleibend"
                                     :hello           "Hallo"
                                     :issue           "Diskussionsthema"}
                        :discussion {:add-argument "Ein neues Argument hinzufügen"
                                     :current      "Aktuelle Diskussion"
                                     :restart      "Neustarten"

                                     :usages     "In which arguments has this reference been used?"
                                     :where-used "Where has this reference been used?"}}})

(defn- prepend-translation
  "Lookup given key and prepend some string to it."
  [group key prepend]
  (str prepend (get-in translations [(lib/get-language) group key])))

(defn translate
  "Get translation string according to currently configured language."
  ([group key & options]
   (let [option (first options)]
     (cond
       (= :space option) (prepend-translation group key " ")
       :default (prepend-translation group key "")))))

(translate :example :foo)

