Config for using org2blog with wordpress blog and authinfo in the .netrc file (or any emacs auth source, really)

.emacs

;; org-mode blogging setup
(when (and
       (locate-library "org2blog")
       (locate-library "metaweblog"))
  (require 'org2blog)
  (require 'auth-source)
  (if (locate-library "ox-wp")
      (load-library "ox-wp"))
  (setq blog (car (auth-source-search :host "blog.mydomain.com")))
  (setq org2blog/wp-blog-alist
        (list
         (list "my-blog"
               :url "http://blog.mydomain.com/xmlrpc.php"
               :username (plist-get blog :user)
               :password (auth-info-password blog)))))