[slime-devel] slime-toggle-connection

[Knut Olav Bøhmer]

Hi,

I find this function very useful, so I suggest that it be included.

(defun slime-toggle-connection ()
  "Change current slime connection, and make it buffer local"
  (interactive)
  (setf  slime-net-processes (rotate-list slime-net-processes))
  (let ((p (car slime-net-processes)))
    (make-local-variable 'slime-default-connection)  ;; To have
different files with different lisps
    (slime-select-connection p)
    (slime-set-state (format "(%s)" (slime-connection-name p)) p)
    (message "Lisp: %s, buffer: %s" (process-contact p)
(slime-connection-name p))))

And, I have bound these keys:
(define-key slime-mode-map [f12] 'slime-toggle-connection)
(define-key slime-mode-map [f11] 'slime-goto-current-connection)


-- 
Free Software Consultant
Cell: +47 - 47 34 40 08
Phone: +47 - 21 53 69 00, Fax: +47 - 21 53 69 09
Addr: Slemdalsveien 70, PB 1 Vinderen, 0319 Oslo
<http://www.freecode.no/>

-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://mailman.common-lisp.net/pipermail/slime-devel/attachments/20080319/4564b99e/attachment.html>
-------------- next part --------------
A non-text attachment was scrubbed...
Name: logo_horizontal.png
Type: image/png
Size: 7619 bytes
Desc: not available
URL: <https://mailman.common-lisp.net/pipermail/slime-devel/attachments/20080319/4564b99e/attachment.png>