(defvar buffer->project) ;; associative list of buffer to project
(defvar project->network-process) ;; associative list of project to network-process
(defvar buffer->network-process) ;; associative list of buffer to network-process
(defun connect (buffer & specific-process)
  (if specific-process
    (assoc buffer->network-process buffer specific-process)
    (let ((p (get-project buffer)))
      (when-not (project->network-process)
        (connect-project project))
      (assoc buffer->project p))))