ADDED: if FormatText is enabled one can now use a new special format

tag: //. If a text is surrounded by two slashes, i.e.: //blah//
                then it appears "invisible" by using blue forground and blue
                background color for displaying. This is handy for passwords
                since no nobody can grab you password by looking at your
                monitor, but you can copy&paste it.
This commit is contained in:
TLINDEN
2012-02-10 20:29:18 +01:00
parent 850a892bfb
commit a43f27d328
6 changed files with 34 additions and 13 deletions

View File

@@ -126,7 +126,7 @@ $TIME_COLOR = "blue";
$TOPIC_COLOR = "bold";
$TOPIC = 1;
$TopicSep = '/';
$version = "1.2.2";
$version = "1.2.3";
if ($TOPIC) {
$CurDepth = 1; # the current depth inside the topic "directory" structure...
}
@@ -178,6 +178,7 @@ $AUTO_CLEAR = "YES";
'whiteI' => '7;37',
'white_black' => '40;37;01',
'bold' => ';01',
'hide' => '44;34'
);
#
@@ -1181,18 +1182,22 @@ sub format {
# make text bold/underlined/inverse using current $NOTEC
my($note) = @_;
if ($FormatText) {
my $BN = uc($NOTEC);
# prepare colors to be used for replacement
my $BN = uc($NOTEC);
my $_BN = uc($_NOTEC);
my $UN = $NOTEC;
$UN =~ s/<(.*)>/<$1_>/;
$UN =~ s/<(.*)>/<$1_>/;
my $_UN = $UN;
$_UN =~ s/<(.*)>/<\/$1>/;
my $IN = $NOTEC; my $_IN = $_NOTEC;
$IN =~ s/<(.*)>/<$1I>/;
$_IN =~ s/<(.*)>/<$1I>/;
$_UN =~ s/<(.*)>/<\/$1>/;
my $IN = $NOTEC;
my $_IN = $_NOTEC;
$IN =~ s/<(.*)>/<$1I>/;
$_IN =~ s/<(.*)>/<$1I>/;
$note =~ s/\*\*([^\*^\*]*)\*\*/$BN$1$_BN/g;
$note =~ s/__([^_^_]*)__/$UN$1$_UN/g;
$note =~ s/{{([^}^}]*)}}/$IN$1$_IN/g;
$note =~ s#//([^/^/]*)//#<hide>$1</hide>#g;
}
$note =~ s/(<\/.*>)/$1$NOTEC/g;
$note;