Last active
June 14, 2018 10:19
-
-
Save andytudhope/0bda4154adb732b7efba394a1589c5c6 to your computer and use it in GitHub Desktop.
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| (ns status-im.i18n | |
| (:require | |
| [cljs.spec.alpha :as spec] | |
| [status-im.react-native.js-dependencies :as rn-dependencies] | |
| [status-im.translations.af :as af] | |
| [status-im.translations.ar :as ar] | |
| [status-im.translations.bel :as be] | |
| [status-im.translations.cs :as cs] | |
| [status-im.translations.da :as da] | |
| [status-im.translations.de :as de] | |
| [status-im.translations.de-ch :as de-ch] | |
| [status-im.translations.el :as el] | |
| [status-im.translations.en :as en] | |
| [status-im.translations.es :as es] | |
| [status-im.translations.es-ar :as es-ar] | |
| [status-im.translations.es-mx :as es-mx] | |
| [status-im.translations.fi :as fi] | |
| [status-im.translations.fr :as fr] | |
| [status-im.translations.fr-ch :as fr-ch] | |
| [status-im.translations.fy :as fy] | |
| [status-im.translations.he :as he] | |
| [status-im.translations.hi :as hi] | |
| [status-im.translations.hu :as hu] | |
| [status-im.translations.id :as id] | |
| [status-im.translations.it :as it] | |
| [status-im.translations.it-ch :as it-ch] | |
| [status-im.translations.ja :as ja] | |
| [status-im.translations.ko :as ko] | |
| [status-im.translations.la :as la] | |
| [status-im.translations.lt :as lt] | |
| [status-im.translations.lv :as lv] | |
| [status-im.translations.ms :as ms] | |
| [status-im.translations.nb :as nb] | |
| [status-im.translations.ne :as ne] | |
| [status-im.translations.nl :as nl] | |
| [status-im.translations.pl :as pl] | |
| [status-im.translations.pt-br :as pt-br] | |
| [status-im.translations.pt-pt :as pt-pt] | |
| [status-im.translations.ro :as ro] | |
| [status-im.translations.ru :as ru] | |
| [status-im.translations.sl :as sl] | |
| [status-im.translations.sr-rs-cyrl :as sr-rs-cyrl] | |
| [status-im.translations.sr-rs-latn :as sr-rs-latn] | |
| [status-im.translations.sv :as sv] | |
| [status-im.translations.sw :as sw] | |
| [status-im.translations.th :as th] | |
| [status-im.translations.tr :as tr] | |
| [status-im.translations.uk :as uk] | |
| [status-im.translations.ur :as ur] | |
| [status-im.translations.vi :as vi] | |
| [status-im.translations.zh-hans :as zh-hans] | |
| [status-im.translations.zh-hant :as zh-hant] | |
| [status-im.translations.zh-hant-tw :as zh-hant-tw] | |
| [status-im.translations.zh-hant-sg :as zh-hant-sg] | |
| [status-im.translations.zh-hant-hk :as zh-hant-hk] | |
| [status-im.translations.zh-wuu :as zh-wuu] | |
| [status-im.translations.zh-yue :as zh-yue] | |
| [status-im.utils.js-resources :refer [default-contacts]] | |
| [taoensso.timbre :as log] | |
| [clojure.string :as string] | |
| [clojure.set :as set])) | |
| (set! (.-fallbacks rn-dependencies/i18n) true) | |
| (set! (.-defaultSeparator rn-dependencies/i18n) "/") | |
| ;; translations | |
| #_(def translations-by-locale {:af af/translations | |
| :ar ar/translations | |
| :be be/translations | |
| :cs cs/translations | |
| :da da/translations | |
| :de de/translations | |
| :de-ch de-ch/translations | |
| :el el/translations | |
| :en en/translations | |
| :es es/translations | |
| :es-ar es-ar/translations | |
| :es-mx es-mx/translations | |
| :fi fi/translations | |
| :fr fr/translations | |
| :fr-ch fr-ch/translations | |
| :fy fy/translations | |
| :he he/translations | |
| :hi hi/translations | |
| :hu hu/translations | |
| :id id/translations | |
| :it it/translations | |
| :it-ch it-ch/translations | |
| :ja ja/translations | |
| :ko ko/translations | |
| :la la/translations | |
| :lt lt/translations | |
| :lv lv/translations | |
| :ms ms/translations | |
| :nb nb/translations | |
| :ne ne/translations | |
| :nl nl/translations | |
| :pl pl/translations | |
| :pt-br pt-br/translations | |
| :pt-pt pt-pt/translations | |
| :ro ro/translations | |
| :ru ru/translations | |
| :sl sl/translations | |
| :sr sr-rs-cyrl/translations | |
| :sr-RS_#Latn sr-rs-latn/translations | |
| :sr-RS_#Cyrl sr-rs-cyrl/translations | |
| :sv sv/translations | |
| :sw sw/translations | |
| :th th/translations | |
| :tr tr/translations | |
| :uk uk/translations | |
| :ur ur/translations | |
| :vi vi/translations | |
| :zh zh-hans/translations | |
| :zh-hans zh-hans/translations | |
| :zh-hans-cn zh-hans/translations | |
| :zh-hans-mo zh-hans/translations | |
| :zh-hant zh-hant/translations | |
| :zh-hant-tw zh-hant-tw/translations | |
| :zh-hant-sg zh-hant-sg/translations | |
| :zh-hant-hk zh-hant-hk/translations | |
| :zh-hant-cn zh-hant/translations | |
| :zh-hant-mo zh-hant/translations | |
| :zh-wuu zh-wuu/translations | |
| :zh-yue zh-yue/translations}) | |
| (def translations-by-locale {:en en/translations}) ; Temporarily disable all languages except English | |
| ;; english as source of truth | |
| (def labels (set (keys en/translations))) | |
| (spec/def ::label labels) | |
| (spec/def ::labels (spec/coll-of ::label :kind set? :into #{})) | |
| (defn labels-for-all-locales [] | |
| (->> translations-by-locale | |
| (mapcat #(-> % val keys)) | |
| set)) | |
| ;; checkpoints | |
| ;; Checkpoints specify milestones for locales. | |
| ;; | |
| ;; With milestones we can ensure that expected supported languages | |
| ;; are actually supported, and visualize the translation state for | |
| ;; the rest of locales according to these milestones. | |
| ;; | |
| ;; Checkpoints are defined by indicating the labels that need to be present | |
| ;; in a locale to achieve that checkpoint. | |
| ;; | |
| ;; We need to define the checkpoint that needs to be achieved for | |
| ;; a locale to be considered supported. This is why as we develop | |
| ;; we add translations, so we need to be defining a new target | |
| ;; for supported languages to achieve. | |
| ;; | |
| ;; Checkpoints are only used in dev and test. In dev when we want to | |
| ;; manually check the state of checkpoints for locales, and in test | |
| ;; to automatically check supported locales against the target checkpoint. | |
| (spec/def ::checkpoint.id keyword?) | |
| (spec/def ::checkpoint-defs (spec/map-of ::checkpoint.id ::labels)) | |
| ;; We define here the labels for the first specified checkpoint. | |
| (def checkpoint-0-9-12-labels | |
| #{:validation-amount-invalid-number :transaction-details :confirm :description | |
| :phone-national :amount :open :close-app-title :members-active :chat-name | |
| :phew-here-is-your-passphrase :public-group-topic :debug-enabled | |
| :chat-settings :offline :update-status :invited :chat-send-eth :address | |
| :new-public-group-chat :datetime-hour :wallet-settings | |
| :datetime-ago-format :close-app-button :block :camera-access-error | |
| :wallet-invalid-address :address-explication :remove | |
| :transactions-delete-content :transactions-unsigned-empty | |
| :transaction-moved-text :add-members :sign-later-title :sharing-cancel | |
| :yes :dapps :popular-tags :network-settings :twelve-words-in-correct-order | |
| :transaction-moved-title :photos-access-error :hash | |
| :removed-from-chat :done :remove-from-contacts :delete-chat :new-group-chat | |
| :edit-chats :wallet :wallet-exchange :wallet-request :sign-in | |
| :datetime-yesterday :create-new-account :sign-in-to-status :dapp-profile | |
| :sign-later-text :datetime-ago :no-hashtags-discovered-body :contacts | |
| :search-chat :got-it :delete-group-confirmation :public-chats | |
| :not-applicable :move-to-internal-failure-message :active-online | |
| :password :status-seen-by-everyone :edit-group :not-specified | |
| :delete-group :send-request :paste-json :browsing-title | |
| :wallet-add-asset :reorder-groups :transactions-history-empty :discover | |
| :browsing-cancel :faucet-success :intro-status :name :gas-price | |
| :view-transaction-details :wallet-error | |
| :validation-amount-is-too-precise :copy-transaction-hash :unknown-address | |
| :received-invitation :show-qr :edit-network-config :connect | |
| :choose-from-contacts :edit :wallet-address-from-clipboard | |
| :account-generation-message :remove-network :no-messages :passphrase | |
| :recipient :members-title :new-group :suggestions-requests | |
| :connected :rpc-url :settings :remove-from-group :specify-rpc-url | |
| :transactions-sign-all :gas-limit :wallet-browse-photos | |
| :add-new-contact :no-statuses-discovered-body :add-json-file :delete | |
| :search-contacts :chats :transaction-sent :transaction :public-group-status | |
| :leave-chat :transactions-delete :mainnet-text :image-source-make-photo | |
| :chat :start-conversation :topic-format :add-new-network :save | |
| :enter-valid-public-key :faucet-error :all | |
| :confirmations-helper-text :search-for :sharing-copy-to-clipboard | |
| :your-wallets :sync-in-progress :enter-password | |
| :enter-address :switch-users :send-transaction :confirmations | |
| :recover-access :image-source-gallery :sync-synced | |
| :currency :status-pending :delete-contact :connecting-requires-login | |
| :no-hashtags-discovered-title :datetime-day :request-transaction | |
| :wallet-send :mute-notifications :scan-qr :contact-s | |
| :unsigned-transaction-expired :status-sending :gas-used | |
| :transactions-filter-type :next :recent | |
| :open-on-etherscan :share :status :from | |
| :wrong-password :search-chats :transactions-sign-later :in-contacts | |
| :transactions-sign :sharing-share :type-a-message | |
| :usd-currency :existing-networks :node-unavailable :url :shake-your-phone | |
| :add-network :unknown-status-go-error :contacts-group-new-chat :and-you | |
| :wallets :clear-history :wallet-choose-from-contacts | |
| :signing-phrase-description :no-contacts :here-is-your-signing-phrase | |
| :soon :close-app-content :status-sent :status-prompt :testfairy-title | |
| :delete-contact-confirmation :datetime-today :add-a-status | |
| :web-view-error :notifications-title :error :transactions-sign-transaction | |
| :edit-contacts :more :cancel :no-statuses-found :can-not-add-yourself | |
| :transaction-description :add-to-contacts :available | |
| :paste-json-as-text :You :main-wallet :process-json :testnet-text | |
| :transactions :transactions-unsigned :members :intro-message1 | |
| :public-chat-user-count :eth :transactions-history :not-implemented | |
| :new-contact :datetime-second :status-failed :is-typing :recover | |
| :suggestions-commands :nonce :new-network :contact-already-added :datetime-minute | |
| :browsing-open-in-web-browser :delete-group-prompt :wallet-total-value | |
| :wallet-insufficient-funds :edit-profile :active-unknown :testfairy-message | |
| :search-tags :transaction-failed :public-key :error-processing-json | |
| :status-seen :transactions-filter-tokens :status-delivered :profile | |
| :wallet-choose-recipient :no-statuses-discovered :none :removed :empty-topic | |
| :no :transactions-filter-select-all :transactions-filter-title :message | |
| :here-is-your-passphrase :wallet-assets :image-source-title :current-network | |
| :left :edit-network-warning :to :data :cost-fee}) | |
| ;; NOTE: the rest checkpoints are based on the previous one, defined | |
| ;; like this: | |
| ;; (def checkpoint-2-labels (set/union checkpoint-1-labels #{:foo :bar}) | |
| (def checkpoint-0-9-21-labels (set/union checkpoint-0-9-12-labels | |
| #{:disconnected :connection-problem :mailserver-reconnect :fetching-messages | |
| :enter-url :open-dapp :type-a-command :add :on :off | |
| :mailserver-connection-error :status-console :intro-text | |
| :intro-text-description :create-account :already-have-account | |
| :creating-your-account :password-placeholder :password-placeholder2 | |
| :name-placeholder :password_error1 :password-description :name-description | |
| :other-accounts :sign-you-in :help-improve :help-improve? | |
| :help-improve-description :learn-what-we-collect-link :share-usage-data | |
| :dont-want-to-share :confirmation-title :confirmation-text :confirmation-action | |
| :logout-title :logout-are-you-sure :logout :home :no-recent-chats | |
| :welcome-to-status :welcome-to-status-description :network-mismatch | |
| :status-not-sent :message-not-sent :resend-message :delete-message | |
| :view-profile :main-currency :notifications :phone-number | |
| :share-contact-code :contact-code :send-message :dev-mode | |
| :backup-your-seed :your-data-belongs-to-you :your-data-belongs-to-you-description | |
| :ok-continue :your-seed-phrase :your-seed-phrase-description :enter-word | |
| :check-your-seed :wrong-word :are-you-sure? :are-you-sure-description | |
| :you-are-all-set :you-are-all-set-description :ok-got-it | |
| :backup-seed-phrase :step-i-of-n :word-n-description :word-n | |
| :wallet-onboarding-title :wallet-onboarding-description | |
| :wallet-onboarding-set-up :wallet-set-up-title :wallet-set-up-signing-phrase | |
| :wallet-set-up-confirm-title :wallet-set-up-confirm-description | |
| :wallet-backup-seed-title :wallet-backup-seed-description | |
| :browsing-open-in-browser :contacts-syncronized :confirmation-code | |
| :incorrect-code :phone-number-required :phone-e164 :phone-international | |
| :phone-significant :new :new-chat :start-new-chat :start-group-chat | |
| :invite-friends :get-status-at :group-chat :group-info | |
| :delete-chat-confirmation :delete-group-chat-confirmation | |
| :public-chat :topic-name-error :set-a-topic :empty-chat-description | |
| :empty-chat-description-console :empty-chat-description-one-to-one | |
| :counter-99-plus :show-more :show-less :qr-code-public-key-hint | |
| :enter-contact-code :create :delete-confirmation :leave | |
| :leave-confirmation :clear :clear-history-title | |
| :clear-history-confirmation-content :clear-history-confirmation | |
| :clear-history-action :leave-group-action :leave-group-title | |
| :leave-group-confirmation :leave-group-chat-confirmation :leave-group-chat | |
| :leave-group :remove-from-chat :delete-chat-title :leave-public-chat | |
| :specify-name :unable-to-read-this-code :use-valid-contact-code | |
| :sign-in-to-another :enter-12-words :add-existing-account :invalid-phone | |
| :invalid-number :specify-recipient :recipient-code :recent-recipients | |
| :incoming :outgoing :pending :postponed :wallet-send-token :wallet-asset | |
| :wallet-manage-assets :sign-message :signing-message-phrase-description | |
| :receive :request-qr-legend :send-transaction-request | |
| :gwei :currency-display-name-aed :currency-display-name-afn | |
| :currency-display-name-ars :currency-display-name-aud :currency-display-name-bbd | |
| :currency-display-name-bdt :currency-display-name-bgn :currency-display-name-bhd | |
| :currency-display-name-bmd :currency-display-name-bnd :currency-display-name-bob | |
| :currency-display-name-brl :currency-display-name-btn :currency-display-name-bzd | |
| :currency-display-name-cad :currency-display-name-chf :currency-display-name-clp | |
| :currency-display-name-cny :currency-display-name-cop :currency-display-name-crc | |
| :currency-display-name-czk :currency-display-name-dkk :currency-display-name-dop | |
| :currency-display-name-egp :currency-display-name-etb :currency-display-name-eur | |
| :currency-display-name-gbp :currency-display-name-gel :currency-display-name-ghs | |
| :currency-display-name-gmd :currency-display-name-gyd :currency-display-name-hkd | |
| :currency-display-name-hrk :currency-display-name-huf :currency-display-name-idr | |
| :currency-display-name-ils :currency-display-name-inr :currency-display-name-isk | |
| :currency-display-name-jmd :currency-display-name-jpy :currency-display-name-kes | |
| :currency-display-name-krw :currency-display-name-kwd :currency-display-name-kyd | |
| :currency-display-name-kzt :currency-display-name-lak :currency-display-name-lkr | |
| :currency-display-name-lrd :currency-display-name-ltl :currency-display-name-mad | |
| :currency-display-name-mdl :currency-display-name-mkd :currency-display-name-mnt | |
| :currency-display-name-mur :currency-display-name-mwk :currency-display-name-mxn | |
| :currency-display-name-myr :currency-display-name-mzn :currency-display-name-nad | |
| :currency-display-name-ngn :currency-display-name-nio :currency-display-name-nok | |
| :currency-display-name-npr :currency-display-name-nzd :currency-display-name-omr | |
| :currency-display-name-pen :currency-display-name-pgk :currency-display-name-php | |
| :currency-display-name-pkr :currency-display-name-pln :currency-display-name-pyg | |
| :currency-display-name-qar :currency-display-name-ron :currency-display-name-rsd | |
| :currency-display-name-rub :currency-display-name-sar :currency-display-name-sek | |
| :currency-display-name-sgd :currency-display-name-sos :currency-display-name-srd | |
| :currency-display-name-thb :currency-display-name-ttd :currency-display-name-twd | |
| :currency-display-name-tzs :currency-display-name-try :currency-display-name-uah | |
| :currency-display-name-ugx :currency-display-name-uyu :currency-display-name-usd | |
| :currency-display-name-vef :currency-display-name-vnd :currency-display-name-yer | |
| :currency-display-name-zar :amount-placeholder :new-request | |
| :receive-transaction :new-transaction :transaction-history :new-contract | |
| :wallet-invalid-chain-id :changed-asset-warning :changed-amount-warning | |
| :wallet-advanced :wallet-transaction-fee :wallet-transaction-fee-details | |
| :wallet-transaction-total-fee :scan-qr-code :reset-default :add-wnode | |
| :delete-network-title :delete-network-confirmation :existing-wnodes | |
| :add-mailserver :mailserver-details :delete-mailserver-title | |
| :delete-mailserver-are-you-sure :delete-mailserver :mailserver-address | |
| :specify-mailserver-address :network-chain :network :network-details | |
| :offline-messaging :offline-messaging-settings :delete-network-error | |
| :connect-wnode-content :bootnodes :bootnodes-settings :bootnodes-enabled | |
| :bootnode-address :add-bootnode :bootnode-details :specify-bootnode-address | |
| :delete-bootnode-title :delete-bootnode-are-you-sure :delete-bootnode | |
| :mainnet-warning-title :mainnet-warning-text :mainnet-warning-ok-text | |
| :main-networks :test-networks :custom-networks :mainnet-network | |
| :ropsten-network :rinkeby-network :browser :enter-dapp-url | |
| :dapp :selected :selected-dapps :browser-warning}) | |
| ;; NOTE: This defines the scope of each checkpoint. To support a checkpoint, | |
| ;; change the var `checkpoint-to-consider-locale-supported` a few lines | |
| ;; below. | |
| (def checkpoints-def (spec/assert ::checkpoint-defs | |
| {::checkpoint-0-9-12 checkpoint-0-9-12-labels | |
| ::checkpoint-0-9-21 checkpoint-0-9-21-labels})) | |
| (def checkpoints (set (keys checkpoints-def))) | |
| (spec/def ::checkpoint checkpoints) | |
| (def checkpoint-to-consider-locale-supported ::checkpoint-0-9-21) | |
| (defn checkpoint->labels [checkpoint] | |
| (get checkpoints-def checkpoint)) | |
| (defn checkpoint-val-to-compare [c] | |
| (-> c name (string/replace #"^.*\|" "") int)) | |
| (defn >checkpoints [& cs] | |
| (apply > (map checkpoint-val-to-compare cs))) | |
| (defn labels-that-are-not-in-current-checkpoint [] | |
| (set/difference labels (checkpoint->labels checkpoint-to-consider-locale-supported))) | |
| ;; locales | |
| (def locales (set (keys translations-by-locale))) | |
| (spec/def ::locale locales) | |
| (spec/def ::locales (spec/coll-of ::locale :kind set? :into #{})) | |
| ;; NOTE: Add new locale keywords here to indicate support for them. | |
| #_(def supported-locales (spec/assert ::locales #{:fr | |
| :zh | |
| :zh-hans | |
| :zh-hans-cn | |
| :zh-hans-mo | |
| :zh-hant | |
| :zh-hant-sg | |
| :zh-hant-hk | |
| :zh-hant-tw | |
| :zh-hant-mo | |
| :zh-hant-cn | |
| :sr-RS_#Cyrl | |
| :el | |
| :en | |
| :de | |
| :lt | |
| :sr-RS_#Latn | |
| :sr | |
| :sv | |
| :ja | |
| :uk})) | |
| (def supported-locales (spec/assert ::locales #{:en})) | |
| (spec/def ::supported-locale supported-locales) | |
| (spec/def ::supported-locales (spec/coll-of ::supported-locale :kind set? :into #{})) | |
| (defn locale->labels [locale] | |
| (-> translations-by-locale (get locale) keys set)) | |
| (defn locale->checkpoint [locale] | |
| (let [locale-labels (locale->labels locale) | |
| checkpoint (->> checkpoints-def | |
| (filter (fn [[checkpoint checkpoint-labels]] | |
| (set/subset? checkpoint-labels locale-labels))) | |
| ffirst)] | |
| checkpoint)) | |
| (defn locales-with-checkpoint [] | |
| (->> locales | |
| (map (fn [locale] | |
| [locale (locale->checkpoint locale)])) | |
| (into {}))) | |
| (defn locale-is-supported-based-on-translations? [locale] | |
| (let [c (locale->checkpoint locale)] | |
| (and c (or (= c checkpoint-to-consider-locale-supported) | |
| (>checkpoints checkpoint-to-consider-locale-supported c))))) | |
| (defn actual-supported-locales [] | |
| (->> locales | |
| (filter locale-is-supported-based-on-translations?) | |
| set)) | |
| (defn locales-with-full-support [] | |
| (->> locales | |
| (filter (fn [locale] | |
| (set/subset? labels (locale->labels locale)))) | |
| set)) | |
| (defn supported-locales-that-are-not-considered-supported [] | |
| (set/difference (actual-supported-locales) supported-locales)) | |
| (set! (.-translations rn-dependencies/i18n) | |
| (clj->js translations-by-locale)) | |
| ;;:zh, :zh-hans-xx, :zh-hant-xx have been added until this bug will be fixed https://github.com/fnando/i18n-js/issues/460 | |
| (def delimeters | |
| "This function is a hack: mobile Safari doesn't support toLocaleString(), so we need to pass | |
| this map to WKWebView to make number formatting work." | |
| (let [n (.toLocaleString (js/Number 1000.1)) | |
| delimiter? (= (count n) 7)] | |
| (if delimiter? | |
| {:delimiter (subs n 1 2) | |
| :separator (subs n 5 6)} | |
| {:delimiter "" | |
| :separator (subs n 4 5)}))) | |
| (defn label-number [number] | |
| (when number | |
| (let [{:keys [delimiter separator]} delimeters] | |
| (.toNumber rn-dependencies/i18n | |
| (string/replace number #"," ".") | |
| (clj->js {:precision 10 | |
| :strip_insignificant_zeros true | |
| :delimiter delimiter | |
| :separator separator}))))) | |
| (def default-option-value "<no value>") | |
| (defn label-options [options] | |
| ;; i18n ignores nil value, leading to misleading messages | |
| (into {} (for [[k v] options] [k (or v default-option-value)]))) | |
| (defn label | |
| ([path] (label path {})) | |
| ([path options] | |
| (if (exists? rn-dependencies/i18n.t) | |
| (let [options (update options :amount label-number)] | |
| (.t rn-dependencies/i18n (name path) (clj->js (label-options options)))) | |
| (name path)))) | |
| (defn label-pluralize [count path & options] | |
| (if (exists? rn-dependencies/i18n.t) | |
| (.p rn-dependencies/i18n count (name path) (clj->js options)) | |
| (name path))) | |
| (defn message-status-label [status] | |
| (->> status | |
| (name) | |
| (str "t/status-") | |
| (keyword) | |
| (label))) | |
| (def locale | |
| (.-locale rn-dependencies/i18n)) | |
| (defn get-contact-translated [contact-id key fallback] | |
| (let [translation #(get-in default-contacts [(keyword contact-id) key (keyword %)])] | |
| (or (translation locale) | |
| (translation (subs locale 0 2)) | |
| fallback))) | |
| (defn format-currency [value currency-code] | |
| (.addTier2Support goog.i18n.currency) | |
| (def currency-code-to-nfs-map | |
| {"ZAR" (.-NumberFormatSymbols_af goog.i18n) | |
| "ETB" (.-NumberFormatSymbols_am goog.i18n) | |
| "EGP" (.-NumberFormatSymbols_ar goog.i18n) | |
| "DZD" (.-NumberFormatSymbols_ar_DZ goog.i18n) | |
| "AZN" (.-NumberFormatSymbols_az goog.i18n) | |
| "BYN" (.-NumberFormatSymbols_be goog.i18n) | |
| "BGN" (.-NumberFormatSymbols_bg goog.i18n) | |
| "BDT" (.-NumberFormatSymbols_bn goog.i18n) | |
| "EUR" (.-NumberFormatSymbols_br goog.i18n) | |
| "BAM" (.-NumberFormatSymbols_bs goog.i18n) | |
| "USD" (.-NumberFormatSymbols_en goog.i18n) | |
| "CZK" (.-NumberFormatSymbols_cs goog.i18n) | |
| "GBP" (.-NumberFormatSymbols_cy goog.i18n) | |
| "DKK" (.-NumberFormatSymbols_da goog.i18n) | |
| "CHF" (.-NumberFormatSymbols_de_CH goog.i18n) | |
| "AUD" (.-NumberFormatSymbols_en_AU goog.i18n) | |
| "CAD" (.-NumberFormatSymbols_en_CA goog.i18n) | |
| "INR" (.-NumberFormatSymbols_en_IN goog.i18n) | |
| "SGD" (.-NumberFormatSymbols_en_SG goog.i18n) | |
| "MXN" (.-NumberFormatSymbols_es_419 goog.i18n) | |
| "IRR" (.-NumberFormatSymbols_fa goog.i18n) | |
| "PHP" (.-NumberFormatSymbols_fil goog.i18n) | |
| "ILS" (.-NumberFormatSymbols_he goog.i18n) | |
| "HRK" (.-NumberFormatSymbols_hr goog.i18n) | |
| "HUF" (.-NumberFormatSymbols_hu goog.i18n) | |
| "AMD" (.-NumberFormatSymbols_hy goog.i18n) | |
| "IDR" (.-NumberFormatSymbols_id goog.i18n) | |
| "ISK" (.-NumberFormatSymbols_is goog.i18n) | |
| "JPY" (.-NumberFormatSymbols_ja goog.i18n) | |
| "GEL" (.-NumberFormatSymbols_ka goog.i18n) | |
| "KZT" (.-NumberFormatSymbols_kk goog.i18n) | |
| "KHR" (.-NumberFormatSymbols_km goog.i18n) | |
| "KRW" (.-NumberFormatSymbols_ko goog.i18n) | |
| "KGS" (.-NumberFormatSymbols_ky goog.i18n) | |
| "CDF" (.-NumberFormatSymbols_ln goog.i18n) | |
| "LAK" (.-NumberFormatSymbols_lo goog.i18n) | |
| "MKD" (.-NumberFormatSymbols_mk goog.i18n) | |
| "MNT" (.-NumberFormatSymbols_mn goog.i18n) | |
| "MDL" (.-NumberFormatSymbols_mo goog.i18n) | |
| "MYR" (.-NumberFormatSymbols_ms goog.i18n) | |
| "MMK" (.-NumberFormatSymbols_my goog.i18n) | |
| "NOK" (.-NumberFormatSymbols_nb goog.i18n) | |
| "NPR" (.-NumberFormatSymbols_ne goog.i18n) | |
| "PLN" (.-NumberFormatSymbols_pl goog.i18n) | |
| "BRL" (.-NumberFormatSymbols_pt goog.i18n) | |
| "RON" (.-NumberFormatSymbols_ro goog.i18n) | |
| "RUB" (.-NumberFormatSymbols_ru goog.i18n) | |
| "RSD" (.-NumberFormatSymbols_sh goog.i18n) | |
| "LKR" (.-NumberFormatSymbols_si goog.i18n) | |
| "ALL" (.-NumberFormatSymbols_sq goog.i18n) | |
| "SEK" (.-NumberFormatSymbols_sv goog.i18n) | |
| "TZS" (.-NumberFormatSymbols_sw goog.i18n) | |
| "THB" (.-NumberFormatSymbols_th goog.i18n) | |
| "TRY" (.-NumberFormatSymbols_tr goog.i18n) | |
| "UAH" (.-NumberFormatSymbols_uk goog.i18n) | |
| "PKR" (.-NumberFormatSymbols_ur goog.i18n) | |
| "UZS" (.-NumberFormatSymbols_uz goog.i18n) | |
| "VND" (.-NumberFormatSymbols_vi goog.i18n) | |
| "CNY" (.-NumberFormatSymbols_zh goog.i18n) | |
| "HKD" (.-NumberFormatSymbols_zh_HK goog.i18n) | |
| "TWD" (.-NumberFormatSymbols_zh_TW goog.i18n)}) | |
| (def custom-nfs (currency-code-to-nfs-map currency-code)) | |
| (set! (.-NumberFormatSymbols goog.i18n) (if custom-nfs custom-nfs (.-NumberFormatSymbols_en goog.i18n))) | |
| (.format | |
| (new goog.i18n.NumberFormat (.-CURRENCY goog.i18n.NumberFormat.Format) currency-code) | |
| value)) |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment