From 92f40ef00c636e3d34cc4eda0d247d8f4a657830 Mon Sep 17 00:00:00 2001
From: Sean Whitton <spwhitton@spwhitton.name>
Date: Wed, 3 Aug 2022 20:57:41 -0700
Subject: commit script used for first rearrangement ~/doc/{org => howm}

---
 scripts/git/sort-into-yyyy | 26 ++++++++++++++++++++++++++
 1 file changed, 26 insertions(+)
 create mode 100755 scripts/git/sort-into-yyyy

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";
+}
-- 
cgit v1.2.3