 
     ;; add some opacity to the tooltip when related links are underneath it
     (when (related-links-underneath-tooltip?)
-      (.fadeTo $tooltip-el 150 0.75))))
+      (.fadeTo $tooltip-el 150 0.5))))
 
 (defn- mouseleave-related-link [js-evt]
   (let [link-el (aget js-evt "currentTarget")

         (<= py (:y2 box)))))

(defn- related-links-underneath-tooltip? []
  (let [tooltip-box (get-tooltip-box)
        any-underneath-tooltip? (atom false)
        $related-links ($ related-highlight-sel)]
    (.each $related-links (fn [idx el]
      (let [$el ($ el)
            link-offset (.offset $el)
            link-point {:x (aget link-offset "left")
                        :y (aget link-offset "top")}
            link-underneath? (point-inside-box? link-point tooltip-box)]
        (when link-underneath?
          (reset! any-underneath-tooltip? true)))))
    (deref any-underneath-tooltip?)))


;; Highlight Related Links
;;------------------------------------------------------------------------------

;; NOTE: surely there must be a jquery or google closure function that does
;; this already?
(defn- get-element-box [el]
  (let [$el ($ el)
        o (.offset $el)
        x (aget o "left")
        y (aget o "top")
        height (.outerHeight $el)
        width (.outerWidth $el)]
    {:x1 x
     :x2 (+ x width)
     :y1 y
