Emacs CommonLisp

EmacsのewwでCommonLispのHyperSpecをHack!

Post on

1ヶ月ぐらい前からCommonLispを勉強してるけど、HyperSpecのドキュメントを見るとき
いちいちWebページを見ていたら時間かかるし、シームレスじゃないので目も疲れるし、
いいことなかったのでストレスなく快適て閲覧できるようEmacsのewwでHackした。

検索機能としては、インタラクティブ検索とカーソル検索が2つが用意されてて
とりあえず、こんな感じで見れるようになる

hyperspec

導入手順

1. 以下が前提となる

・ Emacs24以上
・ Slimeを導入済み

2. HyperSpecドキュメントをローカルにダウンロードして解凍して任意の場所へ配置する。
1
2
3
cd ~/.emacs.d/share
wget ftp://ftp.lispworks.com/pub/software_tools/reference/HyperSpec-7-0.tar.gz
tar xvfz HyperSpec-7-0.tar.gz
3. 設定ファイルへ追記

slimeのlibに置かれてるhyperspec.elをewwで動作するよう以下の関数を上書く。
・ common-lisp-hyperspec
・ common-lisp-hyperspec-lookup-reader-macro
・ common-lisp-hyperspec-format

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
;; HyperSpecをewwで見る設定
(setq common-lisp-hyperspec-root "~/.emacs.d/share/HyperSpec/")

(defun common-lisp-hyperspec (symbol-name)
  (interactive (list (common-lisp-hyperspec-read-symbol-name)))
  (let ((name (common-lisp-hyperspec--strip-cl-package
               (downcase symbol-name))))
    (cl-maplist (lambda (entry)
                  (eww-open-file (concat common-lisp-hyperspec-root "Body/"
                                         (car entry)))
                  (when (cdr entry)
                    (sleep-for 1.5)))
                (or (common-lisp-hyperspec--find name)
                    (error "The symbol `%s' is not defined in Common Lisp"
                           symbol-name)))))

(defun common-lisp-hyperspec-lookup-reader-macro (macro)
  (interactive
   (list
    (let ((completion-ignore-case t))
      (completing-read "Look up reader-macro: "
                       common-lisp-hyperspec--reader-macros nil t
                       (common-lisp-hyperspec-reader-macro-at-point)))))
  (eww-open-file
   (concat common-lisp-hyperspec-root "Body/"
           (gethash macro common-lisp-hyperspec--reader-macros))))

(defun common-lisp-hyperspec-format (character-name)
  (interactive (list (common-lisp-hyperspec--read-format-character)))
  (cl-maplist (lambda (entry)
                (eww-open-file (common-lisp-hyperspec-section (car entry))))
              (or (gethash character-name
                           common-lisp-hyperspec--format-characters)
                  (error "The symbol `%s' is not defined in Common Lisp"
                         character-name))))

(defadvice common-lisp-hyperspec (around common-lisp-hyperspec-around activate)
  (let ((buf (current-buffer)))
    ad-do-it
    (switch-to-buffer buf)
    (pop-to-buffer "*eww*")))

(defadvice common-lisp-hyperspec-lookup-reader-macro (around common-lisp-hyperspec-lookup-reader-macro-around activate)
  (let ((buf (current-buffer)))
    ad-do-it
    (switch-to-buffer buf)
    (pop-to-buffer "*eww*")))

(defadvice common-lisp-hyperspec-format (around common-lisp-hyperspec-format activate)
  (let ((buf (current-buffer)))
    ad-do-it
    (switch-to-buffer buf)
    (pop-to-buffer "*eww*")))

defadviceは画面分割してポップアップでewwのwindowを開くようにしてる。
これでラクになれるはず。

X