Richard Riley <rile...@gmail.com> writes: > Tim Burt <tcb...@rochester.rr.com> 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 <rile...@gmail.com> 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. >> Emacs-orgmode@gnu.org >> http://lists.gnu.org/mailman/listinfo/emacs-orgmode >> _______________________________________________ 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
