     (define-key map (kbd "M-(") 'shm/wrap-parens)
     (define-key map (kbd "[") 'shm/open-bracket)
     (define-key map (kbd "{") 'shm/open-brace)
+    (define-key map (kbd "-") 'shm/hyphen)
+    (define-key map (kbd "#") 'shm/hash)
     (define-key map (kbd ",") 'shm/comma)
     (define-key map (kbd ":") 'shm/:)
     (define-key map (kbd "SPC") 'shm/space)

        (shm-insert-string ":: ")))
     (t
      (shm-insert-string ":")))))

(defun shm/open-paren ()
  "Delimit parentheses."

        (shm-adjust-dependents
         (point)
         (+
          (if (not (or (looking-back "[ ,[({]")
                       (bolp)))
              (progn (insert " ") 1)
            0)
          (length open)
