2007/09/14(金) [n年前の日記]
#8 [xyzzy] _HTML入力サポート - chez sugi
_xyzzy script: 右クリックを使った HTML 入力
◎ _クリップボードを実体参照+<br>付加して張り付け :
; ----- クリップボードを実体参照+<br>付加して張り付け
(defun skr-ins-edited-clipboard()
(interactive)
(when (get-clipboard-data)
(let ((skr-clip (get-clipboard-data)))
(delete-selection); 選択範囲は削除
(setq skr-clip (substitute-string skr-clip "&" "&"))
(setq skr-clip (substitute-string skr-clip " " " "))
(setq skr-clip (substitute-string skr-clip "\t" " "))
;(setq skr-clip (substitute-string skr-clip "\"" """)); 増長すぎ
(setq skr-clip (substitute-string skr-clip "<" "<"))
(setq skr-clip (substitute-string skr-clip ">" ">"))
(setq skr-clip (substitute-string skr-clip "\n" "<br>\n"))
(insert skr-clip))))
クリップボードの文字列の実体参照変換と改行の<br>変換をしてから張り付けます。
xyzzyの音よりまた拝借して改造。
スペースやタブ文字まで にしてしまう。
<pre>タグが嫌いな人向け。
効率の良い文字列置換がわからなかったので、置換しては代入の繰り返し。
[ ツッコむ ]
以上です。