 (ns gui.main
   (require [seesaw.core :refer :all]
            [seesaw.rsyntax :as syntax]
-           [seesaw.dev :refer (show-options)]
-           [seesaw.util :refer (to-mnemonic-keycode)])
+           [seesaw.dev :refer (show-options)])
   (import [java.io File]))
 
 ; general stuff


(def options-menu (menu
                    :text "Options"
                    :items [(action :name "Select Font")
                            (action :name "Settings")
                            (action :name "Include Path")]))

(def help-menu (menu
                 :text "Help"
                 :items [(action :name "Help Contents")
                         (separator)
                         (action :name "About")]))


                            (action 
                              :name "Save" 
                              :key "ctrl S" 
                              :mnemonic "S"
                              :icon (icon-path "save.gif")
                              :handler (fn [_] (println "Saving")))
                            (action 
                              :name "Save All"
                              :key "ctrl shift S"
                              :mnemonic "A"
                              :icon (icon-path "saveall.gif")
                              :handler (fn [_] (println "Saving All"))
                              )
