1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
|
# -*- coding: utf-8 -*-
require 'gtk2'
miquire :core, 'entity'
module Pango
class << self
# テキストをPango.parse_markupで安全にパースできるようにエスケープする。
def escape(text)
text.gsub(/[<>&]/){|m| Message::Entity::ESCAPE_RULE[m] } end
alias old_parse_markup parse_markup
# パースエラーが発生した場合、その文字列をerrorで印字する。
def parse_markup(str)
begin
old_parse_markup(str)
rescue GLib::Error => e
error str
raise e end end end end
=begin rdoc
本文の、描画するためのテキストを生成するモジュール。
=end
module Gdk::MarkupGenerator
ESCAPE_KEYS = Regexp::union(*Message::Entity::ESCAPE_RULE.keys)
ESCAPE_KV = Message::Entity::ESCAPE_RULE.method(:[])
# 本文を返す
def main_text
message.to_show
end
# 本文のタグをエスケープしたものを返す
def escaped_main_text
Pango.escape(main_text) end
# リンクに装飾をつけた文字列の配列を返す。だいたい一文字づつに分かれてる。
def styled_main_text
splited = message.to_show.dup
terminate = splited.size
message.links.to_a.reverse_each{ |l|
escape_range = l[:range].last ... terminate
splited[escape_range] = splited[escape_range].gsub(ESCAPE_KEYS, &ESCAPE_KV)
splited[l[:range]] = '<span underline="single">'+"#{Pango.escape(l[:face])}</span>"
terminate = l[:range].first
}
splited[0...terminate] = splited[0...terminate].gsub(ESCAPE_KEYS, &ESCAPE_KV) if terminate != 0
splited end
end
|
