help-gnu-emacs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: is there a package to post to blogger.com?


From: Richard Riley
Subject: Re: is there a package to post to blogger.com?
Date: Tue, 13 Jan 2009 02:42:15 +0100
User-agent: Gnus/5.13 (Gnus v5.13) Emacs/23.0.60 (gnu/linux)

Richard Riley <address@hidden> writes:

> ken <address@hidden> writes:
>
>> Lee,
>>
>> Thanks for the link.  I've been looking for something like this.
>>
>> I downloaded and installed the package, tried it, but consistently get
>> errors after entering name and password.  If anyone has any tips, let me
>> know.  Otherwise I'll just keep doing what I was doing before.
>>
>> Thanks again for the URL.
>
> Also thanks for the link. While I think Xah's language was a tad OTT, he
> is right about the mess which is Emacs blogging solutions - it's not
> easy.
>
> The link he appended
>
> http://code.google.com/p/e-blog/
>
> worked fine first go for me and is nice. The only thing it, like most
> emacs interfaces, seems to lack is the defaulting of the body to a
> selected region if a region is selected. I like to use thingatpt+ and
> the region-or-word-at-point function to default the text. It could also
> do with prompting to accept the previous blog selected as a default.
>
> regards
>
> Richard.

Some issues:

C-c h in a post buffer already puts in the "http://"; which
is a bit silly since most of us will have http in the link we wish to
paste  in.

Trying to post elisp doesnt work: e.g I pasted this in and hit C-c

