>>>>> "Mark" == Mark A Hershberger <m...@everybody.org> writes:
Mark> Second, the URL you should be using is Mark> <http://laymusic.org/wordpress/xmlrpc.php>. I hope to add RSD support Mark> for weblogger.el soon. If weblogger.el already had RSD support, you Mark> probably would be connected at this point. That should be in the documentation. I did sort of know it, but not actively. OK, I'm still getting 400 errors from emacs 22, and from emacs 23 with the blog I used before, but from emacs 23 with a different and less fiddled-with wordpress installation, I have actually given it the blog url and username and password, and had an apparently successful setup. Unfortunately, then I get a *weblogger-entry* buffer that looks like: buffer> Subject: buffer> Keywords: buffer> From: admin buffer> Newsgroup: Serpent Publications buffer> --text follows this line-- When I put anything (in this case "site test") in the "Keywords" line, it says: debugger> Debugger entered--Lisp error: (wrong-type-argument stringp ["site" "test"]) debugger> base64-encode-string(["site" "test"]) debugger> (list (quote base64) nil (base64-encode-string value)) debugger> (list (quote value) nil (list (quote base64) nil (base64-encode-string value))) debugger> (list (list (quote value) nil (list ... nil ...))) debugger> (\` ((value nil ...))) debugger> (cond ((xml-rpc-value-booleanp value) (\` ...)) ((listp value) (let ... ...)) ((xml-rpc-value-intp value) (\` ...)) ((xml-rpc-value-stringp value) (let ... ...)) ((xml-rpc-value-doublep value) (\` ...)) (t (\` ...))) debugger> xml-rpc-value-to-xml-list(["site" "test"]) debugger> (car (xml-rpc-value-to-xml-list (cdar value))) debugger> (list (quote member) nil (list (quote name) nil (caar value)) (car (xml-rpc-value-to-xml-list ...))) debugger> (list (list (quote member) nil (list ... nil ...) (car ...))) debugger> (\` ((member nil ... ...))) debugger> (setq xmlval (\` (...)) result (if t (append result xmlval) (car xmlval)) value (cdr value)) debugger> (while (setq xmlval (\` ...) result (if t ... ...) value (cdr value))) debugger> (progn (while (setq xmlval ... result ... value ...)) (\` (...))) debugger> (if (xml-rpc-value-structp value) (progn (while ...) (\` ...)) (while (setq xmlval ... result ... value ...)) (\` (...))) debugger> (let ((result nil) (xmlval nil)) (if (xml-rpc-value-structp value) (progn ... ...) (while ...) (\` ...))) debugger> (cond ((xml-rpc-value-booleanp value) (\` ...)) ((listp value) (let ... ...)) ((xml-rpc-value-intp value) (\` ...)) ((xml-rpc-value-stringp value) (let ... ...)) ((xml-rpc-value-doublep value) (\` ...)) (t (\` ...))) debugger> xml-rpc-value-to-xml-list((("title" . "test of xmlrpc") ("authorName" . "admin") ("dateCreated") ("mt_tb_ping_urls") ("mt_convert_breaks") ("link") ("description" . "This is a test of blogging directly from emacs.") ("categories" . ["site" "test"]))) debugger> (car (xml-rpc-value-to-xml-list p)) debugger> (list (quote param) nil (car (xml-rpc-value-to-xml-list p))) debugger> (\` (param nil (\, ...))) debugger> (lambda (p) (\` (param nil ...)))((("title" . "test of xmlrpc") ("authorName" . "admin") ("dateCreated") ("mt_tb_ping_urls") ("mt_convert_breaks") ("link") ("description" . "This is a test of blogging directly from emacs.") ("categories" . ["site" "test"]))) debugger> mapcar((lambda (p) (\` (param nil ...))) ("1" "admin" "*redacted*" (("title" . "test of xmlrpc") ("authorName" . "admin") ("dateCreated") ("mt_tb_ping_urls") ("mt_convert_breaks") ("link") ("description" . "This is a test of blogging directly from emacs.") ("categories" . ["site" "test"])) nil)) debugger> (let* ((m-name ...) (m-params ...) (m-func-call ...)) (if (> xml-rpc-debug 1) (print m-func-call ...)) (xml-rpc-request server-url m-func-call async-callback-func)) debugger> xml-rpc-method-call-async(nil "http://serpentpublications.org/wordpress/xmlrpc.php" metaWeblog\.newPost ("1" "admin" "*redacted*" (("title" . "test of xmlrpc") ("authorName" . "admin") ("dateCreated") ("mt_tb_ping_urls") ("mt_convert_breaks") ("link") ("description" . "This is a test of blogging directly from emacs.") ("categories" . ["site" "test"])) nil)) debugger> (let ((response ...)) (cond (... ...) (t ...))) debugger> xml-rpc-method-call("http://serpentpublications.org/wordpress/xmlrpc.php" metaWeblog\.newPost "1" "admin" "*redacted" (("title" . "test of xmlrpc") ("authorName" . "admin") ("dateCreated") ("mt_tb_ping_urls") ("mt_convert_breaks") ("link") ("description" . "This is a test of blogging directly from emacs.") ("categories" . ["site" "test"])) nil) debugger> weblogger-api-meta-new-entry((("authorName" . "admin") ("dateCreated") ("texttype") ("url") ("title" . "test of xmlrpc") ("categories" . ["site" "test"]) ("entry-id") ("content" . "This is a test of blogging directly from emacs.")) nil) debugger> eval((weblogger-api-meta-new-entry struct publishp)) debugger> (cons "entry-id" (eval (\` ...))) debugger> (add-to-list (quote struct) (cons "entry-id" (eval ...))) debugger> (ring-insert weblogger-entry-ring (add-to-list (quote struct) (cons "entry-id" ...))) debugger> weblogger-api-new-entry((("authorName" . "admin") ("dateCreated") ("texttype") ("url") ("title" . "test of xmlrpc") ("categories" . ["site" "test"]) ("entry-id") ("content" . "This is a test of blogging directly from emacs.")) nil) debugger> (weblogger-entry-setup-headers (weblogger-api-new-entry entry publishp)) debugger> (cond ((cdr ...) (weblogger-update-ring entry) (weblogger-api-send-edits entry publishp) (set-buffer-modified-p nil)) (t (weblogger-entry-setup-headers ...))) debugger> (cond ((and ... ...) (weblogger-server-username arg) (weblogger-server-password arg) (weblogger-weblog-id arg) (cond ... ...)) (t (message "Nothing to post."))) debugger> (let ((entry ...)) (cond (... ... ... ... ...) (t ...))) debugger> (if (not (equal ... *weblogger-entry*)) (message "You are not in the *weblogger-entry* buffer.") (let (...) (cond ... ...))) debugger> weblogger-save-entry(nil nil) debugger> weblogger-send-entry() debugger> call-interactively(weblogger-send-entry nil nil) If I just fill in the "subject" line and write a one-line message, I get: Messages> Contacting host: rpc.weblogs.com:80 Messages> Reading [text/xml]... 182 bytes of 172 bytes (106%) Messages> Reading... done. Messages> list: Wrong type argument: stringp, [] With a longer message, I get: Messages> Contacting host: rpc.weblogs.com:80 Messages> Reading [text/xml]... 512 bytes of 504 bytes (102%) Messages> Reading... done. Messages> if: Error during request: 400 -- Laura (mailto:lcon...@laymusic.org) (617) 661-8097 233 Broadway, Cambridge, MA 02139 http://www.laymusic.org/ http://www.serpentpublications.org The older I grow the more I hate to write notes, and I trust I have here written nothing that may make it necessary for me to write another. Nathaniel Hawthorne, letter to his sister-in-law Elizabeth Peabody _______________________________________________ Emacsweblogs mailing list Emacsweblogs@nongnu.org http://lists.nongnu.org/mailman/listinfo/emacsweblogs