zizo.el

(defun _zizo (begin end format)
  (let ((str (buffer-substring-no-properties begin end))
        (rules '((" " "+") ("|" "%7C") ("\n" "|") ("?" "%3F") ("&" "%26"))))
    (loop for (pat rep) in rules
          do (setq str (replace-regexp-in-string pat rep str)))
    (browse-url (concat format str))))

(defun zizo (begin end &optional arg)
  (interactive "r\nP")
  (_zizo begin end "http://chart.apis.google.com/chart?chst=d_text_outline&chld=000000|12|l|_|_|"))

(defun hotoke (begin end &optional arg)
  (interactive "r\nP")
  (_zizo begin end "http://chart.apis.google.com/chart?chst=d_text_outline&chld=ff0000|150|l|ffff00|b|"))

(provide 'zizo)