,----
| (defvar e-blog-display-url nil
|   "If non-nil, e-blog will display the post/edit url in post/edit
| buffers.")
| (defvar e-blog-link-region-key "\C-ch"
|   "Default keybinding for inserting links in posts.")
| (defvar e-blog-tt-region-key "\C-ct"
|   "Default keybinding for inserting `tt' style tags.")
| (defvar e-blog-emphasize-region-key "\C-ci"
|   "Default keybinding for inserting `em' style tags.")
| (defvar e-blog-strong-region-key "\C-cs"
|   "Default keybinding for inserting `strong' style tags.")
`----

and got:

,----
| Debugger entered--Lisp error: (error "Invalid use of `\\' in replacement 
text")
|   replace-match(#("<p> (defvar e-blog-display-url nil   \"If non-nil, e-blog 
will display the post/edit url in post/edit buffers.\") (defvar 
e-blog-link-region-key \"\\C-ch\"   \"Default keybinding for inserting links in 
posts.\") (defvar e-blog-tt-region-key \"\\C-ct\"   \"Default keybinding for 
inserting `tt' style tags.\") (defvar e-blog-emphasize-region-key \"\\C-ci\"   
\"Default keybinding for inserting `em' style tags.\") (defvar 
e-blog-strong-region-key \"\\C-cs\"   \"Default keybinding for inserting 
`strong' style tags.\")</p>\n<p></p>" 5 11 (face font-lock-keyword-face) 12 30 
(face font-lock-variable-name-face) 37 100 (face font-lock-doc-face) 101 110 
(face font-lock-doc-face) 113 119 (face font-lock-keyword-face) 120 142 (face 
font-lock-variable-name-face) 143 150 (face font-lock-string-face) 153 203 
(face font-lock-doc-face) 206 212 (face font-lock-keyword-face) 213 233 (face 
font-lock-variable-name-face) 234 241 (face font-lock-string-face) 244 279 
(face font-lock-doc-face) 279 281 (face (font-lock-constant-face 
font-lock-doc-face)) 281 295 (face font-lock-doc-face) 298 304 (face 
font-lock-keyword-face) 305 332 (face font-lock-variable-name-face) 333 340 
(face font-lock-string-face) 343 378 (face font-lock-doc-face) 378 380 (face 
(font-lock-constant-face font-lock-doc-face)) 380 394 (face font-lock-doc-face) 
397 403 (face font-lock-keyword-face) 404 428 (face 
font-lock-variable-name-face) 429 436 (face font-lock-string-face) 439 474 
(face font-lock-doc-face) 474 480 (face (font-lock-constant-face 
font-lock-doc-face)) 480 494 (face font-lock-doc-face)))
|   (while --cl-dolist-temp-- (setq repl (car --cl-dolist-temp--)) 
(search-forward repl nil t) (replace-match (nth counter slist)) (setq counter 
(+ counter 1)) (setq --cl-dolist-temp-- (cdr --cl-dolist-temp--)))
|   (let ((--cl-dolist-temp-- rlist) repl) (while --cl-dolist-temp-- (setq repl 
...) (search-forward repl nil t) (replace-match ...) (setq counter ...) (setq 
--cl-dolist-temp-- ...)) nil)
|   (catch (quote --cl-block-nil--) (let (... repl) (while --cl-dolist-temp-- 
... ... ... ... ...) nil))
|   (cl-block-wrapper (catch (quote --cl-block-nil--) (let ... ... nil)))
|   (block nil (let (... repl) (while --cl-dolist-temp-- ... ... ... ... ...) 
nil))
|   (dolist (repl rlist) (search-forward repl nil t) (replace-match (nth 
counter slist)) (setq counter (+ counter 1)))
|   (let (title content labels url rlist slist counter node-name) (kill-buffer 
(current-buffer)) (setq title (nth 0 prop-list) content (nth 1 prop-list) 
labels (nth 2 prop-list) url (nth 3 prop-list) node-name "<category 
scheme=\"http://www.blogger.com/atom/ns#\"; term=\"") (set-buffer 
(get-buffer-create e-blog-tmp-buffer)) (erase-buffer) (insert e-blog-post-xml) 
(goto-char (point-min)) (setq rlist (quote ...)) (setq slist (list title 
content user-full-name e-blog-user)) (setq counter 0) (dolist (repl rlist) 
(search-forward repl nil t) (replace-match ...) (setq counter ...)) (goto-char 
(point-min)) (search-forward "</title>") (insert "\n") (if (equal ... "") nil 
(dolist ... ...)) (delete-blank-lines) (set-visited-file-name 
"/tmp/e-blog-tmp") (setq buffer-file-coding-system (quote utf-8)) (save-buffer) 
(message "Sending Post...") (call-process "curl" nil e-blog-buffer nil "-v" 
"--header" e-blog-auth "--header" "Content-Type: application/atom+xml" "-d" 
"@/tmp/e-blog-tmp" url) (e-blog-cleanup) (message "Sending Post... Done."))
|   e-blog-post(("tes   \n" #("<p> (defvar e-blog-display-url nil   \"If 
non-nil, e-blog will display the post/edit url in post/edit buffers.\") (defvar 
e-blog-link-region-key \"\\C-ch\"   \"Default keybinding for inserting links in 
posts.\") (defvar e-blog-tt-region-key \"\\C-ct\"   \"Default keybinding for 
inserting `tt' style tags.\") (defvar e-blog-emphasize-region-key \"\\C-ci\"   
\"Default keybinding for inserting `em' style tags.\") (defvar 
e-blog-strong-region-key \"\\C-cs\"   \"Default keybinding for inserting 
`strong' style tags.\")</p>\n<p></p>" 5 11 (face font-lock-keyword-face) 12 30 
(face font-lock-variable-name-face) 37 100 (face font-lock-doc-face) 101 110 
(face font-lock-doc-face) 113 119 (face font-lock-keyword-face) 120 142 (face 
font-lock-variable-name-face) 143 150 (face font-lock-string-face) 153 203 
(face font-lock-doc-face) 206 212 (face font-lock-keyword-face) 213 233 (face 
font-lock-variable-name-face) 234 241 (face font-lock-string-face) 244 279 
(face font-lock-doc-face) 279 281 (face ...) 281 295 (face font-lock-doc-face) 
298 304 (face font-lock-keyword-face) 305 332 (face 
font-lock-variable-name-face) 333 340 (face font-lock-string-face) 343 378 
(face font-lock-doc-face) 378 380 (face ...) 380 394 (face font-lock-doc-face) 
397 403 (face font-lock-keyword-face) 404 428 (face 
font-lock-variable-name-face) 429 436 (face font-lock-string-face) 439 474 
(face font-lock-doc-face) 474 480 (face ...) 480 494 (face font-lock-doc-face)) 
("tes") "http://www.blogger.com/feeds/4166588008280027121/posts/default\n";))
|   e-blog-extract-for-post()
|   call-interactively(e-blog-extract-for-post nil nil)
`----



-- 
 important and urgent problems of the technology of today are no longer the 
satisfactions of the primary needs or of archetypal wishes, but the reparation 
of the evils and damages by the technology of yesterday.  ~Dennis Gabor, 
Innovations:  Scientific, Technological and Social, 1970


reply via email to

[Prev in Thread] Current Thread [Next in Thread]