   (let [browser (browser layer-source viewport)
         margins-box (margins-box layer-source viewport)
         header-line (header-line layer-source viewport)
-        dn-text (dn-text layer-source viewport)
-        stories-text (stories-text layer-source viewport)
-        jobs-text (jobs-text layer-source viewport)
         story-one-a (story-one-a layer-source viewport)
         story-one-b (story-one-b layer-source viewport)
         story-two-a (story-two-a layer-source viewport)

     :end-y (+ (:start-y browser) 50)
     :source layer-source}))

(defn dn-text [layer-source viewport]
  (let [browser (browser layer-source viewport)]
    {:tool :text
     :text "DN"
     :start-x (+ (:start-x browser) 44)
     :end-x (+ (:start-x browser) 44)
     :start-y (+ (:start-y browser) 36)
     :end-y (+ (:start-y browser) 36)
     :props {:layer/font-size 32}
     :source layer-source}))

(defn stories-text [layer-source viewport]
  (let [browser (browser layer-source viewport)]
    {:tool :text
     :text "Stories"
     :start-x (+ (:start-x browser) 100 15)
     :end-x (+ (:start-x browser) 100 15)
     :start-y (+ (:start-y browser) 30)
     :end-y (+ (:start-y browser) 30)
     :props {:layer/font-size 16}
     :source layer-source}))

(defn jobs-text [layer-source viewport]
  (let [browser (browser layer-source viewport)]
    {:tool :text
     :text "Jobs"
     :start-x (+ (:start-x browser) 100 88)
     :end-x (+ (:start-x browser) 100 88)
     :start-y (+ (:start-y browser) 30)
     :end-y (+ (:start-y browser) 30)
     :props {:layer/font-size 16}
     :source layer-source}))

(defn story-one-a [layer-source viewport]
  (let [browser (browser layer-source viewport)]
    {:tool :rect

      (add-shape 40 margins-box)
      (add-mouse-transition 7 margins-box header-line)
      (add-shape 25 header-line)
      (add-mouse-transition 10 header-line story-one-a)
      (add-shape 15 story-one-a)
      (add-mouse-transition 5 story-one-a story-one-b)
      (add-shape 15 story-one-b)
