Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

improvement on clj-jack-in

  • Loading branch information...
commit 80057b3ab9c089a84a9f960aa2bb161699fc991a 1 parent 6a77c51
@kototama authored
Showing with 9 additions and 13 deletions.
  1. +8 −13 elisp/lisp.el
  2. +1 −0  init.el
View
21 elisp/lisp.el
@@ -8,7 +8,6 @@
;; SLIME Options
(slime-setup '(slime-fancy slime-asdf slime-c-p-c anything-slime))
-(setq slime-protocol-version 'ignore)
(setq slime-net-coding-system 'utf-8-unix)
;; By default inputs and results have the same color
(custom-set-faces
@@ -148,6 +147,10 @@
(when (slime-current-connection)
(slime-compile-and-load-file))))))
+(defadvice slime-connect
+ (before ignore-protocol activate compile)
+ (setq slime-protocol-version 'ignore))
+
(defadvice slime-compilation-finished
(after kill-buffer-if-necessary activate compile)
(kill-compilation-buffer-when-no-errors))
@@ -171,17 +174,9 @@
(interactive)
(split-window-right)
(other-window 1)
- (let (buffer (multi-term))
+ (let ((buffer (multi-term)))
(switch-to-buffer buffer)
- ;; (let ((proc (get-buffer-process (current-buffer))))
- ;; (while (not proc)
- ;; (setq proc (get-buffer-process (current-buffer)))))
(term-send-raw-string "lein swank\n")
- (other-window -1)
- (goto-char (point-max))
- (previous-line 1)
- (beginning-of-line)
- (message "looking at:%s "(looking-at "Connection opened"))
- ;; (message "Swank is started. Connecting...")
- )
- )
+ (run-at-time "10 sec" nil
+ (lambda ()
+ (slime-connect "localhost" 4005)))))
View
1  init.el
@@ -56,6 +56,7 @@
(autoload 'mark-more-like-this "mark-more-like-this" "mark-more-like-this" t)
(autoload 'igrep "igrep" "a better grep" t)
(autoload 'multi-term "multi-term" "multiple terms" t)
+(autoload 'term-send-raw-string "multi-term" "multiple terms" t)
(setq uniquify-buffer-name-style 'forward)
Please sign in to comment.
Something went wrong with that request. Please try again.