org2blog/wp

とりあえずこんな感じで。syntax highlightに(e)lispがないのでclojureで代用。

(require 'org2blog-autoloads)
(require 'netrc)
(setq blog (netrc-machine (netrc-parse "~/.netrc") "myblog" t))
(setq org2blog/wp-blog-alist
      `(("wordpress"
	 :url "https://kazush.wordpress.com/xmlrpc.php"
	 :username ,(netrc-get blog "login")
	 :password ,(netrc-get blog "password"))))
(setq org2blog/wp-use-sourcecode-shortcode t)
(define-key global-map "\C-cob"
  (lambda () (interactive)
    (org2blog/wp-login)
    (org2blog/wp-new-entry)))
Advertisements
org2blog/wp