penny-backsplash

penny-backsplash.clj

; Pseudocode for the procedure I used to create a backsplash 
; composed of pennies for the kitchen

(ns com.quephird.penny-backsplash
  (:gen-class)
  )

(def oak-moulding
  {:product-desc "http://www.lowes.com/pd_35579-1487-105_0__?productId=3041880"
   :purpose "To cover up gaps between the countertop and the walls"}
  )

(def black-paint
  {:product-desc "http://www.lowes.com/pd_58746-86-72015A/01_4294729373__?productId=1093521"
   :purpose "To give moulding color that matches countertops"}
  )

(def polyurethane
  {:product-desc "http://www.lowes.com/pd_45870-24-23005000_4294729418__?productId=3033784"
   :purpose "To make moulding water resistant"}
  )

(def penny
  {:product-desc "http://www.usmint.gov/mint_programs/circulatingCoins/?action=CircPenny"
   :purpose "Item used to cover backsplash"}
  )

(def linoleum-floor-tiles
  {:product-desc "http://www.lowes.com/pd_258040-79508-11235_?productId=3028893"
   :purpose "Surface to affix pennies to"}
  )

(def all-purpose-adhesive
  {:product-desc "http://www.lowes.com/pd_185445-69-1446544_0__?productId=3307638"
   :purpose "Material used to affix the linoleum tiles to the wall"}
  )

(def spray-acrylic
  {:product-desc "http://www.lowes.com/pd_164668-24-35555000_0__?productId=3098365"
   :purpose "Material used to permanently seal pennies onto tiles and give sheen"}
  )

(defn curse-previous-contractors []
  (println "YOU CALL THIS CRAFTSMANSHIP???!!!")
  )

(defn recover []
  (Thread/sleep (* 2 7 24 60 60 1000))
  )

(defn -main [& args]
  (fill-gaps-between-countertop-and-walls)
  (curse-previous-contractors)
  (case-kitchen-window)
  (curse-previous-contractors)
  (make-backsplash)
  (seal-backsplash)
  (recover)
  )