From e80b12ba16b8cefd80965ee1a31cb835dc7df9c7 Mon Sep 17 00:00:00 2001 From: "Alejandro R. Sedeno" Date: Mon, 29 Sep 2008 17:59:43 -0400 Subject: [PATCH] use BarnOwl::get_config_dir() --- lib/BarnOwl/Module/ColorUtils.pm | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/lib/BarnOwl/Module/ColorUtils.pm b/lib/BarnOwl/Module/ColorUtils.pm index 5dd1d3a..4e658c1 100644 --- a/lib/BarnOwl/Module/ColorUtils.pm +++ b/lib/BarnOwl/Module/ColorUtils.pm @@ -21,6 +21,8 @@ use Getopt::Long; #Run this on start and reload. Adds styles, sets style to start. ################################################################################ our @colorList = (); +my $config_dir = BarnOwl::get_config_dir(); + sub onStart { @colorList = ('black','red','green','yellow', 'blue','magenta','cyan','white'); @@ -423,9 +425,9 @@ sub save($) { return unless (grep(/^[fb]g$/, $fgbg)); if ($fgbg eq 'bg') { - open(COLORS, ">$ENV{HOME}/.owl/colormap_bg"); + open(COLORS, ">$config_dir/colormap_bg"); } else { - open(COLORS, ">$ENV{HOME}/.owl/colormap"); + open(COLORS, ">$config_dir/colormap"); } my $type = 'zephyr'; @@ -475,10 +477,10 @@ sub load($) # Parse the color file. if ($fgbg eq 'bg') { - open(COLORS, "<$ENV{HOME}/.owl/colormap_bg") || return; + open(COLORS, "<$config_dir/colormap_bg") || return; } else { - open(COLORS, "<$ENV{HOME}/.owl/colormap") || return; + open(COLORS, "<$config_dir/colormap") || return; } -- 2.45.2