color 매크로
UseModWiki소스수정/Color 를 그대로 적용
<color(blue:yellow,이 매크로는)> <color(red:#EEE,다음과 같이)> <color(green,짧은 부분의)> <color(gold,색깔을 바꿀 때)> <color(#369,쉽게 사용할 수 있다.)>
이 매크로는 다음과 같이 짧은 부분의 색깔을 바꿀 때 쉽게 사용할 수 있다.
wiki.pl 수정
sub MacroSubst {
...
$txt =~ s/&__LT__;color\(([^,:)]+):([^,)]+),([^\n]+?)\)&__GT__;/&MacroColorBk($1, $2, $3)/gei;
$txt =~ s/&__LT__;color\(([^,)]+),([^\n]+?)\)&__GT__;/&MacroColor($1, $2)/gei;
...
return $txt;
}
다음 두 함수 추가
sub MacroColor {
my ($color, $message) = @_;
return "<span style='color:$color;'>$message</span>";
}
sub MacroColorBk {
my ($color, $bgcolor, $message) = @_;
return "<span style='color:$color; background-color:$bgcolor'>$message</span>";
}
추가 업데이트 내역
ext2.18a - 글자색과 배경색 구분을 콜론으로 하도록 변경
사용자 의견
어... 업데이트 안했는데 사실 지금은
sub MacroColor {
my ( $color, $message ) = @_;
my ($c, $b) = split /:/, $color;
return qq(<span style="color:$c;background-color:$b">$message</span>) if (defined $b);
return qq(<span style="color:$color;">$message</span>);
}
따로 호출하기도 귀찮아서 함수 하나로 합쳤습니다.
- 아니 저 생각은 왜 못했을까요 부끄럽습니다ㅋㅋㅋ 이걸 또 고치기도 귀찮으니 뭐 그냥 두죠ㅎ
위키위키분류