     (define-key map (kbd "M-}") 'shm/forward-paragraph)
     (define-key map (kbd "M-{") 'shm/backward-paragraph)
     (define-key map (kbd "C-M-SPC") 'shm/mark-node)
+    (define-key map (kbd "C-c C-w") 'shm/goto-where)
     ;; Splitting, slurping, barfing, etc.
     (define-key map (kbd "C-+") 'shm/add-operand)
     (define-key map (kbd "M-r") 'shm/raise)

           (insert newline-string))))
    ;; Otherwise just do the indent.
    (shm-newline-indent)))

;;; Navigation


   ;; Otherwise just glide over the character.
   (t
    (when (looking-back close)
      (forward-char -1)))))

(defun shm-delimiter-empty (open close)
  "Is the current expression delimited by OPEN and CLOSE empty?"
