commit script used for first rearrangement ~/doc/{org => howm}

1 files changed, 26 insertions, 0 deletions

diff --git a/scripts/git/sort-into-yyyy b/scripts/git/sort-into-yyyy
new file mode 100755
index 00000000..46939e91
--- /dev/null
+++ b/scripts/git/sort-into-yyyy
@@ -0,0 +1,26 @@
+#!/usr/bin/perl -w
+
+use Cwd;
+use File::Copy;
+use Git::Wrapper;
+
+$git = Git::Wrapper->new(getcwd);
+
+open $fh, "<", "$ENV{HOME}/doc/emacs-org-agenda-files";
+for (<$fh>) {
+    chomp;
+    s{^~/doc/}{};
+    $agenda_files{m{^org/} ? $_ : "org/$_"}++;
+}
+
+mkdir "howm";
+
+for (@ARGV) {
+    $agenda_files{$_} and next;
+    @entries = $git->log("--follow", "--diff-filter=A", $_);
+    $entries[$#entries]->date =~ /\s(\d{4})\s/
+      or die "invalid date?  " . $entries[$#entries]->date;
+    mkdir "howm/$1";
+    $git->mv($_, "howm/$1");
+    print "$_ -> howm/$1\n";
+}