Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ;; Clojure 用に slime-cursor-marker を設定しちゃいます、同時に、
- ;; CL 用 (sbcl) に swank::+cursor-marker+ を上書きしちゃいます。
- (setq slime-lisp-implementations
- `((sbcl ("sbcl") :init-function my-swank-cl-init)
- (clojure ,(swank-clojure-cmd) :init swank-clojure-init)))
- (eval-after-load 'slime-autodoc
- '(progn
- (setq slime-cursor-marker :swank/+cursor+)))
- (eval-after-load 'slime
- '(progn
- (defun my-swank-cl-init ()
- ;; たまに上書きされちゃう >_<
- (slime-eval-async
- `(swank:interactive-eval
- ,(format "(defparameter +cursor-marker+ %s)" slime-cursor-marker))
- 'identity
- "SWANK"))))
Add Comment
Please, Sign In to add comment