ADDED   code-docs/custom.css
Index: code-docs/custom.css
==================================================================
--- code-docs/custom.css
+++ code-docs/custom.css
@@ -0,0 +1,28 @@
+.fileblock .SCodeFlow {
+    padding-top: 0.7em;
+    margin-top: 0;
+}
+
+.fileblock {
+    width: 90%;
+}
+
+.fileblock_filetitle{
+    background: #eee;
+    text-align:right;
+    padding: 0.15em;
+    border: 1px dotted black;
+    border-bottom: none;
+}
+
+.terminal, .browser {
+    margin-bottom: 1em;
+    padding: 0.5em;
+    width: 88%;
+    background: #fcfcfc;
+    color: rgb(150, 35, 105);
+}
+
+.terminal .SIntrapara, .browser .SIntrapara, .fileblock .SIntrapara {
+    margin: 0 0 0 0;
+}

Index: code-docs/scribble-helpers.rkt
==================================================================
--- code-docs/scribble-helpers.rkt
+++ code-docs/scribble-helpers.rkt
@@ -6,12 +6,17 @@
 ;; Convenience/helper functions for this project’s Scribble documentation
 
 (require scribble/core
          scribble/manual/lang
          scribble/html-properties
+         scribble/private/manual-sprop
+         scribble/decode
+         racket/runtime-path
          (only-in net/uri-codec uri-encode))
 (provide (all-defined-out))
+
+(define-runtime-path custom-css "custom.css")
 
 (define repo-url/ "https://thelocalyarn.com/cgi-bin/yarncode/")
 
 ;; Link to a ticket on the Fossil repository by specifying the ticket ID.
 ;; The "_parent" target breaks out of the iframe used by the Fossil repo web UI.
@@ -43,5 +48,32 @@
 (define (responsive-retina-image img-path)
   (image img-path 
          #:scale 0.5
          #:style (style #f (list (attributes '((style . "max-width:100%;height:auto;")))))))
 
+;;
+;; From https://github.com/mbutterick/pollen/blob/master/pollen/scribblings/mb-tools.rkt
+;;
+
+(define (terminal . args)
+  (compound-paragraph (style "terminal" (list (css-style-addition custom-css) (alt-tag "div")))
+                      (list (apply verbatim args))))
+
+(define (cmd . args)
+  (elem #:style (style #f (list (color-property "black"))) (tt args)))
+
+(define (fileblock filename . inside)
+  (compound-paragraph 
+   (style "fileblock" (list* (alt-tag "div") 'multicommand
+                             (box-mode "RfileboxBoxT" "RfileboxBoxC" "RfileboxBoxB") 
+                             scheme-properties))
+   (list
+    (paragraph (style "fileblock_filetitle" (list* (alt-tag "div") (box-mode* "RfiletitleBox") scheme-properties))
+               (list (make-element
+                      (style "fileblock_filename" (list (css-style-addition custom-css)))
+                      (if (string? filename)
+                          (filepath filename)
+                          filename))))
+    (compound-paragraph 
+     (style "fileblock_filecontent" (list* (alt-tag "div") (box-mode* "RfilecontentBox") scheme-properties))
+     (decode-flow inside)))))
+