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

(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の部分を工夫しないと、今のところ使えない。選択した候補の値をうまいこと操作しないと。。。