org-googlecl now checks for exiting blog entries

;; if the option flag googlecl-blog-exists is set to true we check if there is already an entry with this title.
;; if there is give the option to view the existing one.
(if googlecl-blog-exists
(with-temp-buffer
(let* ((blogrc (call-process-shell-command (concat "google blogger list --blog '" googlecl-blogname "' --title '" btitle "' url") nil (current-buffer)))
(blogurl (buffer-string)))
(if (not (zerop(length blogurl)))
(if (y-or-n-p (concat "Blog entry exists :" blogurl ". View existing?"))
(browse-url blogurl))))))

(unless borg (setq bbody
(if (use-region-p)
(region-or-word-at-point)
(read-from-minibuffer "Body:" ))))

--
My Emacs Files At GitHub