gistfile1.el

(defvar ssh-connection-alist
  '((shortname . "hostname.fqdn.com")
    )
  "Alist of SSH connections.

Format is ((NAME . HOSTSPEC) …)")

(defun ssh-convenience ()
  "Make SSH convenience functions."
  (interactive)
  (mapcar (lambda (conn)
            (let ((name (symbol-name (car conn)))
                  (host (cdr conn)))
              (fset (intern name)
                    `(lambda nil
                       ,(format "Connect to %s SSH preset." name)
                       (interactive)
                       (ssh ,host)))))
          ssh-connection-alist))

(ssh-convenience)