def observed_from

near-v-framework@0.4.0.0 · domain/architecture/system/deployment/nix_darwin/setting/effects.bend:254

import Base
import near-v-framework@0.4.0.0/domain/architecture/system/effs/io.bend as X
import near-v-framework@0.4.0.0/domain/architecture/system/deployment/nix_darwin/setting/type.bend as St

254# ---- all of it ----
255# The Mac's values for the options `xs` (their values are ignored) and everything nix-darwin sets outside
256# system.defaults.
257def observed_from(+xs: List<&2, St.Setting>, +labels: List<&2, String>) -> IO(List<&2, St.Setting>):
258  do IO<List<&2, St.Setting>>:
259    prefs : List<&2, St.Setting> <- defaults_now(xs)
260    pw : List<&2, St.Setting> <- power()
261    nm : List<&2, St.Setting> <- names()
262    +h : String <- X.home()
263    apps : List<&2, St.Setting> <- dock_list(h ++ "/Library/Preferences/com.apple.dock.plist", "persistent-apps")
264    others : List<&2, St.Setting> <- dock_list(h ++ "/Library/Preferences/com.apple.dock.plist", "persistent-others")
265    net : List<&2, St.Setting> <- network()
266    btn : List<&2, St.Setting> <- power_button()
267    sec : List<&2, St.Setting> <- security()
268    kb : List<&2, St.Setting> <- keyboard()
269    sys : List<&2, St.Setting> <- system()
270    us : List<&2, St.Setting> <- users()
271    ld : List<&2, St.Setting> <- launch(labels)
272    return List.concat(&2, St.Setting, [prefs, pw, nm, apps, others, net, btn, sec, kb, sys, us, ld])