clone/logseq
1
0
Fork 0
mirror of https://github.com/logseq/logseq.git synced 2026-05-02 18:06:32 +00:00
Code Issues Packages Projects Releases Wiki Activity

Make dictionary namespaces bb compatible

Browse Source 
Now that translations are just data no excuse for them not being bb
compatible. Also gets rid of needless sexp parsing
This commit is contained in:
Gabriel Horner
2022-03-28 12:33:28 -04:00
parent 5635469d7a
commit f4839da1e1
9 changed files with 71 additions and 128 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
src/main/frontend/context/i18n.cljs
View File

@@ -1,7 +1,8 @@
(ns frontend.context.i18n
(:require [frontend.dicts :as dicts]
[frontend.modules.shortcut.dict :as shortcut-dict]
[frontend.modules.shortcut.dicts :as shortcut-dicts]
[medley.core :refer [deep-merge]]
[tongue.core :as tongue]
[frontend.state :as state]))
;; TODO
@@ -16,14 +17,17 @@
(defonce translate-dicts (atom {}))
(defn- translate [dicts]
(tongue/build-translate dicts))
(defn t
[& args]
(let [preferred-language (keyword (state/sub :preferred-language))
_ (when (nil? preferred-language)
(state/set-preferred-language! (fetch-local-language)))
dicts (or (get @translate-dicts preferred-language)
(let [result (some-> (deep-merge dicts/dicts shortcut-dict/dicts)
dicts/translate)]
(let [result (some-> (deep-merge dicts/dicts shortcut-dicts/dicts)
translate)]
(swap! translate-dicts assoc preferred-language result)
result))]
(apply (partial dicts preferred-language) args)))