クリップボードを使う

yamasushi(2013/03/22 10:14:47 UTC)クリップボードを入出力につかえると便利じゃないだろうかと考えました。 linuxにはげしく依存してますので、ポータブルにかければいいなと思います。

(use gauche.process)
; clipboardをアクセスする
(define (call-with-input-clipboard proc)
  (call-with-input-process "xsel -ob" proc) )

(define (call-with-output-clipboard proc)
  (call-with-output-process "xsel -ib" proc) )

(define (read-clipboard)
  (call-with-input-clipboard (^p (port->string p) )))

(define (write-clipboard s)
  (call-with-output-clipboard (^p (display s p))) )

齊藤 : クリップボードを読み書きするライブラリを書いてみました。 残念ながら Windows のみのサポートですが。 もし様々な環境に対応しようとするなら場合分けしてそれぞれの処理を書くしか仕方がないでしょうね。 と、言っても Windows と X-Window とに対応すればだいたいカバーできるのかな? (2013/03/23 19:30:11 UTC)

https://github.com/SaitoAtsushi/gauche-clipboard

yamasushi : おお、ありがとうございます。(ちょうど拡張モジュールの書き方を勉強中なので助かります。)