List all blogger blogs whose titles match a regular expression

Added support to list all blogs containing certain regexp.
Create an org-mode buffer so you can refile links etc.

Original code here

(global-set-key (kbd "C-c L") 'googlecl-list-blogs)

(defun googlecl-list-process (proc string)
(with-current-buffer (process-buffer proc)
(delete-region (point-min) (point-max))
(org-mode)
(org-insert-heading)
(insert(format " List of blogs with <%s> in the title\n\n" googlecl-default-title-filter))
(setq string (replace-regexp-in-string "\n$" ""  string))
(save-excursion
 (let ((items (split-string string "\n"))
       (first t))
   (while items
       (org-insert-heading)
       (insert  (replace-regexp-in-string ",http:" "\n  http:" (pop items)))
       (org-set-tags-to googlecl-blog-tag)
       (if first (progn
                   (setq first nil)
                   (org-back-to-heading)
                   (org-metaright)
                   (org-end-of-subtree)))))))
(switch-to-buffer (process-buffer proc)))

(defun googlecl-list-blogs ()
"accept a  title filter value and then list all blogs which match that value"
(interactive)
(let*((regexpfilter (read-from-minibuffer "Title Contains:"  googlecl-default-title-filter) )
    (listblogcmd (concat  "google blogger list title,url --title \"" regexpfilter "\"")))
(setq googlecl-default-title-filter regexpfilter)
(message "List blog command is : %s" listblogcmd)
(set-process-filter  (start-process-shell-command "googlecl-list" "*googlcl blogs*" listblogcmd) 'googlecl-list-process)))

--
My Emacs Files At GitHub