PaddleWiki改良点

PaddleWikiとは，Bunmeiさんが作成したWikiです． このサイトも，PaddleWikiを利用しています．
ここでは，私が独自に改良(改ざん？)した部分を載せます．

PaddleWiki要望はこちら

スタイルを変更

テーブルを固定(ピクセル指定)ではなく，可変(％指定)にした

ソースコード(整形済みテキスト)のCSSを追加(paddle_base.css)

/*
 * ソースコード整形表示
 */
PRE.source {
	BORDER: solid #9999ff 2px;
}

その他，テンプレートを適当にいじった．

システムの変更

ソースコード表示モード(整形済みテキスト)のときに，#includeの<>が表示できない問題を修正(自動的にエスケープするように)

	# 整形済みテキスト
	if ( $line =~ /^---/ ) {
		if ( $self->{source_flag} == 0 ) {
			$line =~ s/^[-]+//g;
			$self->{source_flag} = 1;
			return $line; #追加(by aoshima)
		}
		else {
			$line =~ s/^[-]+//g;
			$self->{source_flag} = 0;
			return $line;
		}
	}
	if ( $self->{source_flag} == 1 ) {
		$line =~ s/</\</g;		# < を < にエスケープ
		$line =~ s/>/\>/g;	# > を > にエスケープ
		return $line;
	}

ソースコード表示モード(整形済みテキスト)のときに，C++風コメントを表示できるようにした

	# 整形済みテキスト
	if ( $line =~ /^---/ ) {
		if ( $self->{source_flag} == 0 ) {
			$line =~ s/^[-]+//g;
			$self->{source_flag} = 1;
		}
		else {
			$line =~ s/^[-]+//g;
			$self->{source_flag} = 0;
			return $line;
		}
	}
	if ( $self->{source_flag} == 1 ) {
		return $line;
	}

	# COMMENT
	if ( $line =~ /^\/\// ) {
		$line = "";
		return $line;
	}

「^」をつけなくても，改行を自動的に入れるようにした(平文を貼り付けるときに便利)

# sub formatLineの最初のほうに追加
         # バックアップをとっておく
	my $line_backup = $line;

# sub formatLineの最後に追加 
	# 最初と変化がない部分は，改行を入れる
	# ただし，HTMLタグがあるときは改行を入れない
	if (($line_backup eq $line) && (!($line =~ /.*>/))) {
		$line .= '';
	}