    ["M" "S"] :paredit-split-sexp
    ["M" "J"] :paredit-join-sexps
    ["M" "Left"] :paredit-expand-left
-   ["M" "Right"] :paredit-expand-right})
+   ["M" "Right"] :paredit-expand-right
+   ["M" "Up"] :paredit-expand-up})
 
 (def ^:const advanced-alternative-keymap
   {[nil "⌫"] :paredit-backward-delete

   ["C" "Open Bracket"] :paredit-backward-barf-sexp
   ["C" "Close Bracket"] :paredit-forward-barf-sexp
   ["M" "←"] :paredit-expand-left
   ["M" "→"] :paredit-expand-right})

(def ^:const foreign-keymap
  {["M" "["] :paredit-open-square

                          (or (advanced-keymap k)
                              (advanced-alternative-keymap k)
                              (foreign-keymap k))))]
    (when-not (and (.getSelectedText w) (ignore-during-selection cmd))
      (insert-result! w (exec-command! cmd w buffer))
      cmd)))

