Hello from org-mode

I’m reasonably proud of this little bit of elisp. I almost know what is going on. It uses a bit of normal emacs list manipulation stuff and some sugar from dash.el. So far it seems to work.

(use-package org2blog
  :ensure    t
  :config    (setq org2blog/wp-blog-alist
                   (->> (netrc-parse "~/.netrc")
                        (-filter #'(lambda (m) (string-match-p "wordpress.com" (cdr (assoc "machine" m)))))
                        (mapcar
                         #'(lambda (m)
                             (list (cdr (assoc "machine" m))
                                   :url (concat "https://" (cdr (assoc "machine" m)) "/xmlrpc.php")
                                   :username (cdr (assoc "login" m))
                                   :password (cdr (assoc "password" m))))))))
Advertisements

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