anything.elのsourceをanythingしてみた

anythingのソースを作ってみようと思って最初に浮かんだのがこれでした。
定義済みのanything用のソース一覧からanythingして、選択したソースでanythingするだけ。文章にするとわかりづらい(汗
anything-sourcesになにを設定しようか迷っているときつかえるような気がします。

ものすごく車輪の再発明なような気もしているのですが、折角なので公開してみる。

(defvar anything-c-source-anything-sources
  '((name . "anything sources")
    (candidates . (lambda ()
                    (sort (all-completions "anything-c-source-" obarray 'boundp) 'string-lessp)))
    (action . (("anything" . (lambda (candidate)
			       (anything (intern candidate)))))))
  "Source for anything sources.")
;; (anything 'anything-c-source-anything-sources)

思ったより簡単だったので、いろいろ作ってみたいものです。
作り方はanything.el自体に書いてありますので、自作したことがない人はレッツチャレンジしてみてください。