     (.setSelectionEnd w (+ (:offset pe) (:length pe)))))
 
 (def ^:const os-x-charmap
-  {"‚" ")" ;;close and round newline
+  {"‚" ")" ;; close and round newline
    "Æ" "\"" ;; meta double quote
    "…" ";"  ;; paredit-commit-dwim
-   "∂" "d"  ;;paredit-forward-kill-word
+   "∂" "d"  ;; paredit-forward-kill-word
    "·" "(" ;; paredit-wrap-round
-   "ß" "s" ;;paredit splice
+   "ß" "s" ;; paredit splice
    "®" "r" ;; raise expr
    "Í" "S" ;; split
-   "Ô" "J" ;;join
+   "Ô" "J" ;; join
    })
 
 (def ^:const default-keymap

(def ^:const special-chars
  #{"(" ")" "[" "]" "{" "}" "\""})

(defn exec-paredit!
  [k w buffer enable-default? enable-advanced?]
  (when-let [cmd (or (and enable-default?

   ["M" "Right"] :paredit-expand-right})

(def ^:const advanced-alternative-keymap
  {[nil "⌫"] :paredit-backward-delete
   [nil "⌦"] :paredit-forward-delete
   ["C" "Open Bracket"] :paredit-backward-barf-sexp
   ["C" "Close Bracket"] :paredit-forward-barf-sexp
   ["M" "←"] :paredit-expand-left
   ["M" "→"] :paredit-expand-right})
