クリップボードへの転送
Posted feedbacks - Common Lisp
mc
#6695()
[
Common Lisp
]
X window上でMacOSXのpbpaste/pbcopyのような動作を実現できるxclipを使ってみました。
今回の例では、中ボタンでのペーストではなくCTR+V系にしました。
コマンド呼び出しのライブラリには、KMRCLを利用しています。
ちなみに、日本語の文字化け問題には対応していません…。
動作:
(pbcopy "foo")
; クリップボードへ
(pbpaste)
;=> foo
今回の例では、中ボタンでのペーストではなくCTR+V系にしました。
コマンド呼び出しのライブラリには、KMRCLを利用しています。
ちなみに、日本語の文字化け問題には対応していません…。
動作:
(pbcopy "foo")
; クリップボードへ
(pbpaste)
;=> foo
see: xclip を使って pbcopy/pbpaste っぽいコマンドを再現する
1 2 3 4 5 6 7 8 9 | (defun pbcopy (string)
(declare (string string))
(kmrcl:run-shell-command
"echo ~A|xclip -selection clipboard" string))
(defun pbpaste ()
(values
(kmrcl:command-output
"~A" "xclip -selection clipboard -o")))
|
matyr
#6723()
[
Common Lisp
]
mattsan
#6644()
Rating6/8=0.75
クリップボード(や同等の機能)へテキストを転送するプログラムをお願いします。 また可能でしたらクリップボードのデータを取り出すプログラムもお願いします。
システムに依存する内容ですが、応用範囲が広いと思いましたので出題させてもらいました。
[ reply ]