coLinux で Emacs の kill-ring の内容をWindowsのクリップボードと同期する #2

下のエントリのクライアント部分を xml-rpc.el で実装してみるテスト。xml-rpc.el は多分 non-ascii な文字に対応していないんだけど、対応済みのがこのへんにあるので、それをダウンロードして load-path の通ったところに置いておく。

(require 'xml-rpc)
(load "gnus/mailcap")

(defvar cl-sync-url "http://192.168.10.1:10050"
  "*XML-RPC server url for clipboard sync")

(defadvice kill-new
  (before clipboard-sync (content &rest rest) activate)
  (xml-rpc-method-call-async 'values cl-sync-url 'set_clipboard content))

おぉ、案外簡単だ。こっちのがいいかな。
ちなみにわざわざ gnus/mailcp をロードしているのは、うちの環境だと FLIM の mailcap.el がロードされて必要な関数が足りずにエラーになるから。