Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- in ~/.sbclrc pe server
- (require 'asdf)
- (asdf:oos 'asdf:load-op 'swank)
- (setf swank:*use-dedicated-output-stream* nil)
- (setf swank:*communication-style* :fd-handler)
- (swank:create-server :dont-close t)
- in ~/.emacs pe server
- (add-to-list 'load-path "/usr/share/common-lisp/source/slime/")
- (setq inferior-lisp-program "/usr/bin/sbcl")
- (require 'slime)
- (slime-setup)
- (setq slime-net-coding-system 'utf-8-unix)
- ;(slime-connect "127.0.0.1" 4005)
- ;;;;;; asta este in .emacs-ul de pe client, nu stiu cat de aici este necesar si pentru ce
- ;;;;;; tramp sigur trebuie
- ;(setq inferior-lisp-program "D:/kit/programare/lisp/lispbox-0.7/clisp-2.37/clisp.exe")
- ;plink -L 4005:localhost:4005 <sesiunea ssh> ubuntu -pw <parola>
- (add-to-list 'load-path "D:/kit/programare/lisp/slime/slime-2009-01-26/")
- (setq slime-net-coding-system 'utf-8-unix)
- (require 'slime)
- (require 'tramp)
- (setq tramp-default-method "plink")
- (setq shell-prompt-pattern "^.*\\$ ")
- (setq tramp-password-end-of-line "xx")
- (add-hook 'lisp-mode-hook (lambda () (slime-mode t)))
- (add-hook 'inferior-lisp-mode-hook (lambda () (inferior-slime-mode t)))
- (setq lisp-indent-function 'common-lisp-indent-function
- slime-complete-symbol-function 'slime-fuzzy-complete-symbol)
- (slime-setup)
- (defvar *my-box-tramp-path*
- "/plink:razvan@172.16.245.144:")
- (defvar *current-tramp-path* nil)
- (defun connect-to-host (path)
- (setq *current-tramp-path* path)
- (setq slime-translate-from-lisp-filename-function
- (lambda (f)
- (concat *current-tramp-path* f)))
- (setq slime-translate-to-lisp-filename-function
- (lambda (f)
- (substring f (length *current-tramp-path*))))
- (slime-connect "localhost" 4005))
- (defun my-box-slime ()
- (interactive)
- (connect-to-host *my-box-tramp-path*))
- (defun my-box-homedir ()
- (interactive)
- (find-file (concat *zarniwoop-tramp-path* "/home/me/")))
- dupa ce se fac toate magariile astea se deschide emacs si se da M-x slime-connect, se accepta 127.0.0.1 si portul 4005 (daca nu cumva a fost modificat in .sbclrc) ; posibil sa trebuiasca dat de 2 ori enter? Apoi emacs va evalua cu C-M-x expresia curenta din bufferul curent
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement