Autoconnect emacs to swank server

swank-autoconnect.el

(defvar swank-autoconnect-port 4005)
(defvar swank-autoconnect-timer nil)

(defun swank--listeningp ()
  (ignore-errors
    (let ((p (open-network-stream "SLIME Lisp Connection Test" nil "localhost" swank-autoconnect-port)))
      (when p
        (delete-process p)
        t))))

(defun swank--autoconnect (&rest args)
  (if (and (not (slime-connected-p)) (swank--listeningp))
    (ignore-errors
      (slime-connect "localhost" swank-autoconnect-port))))

(defun swank-autoconnect-start-timer ()
  (interactive)
  (unless swank-autoconnect-timer
    (setq swank-autoconnect-timer (run-at-time 1 1 'swank--autoconnect))))

(defun swank-autoconnect-stop-timer ()
  (interactive)
  (when swank-autoconnect-timer
    (cancel-timer swank-autoconnect-timer)
    (setq swank-autoconnect-timer nil)))

;;; start timer by default                                                                                                                                  
(swank-autoconnect-start-timer)