refactor(fs): rewrite nfs implementation

- avoid op before granted, using await-permission-granted
This commit is contained in:
Andelf
2023-03-14 02:11:04 +08:00
parent 1b3c22a735
commit b255ca030a
7 changed files with 302 additions and 174 deletions

View File

@@ -2076,6 +2076,10 @@ Similar to re-frame subscriptions"
[]
(:pdf/current @state))
(defn nfs-user-granted?
[repo]
(get-in @state [:nfs/user-granted? repo]))
(defn set-current-pdf!
[inflated-file]
(let [settle-file! #(set-state! :pdf/current inflated-file)]