anchor.diff:               (psx
                 (:span :style (create font-weight :bold position :relative)
                        :class (if focussed "parent-active" "parent-inactive")
  +                     :key (unique-id)
                        (rebreak (prop text))
                        (when (and focussed
                                   (eql (prop last-char-pos)
  
positive.code:                                    :left (+ x (lisp *unit-string*))
                                     :key (unique-id)))))
  
         (def-component
             mini-opinion
             (let ((vv (prop opinion votevalue)))
               (psx
                (:div
                 :class "opinion"
                 :style (create position :absolute top (prop top) left (prop left)
                                background :tan)
                 (:b (case vv
                       (-1 "-") (0 "o") (1 "+")))
                 (:flag-display :flag (prop opinion flag))))))
  
         (def-component opinion
             (let ((op (@ (prop opinions) 0)))
               (psx
                (:div
                 :class "opinion"
                 :key (unique-id)
                 :style (create position :absolute
  
negative.code:          get-initial-state
           (lambda () (create viewable false))
           handle-click
           (lambda (e)
             (unless (prop not-viewable)
                         (set-state viewable (not (state viewable)))
                         (chain e (stop-propagation)))))
  
  