38 lines
2.7 KiB
Markdown
38 lines
2.7 KiB
Markdown
---
|
|
title: 書き捨てのソース
|
|
author: kazu634
|
|
date: 2009-10-29
|
|
url: /2009/10/29/_1375/
|
|
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:4883;}s:9:"hash_tags";a:0:{}s:8:"accounts";a:1:{i:0;s:7:"kazu634";}}'
|
|
categories:
|
|
- Emacs
|
|
|
|
---
|
|
<div class="section">
|
|
<p>
|
|
作業の備忘録として貼り付けておきますね。後できちんと整えてから、記事にし直します。
|
|
</p>
|
|
|
|
<pre class="syntax-highlight">
|
|
<span class="synSpecial">(</span><span class="synStatement">setq</span> anything-c-source-gourmet
|
|
<span class="synSpecial">'((</span>name . <span class="synConstant">"Cross-Gourmet Site Search"</span><span class="synSpecial">)</span>
|
|
<span class="synSpecial">(</span>candidates . <span class="synSpecial">(</span><span class="synStatement">lambda</span> <span class="synSpecial">()</span>
|
|
<span class="synSpecial">(</span><span class="synStatement">delete</span> <span class="synConstant">""</span>
|
|
<span class="synSpecial">(</span>split-string
|
|
<span class="synSpecial">(</span>shell-command-to-string <span class="synConstant">"perl ~/bin/gourmet.pl 03-5798-2218"</span><span class="synSpecial">)</span>
|
|
<span class="synConstant">"\n"</span><span class="synSpecial">))))</span>
|
|
<span class="synSpecial">(</span>candidate-transformer . <span class="synSpecial">(</span><span class="synStatement">lambda</span> <span class="synSpecial">(</span>candidates<span class="synSpecial">)</span>
|
|
<span class="synSpecial">(</span><span class="synStatement">mapcar</span>
|
|
<span class="synSpecial">(</span><span class="synStatement">function</span> <span class="synSpecial">(</span><span class="synStatement">lambda</span><span class="synSpecial">(</span>arg<span class="synSpecial">)</span>
|
|
<span class="synSpecial">(</span><span class="synStatement">apply</span> '<span class="synStatement">cons</span> <span class="synSpecial">(</span>split-string arg <span class="synConstant">"\t"</span><span class="synSpecial">))))</span>
|
|
candidates<span class="synSpecial">)))</span>
|
|
<span class="synSpecial">(</span>action . <span class="synSpecial">((</span><span class="synConstant">"Insert"</span> . insert<span class="synSpecial">)))</span>
|
|
<span class="synSpecial">(</span>multiline<span class="synSpecial">)</span>
|
|
<span class="synSpecial">(</span>migemo<span class="synSpecial">)))</span>
|
|
</pre>
|
|
|
|
<p>
|
|
insertの部分を工夫しないと、今のところ使えない。選択した候補の値をうまいこと操作しないと。。。
|
|
</p>
|
|
</div> |