gered/toascii
Archived
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

refactor the piped-input-stream -> java.io.Writer stuff

Browse source
This commit is contained in:
Gered 2014-04-06 09:45:09 -04:00
parent 59a829b9ef
commit 502ceade97
2 changed files with 25 additions and 21 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

29
src/toascii/models/image.clj
View file

@ -3,9 +3,8 @@
(javax.imageio.stream ImageInputStream) (javax.imageio.stream ImageInputStream)
(java.io Writer)) (java.io Writer))
(:require [clojure.java.io :as io] (:require [clojure.java.io :as io]
[ring.util.io :refer [piped-input-stream]]
[clj-image2ascii.core :as i2a] [clj-image2ascii.core :as i2a]
[toascii.util :refer [query-param-url->java-url]])) [toascii.util :refer [query-param-url->java-url stream-response]]))
(def js-gif-animation (slurp (io/resource "gif-animation.js"))) (def js-gif-animation (slurp (io/resource "gif-animation.js")))
@ -26,21 +25,17 @@
(str "<pre style=\"" ascii-pre-css "\">" ascii "</pre>") (str "<pre style=\"" ascii-pre-css "\">" ascii "</pre>")
ascii))) ascii)))
(defn- write-out [^Writer w s]
(.write w (str s)))
(defn gif->ascii [^ImageInputStream image-stream scale-to-width color?] (defn gif->ascii [^ImageInputStream image-stream scale-to-width color?]
(piped-input-stream (stream-response
(fn [output-stream] (fn [^Writer w]
(with-open [^Writer w (io/writer output-stream :append true)] (.write w "<div class=\"animated-gif-frames\">")
(write-out w "<div class=\"animated-gif-frames\">")
(i2a/stream-animated-gif-frames! (i2a/stream-animated-gif-frames!
image-stream scale-to-width color? image-stream scale-to-width color?
(fn [{:keys [image delay]}] (fn [{:keys [^String image delay]}]
(write-out w (str "<pre style=\"" ascii-pre-css " display: none;\" data-delay=\"" delay "\">")) (.write w (str "<pre style=\"" ascii-pre-css " display: none;\" data-delay=\"" delay "\">"))
(write-out w image) (.write w image)
(write-out w "</pre>"))) (.write w "</pre>")))
(write-out w "</div>") (.write w "</div>")
(write-out w "<script type=\"text/javascript\">") (.write w "<script type=\"text/javascript\">")
(write-out w js-gif-animation) (.write w js-gif-animation)
(write-out w "</script>"))))) (.write w "</script>"))))

11
src/toascii/util.clj
View file

@ -1,7 +1,10 @@
(ns toascii.util (ns toascii.util
(:import (java.net URL)) (:import (java.net URL)
(java.io Writer))
(:require [clojure.string :as str] (:require [clojure.string :as str]
[clojure.java.io :as io]
[clojure.stacktrace :refer [print-stack-trace]] [clojure.stacktrace :refer [print-stack-trace]]
[ring.util.io :refer [piped-input-stream]]
[cemerick.url :as url])) [cemerick.url :as url]))
(defn get-filename-without-ext [^String filename] (defn get-filename-without-ext [^String filename]
@ -77,3 +80,9 @@
0 false 0 false
nil false nil false
true))) true)))
(defn stream-response [f]
(piped-input-stream
(fn [output-stream]
(with-open [^Writer w (io/writer output-stream)]
(f w)))))