@@ -112,11 +112,11 @@
 (poly-branch-tag url)
 (poly-branch-tag xref)
 (poly-branch-tag fn)
 (poly-branch-tag fndef)
 
-(poly-branch-kwargs-tag note)
+(poly-branch-kwargs-tag note-with-srcline)
 (poly-branch-tag block)
 
 ;; Not yet implemented
 ; (poly-branch-tag table)         ; #:columns ""
 ; (poly-branch-tag inline-math)
@@ -123,11 +123,17 @@
 ; (poly-branch-tag margin-note)
 ; (poly-branch-tag noun)
 ; (poly-branch-func index-entry entry)
 ; (poly-branch-tag spot-illustration) ; #:src "img--sans-path.png" [#:has-print-version? "yes"]
 
+(define-syntax (note stx)
+  (syntax-parse stx
+    [(_ args ...)
+     (with-syntax ([srcline (number->string (syntax-line stx))])
+       #'(note-with-srcline #:srcline srcline args ...))]))
+
 ;; My pet shortcut for for/splice. Greatly cuts down on parentheses for the
 ;; most common use case (looping through a single list).
 (define-syntax (for/s stx)
   (syntax-case stx ()
     [(_ thing listofthings result-expr ...)
      #'(for/splice ([thing (in-list listofthings)]) result-expr ...)]))