List::Filter::Library::FileSystem - filters for unix file listings

   # This is a plugin, not intended for direct use.
   # See: List::Filter::Storage::CODE

package List::Filter::Library::FileSystem;
use base qw( Class::Base );

use 5.006;
use strict;
use warnings;
my $DEBUG = 0;
use Carp;
use Data::Dumper;
use Hash::Util qw(lock_keys unlock_keys);

our $VERSION = '0.01';

# Note:
# "new" is inherited from Class::Base.
# It calls the following "init" routine automatically.

sub init {
  my $self = shift;
  my $args = shift;
  unlock_keys( %{ $self } );

  my $lfs = List::Filter::Storage->new( storage =>
                                                    { format => 'MEM', } );

  # define new attributes
  my $attributes = {
           storage_handler            => $args->{ storage_handler } || $lfs,
           };

  # add attributes to object
  my @fields = (keys %{ $attributes });
  @{ $self }{ @fields } = @{ $attributes }{ @fields };    # hash slice

  lock_keys( %{ $self } );
  return $self;
}

sub define_filters_href {
  my $self = shift;

  my $filters =
    {
     ':jpeg' =>
     {
      'description'  => 'Find jpegs, for all common extensions.',
      'method'         => 'find_any',
      'terms' =>
      [
       '\.jpeg$',
       '\.JPEG$',
       '\.jpg$',
       '\.JPG$',
      ],
      'modifiers'  => 'x',
     },

     ':web_img' =>              #
     {
      'description'  => 'Find files with common web image format extensions.',
      'method'         => 'find_any',
      'terms' =>
      [
       '\.jpeg$',
       '\.JPEG$',
       '\.jpg$',
       '\.JPG$',
       '\.gif$',
       '\.GIF$',
       '\.png$',
       '\.PNG$',
      ],
      'modifiers'  => 'x',
     },

     ':dired-x-omit' =>         #
     {
      'description'  => 'Filters files like the emacs dired-x omit feature.',
      'method'         => 'skip_any',
      'terms' =>
      [
       '^\.?\#', # need to escape '#' in a //x match
       '^\.$',
       '^\.\.$',
       'CVS/$',
       '\.o$',
       '~$',
       '\.bin$',
       '\.lbin$',
       '\.fasl$',
       '\.ufsl$',
       '\.a$',
       '\.ln$',
       '\.blg$',
       '\.bbl$',
       '\.elc$',
       '\.lof$',
       '\.glo$',
       '\.idx$',
       '\.lot$',
       '\.dvi$',
       '\.fmt$',
       '\.tfm$',
       '\.pdf$',
       '\.class$',
       '\.fas$',
       '\.lib$',
       '\.x86f$',
       '\.sparcf$',
       '\.lo$',
       '\.la$',
       '\.toc$',
       '\.log$',
       '\.aux$',
       '\.cp$',
       '\.fn$',
       '\.ky$',
       '\.pg$',
       '\.tp$',
       '\.vr$',
       '\.cps$',
       '\.fns$',
       '\.kys$',
       '\.pgs$',
       '\.tps$',
       '\.vrs$',
       '\.pyc$',
       '\.pyo$',
       '\.idx$',
       '\.lof$',
       '\.lot$',
       '\.glo$',
       '\.blg$',
       '\.bbl$',
       '\.cp$',
       '\.cps$',
       '\.fn$',
       '\.fns$',
       '\.ky$',
       '\.kys$',
       '\.pg$',
       '\.pgs$',
       '\.tp$',
       '\.tps$',
       '\.vr$',
       '\.vrs$',
      ],
      'modifiers'  => 'x',
     },

     ':doom-omit' => # the way I like my emacs omit feature set-up
     {
      'description'  => q<emacs-like omit, without omitting too much>,
      'method'         => 'skip_any',
      'terms' =>
      [
       '^\.?\#',
       '^\.$',
       '^\.\.$',
       'CVS',
       'RCS',
       '~$',
       '\.a$',
       '\.elc$',
       '\.idx$',
       '\.dvi$',
      ],
      'modifiers'  => 'x',
     },

     ':skipdull' =>
     {
      'description'  => 'Screen out some uninteresting files.',
      'method'         => 'skip_any',
      'terms' =>
      [
       '~$',                    # emacs backups
       '/\#',                   # emacs autosaves
       '/\.\#',                 # emacs symlinks to autosaves
       ',v$',                   # cvs/rcs repository files
       '/CVS$',                 # CVS directories
       '/CVS/',                 # files in CVS directories
       '/RCS$',                 # RCS directories
       '\.elc$',                # compiled elisp
      ],
      'modifiers'  => 'x',
     },

     ':skipdull_not' =>
     {
      'description'  => 'bogus filter for testing.',
      'method'         => 'skip_any',
      'terms' =>
      [
       'e',
      ],
      'modifiers'  => 'x',
     },

     ':c-omit' =>              #
     {
      'description'  => q<Omit dull files for working in compiled languages like C>,
      'method'         => 'skip_any',
      'terms' =>
      [
       '\.o$',                  # compiled "object" files
       '~$',                    # emacs backups
       '/\#',                   # emacs autosaves
       '/\.\#',                 # emacs symlinks to autosaves
       ',v$',                   # cvs/rcs repository files
       '\.elc$',                # compiled elisp
      ],
      'modifiers'  => 'x',
     },

     ':updatedb_prune' =>              #
     {
      'description'  => q<Prune directories in the same way as updatedb>,
      'method'         => 'skip_any',
      'terms' =>
      [
       '^/tmp$',
       '^/usr/tmp$',
       '^/var/tmp$',
       '^/afs$',
       '^amd$',
       '^/alex$',
       '^/var/spool$',
       '^/sfs$',
       '^/media$',
      ],
      'modifiers'  => 'x',
     },

     ':hide_vc' =>              #
     {
      'description'  => q<ignore common version control files>,
      'method'         => 'skip_any',
      'terms' =>
      [
       ',v$',                   # cvs/rcs repository files
       '/CVS$',                 # CVS directories
       '/CVS/',                 # files in CVS directories
       '/RCS$',                 # RCS directories
       '/RCS/',                 # files in RCS directories
       '/_MTN$',                # monotone directories
       '/_MTN/',                # files in monotone directories
       '/.svn$',                # SVN directories
       '/.svn/',                # files in SVN directories
       '/_darcs$',              # darcs directories
       '/_darcs/',              # files in darcs directories
       '/.git$',                # GIT directories
       '/.git/',                # files in GIT directories
      ],
      'modifiers'  => 'x',
     },

    };
  return $filters;
}

sub storage_handler {
  my $self = shift;
  my $lfs = $self->{ storage_handler };
  return $lfs;
}

sub set_storage_handler {
  my $self = shift;
  my $lfs = shift;
  $self->{ storage_handler } = $lfs;
  return $lfs;
}

1;