Hugo in Seeesaw

main_view.clj

(ns hugo.views.main-view
  (:use hugo.db.sqlite)
  (:use [seesaw core color]))

(defn create-home-view [data]
  (show! 
    (frame 
      :title    "@rippinrobr's Hugo Best Novel Database" 
      :on-close :exit
      :size     [500 :by 600]
      :content
        (border-panel
          :north  (label 
                    :text "The HUGO - Best Novel Nominees and Winners" 
                    :opaque? true
                    :foreground java.awt.Color/WHITE
                    :background (color 145 220 71)
                    :font "Helvetical-BOLD-16")
          :center (scrollable (listbox :model data))
          :south  (button
                    :text "Close"
                    :foreground java.awt.Color/WHITE
                    :background (color 144 180 254)
                    :font "Helvetical-BOLD-14"
                    :listen [:action-performed #(dispose! %)])))))