package Kephra::Config::Default;
our $VERSION = '0.19';
use strict;
use warnings;
# complete set of config to be able to start app under all circumstances
sub global_settings {
require Kephra::Config::Default::GlobalSettings;
my $config = Kephra::Config::Default::GlobalSettings::get();
if ($^O =~ /linux/i) {
$config->{editpanel}{font}{family} = 'DejaVu Sans Mono';
$config->{editpanel}{font}{size} = 10;
$config->{app}{panel}{output}{font_family} = 'DejaVu Sans Mono';
$config->{app}{panel}{output}{font_size} = 9;
$config->{app}{panel}{notepad}{font_family} = 'Nimbus Sans L';
$config->{app}{panel}{notepad}{font_size} = 10;
$config->{app}{window}{position_x} = 10;
$config->{app}{window}{position_y} = 10;
$config->{app}{window}{size_x} = 770;
$config->{app}{window}{size_y} = 525;
}
elsif ($^O =~ /darwin/i) {
$config->{editpanel}{font}{family} = 'Monaco';
$config->{editpanel}{font}{size} = 12;
$config->{app}{panel}{output}{font_family} = 'Monaco';
$config->{app}{panel}{output}{font_size} = 11;
$config->{app}{panel}{notepad}{font_family} = 'Arial';
$config->{app}{panel}{notepad}{font_size} = 12;
$config->{app}{window}{position_x} = 10;
$config->{app}{window}{position_y} = 25;
$config->{app}{window}{size_x} = 780;
$config->{app}{window}{size_y} = 565;
}
return $config;
}
sub commandlist {
require Kephra::Config::Default::CommandList;
Kephra::Config::Default::CommandList::get();
}
sub localisation {
require Kephra::Config::Default::Localisation;
Kephra::Config::Default::Localisation::get();
}
sub mainmenu {
require Kephra::Config::Default::MainMenu;
Kephra::Config::Default::MainMenu::get();
}
sub contextmenus {
require Kephra::Config::Default::ContextMenus;
Kephra::Config::Default::ContextMenus::get();
}
sub toolbars {
require Kephra::Config::Default::ToolBars;
Kephra::Config::Default::ToolBars::get();
}
sub drop_xp_style_file{
my $file = shift;
my $content = <<EOD;
<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">
<assemblyIdentity
processorArchitecture="x86"
version="5.1.0.0"
type="win32"
name="Controls"
/>
<description>MOM Client Application</description>
<dependency>
<dependentAssembly>
<assemblyIdentity
type="win32"
name="Microsoft.Windows.Common-Controls"
version="6.0.0.0"
publicKeyToken="6595b64144ccf1df"
language="*"
processorArchitecture="x86"
/>
</dependentAssembly>
</dependency>
</assembly>
EOD
my $l18n = Kephra::Config::Localisation::strings()->{dialogs}{error};
open my $FILE, '>', $file or Kephra::Dialog::warning_box
($l18n->{file_write}." $file", $l18n->{file});
print $FILE $content;
}
1;