       (when node-pair
         (shm-set-node-overlay node-pair direction)))))
 
-
-
-
 (defun shm/reparse ()
   "Re-parse the current node.
 

  yank (i.e. with M-y), you need to be able to erase the previous
  yank. This is simply a region.")




;; Internal mode functions


;; Requirements

(defun shm-present-type-info (node info)
  "Present type info to the user."
  (let ((info. (concat (shm-kill-node 'buffer-substring-no-properties node nil t)
