[Orgmode] Re: Blogging org entries using google command line.

[Richard Riley]

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 "address@hidden"
  "The google user id you wish to authenticate with. e.g address@hidden"
  :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.