SLIME
なぜ今日はこんなにほげほげしているのか.
今日はSLIMEのまぬあるを読んだので, .emacsの該当部分をさらしあげ.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;; LISP ENVIRONMENT ;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (setq inferior-lisp-program "/usr/local/bin/sbcl --noinform") ;;cmulispなら/usr/local/bin/lisp (add-hook 'lisp-mode-hook (lambda () (define-key lisp-mode-map "\C-c\C-i" 'comment-region) (define-key lisp-mode-map "\C-c\C-o" 'uncomment-region) (setq lisp-indent-function 'common-lisp-indent-function) )) (add-hook 'inferior-lisp-mode-hook (lambda () (setq lisp-indent-function 'common-lisp-indent-function) )) ;; Additional definitions by Pierpaolo Bernardi. (defun cl-indent (sym indent) (put sym 'common-lisp-indent-function (if (symbolp indent) (get indent 'common-lisp-indent-function) indent))) (cl-indent 'if '1) (cl-indent 'generic-flet 'flet) (cl-indent 'generic-labels 'labels) (cl-indent 'with-accessors 'multiple-value-bind) (cl-indent 'with-added-methods '((1 4 ((&whole 1))) (2 &body))) (cl-indent 'with-condition-restarts '((1 4 ((&whole 1))) (2 &body))) (cl-indent 'with-simple-restart '((1 4 ((&whole 1))) (2 &body))) ;; ;;SLIME setup (add-to-list 'load-path "/home/wiz/elisp/slime") (require 'slime) (slime-setup) (add-hook 'slime-mode-hook (lambda () (unless (slime-connected-p) (save-excursion (slime))) (define-key slime-mode-map "\C-c\C-i" 'comment-region) (define-key slime-mode-map "\C-c\C-o" 'uncomment-region) (define-key slime-mode-map "\C-c\C-c" 'slime-hyperspec-lookup))) (setq slime-net-coding-system 'utf-8-unix) ;日本語の為 SBCL仕様 (setq slime-truncate-lines nil) (setq slime-complete-symbol-function 'slime-complete-symbol*) (setq slime-autodoc-delay 1.5) (slime-autodoc-mode)
SLIMEでも日本語が使えるとはー! (setq slime-net-coding-system 'utf-8-unix)は偉大だ.
CL-USER> '(日本語 で おk) (日本語 で おK)
シンボルもかよ!