ok, last change of the day : this removes the tags from the blogged heading (is there not an easier way?) and also converts the tags format into a comman seperated list suitable for googlecl/blogger labels. I'll put it up into git soon.
--8<---------------cut here---------------start------------->8--- ;; Interface to the google command line utility. ;; org-googlecl-blog : posts the current org entry to your google blogger/blogspot blog. ;; See http://code.google.com/p/googlecl/ for details on downloading and installing the tool. ;; Another good reason for postactions on creating new-entries - possibly using a inherited tag, if ;; googlecl-auto-blog tag is set we could call this function directly with no user intervention. ;; email :rileyrgATgooglemailDOTcom (defcustom org-googlecl-blogname "My Blog Name" "The name of the default blogger/blogspot blog you wish to blog to." :group 'org-googlecl :type 'string) (defcustom org-googlecl-username "chang...@googlemail.com" "The google user id you wish to authenticate with. e.g mydevusern...@googlemail.com" :group 'org-googlecl :type 'string) (defun org-googlecl-blog () (interactive) (if current-prefix-arg ; WOuld be nice to be able to query possible blogs and allow tab completion on legal names. (setq org-googlecl-blogname (read-from-minibuffer "Blog Name:"))) (save-excursion (goto-char (org-entry-beginning-position)) (let ((tmpheading (org-trim (replace-regexp-in-string (org-get-tags-string) "" (org-get-heading)) )) (tmptags (mapconcat 'identity (org-get-tags) ","))) (set-mark (org-entry-end-position)) (let*((tmpfile (make-temp-file "org-blog-html-")) (blog-command (concat "google blogger post --blog \"" org-googlecl-blogname "\" --title \"" tmpheading "\" --user \"" org-googlecl-username (if (length tmptags) (concat "\" --tags \"" tmptags "\" ")) tmpfile ))) (org-export-as-html 1 nil nil (find-file-noselect tmpfile) t) (with-current-buffer (get-file-buffer tmpfile) (save-buffer)) (start-process-shell-command "Google Blog" "*googlecl*" blog-command) )))) (provide 'org-googlecl) --8<---------------cut here---------------end--------------->8--- r. _______________________________________________ Emacs-orgmode mailing list Please use `Reply All' to send replies to the list. Emacs-orgmode@gnu.org http://lists.gnu.org/mailman/listinfo/emacs-orgmode
