 (defn has-socials? [person]
   (not (zero? (count (person/socials person)))))
 
-(defn has-icon? [social]
-  (if (str/contains? social "|") 0 1))
-
 (defn sort-social-icons-first [socials]
-  (sort #(compare (has-icon? %) (has-icon? %2)) socials))
+  (let [has-icon? #(str/contains? % "|")
+        priority #(if (has-icon? %) 0 1)]
+    (sort #(compare (priority %) (priority %2)) socials)))
 
 (defcomponent social-section-item-component [data _ _]
   (render [_]

          email (if need-placeholder? person/email-placeholder (person/email person))
          contact-gizmo {:descriptor contact-gizmo-descriptor
                         :state      gizmo
                         :content    {:person person}}]
      (dom/div {:class (str "extended-info-section contact clearfix" (if need-placeholder? " has-placeholder"))}
        (if editing?
          (om/build gizmo-component contact-gizmo))

          about (if need-placeholder? person/about-placeholder (person/about person))
          about-gizmo {:descriptor about-gizmo-descriptor
                       :state      gizmo
                       :data       {:person person}}]
      (dom/div {:class (str "extended-info-section about clearfix" (if need-placeholder? " has-placeholder"))}
        (if editing?
          (om/build gizmo-component about-gizmo))
