   "Returns file extension of given file."
   [^File file]
   (let [name (.getName file),
-	idx  (.lastIndexOf name ".")]
+        idx  (.lastIndexOf name ".")]
     (if-not (= -1 idx)
       (.toLowerCase (.substring name (+ 1 idx)))
       nil)))

  "Combined ideal and filter move mode."
  []
  (let [ideal (ideal-move-mode),
	filter (filter-move-mode)]
    (fn [node dx dy]
      (ideal node dx dy)
      (filter node dx dy))))

        conexp.contrib.draw.buttons)
  (:use [clojure.contrib.swing-utils :only (do-swing, add-action-listener)])
  (:import [javax.swing JFrame JPanel JButton JTextField JLabel
                        JSeparator SwingConstants BoxLayout Box
                        JScrollBar JComboBox JScrollPane JFileChooser]
           [javax.swing.filechooser FileNameExtensionFilter]
           [java.awt Canvas Color Dimension BorderLayout GridLayout Component Graphics]
           [java.awt.event ActionEvent ActionListener]
           [java.io File]))

(ns-doc
 "This namespace provides a lattice editor and a convenience function
