|
1 | 1 | (ns reval.frepl
|
2 | 2 | (:require
|
3 | 3 | [taoensso.timbre :refer-macros [debugf info warn warnf error]]
|
| 4 | + [clojure.string :refer [blank?]] |
4 | 5 | [reagent.core :as r]
|
5 | 6 | [promesa.core :as p]
|
6 | 7 | [nano-id.core :refer [nano-id]]
|
|
14 | 15 | ; kernel
|
15 | 16 | [reval.kernel.protocol :refer [kernel-eval]]
|
16 | 17 | [reval.kernel.clj-remote] ; side effects
|
17 |
| - [reval.dali.viewer.notebook :refer [segment]])) |
| 18 | + [dali.viewer :refer [viewer2]] |
| 19 | + [dali.viewer.text :refer [text]])) |
| 20 | + |
| 21 | +(defn nil-result? [result] |
| 22 | + (println "result: " result) |
| 23 | + (let [data (:data result) |
| 24 | + [span _opts val] data |
| 25 | + ;nilr (= data [:span {:style {:color "grey"}} nil]) |
| 26 | + is-vector (vector? data) |
| 27 | + is-span (= span :span) |
| 28 | + is-nil (= val "nil") |
| 29 | + nilr (and is-vector is-span is-nil)] |
| 30 | + (println "data: " data "nilr: " nilr "span: " span " val: " val |
| 31 | + "is-span " is-span |
| 32 | + "is-nil " is-nil |
| 33 | + "is-vector " is-vector) |
| 34 | + nilr)) |
| 35 | + |
| 36 | +(defn segment [{:keys [_id err out result] :as segment}] |
| 37 | + ; copied and modified from ; [reval.dali.viewer.notebook :refer [segment]] |
| 38 | + ; reason: frepl should have big view of the resulting data, and in a |
| 39 | + ; notebook the layout is different. |
| 40 | + (println "frepl segment: " segment) |
| 41 | + (cond |
| 42 | + (and result (not (nil-result? result))) |
| 43 | + [:div.mt-1.mb-1.w-full.h-full |
| 44 | + {:style {:max-width "800px" |
| 45 | + :max-height "400px"}} |
| 46 | + [viewer2 result]] |
| 47 | + err |
| 48 | + [:div.mt-1.mb-1.w-full.h-full |
| 49 | + {:style {:max-width "800px" |
| 50 | + :max-height "400px"}} |
| 51 | + [viewer2 err]] |
| 52 | + (not (blank? out)) |
| 53 | + [text {:text out |
| 54 | + :class "bg-blue-200 max-w-full overflow-x-auto h-full w-full"}] |
| 55 | + :else |
| 56 | + [:div "no result/error/console output."])) |
18 | 57 |
|
19 | 58 | ;; codemirror
|
20 | 59 |
|
|
0 commit comments