Implement metaWeblog.getCategories and metaWeblog.getRecentPosts.

Ignore-this: 38094bb5aff14dc701398aa871e22116

darcs-hash:607981d7d7dff2945b8a1824c152a365ea28ceea

1 files changed, 11 insertions, 0 deletions

diff --git a/xml-rpc-functions.lisp b/xml-rpc-functions.lisp
index 41ee2a3..7c914b9 100644
--- a/xml-rpc-functions.lisp
+++ b/xml-rpc-functions.lisp
@@ -55,6 +55,17 @@
                      :title title)))
 
 
+(defun mulk.journal.xml-rpc::|metaWeblog.getCategories| (blogid username password)
+  (declare (ignore blogid username password))
+  (list))
+
+
+(defun mulk.journal.xml-rpc::|metaWeblog.getRecentPosts| (blogid username password number-of-posts)
+  (declare (ignore blogid))
+  (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 create-or-edit-post (body title &key entry-type post-id)
   (with-transaction ()
     (let* ((entry (if post-id