;; Poor developer’s Paredit.

(define (paredit-open-paren)
  (insert "()")
  (backward-char))

(define (paredit-close-paren)
  (unless (search-forward ")")
    (insert ")")))

(set-key "(" 'paredit-open-paren)
(set-key ")" 'paredit-close-paren)