     ; anything else
     :else nil))
 
-(defn install-completion
-  [text-area provider]
-  (doto (AutoCompletion. provider)
-    (.setShowDescWindow true)
-    (.setAutoCompleteSingleChoices false)
-    (.setChoicesWindowSize 150 300)
-    (.setDescriptionWindowSize 300 300)
-    (.install text-area)))
+(defn get-completer
+  [text-area extension]
+  (when-let [provider (get-completion-provider extension)]
+    (doto (AutoCompletion. provider)
+      (.setShowDescWindow true)
+      (.setAutoCompleteSingleChoices false)
+      (.setChoicesWindowSize 150 300)
+      (.setDescriptionWindowSize 300 300)
+      (.install text-area))))
 
 (defn create-editor
   [path extension]

                              (s/button :id :doc-button
                                        :text (utils/get-string :doc)
                                        :focusable? false
                                        :visible? (not (nil? completion))
                                        :listen [:action run-completion])
                              (s/toggle :id :paredit-button
                                        :text (utils/get-string :paredit)
                                        :focusable? false

                                    :redo-button redo-file
                                    :font-dec-button decrease-font-size
                                    :font-inc-button increase-font-size
                                    :doc-button do-completion-fn
                                    :paredit-button toggle-paredit
                                    :find-field focus-on-find
                                    :replace-field focus-on-replace})
