mirror of
https://github.com/status-im/status-react.git
synced 2025-01-13 04:24:40 +00:00
24 lines
1.2 KiB
Clojure
24 lines
1.2 KiB
Clojure
(ns status-im.log-level.core
|
|
(:require [re-frame.core :as re-frame]
|
|
[status-im.accounts.update.core :as accounts.update]
|
|
[status-im.i18n :as i18n]
|
|
[status-im.utils.fx :as fx]))
|
|
|
|
(fx/defn save-log-level
|
|
[{:keys [db now] :as cofx} log-level]
|
|
(let [settings (get-in db [:account/account :settings])]
|
|
(accounts.update/update-settings cofx
|
|
(if log-level
|
|
(assoc settings :log-level log-level)
|
|
(dissoc settings :log-level))
|
|
{:success-event [:accounts.update.callback/save-settings-success]})))
|
|
|
|
(fx/defn show-change-log-level-confirmation
|
|
[{:keys [db]} {:keys [name value] :as log-level}]
|
|
{:ui/show-confirmation {:title (i18n/label :t/close-app-title)
|
|
:content (i18n/label :t/change-log-level
|
|
{:log-level name})
|
|
:confirm-button-text (i18n/label :t/close-app-button)
|
|
:on-accept #(re-frame/dispatch [:log-level.ui/change-log-level-confirmed value])
|
|
:on-cancel nil}})
|