M-x経由でよく使うURLをbrowse-urlする

elisp emacs 
(defmacro define-browse-url-command (command url)
  `(defun ,command ()
     ,url
     (interactive)
     (browse-url ,url)))
(define-browse-url-command doukaku "http://ja.doukaku.org/")
(define-browse-url-command onlisp "http://www.komaba.utmc.or.jp/~flatline/onlispjhtml/")
(define-browse-url-command practical-common-lisp "http://www.gigamonkeys.com/book/")

あっさりマクロ。urlが二度評価されるが、リテラルしか渡さんのだからこの際無視。
M-x doukakuでエロと風俗情報満載 どう抜く？をブラウザで開く。
こんな感じで宣言的に定義するのがLispのやり方だろうね。