   (when (and (paredit-enabled? (-> this .state deref :prefs-store))
              (.doit command))
     (let [signed-selection (bean (-> this .state deref #^ccw.editors.antlrbased.AntlrBasedClojureEditor (:editor) .getSignedSelection))
-          document-text {:text (.get document) :caret-offset (+ (:offset signed-selection) (:length signed-selection)) :selection-length (:length signed-selection)}
+          _ (println (str "signed-selection:" signed-selection))
+          document-text {:text (.get document) 
+                         :caret-offset (+ (:offset signed-selection) (:length signed-selection)) 
+                         :selection-length (:length signed-selection)}
           par-command {:text (.text command) :offset (.offset command) :length (.length command)}
+          _ (println (str "par-command:" par-command))
           result (call-paredit par-command document-text)]
       (when (and result (not= :ko (-> result :parser-state)))
         (if-let [modif (-?> result :modifs first)]

            (set! (.text command) "")
            (set! (.doit command) false)))
        (set! (.shiftsCaret command) false)
        (set! (.caretOffset command) (:offset result))))))
        (paredit paredit-command
                 {:text (:text document-text)
                  :offset (if (= paredit-command :paredit-backward-delete) (inc (:offset command)) (:offset command))
                  :length 1}))
    (and (par-command? command)
         (one-char-par-command? command)) ; TODO enhance to also handle the replace of a bunch of text
      (paredit (par-command command)
               {:text (:text document-text) 
                :offset (:offset command) 
                :length (:length command)})))

(defn paredit-enabled?
  [#^org.eclipse.jface.preference.IPreferenceStore prefs-store]
