gistfile1.clj

(defn make-pricelist-view [data-ref]
  (let [price-vector #(@data-ref :price-vector)
	currency-cell-renderer (make-currency-cell-renderer (@data-ref :pricer))
	model (proxy [AbstractTableModel] []
		(getColumnCount [] 6)
		(getColumnName [#^Integer col] (lgstr (*pricelist-columns* col)))
		(getRowCount [] (count (price-vector)))
		(getValueAt [#^Integer row #^Integer col] 
			    (try
			     (let [price ((price-vector) row)]
			       (price (*pricelist-columns* col)))
			     (catch Exception e
			       (println (str "--->" e))))))
	table (JTable. model)
	scroll-pane (JScrollPane. table)]
    (dosync 
     (alter data-ref assoc :table table)
     (alter data-ref assoc :table-model model))
    (doseq [column (map #(-> table .getColumnModel (.getColumn %)) '(3 4 5))]
      (.setCellRenderer #^javax.swing.table.TableColumn column currency-cell-renderer))
    (.setAutoCreateRowSorter table true)
    (-> table .getRowSorter (.setSortKeys (doto (new java.util.ArrayList)
					    (.add (new javax.swing.RowSorter$SortKey 0 javax.swing.SortOrder/ASCENDING)))))
    (doto (#^JPanel combobox (lgstr :pricelist))
      (.add scroll-pane "grow"))))