File Coverage

blib/lib/Audio/GtkGramofile/Settings.pm

Criterion	Covered	Total	%
statement	10	12	83.3
branch			n/a
condition			n/a
subroutine	4	4	100.0
pod			n/a
total	14	16	87.5

package Audio::GtkGramofile::Settings;

use strict;
use warnings;
use Carp;

use Glib 1.040, qw(TRUE FALSE);
use IO::File;
use Config::IniFiles;

use vars qw($VERSION);
$VERSION = do { my @r = (q$Revision: 1.3 $ =~ /\d+/g); shift @r; sprintf("0.%04d",@r) }; # must be all one line, for MakeMaker

sub new {
  my $proto = shift;
  my $args = shift;
  my $class = ref($proto) || $proto;

  my $self = {};
  bless $self, $class;

  return $self;
}

sub gui {
  my $self = shift;
  my $gui = shift;

  $self->{gui} = $gui if defined $gui;
  $self->{gui};
}

sub signals {
  my $self = shift;
  my $signals = shift;

  $self->{signals} = $signals if defined $signals;
  $self->{signals};
}

sub callbacks {
  my $self = shift;
  my $callbacks = shift;

  $self->{callbacks} = $callbacks if defined $callbacks;
  $self->{callbacks};
}

sub logic {
  my $self = shift;
  my $logic = shift;

  $self->{logic} = $logic if defined $logic;
  $self->{logic};
}

sub load_settings {
  my $self = shift;

  my $cfg_file = $ENV{HOME}."/.gtkgramofilerc";
  my $handle;
  if (-e $ENV{HOME}."/.gtkgramofilerc") {
    $handle = IO::File->new($ENV{HOME}."/.gtkgramofilerc","r");
  } else {
    no strict 'refs';
    my $data = __PACKAGE__ . '::DATA';
    $handle = *$data;
  }
  my $cfg = Config::IniFiles->new(-file => $handle);

  foreach my $section ($cfg->Sections) {
    foreach my $parameter ($cfg->Parameters($section)) {
      my $val = $cfg->val( $section, $parameter);
      $self->{defaults}->{$section}->{$parameter} = $val;
      $self->{settings}->{$section}->{$parameter} = $val; # only set this if it changes during the program
    }
  }
}

sub get_value {
  my $self = shift;
  my $section = shift;
  my $parameter = shift;

  return (defined $self->{settings}->{$section}->{$parameter}) ?
  $self->{settings}->{$section}->{$parameter} :
  $self->{defaults}->{$section}->{$parameter};
}

sub set_value {
  my $self = shift;
  my $section = shift;
  my $parameter = shift;
  my $value = shift;

  $self->{settings}->{$section}->{$parameter} = $value;
}

sub get_defaults {
  return shift->{defaults};
}

sub get_default {
  my $self = shift;
  my $section = shift;
  my $parameter = shift;

  return $self->{defaults}->{$section}->{$parameter};
}

sub set_default {
  my $self = shift;
  my $section = shift;
  my $parameter = shift;

  $self->{settings}->{$section}->{$parameter} = $self->{defaults}->{$section}->{$parameter};
}

sub get_section_keys {
  my $self = shift;
  my $section = shift;

  return keys %{$self->{defaults}->{$section}};
}

sub restore_settings {
  shift->{settings} = undef;
}

sub save_settings {
  my $self = shift;

  my @defaults = qw(tracksplit_general process_general);
  my @settings = qw(general tracksplit_params process_filters process_params);

  my $cfg_file = $ENV{HOME}."/.gtkgramofilerc";
  my $cfg_fh = IO::File->new($cfg_file,"w") or croak "Can't get handle for $cfg_file, $!";

  foreach my $section (@defaults) {
    print $cfg_fh "\n[$section]\n\n";
    foreach my $parameter (keys %{$self->{defaults}->{$section}}) {
      print $cfg_fh "$parameter = ",$self->{defaults}->{$section}->{$parameter},"\n";
    }
  }

  foreach my $section (@settings) {
    print $cfg_fh "\n[$section]\n\n";
    foreach my $parameter (keys %{$self->{defaults}->{$section}}) {
      print $cfg_fh "$parameter = ";
      print $cfg_fh (defined $self->{settings}->{$section}->{$parameter}) ?
      $self->{settings}->{$section}->{$parameter} :
      $self->{defaults}->{$section}->{$parameter};
      print $cfg_fh "\n";
    }
  }

  close $cfg_fh or croak "Can't close filehandle for $cfg_file, $!";
}

sub set_warning_text ($$) {
  my $widget = shift;
  my $warn = shift;
  $widget->modify_text('normal', Gtk2::Gdk::Color->new($warn * 65535, 0, 0));
}

1;

__DATA__