Cuadro de diálogo Clojure para la selección de archivos con filtro para extensiones de archivos

Question

Este es un rastreo continuo para principiantes de labios en Clojure y Java. Tengo este código para seleccionar un archivo, pero me gustaría filtrar las extensiones de los archivos que estoy buscando.

(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)) 
       ""))) 

Su ayuda siempre fue muy apreciada.

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

Necesita set the file filter, lo que puede hacer ampliando la clase FileFilter o utilizando una implementación incorporada como FileNameExtensionFilter. Tenga en cuenta que la FNEF toma argumentos variables en Java, lo que significa que toma una matriz en el bytecode de JVM real. Así que algo así como

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

sería un filtro simple y razonable.

O si prefiere hacer algo más especializado, como solo aceptar extensiones que tienen una J en ellas, puede implementar el filtro usted mismo. Lamentablemente, Java optó por hacer de esta una clase 100% abstracta en lugar de una interfaz, por lo que no puede usar reify. En un mundo ideal se podría escribir

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

pero ama Java clases, así que en vez necesita

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