cgit.sxemacs.org Git - riece/blob - lisp/riece-twitter.el

   1 (require 'riece-message)
   2
   3 (defvar riece-twitter-credential nil)
   4
   5 (defun riece-twitter-message-filter (message)
   6   (if (and (riece-message-own-p message)
   7            (eq 'action (riece-message-type message)))
   8       (start-process
   9        "curl" nil "curl"
  10        "-H" "X-Twitter-Client: Riece"
  11        "-H" (concat "X-Twitter-Client-Version: " riece-version-number)
  12        "-H" "X-Twitter-Client-URL: http://riece.nongnu.org/twitter.xml"
  13        "-u" riece-twitter-credential
  14        "-d" (concat "status="
  15                     (riece-twitter-escape-string (encode-coding-string (riece-message-text message) 'utf-8)))
  16        "-s"
  17        "http://twitter.com/statuses/update.json"))
  18   message)
  19
  20 (defun riece-twitter-escape-string (string)
  21   (let ((index 0))
  22     (while (string-match "[^0-9A-Za-z\-\._~:/?@!\$'()*,]" string index)
  23       (setq string (replace-match
  24                     (format "%%%02X" (aref string (match-beginning 0)))
  25                     t t string)
  26             index (+ 3 (match-beginning 0))))
  27     string))
  28
  29 (defun riece-twitter-insinuate ()
  30   (add-hook 'riece-message-filter-functions 'riece-twitter-message-filter))
  31
  32 (defun riece-twitter-uninstall ()
  33   (remove-hook 'riece-message-filter-functions 'riece-twitter-message-filter))
  34
  35 (provide 'riece-twitter)
  36
  37 ;;; riece-twitter.el ends here