           (.attr "opacity" (fn [node]
                              (project-label-opacity (distance-for-node node))))
           (.attr "font-weight" (fn [node]
-                                 (if (= node selected-node) "bold" "normal")))
+                                 (if (identical? node selected-node) "bold" "normal")))
           (.text #(:title %))))
     (.classed detail-button "invisible" (or (nil? selected-node)
                                             (= projection :zoom-out)))

          (.attr "class" "link")
          (.style "stroke" link-color)
          (.style "stroke-width" 3))
      (-> link-selection
          maybe-transition
          (.attr "x1" #(-> % :source positions v/x))


(def background-color "#EDF0F2")
(def link-color "#C9CBCB")
(def selected-link-color "#a7b6c2")
(def node-color "#777A7A")
(def node-label-color node-color)
(def selected-node-color "#FE9F51")
