Find config at os specific locations

mdom · Mar 1, 2016 · 15e7dbf · 15e7dbf
1 parent e6a0b3b
commit 15e7dbf
Showing 1 changed file with 12 additions and 1 deletion.
diff --git a/lib/App/txtnix.pm b/lib/App/txtnix.pm
@@ -46,7 +46,7 @@ sub new {
     }
 
     $args->{config} =
-      path( $args->{config} || '~/.config/twtxt/config' );
+      $args->{config} ? path( $args->{config} ) : $class->_build_config_file;
 
     for (qw(since until)) {
         if ( exists $args->{$_} ) {
@@ -92,6 +92,17 @@ sub _build_ua {
     return $ua;
 }
 
+sub _build_config_file {
+    my $dir = path(
+          $ENV{XDG_CONFIG_HOME} ? $ENV{XDG_CONFIG_HOME}
+        : $^O eq "MSWin32"      ? $ENV{APPDATA}
+        : $^O eq 'darwin'       ? '~/Library/Application Support'
+        :                         '~/.config/'
+    )->child('twtxt');
+    $dir->mkpath if !$dir->exists;
+    return $dir->child('config');
+}
+
 sub write_config {
     my ( $self, $config ) = @_;
     $config->write( $self->config, 'utf8' );