Penpot/penpot
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-04-01 09:31:26 -05:00
Code Issues 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]