summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMatthias Benkard <code@mail.matthias.benkard.de>2009-10-30 22:04:53 +0100
committerMatthias Benkard <code@mail.matthias.benkard.de>2009-10-30 22:04:53 +0100
commit247d714515316d7b27ed1752a48de53266801f48 (patch)
treec6ddcf50ac193ada2be31cbea1b0221f87ba773f
parent5d0b3520f01f55d09ed05927f1f4aa43df9e5bc6 (diff)
Implement blogger.getUsersBlogs.
Ignore-this: ee4a356f4d50dce67548f23fb6f29395 darcs-hash:26ec96b7f3d0bd074bd6426c5b3dc1aaac7cdf91
-rw-r--r--xml-rpc-functions.lisp5
1 files changed, 5 insertions, 0 deletions
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 ()