 ;; <=
 
 ;; @@
-(m/defsegment diff-view
+
+(m/defsegment diff-segment
               {:preamble ["react.js"]
                :optimizations :advanced
                :pretty-print false


;; **
;;; # Gorilla visualisations for error codes.
;;; 
;;; Inline views for error codes are a huge help when correcting pages and viewing the changes made by correction algorithms.
;; **


              [om.core :as om :include-macros true]
              [error-codes.visualizer :as v]))
  (enable-console-print!)
  (def error-css
  "
  body {
  padding-top: 60px;
  padding-bottom: 40px;
  }
  .wrap {
  width:1000px;
  margin:0 auto;
  }
  .left {
  float:left;
  width:500px;
  }
  .right{
  float:right;
  width:500px;
  }
  .summary-div{
  width:1000px;
  display:block;
  }
  .boxed {
   border:solid black 1px;
  }
  table{
  border-collapse:collapse;
  border:1px solid black;
  }
  table-div{
  width:1000px;
  }
  table td{
  border:1px solid black;
  }
  ")
  (let [css (.createElement js/document "style")]
       (aset css "type" "text/css")
       (aset css "innerHTML" error-css)
       (.appendChild (.item (.getElementsByTagName js/document "head") 0) css))
  (defn main []
    (marmoset.client/autoheight)
    (om/root v/page-view
