anchor.diff:    (ps
   
       (setf tool-tip (@ (require "react-portal-tooltip") default))
  -    ;;(setf tool-tip (@ -tool-tip-module -tool-tip))
   
       (defun focus-p (props?)
         (let ((tad (@ props? tree-address))
  
positive.code:                                         'hilited-text-id
                                          (strcat "hilited-text-" id))))))))
  
      (defun %make-opin-popups (opinions props)
        (loop for op in opinions
           for (x y) in (opinion-fan (length opinions))
           collect
             (psx (:mini-opinion :... props
                                 :opinion (@ op 0)
                                 :opinions (chain op (slice 1))
                                 :top (+ y (lisp *unit-string*))
                                 :left (+ x (lisp *unit-string*))
                                 :key (unique-id)))))
  
      (defun %get-replies-count (opinions props)
        (let ((total 0))
          (dolist (op opinions)
  
negative.code:                           :styling-data
                            (format-reference-styling-data reference))))))))))
  
      (defun %get-excerptless-opinions (opins)
        (collecting
            (dolist (o opins)
  