From a9db5086167e909fb8411789c3bce0684c99fa49 Mon Sep 17 00:00:00 2001
From: Sergey Matveev <stargrave@stargrave.org>
Date: Tue, 6 May 2025 16:01:32 +0300
Subject: [PATCH] dot

---
 zk | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

diff --git a/zk b/zk
index 5f1fe40..8b2a8d7 100755
--- a/zk
+++ b/zk
@@ -97,7 +97,9 @@ sub usage {
     print STDERR "Usage:
 \t$0 links PAGE
 \t$0 backs PAGE
-\t$0 htmls DIR\n";
+\t$0 htmls DIR
+\t$0 dot | dot -Tpng >png
+";
     exit 1;
 }
 
@@ -302,6 +304,14 @@ if ($ARGV[0] eq "dump") {
         @s = stat($pth) or die "$!";
         utime $s[9], $s[9], "$ARGV[1]/$pth.html";
     }
+} elsif ($ARGV[0] eq "dot") {
+    print "digraph d {\n";
+    while (my ($from, $v) = each %links) {
+        foreach (@{$v}) {
+            print "\t\"$from\" -> \"$_\"\n";
+        }
+    }
+    print "}\n";
 } else {
     usage;
 }
-- 
2.48.1