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

[Tim Burt]

Richard Riley <address@hidden> writes:

> Tim Burt <address@hidden> writes:
>
>> Could Richard Riley have solved my problem?  Yes he did.
>> http://naturallogofx.rketburt.org/2010/09/could-richard-riley-have-solved-my.html
>
> Glad its of some use. It (googlecl) has been on my "must check it out"
> list for a while ;)
>
> Its just at test stage but taking shape - I'm having to relearn elisp
> again ... I'll "git" (!) it in the next few days. But here's the latest code
> posted using itself and cleaned up a bit. Note the two defvars to
> set. You can prefix (C-u) the call to get prompted for the blog name. 
>
> http://splash-of-open-sauce.blogspot.com/2010/09/improved-code-for-googlecl-blog_08.html

Nice improvements.  Will use.

> As a side note, I intend to create a module org-googlecl (org google
> command line) with corresponding namespace for customisations. I'm sure
> then that people more familiar with the publishing portion of org can
> supe it up a bit more.

I look forward to that.  

Again, many thanks.

>
> cheers
>
> r.
>
>>
>> Thank you, thank you, thank you,
>> Tim
>>
>> Richard Riley <address@hidden> writes:
>>
>>> Using the google command line you can get some super access to all your
>>> Google resources - including docs, calendars &  blogs.
>>>
>>> http://code.google.com/p/googlecl/
>>>
>>> Once you have installed it and set up your OAUTH you can easily
>>> manipulate/add/delete things in your google hosted data.
>>>
>>> While not polished and featuring hard coded blog name the following
>>> function uses the google command line tool to blog the current
>>> org-entry.
>>>
>>>   (defun rgr/org-blog-entry ()
>>>     (interactive)
>>>     (save-excursion
>>>       (let ((tmpheading (org-get-heading)))
>>>           (goto-char (org-entry-beginning-position))
>>>           (set-mark (org-entry-end-position))
>>>           (let*((tmpfile (make-temp-file "org-blog-html-"))
>>>                (blog-command (concat "google blogger post --blog \"Open 
>>> Sauce\" --title '" tmpheading "' "  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)))))
>>>
>>> At some point I'll try and make it more generic with customised options
>>> if no one beats me to it ..
>>>
>>> regards
>>>
>>> r.
>>
>> _______________________________________________
>> Emacs-orgmode mailing list
>> Please use `Reply All' to send replies to the list.
>> address@hidden
>> http://lists.gnu.org/mailman/listinfo/emacs-orgmode
>>