blogging with fixed url

(define-key mode-specific-map [?B] 'rgr/blog)

(defun rgr/blog ()
  (interactive)
  (if current-prefix-arg
      (progn 
	(let ((url(read-from-minibuffer "Post URL:")))
	  (gblogger-new-entry url)))
    (gblogger-new-entry rgr/gblogger-post-url)
    ))