2010/05/22(Sat)

anything-slime.el を使うと anything のインターフェースで補完ができる。

anything.el とともに SLIME を使うのに便利な設定を集めた anything-slime.el をようやく EmacsWiki にアップロードしました - hchbaw記

おなじみの anything なバッファで補完候補を選べる。実は anything-complete 的なものを使ったのはこれが初めて。見やすいし候補選択が楽でいい。ただ、これを TAB (C-i) に割り当てるとちょっと困ったことがあって、インデントができない。インデントと補完を一緒にやりたいので、どうにかならないか少し調べた。

anything-slime.el にはインデントをするような関数はなかったので、 M-x apropos slime indent とかで調べると slime-fuzzy-indent-and-complete-symbol というのが見つかった。これがなかなか優秀で、まずインデントをしてカーソルが移動してなかったら補完する、というものらしい。しかも fuzzy (あいまい) なので先頭一致じゃなくても補完候補を選んでくれるみたい。これは SLIME に同梱の slime-fuzzy.el で定義されてる。

slime-fuzzy-indent-and-complete-symbol をみてみると補完の部分は slime-fuzzy-complete-symbol を呼んでるようなので、そこを anything-slime-complete に変えた関数を自前で定義して C-i に割り当てたらいけるんじゃないかな？と思ってやってみたらうまくいった。以下、 SLIME と anything-slime あたりの設定。 my-indent-and-anything-slime-complete ってのがコピペして一部書き換えただけの関数。 anything-slime-complete もちゃんと fuzzy complete な補完ソースを提示してくれる。

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;; slime
(add-to-list 'load-path "/opt/local/share/emacs/site-lisp/slime")
(require 'slime-autoloads)
(setq slime-lisp-implementations
      `((clisp ("/opt/local/bin/clisp"))
        (sbcl ("/opt/local/bin/sbcl"))
        (abcl ("/opt/local/bin/abcl"))
        ))
(add-hook 'lisp-mode-hook
           (lambda ()
             (cond ((not (featurep 'slime))
                    (require 'slime)
                    (normal-mode)))))

(eval-after-load "slime"
   '(slime-setup '(slime-fancy slime-banner anything-slime)))

;; key
(add-hook 'slime-mode-hook
          (lambda ()
            (define-key global-map (kbd "C-M-;") 'slime-selector)
            ;(define-key slime-mode-map (kbd "C-i") 'slime-fuzzy-indent-and-complete-symbol)
            ))

;; anything-slime
(defun my-indent-and-anything-slime-complete ()
  "Indent and completion with anything interface."
  (interactive)
  (let ((pos (point)))
    (unless (get-text-property (line-beginning-position) 'slime-repl-prompt)
      (lisp-indent-line))
    (when (= pos (point))
      (cond ((save-excursion (re-search-backward "[^() \n\t\r]+\\=" nil t))
             (anything-slime-complete))
            ((memq (char-before) '(?\t ?\ ))
             (slime-echo-arglist))))))

(require 'anything-kyr-config)
(add-hook
 'anything-slime-init-hook
 (lambda ()
   (add-to-list 'anything-kyr-commands-by-condition
                '(slime-net-processes
                  anything-slime-list-connections))
   (define-key slime-mode-map (kbd "C-i") 'my-indent-and-anything-slime-complete)
   (define-key slime-repl-mode-map (kbd "C-i") 'my-indent-and-anything-slime-complete)
   (define-key slime-repl-mode-map "\M-r" 'anything-slime-repl-history)
   ))

(setq anything-slime-complete-sources
  '(anything-slime-fuzzy-complete-source
    anything-slime-simple-complete-source
    anything-slime-compound-complete-source))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

Permalink | コメント(2) | トラックバック(0) | 03:57

Rails勉強会@東京第51回に参加した

Rails, railstokyo

Rails’ Wiki - Rails勉強会@東京第51回に参加してきました。初参加でした。ちなみに Ruby 関連の勉強会に参加するのもこれが初めて。

セッション形式の勉強会というのは初めてで、始まる前はけっこう緊張していたけど、いざ始まってみると案外うまく馴染めた気がします。僕は初心者セッションと事例紹介のセッションに参加して、それから Rails 3 の話を聞きました。

初心者セッションは本当に Rails 初めてという人向けの内容だったので、だいたい知ってる内容でした。レシピ本を一冊持っているといいよ、というのは参考になった。今度時間があるときに本屋でちょっと中身を見てみようかな。

事例紹介のセッションでは、オススメ gem の話があって FactoryGirl を軽く紹介しました。あとは 30days Album のシステム構成的な話を少しさせてもらいました。これは 30days Album を支える技術 #0 ～サーバ構成概要 | 30days Album Information | blog や関西オープンソース 2008 30days Albumの裏側や Yapc Asia 2009 ペパボでのPerlの使い方などですでに紹介されている内容を簡略化して説明しなおしたくらいです。

プレゼンとか LT とかいう枠ではなかったけど、人前で（内輪を除く）喋るのは初めてだったかもしれない。 FactoryGirl といえばドリコムの onk さんが FixtureからFactoryGirlへ : Figure out!! -ドリコムエンジニアブログという記事を書いていて、これがとても良くまとまっているのでオススメです。

その後、懇親会にも参加して、 Rails とはまた違った内容ですがいかにもプログラマの集まりらしい、濃い話ができました。キーボードとかキー配列とか、個人的に興味のある話ができてとても楽しかったです。やっぱりプログラマがしたい「技術的な話」っていったら、ヘンにビジネスっぽい内容とかマネジメントっぽい内容とかじゃなくて、こういう話だよなーと思いました。

Permalink | コメント(0) | トラックバック(1) | 23:30

刺身☆ブーメランのはてなダイアリー

2010/05/22(Sat)

anything-slime.el で補完する (+α でインデントも)

Rails勉強会@東京第51回に参加した