konversation/src/konversation-0.20-customfonts.pl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

#! /usr/bin/perl

use strict;


while (<>)
{
    chomp;
    if ($_ =~ /^TextFont/)
    {
        print("CustomTextFont=true\n");
    }
    if ($_ =~ /^ListFont/)
    {
        print("CustomListFont=true\n");
    }
    if ($_ =~ /^TabFont/)
    {
        print("CustomTabFont=true\n");
    }
}