Finestra di dialogo Clojure per selezione file con filtro per estensioni file

Question

Questo è un crawling continuo per un principiante di lipster su Clojure e Java. Ho questo codice per selezionare un file, ma vorrei filtrare le estensioni dei file che sto cercando.

(import javax.swing.JFileChooser) 
(defn tlt-get-file [ ] 
     (let [ filechooser (JFileChooser. "C:/") 
       retval (.showOpenDialog filechooser nil) ] 
      (if (= retval JFileChooser/APPROVE_OPTION) 
      (do 
       (println (.getSelectedFile filechooser)) 
       (.getSelectedFile filechooser)) 
       ""))) 

Il vostro aiuto è sempre stato molto apprezzato.

Answer 1

(import '(javax.swing JFileChooser) 
     '(javax.swing.filechooser FileNameExtensionFilter)) 
(defn tlt-get-file [ ] 
     (let [ extFilter (FileNameExtensionFilter. "Text File" (into-array ["txt"])) 
       filechooser (JFileChooser. "C:/") 
       dummy (.setFileFilter filechooser extFilter) 
       retval (.showOpenDialog filechooser nil) ] 
      (if (= retval JFileChooser/APPROVE_OPTION) 
      (do 
       (println (.getSelectedFile filechooser)) 
       (.getSelectedFile filechooser)) 
       ""))) 

Answer 2

È necessario set the file filter, che è possibile eseguire estendendo la classe FileFilter o utilizzando un'implementazione incorporata come FileNameExtensionFilter. Si noti che FNEF accetta argomenti variabili in Java, il che significa che richiede un array in un bytecode JVM effettivo. Quindi qualcosa come

(FileNameExtensionFilter. 
"Text files only" 
(into-array ["txt"])) 

sarebbe un filtro semplice e ragionevole.

O se preferisci fare qualcosa di più specializzato, come accettare solo estensioni che contengono J, puoi implementare il filtro da solo. Purtroppo, Java ha scelto di rendere questa una classe astratta al 100% anziché un'interfaccia, quindi non è possibile utilizzare reify. In un mondo ideale si potrebbe scrivere

(reify java.io.FileFilter 
    (getDescription [this] "Java loves Js!") 
    (accept [this f] 
    (boolean (re-find #"\..*j[^.]*$" (.getName f))))) 

ma Java ama le classi, così invece è necessario

(proxy [java.io.FileFilter] [] 
    (getDescription [] "Java loves Js!") 
    (accept [f] 
    (boolean (re-find #"\..*j[^.]*$" (.getName f)))))