github/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2026-04-28 12:48:31 +00:00
Code Issues Packages Projects Releases Wiki Activity

Add some helpers for read files as text.

Browse Source
This commit is contained in:
Andrey Antukh 2016-10-19 17:39:27 +02:00
parent 5db6825612
commit a0e261403b
1 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
src/uxbox/util/dom/files.cljs
View File

@ -9,7 +9,16 @@
(:require [beicon.core :as rx]
[cuerdas.core :as str]))
(defn- read-as-dataurl
(defn read-as-text
[file]
(rx/create
(fn [sink]
(let [fr (js/FileReader.)]
(aset fr "onload" #(sink (rx/end (.-result fr))))
(.readAsText fr file)
(constantly nil)))))
(defn read-as-dataurl
[file]
(rx/create
(fn [sick]