From 247d714515316d7b27ed1752a48de53266801f48 Mon Sep 17 00:00:00 2001 From: Matthias Benkard Date: Fri, 30 Oct 2009 22:04:53 +0100 Subject: Implement blogger.getUsersBlogs. Ignore-this: ee4a356f4d50dce67548f23fb6f29395 darcs-hash:26ec96b7f3d0bd074bd6426c5b3dc1aaac7cdf91 --- xml-rpc-functions.lisp | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/xml-rpc-functions.lisp b/xml-rpc-functions.lisp index 7c914b9..0b621f5 100644 --- a/xml-rpc-functions.lisp +++ b/xml-rpc-functions.lisp @@ -65,6 +65,11 @@ (loop for post-id from (or (find-largest-post-id) 0) above (max 0 (- (or (find-largest-post-id) 0) number-of-posts)) collect (mulk.journal.xml-rpc::|metaWeblog.getPost| post-id username password))) +(defun mulk.journal.xml-rpc::|blogger.getUsersBlogs| (appkey username password) + (declare (ignore appkey username password)) + (list (xml-rpc-struct :blogid 0 :blogname "Kompottkins Weisheiten" :url (link-to :view :absolute t)))) + +;; Not implemented: blogger.getUserInfo blogger.setTemplate blogger.getTemplate blogger.newPost blogger.editPost (defun create-or-edit-post (body title &key entry-type post-id) (with-transaction () -- cgit v1.2.3