(setq advogato-username "SyntaxPolice") (setq advogato-url "http://www.advogato.org/XMLRPC") (defun advogato-get-most-recent (&optional in-user) "Gets the last diary entry" (interactive) (let ((user (if in-user in-user advogato-username))) (let ((lastIndex (- (xml-rpc-method-call advogato-url 'diary.len user) 1))) (xml-rpc-method-call advogato-url 'diary.get user lastIndex)))) (defun advogato-insert-most-recent (&optional in-user) "Inserts the most recent diary entry." (interactive) (let ((user (if in-user in-user advogato-username))) (insert-string (advogato-get-most-recent user)))) (defun advogato-post-string-as-diary (diary-str cookie &optional in-index) "Post the given string as the diary entry. Use -1 as an index for a new entry." (let ((index (if in-index in-index -1))) (xml-rpc-method-call advogato-url 'diary.set cookie index diary-str))) (defun advogato-post-buffer-as-diary (cookie &optional in-index) "Post the current buffer as your diary entry" (advogato-post-string-as-diary (buffer-string) cookie in-index)) (defun advogato-get-cookie (ad-username ad-password) ; (setq advogato-username username) (xml-rpc-method-call advogato-url 'authenticate ad-username ad-password)) ; ------------------------------------------------------------ ; Below is for testing: (setq foo (advogato-insert-most-recent "SyntaxPolice")) (advogato-post-buffer-as-diary cookie) (defun advogato-get-most-recent2 (user) "Gets the last diary entry" (interactive) (let ((lastIndex (- (xml-rpc-method-call advogato-url 'diary.len user) 1)) ) (xml-rpc-method-call advogato-url 'diary.get user lastIndex))) (advogato-get-most-recent2 "SyntaxPolice") (setq advogato-password "asdf") ;