Merge pull request #69 from scicloj/ethan/maybe-style-fixes

Opportunistic style fixes
scicloj · Nov 28, 2021 · 63ce3b2 · 63ce3b2
2 parents d1b6a63 + 8934693
commit 63ce3b2
Showing 1 changed file with 5 additions and 4 deletions.
diff --git a/src/scicloj/notespace/v4/view.clj b/src/scicloj/notespace/v4/view.clj
@@ -30,18 +30,19 @@
      (case part
        :view/source (when (and (not comment?)
                                render-src?)
-                      [:div.bg-light
-                       [:div.container-fluid [:p/code {:code     source}]]])
+                      [:div.bg-light.pt-4.pb-2
+                       [:div.container-fluid [:p/code {:code source}]]])
        :view/state  (if comment?
                       (comment-source->hiccup source)
                       ;; else
-                      (when status
+                      (if status
                         [:div #_{:style {:background "floralwhite"}}
                          [:div.container-fluid
                           (case status
                             :evaluating "evaluating ..."
                             :failed     "failed"
-                            :evaluated  (value->hiccup value))]])))]))
+                            :evaluated  (value->hiccup value))]]
+                        [:div.mb-3])))]))
 
 (defn ->header [{:keys [current-path]
                  :as   details}]