--- 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 ---

作業の備忘録として貼り付けておきますね。後できちんと整えてから、記事にし直します。

(setq anything-c-source-gourmet
'((name . "Cross-Gourmet Site Search")
(candidates . (lambda ()
(delete ""
(split-string
(shell-command-to-string "perl ~/bin/gourmet.pl 03-5798-2218")
"\n"))))
(candidate-transformer . (lambda (candidates)
(mapcar
(function (lambda(arg)
(apply 'cons (split-string arg "\t"))))
candidates)))
(action . (("Insert" . insert)))
(multiline)
(migemo)))

insertの部分を工夫しないと、今のところ使えない。選択した候補の値をうまいこと操作しないと。。。