blob: f229b1ac6cb2299435525e1a7cc5921b14dae99c (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
|
(ns highlight
(:require [clojure.java.shell :as shell]
[borkdude.html :refer [html]]
[zprint.core :as zp]
[clojure.string :refer [join]]))
(defn highlight [lang src]
(let [result (shell/sh "pygmentize" "-l" lang "-f" "html" :in src)]
(:out result)))
(defn code [style v]
(html
(let [s style]
[:div
{:class s}
v])))
(defmacro highlight-clj [& body]
(let [out (atom [])
_res ;; return value of final form; currently unused
(let [prev-ns *ns*
t #(swap! out conj %)]
(ns example)
(add-tap (bound-fn* t))
(let [res
(last (map eval body))]
(remove-tap (bound-fn* t))
(in-ns (ns-name prev-ns))
res))
code
(join "\n\n" (map zp/zprint-str body))
tap-out (join "\n" (map zp/zprint-str @out {:style :backtranslate}))
joined (apply str
(concat code))]
`(html
[:div
{:style {:border-left "5px solid #ddd"}}
[:div {:class "code"}
[:$
(highlight "clojure"
~joined)]]
[:p {:style {:padding-left "6px"}} "tap contents:"]
[:div {:class "output"}
[:$
(highlight "clojure"
~tap-out)]]])))
(defn highlight-styles [k style]
(let [result (shell/sh "pygmentize" "-S" style "-f" "html" "-a" (str "." (name k)))]
(:out result)))
|
