Link to source code in notes.

dvanhorn · dvanhorn · commit 1bd2dfa97e34 · 2022-10-01T17:14:22.000-04:00
diff --git a/www/notes/abscond.scrbl b/www/notes/abscond.scrbl
@@ -36,6 +36,8 @@
 
 @title[#:tag "Abscond"]{Abscond: a language of numbers}
 
+@src-code["abscond"]
+
 @emph{Let's Make a Programming Language!}
 
 @table-of-contents[]
diff --git a/www/notes/blackmail.scrbl b/www/notes/blackmail.scrbl
@@ -33,6 +33,8 @@
 
 @title[#:tag "Blackmail"]{Blackmail: incrementing and decrementing}
 
+@src-code["blackmail"]
+
 @emph{Let's Do It Again!}
 
 @table-of-contents[]
diff --git a/www/notes/con.scrbl b/www/notes/con.scrbl
@@ -23,6 +23,8 @@
 
 @title[#:tag "Con"]{Con: branching with conditionals}
 
+@src-code["con"]
+
 @emph{When you come to a fork in the road, take it.}
 
 @table-of-contents[]
diff --git a/www/notes/dodger.scrbl b/www/notes/dodger.scrbl
@@ -20,6 +20,8 @@
 
 @title[#:tag "Dodger"]{Dodger: addressing a lack of character}
 
+@src-code["dodger"]
+
 @emph{There are 11 types of values...}
 
 @table-of-contents[]
diff --git a/www/notes/dupe.scrbl b/www/notes/dupe.scrbl
@@ -23,6 +23,8 @@
 
 @title[#:tag "Dupe"]{Dupe: a duplicity of types}
 
+@src-code["dupe"]
+
 @emph{There are 10 types of values...}
 
 @table-of-contents[]
diff --git a/www/notes/evildoer.scrbl b/www/notes/evildoer.scrbl
@@ -63,6 +63,8 @@ HERE
 
 @title[#:tag "Evildoer"]{Evildoer: change the world a couple nibbles at a time}
 
+@src-code["evildoer"]
+
 @emph{Warning: Side effects may include itching, burning,
  oozing, weeping. Not intended for heart patients and those
  with nervous disorders.}
diff --git a/www/notes/extort.scrbl b/www/notes/extort.scrbl
@@ -25,6 +25,8 @@
 
 @title[#:tag this-lang]{@|this-lang|: when errors exist}
 
+@src-code[this-lang]
+
 @emph{The greatest mistake is to imagine that we never err.}
 
 @table-of-contents[]
diff --git a/www/notes/fraud.scrbl b/www/notes/fraud.scrbl
@@ -23,6 +23,8 @@
 
 @title[#:tag this-lang]{@|this-lang|: local binding, variables, and binary operations}
 
+@src-code[this-lang]
+
 @emph{To be is to be the value of a variable.}
 
 @table-of-contents[]
diff --git a/www/notes/hoax.scrbl b/www/notes/hoax.scrbl
@@ -23,6 +23,7 @@
 
 @title[#:tag this-lang]{@|this-lang|: vectors and strings}
 
+@src-code[this-lang]
 
 @emph{Stupidity, outrage, vanity, cruelty, iniquity, bad faith,
 falsehood - we fail to see the whole array when it is facing in the
diff --git a/www/notes/hustle.scrbl b/www/notes/hustle.scrbl
@@ -23,6 +23,7 @@
 
 @title[#:tag this-lang]{@|this-lang|: heaps and lists}
 
+@src-code[this-lang]
 
 @emph{A little and a little, collected together, become a great deal;
 the heap in the barn consists of single grains, and drop and drop
diff --git a/www/notes/iniquity.scrbl b/www/notes/iniquity.scrbl
@@ -26,6 +26,8 @@
 
 @title[#:tag this-lang]{@|this-lang|: function definitions and calls}
 
+@src-code[this-lang]
+
 @table-of-contents[]
 
 @section[#:tag-prefix "iniquity"]{Functions}
diff --git a/www/notes/jig.scrbl b/www/notes/jig.scrbl
@@ -16,7 +16,11 @@
 @(for-each (λ (f) (ev `(require (file ,f))))
 	   '("interp.rkt" "compile.rkt" "ast.rkt" "parse.rkt" "types.rkt"))
 
-@title[#:tag "Jig"]{Jig: jumping to tail calls}
+@(define this-lang "Jig")
+
+@title[#:tag this-lang]{@|this-lang|: jumping to tail calls}
+
+@src-code[this-lang]
 
 @table-of-contents[]
 
diff --git a/www/notes/juvie.scrbl b/www/notes/juvie.scrbl
@@ -13,7 +13,11 @@
 @;(for-each (λ (f) (ev `(require (file ,(path->string (build-path notes "iniquity" f))))))
 @;	   '("interp.rkt" "ast.rkt" "parse.rkt" "compile.rkt" "asm/interp.rkt" "asm/printer.rkt"))
 
-@title[#:tag "Juvie"]{Juvie: cleaning up after your mess}
+@(define this-lang "Juvie")
+
+@title[#:tag this-lang]{@|this-lang|: cleaning up after your mess}
+
+@src-code[this-lang]
 
 @emph{Many a man fails to become a thinker for the sole reason that his memory is too good.}
 
diff --git a/www/notes/knock.scrbl b/www/notes/knock.scrbl
@@ -28,6 +28,8 @@
 
 @title[#:tag this-lang]{@|this-lang|: pattern matching}
 
+@src-code[this-lang]
+
 @table-of-contents[]
 
 @section[#:tag-prefix "knock"]{Matching}
diff --git a/www/notes/loot.scrbl b/www/notes/loot.scrbl
@@ -17,7 +17,11 @@
 @(for-each (λ (f) (ev `(require (file ,f))))
 	   '("interp.rkt" "compile.rkt" "ast.rkt" "parse.rkt" "types.rkt"))
 
-@title[#:tag "Loot"]{Loot: lambda the ultimate}
+@(define this-lang "Loot")
+
+@title[#:tag this-lang]{@|this-lang|: lambda the ultimate}
+
+@src-code[this-lang]
 
 @table-of-contents[]
 
diff --git a/www/notes/mountebank.scrbl b/www/notes/mountebank.scrbl
@@ -18,7 +18,11 @@
 @(for-each (λ (f) (ev `(require (file ,f))))
 	   '("interp.rkt" "compile.rkt" "compile-expr.rkt" "compile-literals.rkt" "compile-datum.rkt" "utils.rkt" "ast.rkt" "parse.rkt" "types.rkt" "unload-bits-asm.rkt"))
 
-@title[#:tag "Mountebank"]{Mountebank: quote and compound static data}
+@(define this-lang "Mountebank")
+
+@title[#:tag this-lang]{@|this-lang|: quote and compound static data}
+
+@src-code[this-lang]
 
 @table-of-contents[]
 
diff --git a/www/notes/mug.scrbl b/www/notes/mug.scrbl
@@ -18,7 +18,11 @@
 @(for-each (λ (f) (ev `(require (file ,f))))
 	   '("interp.rkt" "compile.rkt" "compile-expr.rkt" "compile-literals.rkt" "utils.rkt" "ast.rkt" "parse.rkt" "types.rkt" "unload-bits-asm.rkt"))
 
-@title[#:tag "Mug"]{Mug: symbols and interned string literals}
+@(define this-lang "Mug")
+
+@title[#:tag this-lang]{@|this-lang|: symbols and interned string literals}
+
+@src-code[this-lang]
 
 @table-of-contents[]
 
diff --git a/www/notes/neerdowell.scrbl b/www/notes/neerdowell.scrbl
@@ -18,7 +18,11 @@
 @(for-each (λ (f) (ev `(require (file ,f))))
 	   '("interp.rkt" "compile.rkt" "compile-expr.rkt" "compile-literals.rkt" "compile-datum.rkt" "utils.rkt" "ast.rkt" "parse.rkt" "types.rkt" "unload-bits-asm.rkt"))
 
-@title[#:tag "Neerdowell"]{Neerdowell: structures}
+@(define this-lang "Neerdowell")
+
+@title[#:tag this-lang]{@|this-lang|: structures}
+
+@src-code[this-lang]
 
 @emph{Structures don't march in the streets.}
 
diff --git a/www/notes/utils.rkt b/www/notes/utils.rkt
@@ -3,6 +3,7 @@
 (require (for-syntax racket/runtime-path racket/base racket/file))
 (require scribble/manual racket/runtime-path)
 (require (for-label (except-in racket compile) a86))
+(require images/icons/file)
 
 (begin-for-syntax
   (define-runtime-path notes "../../langs/"))
@@ -35,3 +36,8 @@
                                    #:left-pad-string "0"
                                    #:align 'right
                                    #:min-width len))))
+
+(define (src-code lang)
+  (margin-note (small-save-icon) " "
+               (link (string-append "code/" (string-downcase lang) ".zip") "Source code")
+	       "."))
