はてダのtex記法をgoogle chart apiを使った数式表現に変換＆逆変換

hatena-latex-to-google-chart-api.el

;; latex数式をgoogle chart apiを使った数式表現に変換
(defun latex-to-google-chart-api ()
  (interactive)
  (replace-regexp "\\[tex:\\(.*?\\)\\]"
    (query-replace-compile-replacement
     "<img src=\"http://chart.apis.google.com/chart?cht=tx&chl=\\,(url-hexify-string \\1)\"/>" t) nil (point-min) (point-max)))
(global-set-key "\C-c\C-l\C-t" 'latex-to-google-chart-api)
;; 逆変換
(defun google-chart-api-to-latex ()
  (interactive)
  (replace-regexp "<img src=\"http://chart.apis.google.com/chart\\?cht=tx&chl=\\(.*?\\)\"/>"
    (query-replace-compile-replacement
     "[tex:\\,(url-unhex-string \\1)]" t) nil (point-min) (point-max)))
(global-set-key "\C-c\C-t\C-l" 'google-chart-api-to-latex)