Jeditでコピペした部分を赤くするスクリプト

コピペした部分が赤くなりますので、どの部分をコピペしたのかがわかりやすいと思います。

どちらかのサイトから引用したのか、履歴がありませんでした。

1. –コピー箇所明示.scpt
2. tell front document of application “Jedit X“
3. set theDefault to {charfont:“LucidaGrande“, charsize:12.0, forecolor:{65535, 0, 0}, backcolor:{0, 0, 0}}
4. activate
5. –クリップボードに転送
6. copy selected text to targetText
7. set the clipboard to targetText
8. —
9. if rich text then
10. set theRange to selected character range
11. stack to undo range theRange
12. set startIndex to (loc of theRange)
13. set endIndex to startIndex + (len of theRange) – 1
14. tell characters from startIndex to endIndex of text of it
15. set font to charfont of theDefault
16. set size to charsize of theDefault
17. set color of it to (forecolor of theDefault)
18. end tell
19. else
20. stack to undo
21. tell text of it
22. set font to charfont of theDefault
23. set size to charsize of theDefault
24. set color of it to (forecolor of theDefault)
25. end tell
26. end if
27. end tell

ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー

ページトップに戻る↑　　　　　　　　　　　　　　　　　　　　　　　　　　　ページ一番下へ↓