File Coverage

lib/Kephra/Config/Default.pm

Criterion	Covered	Total	%
statement	6	45	13.3
branch	0	6	0.0
condition			n/a
subroutine	2	9	22.2
pod	0	7	0.0
total	8	67	11.9

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 = <



		 processorArchitecture="x86"
		 version="5.1.0.0"
		 type="win32"
		 name="Controls"
	 />
	 MOM Client Application



				 type="win32"
				 name="Microsoft.Windows.Common-Controls"
				 version="6.0.0.0"
				 publicKeyToken="6595b64144ccf1df"
				 language="*"
				 processorArchitecture="x86"
		 />



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;