# #
# Purpose: #
# #
-# Stuffs up an archive with quartz lists and current new notes. #
+# Produces an archive with any current notes from the user's home dir. #
# #
###############################################################################
# This program is free software; you can redistribute it and/or modify it #
# version of the License. Please send any updates to "fred@gruntose.com". #
###############################################################################
-require "importenv.pl";
require "shared_snarfer.pl";
+use Env qw(HOME);
+
&initialize_snarfer;
# get the number we use and increment it for the next use.
# variables for directory location to backup and the file to dump it in.
local($root) = "$HOME";
-local($base) = &snarf_prefix("notes");
-local($snarf_file) = &snarf_name($base, $number);
+local($snarf_file_base) = &snarf_prefix("notes");
+local($snarf_file) = &snarf_name($snarf_file_base, $number);
# store the archive number in the file for retrieval on the other side.
-&backup_number("aa_backup", $base, $number);
+&backup_number("aa_backup", $snarf_file_base, $number);
############################################################################
# get top level text files and other potentially important items...
-&backup_files($base, $number, $root, ".", ("*.html", "*.txt"));
-# backup all the hierarchies in our quartz directory.
-&backup_hierarchy($base, $number, "$root", "quartz");
+&backup_files($snarf_file_base, $number, $root, ".", ("*.html", "*.txt", "makefile*"));
# gather any directories in our home that match these often recurring patterns.
-&snarf_by_pattern("$root", "notes");
-&snarf_by_pattern("$root", "project");
-&snarf_by_pattern("$root", "issue");
-&snarf_by_pattern("$root", "idea");
-&snarf_by_pattern("$root", "crucial");
-&snarf_by_pattern("$root", "list");
-&snarf_by_pattern("$root", "task");
+&snarf_by_pattern($snarf_file_base, "$root", "crucial");
+&snarf_by_pattern($snarf_file_base, "$root", "Documents");
+&snarf_by_pattern($snarf_file_base, "$root", "idea");
+&snarf_by_pattern($snarf_file_base, "$root", "issue");
+&snarf_by_pattern($snarf_file_base, "$root", "list");
+&snarf_by_pattern($snarf_file_base, "$root", "note");
+&snarf_by_pattern($snarf_file_base, "$root", "nuage");
+&snarf_by_pattern($snarf_file_base, "$root", "project");
+&snarf_by_pattern($snarf_file_base, "$root", "proj_");
+&snarf_by_pattern($snarf_file_base, "$root", "task");
+&snarf_by_pattern($snarf_file_base, "$root", "invention");
+&snarf_by_pattern($snarf_file_base, "$root", "transitory");
############################################################################