        :text-area text-area
        :completer completer
        :close-fn! #(when (.isDirty text-area)
-                     (save-file! nil))
+                     (save-file!))
        :italicize-fn #(.isDirty text-area)
        :should-remove-fn #(not (.exists (io/file path)))
        :toggle-paredit-fn! (init-paredit! text-area is-clojure? is-clojure?)})))

        .selectAll))))

(defn focus-on-find!
  [_]
  (focus-on-field! :#find))

(defn focus-on-replace!
  [_]
  (focus-on-field! :#replace))

(defn find-text!

  true)

(defn undo-file!
  [& _]
  (when-let [text-area (get-selected-text-area)]
    (.undoLastAction text-area)
    (update-buttons! (get-selected-editor) text-area)))

(defn redo-file!
  [& _]
  (when-let [text-area (get-selected-text-area)]
    (.redoLastAction text-area)
    (update-buttons! (get-selected-editor) text-area)))
