summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMatthias Benkard <code@mail.matthias.benkard.de>2009-10-30 22:15:18 +0100
committerMatthias Benkard <code@mail.matthias.benkard.de>2009-10-30 22:15:18 +0100
commit572d6da287d3c2042174d7d8c4ddc67489d74e4f (patch)
tree144eb770d62213a18bbaa97377ec4e1eb0967326
parent247d714515316d7b27ed1752a48de53266801f48 (diff)
Fix XML-RPC letter case problems.
Ignore-this: 679aff1692f6fa087f39a435d99d4bce darcs-hash:c17abd3be4b9d01926e5deeb070b0a9a00a18975
-rw-r--r--xml-rpc-functions.lisp33
1 files changed, 18 insertions, 15 deletions
diff --git a/xml-rpc-functions.lisp b/xml-rpc-functions.lisp
index 0b621f5..11c6803 100644
--- a/xml-rpc-functions.lisp
+++ b/xml-rpc-functions.lisp
@@ -22,7 +22,10 @@
(in-package #:mulk.journal)
-(defun mulk.journal.xml-rpc::|metaWeblog.newPost| (blogid username password struct publish)
+#.(setf *readtable* (copy-readtable))
+#.(setf (readtable-case *readtable*) :invert)
+
+(defun mulk.journal.xml-rpc::metaWeblog.newPost (blogid username password struct publish)
(declare (ignore blogid username publish))
(flet ((do-stuff ()
(with-slots (categories pub-date guid description link comments title)
@@ -32,7 +35,7 @@
(t (with-wsse-authentication () (do-stuff))))))
-(defun mulk.journal.xml-rpc::|metaWeblog.editPost| (postid username password struct publish)
+(defun mulk.journal.xml-rpc::metaWeblog.editPost (postid username password struct publish)
(declare (ignore username publish))
(flet ((do-stuff ()
(with-slots (categories pub-date guid description link comments title)
@@ -42,32 +45,32 @@
(t (with-wsse-authentication () (do-stuff))))))
-(defun mulk.journal.xml-rpc::|metaWeblog.getPost| (postid username password)
+(defun mulk.journal.xml-rpc::metaWeblog.getPost (postid username password)
(declare (ignore username password))
(with-slots (title date body categories last-modification id uuid)
(find-entry postid)
- (xml-rpc-struct :categories (mapcar #'uuid-of categories)
- :pub-date (xml-rpc-time date)
- :guid uuid
- :description (htmlise-entry (find-entry postid))
- :link (link-to :view :post-id postid :absolute t)
- :comments (link-to :view :post-id postid :absolute t)
- :title title)))
+ (xml-rpc-struct :CATEGORIES (mapcar #'uuid-of categories)
+ :pubDate (xml-rpc-time date)
+ :GUID uuid
+ :DESCRIPTION (htmlise-entry (find-entry postid))
+ :LINK (link-to :view :post-id postid :absolute t)
+ :COMMENTS (link-to :view :post-id postid :absolute t)
+ :TITLE title)))
-(defun mulk.journal.xml-rpc::|metaWeblog.getCategories| (blogid username password)
+(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)
+(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)))
+ collect (mulk.journal.xml-rpc::metaWeblog.getPost post-id username password)))
-(defun mulk.journal.xml-rpc::|blogger.getUsersBlogs| (appkey 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))))
+ (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