   (append $content (wish-ul wish))
   (append $header  (wishlist-title title))
   (set-path! code))
+
+(defn show-info! []
+  (append $body ($ info-box)))
+
+(defn hide-info! []
+  (remove ($ info-box)))
 
 (defn show-arrow! []
   (append $body (arrow)))

    [:p "Create your wishlist by clicking the icon above. Add wished and url to the page. Save the unique link in your 
          browsers address field to visit and update the wishlist. Share it with your friends so that they can get you all the things
          you wish for!"]]])

; GETTING AND SETTING


          (remove $parent)
          (delete-wish-rem $parent))))))

(delegate $body "#icon-about" :click
  (fn [e]
    (when-not (empty? ($ info-box))
      (show-info!))))

(delegate $body "#info-close" :click
  (fn [e]
    (hide-info!)))

; START IT UP

(defn start-up []
