From 7b36cd6a7a6d576c19c60e7842a0d0d0c460702a Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Sat, 18 Jul 2020 23:00:43 -0400
Subject: Add links to html versions at the top of markdown files

---
 md.bqn | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'md.bqn')

diff --git a/md.bqn b/md.bqn
index 85684053..ee79c49f 100644
--- a/md.bqn
+++ b/md.bqn
@@ -292,6 +292,10 @@ Markdown ← {𝕊𝕩:1𝕊𝕩; extensions𝕊𝕩:
 
   ######
   # Create the block structure using line classifications.
+
+  # First remove the html link line: the output *is* the html file.
+  𝕩 ↩ 2⊸↓⍟("*View this file" (⊣ ≡ ⌊○≠↑⊢) ⊑) 𝕩
+
   lengths ← ≠¨ 𝕩                   # Length of each line
   blanks ← (Lead ' '⊸=)¨ 𝕩         # Number of leading blanks
   nonEmptyMask ← blanks < lengths  # Empty ←→ all leading blanks
-- 
cgit v1.2.3