168 lines
15 KiB
Markdown
168 lines
15 KiB
Markdown
|
---
|
||
|
|
title: Flymakeが便利
|
||
|
|
author: kazu634
|
||
|
|
date: 2008-08-25
|
||
|
|
url: /2008/08/25/_1085/
|
||
|
|
wordtwit_post_info:
|
||
|
|
- 'O:8:"stdClass":13:{s:6:"manual";b:0;s:11:"tweet_times";i:1;s:5:"delay";i:0;s:7:"enabled";i:1;s:10:"separation";s:2:"60";s:7:"version";s:3:"3.7";s:14:"tweet_template";b:0;s:6:"status";i:2;s:6:"result";a:0:{}s:13:"tweet_counter";i:2;s:13:"tweet_log_ids";a:1:{i:0;i:4233;}s:9:"hash_tags";a:0:{}s:8:"accounts";a:1:{i:0;s:7:"kazu634";}}'
|
||
|
|
categories:
|
||
|
|
- Emacs
|
||
|
|
|
||
|
|
---
|
||
|
|
<div class="section">
|
||
|
|
<p>
|
||
|
|
今までの懸念事項だったflymakeを導入してみた。色々な人が色々と書いているので、それを参考にする。
|
||
|
|
</p>
|
||
|
|
|
||
|
|
<h4>
|
||
|
|
共通の設定
|
||
|
|
</h4>
|
||
|
|
|
||
|
|
<pre class="syntax-highlight">
|
||
|
|
<span class="synComment">;; ===============================================</span>
|
||
|
|
<span class="synComment">;; === flymake (Emacs22から標準添付されている) ===</span>
|
||
|
|
<span class="synComment">;; ===============================================</span>
|
||
|
|
<span class="synSpecial">(</span><span class="synStatement">require</span> <span class="synSpecial">'</span><span class="synIdentifier">flymake</span><span class="synSpecial">)</span>
|
||
|
|
<span class="synComment">;; set-perl5lib</span>
|
||
|
|
<span class="synComment">;; 開いたスクリプトのパスに応じて、@INCにlibを追加してくれる</span>
|
||
|
|
<span class="synComment">;; 以下からダウンロードする必要あり</span>
|
||
|
|
<span class="synComment">;; http://svn.coderepos.org/share/lang/elisp/set-perl5lib/set-perl5lib.el</span>
|
||
|
|
<span class="synSpecial">(</span><span class="synStatement">require</span> <span class="synSpecial">'</span><span class="synIdentifier">set-perl5lib</span><span class="synSpecial">)</span>
|
||
|
|
<span class="synComment">;; エラー、ウォーニング時のフェイス</span>
|
||
|
|
<span class="synSpecial">(</span>set-face-background <span class="synSpecial">'</span><span class="synIdentifier">flymake-errline</span> <span class="synConstant">"red4"</span><span class="synSpecial">)</span>
|
||
|
|
<span class="synSpecial">(</span>set-face-foreground <span class="synSpecial">'</span><span class="synIdentifier">flymake-errline</span> <span class="synConstant">"black"</span><span class="synSpecial">)</span>
|
||
|
|
<span class="synSpecial">(</span>set-face-background <span class="synSpecial">'</span><span class="synIdentifier">flymake-warnline</span> <span class="synConstant">"yellow"</span><span class="synSpecial">)</span>
|
||
|
|
<span class="synSpecial">(</span>set-face-foreground <span class="synSpecial">'</span><span class="synIdentifier">flymake-warnline</span> <span class="synConstant">"black"</span><span class="synSpecial">)</span>
|
||
|
|
<span class="synComment">;; エラーをミニバッファに表示</span>
|
||
|
|
<span class="synComment">;; http://d.hatena.ne.jp/xcezx/20080314/1205475020</span>
|
||
|
|
<span class="synSpecial">(</span><span class="synStatement">defun</span> flymake-display-err-minibuf <span class="synSpecial">()</span>
|
||
|
|
<span class="synConstant">"Displays the error/warning for the current line in the minibuffer"</span>
|
||
|
|
<span class="synSpecial">(</span>interactive<span class="synSpecial">)</span>
|
||
|
|
<span class="synSpecial">(</span><span class="synStatement">let*</span> <span class="synSpecial">((</span>line-no <span class="synSpecial">(</span>flymake-current-line-no<span class="synSpecial">))</span>
|
||
|
|
<span class="synSpecial">(</span>line-err-info-list <span class="synSpecial">(</span><span class="synStatement">nth</span> <span class="synConstant"></span> <span class="synSpecial">(</span>flymake-find-err-info flymake-err-info line-no<span class="synSpecial">)))</span>
|
||
|
|
<span class="synSpecial">(</span><span class="synStatement">count</span> <span class="synSpecial">(</span><span class="synStatement">length</span> line-err-info-list<span class="synSpecial">)))</span>
|
||
|
|
<span class="synSpecial">(</span>while <span class="synSpecial">(</span><span class="synStatement">></span> <span class="synStatement">count</span> <span class="synConstant"></span><span class="synSpecial">)</span>
|
||
|
|
<span class="synSpecial">(</span><span class="synStatement">when</span> line-err-info-list
|
||
|
|
<span class="synSpecial">(</span><span class="synStatement">let*</span> <span class="synSpecial">((</span>file <span class="synSpecial">(</span>flymake-ler-file <span class="synSpecial">(</span><span class="synStatement">nth</span> <span class="synSpecial">(</span><span class="synStatement">1-</span> <span class="synStatement">count</span><span class="synSpecial">)</span> line-err-info-list<span class="synSpecial">)))</span>
|
||
|
|
<span class="synSpecial">(</span>full-file <span class="synSpecial">(</span>flymake-ler-full-file <span class="synSpecial">(</span><span class="synStatement">nth</span> <span class="synSpecial">(</span><span class="synStatement">1-</span> <span class="synStatement">count</span><span class="synSpecial">)</span> line-err-info-list<span class="synSpecial">)))</span>
|
||
|
|
<span class="synSpecial">(</span>text <span class="synSpecial">(</span>flymake-ler-text <span class="synSpecial">(</span><span class="synStatement">nth</span> <span class="synSpecial">(</span><span class="synStatement">1-</span> <span class="synStatement">count</span><span class="synSpecial">)</span> line-err-info-list<span class="synSpecial">)))</span>
|
||
|
|
<span class="synSpecial">(</span>line <span class="synSpecial">(</span>flymake-ler-line <span class="synSpecial">(</span><span class="synStatement">nth</span> <span class="synSpecial">(</span><span class="synStatement">1-</span> <span class="synStatement">count</span><span class="synSpecial">)</span> line-err-info-list<span class="synSpecial">))))</span>
|
||
|
|
<span class="synSpecial">(</span>message <span class="synConstant">"[%s] %s"</span> line text<span class="synSpecial">)))</span>
|
||
|
|
<span class="synSpecial">(</span><span class="synStatement">setq</span> <span class="synStatement">count</span> <span class="synSpecial">(</span><span class="synStatement">1-</span> <span class="synStatement">count</span><span class="synSpecial">)))))</span>
|
||
|
|
</pre>
|
||
|
|
|
||
|
|
<h4>
|
||
|
|
C
|
||
|
|
</h4>
|
||
|
|
|
||
|
|
<p>
|
||
|
|
Cの設定はこんな感じ:
|
||
|
|
</p>
|
||
|
|
|
||
|
|
<pre class="syntax-highlight">
|
||
|
|
<span class="synComment">;; === Setting some C / C++ defaults ===</span>
|
||
|
|
<span class="synSpecial">(</span>add-hook <span class="synSpecial">'</span><span class="synIdentifier">c-mode-common-hook</span>
|
||
|
|
<span class="synSpecial">(</span><span class="synStatement">function</span> <span class="synSpecial">(</span><span class="synStatement">lambda</span> <span class="synSpecial">()</span>
|
||
|
|
<span class="synComment">;; more stuff here</span>
|
||
|
|
<span class="synSpecial">(</span>flymake-mode <span class="synStatement">t</span><span class="synSpecial">)</span>
|
||
|
|
<span class="synSpecial">)))</span>
|
||
|
|
<span class="synSpecial">(</span>add-hook <span class="synSpecial">'</span><span class="synIdentifier">c-mode-common-hook</span>
|
||
|
|
<span class="synSpecial">'(</span><span class="synStatement">lambda</span> <span class="synSpecial">()</span>
|
||
|
|
<span class="synSpecial">(</span>define-key c-mode-map <span class="synConstant">"\C-cd"</span> 'flymake-display-err-menu-for-current-line<span class="synSpecial">)))</span>
|
||
|
|
</pre>
|
||
|
|
|
||
|
|
<p>
|
||
|
|
Cの場合、Makefileを一緒に書かなければいけない。とりあえずこんな風に書いておけば問題ないようだ。
|
||
|
|
</p>
|
||
|
|
|
||
|
|
<blockquote>
|
||
|
|
<p>
|
||
|
|
.PHONY: check-syntax
|
||
|
|
</p>
|
||
|
|
|
||
|
|
<p>
|
||
|
|
check-syntax:
|
||
|
|
</p>
|
||
|
|
|
||
|
|
<p>
|
||
|
|
$(CXX) -Wall -Wextra -pedantic -fsyntax-only $(CHK_SOURCES)
|
||
|
|
</p>
|
||
|
|
</blockquote>
|
||
|
|
|
||
|
|
<h4>
|
||
|
|
Perl
|
||
|
|
</h4>
|
||
|
|
|
||
|
|
<p>
|
||
|
|
Perlはこう:
|
||
|
|
</p>
|
||
|
|
|
||
|
|
<pre class="syntax-highlight">
|
||
|
|
<span class="synComment">;; === Perl用設定 ===</span>
|
||
|
|
<span class="synComment">;; http://unknownplace.org/memo/2007/12/21#e001</span>
|
||
|
|
<span class="synSpecial">(</span><span class="synStatement">defvar</span> flymake-perl-err-line-patterns
|
||
|
|
<span class="synSpecial">'((</span><span class="synConstant">"\\(.*\\) at \\([^ \n]+\\) line \\([0-9]+\\)[,.\n]"</span> 2 3 <span class="synStatement">nil</span> 1<span class="synSpecial">)))</span>
|
||
|
|
<span class="synSpecial">(</span>defconst flymake-allowed-perl-file-name-masks
|
||
|
|
<span class="synSpecial">'((</span><span class="synConstant">"\\.pl$"</span> flymake-perl-init<span class="synSpecial">)</span>
|
||
|
|
<span class="synSpecial">(</span><span class="synConstant">"\\.pm$"</span> flymake-perl-init<span class="synSpecial">)</span>
|
||
|
|
<span class="synSpecial">(</span><span class="synConstant">"\\.t$"</span> flymake-perl-init<span class="synSpecial">)))</span>
|
||
|
|
<span class="synSpecial">(</span><span class="synStatement">defun</span> flymake-perl-init <span class="synSpecial">()</span>
|
||
|
|
<span class="synSpecial">(</span><span class="synStatement">let*</span> <span class="synSpecial">((</span>temp-file <span class="synSpecial">(</span>flymake-init-create-temp-buffer-copy
|
||
|
|
<span class="synSpecial">'</span><span class="synIdentifier">flymake-create-temp-inplace</span><span class="synSpecial">))</span>
|
||
|
|
<span class="synSpecial">(</span>local-file <span class="synSpecial">(</span>file-relative-name
|
||
|
|
temp-file
|
||
|
|
<span class="synSpecial">(</span>file-name-directory buffer-file-name<span class="synSpecial">))))</span>
|
||
|
|
<span class="synSpecial">(</span><span class="synStatement">list</span> <span class="synConstant">"perl"</span> <span class="synSpecial">(</span><span class="synStatement">list</span> <span class="synConstant">"-wc"</span> local-file<span class="synSpecial">))))</span>
|
||
|
|
<span class="synSpecial">(</span><span class="synStatement">defun</span> flymake-perl-load <span class="synSpecial">()</span>
|
||
|
|
<span class="synSpecial">(</span>interactive<span class="synSpecial">)</span>
|
||
|
|
<span class="synSpecial">(</span>defadvice flymake-post-syntax-check <span class="synSpecial">(</span>before flymake-force-check-was-interrupted<span class="synSpecial">)</span>
|
||
|
|
<span class="synSpecial">(</span><span class="synStatement">setq</span> flymake-check-was-interrupted <span class="synStatement">t</span><span class="synSpecial">))</span>
|
||
|
|
<span class="synSpecial">(</span>ad-activate <span class="synSpecial">'</span><span class="synIdentifier">flymake-post-syntax-check</span><span class="synSpecial">)</span>
|
||
|
|
<span class="synSpecial">(</span><span class="synStatement">setq</span> flymake-allowed-file-name-masks <span class="synSpecial">(</span><span class="synStatement">append</span> flymake-allowed-file-name-masks flymake-allowed-perl-file-name-masks<span class="synSpecial">))</span>
|
||
|
|
<span class="synSpecial">(</span><span class="synStatement">setq</span> flymake-err-line-patterns flymake-perl-err-line-patterns<span class="synSpecial">)</span>
|
||
|
|
<span class="synSpecial">(</span>set-perl5lib<span class="synSpecial">)</span>
|
||
|
|
<span class="synSpecial">(</span>flymake-mode <span class="synStatement">t</span><span class="synSpecial">))</span>
|
||
|
|
<span class="synSpecial">(</span>add-hook <span class="synSpecial">'</span><span class="synIdentifier">cperl-mode-hook</span> <span class="synSpecial">'</span><span class="synIdentifier">flymake-perl-load</span><span class="synSpecial">)</span>
|
||
|
|
</pre>
|
||
|
|
|
||
|
|
<h4>
|
||
|
|
Gauche
|
||
|
|
</h4>
|
||
|
|
|
||
|
|
<p>
|
||
|
|
「<a href="http://d.hatena.ne.jp/higepon/20080309/1205043148" onclick="__gaTracker('send', 'event', 'outbound-article', 'http://d.hatena.ne.jp/higepon/20080309/1205043148', '小黒さんのSchemeにおける glint + Emacs + flymake を試してみた – ひげぽん OSとか作っちゃうかMona-');" target="_blank">小黒さんのSchemeにおける glint + Emacs + flymake を試してみた – ひげぽん OSとか作っちゃうかMona-</a>」を参考に。
|
||
|
|
</p>
|
||
|
|
|
||
|
|
<pre class="syntax-highlight">
|
||
|
|
<span class="synComment">;; === Gauche on Flymake ===</span>
|
||
|
|
<span class="synSpecial">(</span><span class="synStatement">defvar</span> flymake-glint-err-line-patterns <span class="synSpecial">'((</span><span class="synConstant">"^\\(.+\\):\\([0-9]+\\): \\(.+\\)$"</span> 1 2 <span class="synStatement">nil</span> 3<span class="synSpecial">)))</span>
|
||
|
|
<span class="synSpecial">(</span>defconst flymake-allowed-gauche-file-name-masks <span class="synSpecial">'((</span><span class="synConstant">"\\.scm$"</span> flymake-gauche-init<span class="synSpecial">)))</span>
|
||
|
|
<span class="synSpecial">(</span><span class="synStatement">defun</span> flymake-gauche-init <span class="synSpecial">()</span>
|
||
|
|
<span class="synSpecial">(</span><span class="synStatement">let*</span> <span class="synSpecial">((</span>temp-file <span class="synSpecial">(</span>flymake-init-create-temp-buffer-copy
|
||
|
|
<span class="synSpecial">'</span><span class="synIdentifier">flymake-create-temp-inplace</span><span class="synSpecial">))</span>
|
||
|
|
<span class="synSpecial">(</span>local-file <span class="synSpecial">(</span>file-relative-name
|
||
|
|
temp-file
|
||
|
|
<span class="synSpecial">(</span>file-name-directory buffer-file-name<span class="synSpecial">))))</span>
|
||
|
|
<span class="synSpecial">(</span><span class="synStatement">list</span> <span class="synConstant">"glint"</span> <span class="synSpecial">(</span><span class="synStatement">list</span> local-file<span class="synSpecial">))))</span>
|
||
|
|
<span class="synSpecial">(</span><span class="synStatement">defun</span> flymake-gauche-load <span class="synSpecial">()</span>
|
||
|
|
<span class="synSpecial">(</span>interactive<span class="synSpecial">)</span>
|
||
|
|
<span class="synSpecial">(</span>defadvice flymake-post-syntax-check <span class="synSpecial">(</span>before flymake-force-check-was-interrupted<span class="synSpecial">)</span>
|
||
|
|
<span class="synSpecial">(</span><span class="synStatement">setq</span> flymake-check-was-interrupted <span class="synStatement">t</span><span class="synSpecial">))</span>
|
||
|
|
<span class="synSpecial">(</span>ad-activate <span class="synSpecial">'</span><span class="synIdentifier">flymake-post-syntax-check</span><span class="synSpecial">)</span>
|
||
|
|
<span class="synSpecial">(</span><span class="synStatement">setq</span> flymake-allowed-file-name-masks <span class="synSpecial">(</span><span class="synStatement">append</span> flymake-allowed-file-name-masks
|
||
|
|
flymake-allowed-gauche-file-name-masks<span class="synSpecial">))</span>
|
||
|
|
<span class="synSpecial">(</span><span class="synStatement">setq</span> flymake-err-line-patterns flymake-glint-err-line-patterns<span class="synSpecial">)</span>
|
||
|
|
<span class="synSpecial">(</span>flymake-mode <span class="synStatement">t</span><span class="synSpecial">))</span>
|
||
|
|
<span class="synSpecial">(</span>add-hook <span class="synSpecial">'</span><span class="synIdentifier">scheme-mode-hook</span> <span class="synSpecial">'(</span><span class="synStatement">lambda</span> <span class="synSpecial">()</span>
|
||
|
|
<span class="synSpecial">(</span>flymake-gauche-load<span class="synSpecial">)</span>
|
||
|
|
<span class="synSpecial">(</span>define-key scheme-mode-map <span class="synConstant">"\C-cd"</span> 'credmp/flymake-display-err-minibuf<span class="synSpecial">)))</span>
|
||
|
|
</pre>
|
||
|
|
|
||
|
|
<h4>
|
||
|
|
感想
|
||
|
|
</h4>
|
||
|
|
|
||
|
|
<p>
|
||
|
|
これは果てしなく便利。
|
||
|
|
</p>
|
||
|
|
</div>
|