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

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s