From 1ef1d7300163bb844c2d6b03f06bba02d4cd1909 Mon Sep 17 00:00:00 2001
From: Matthew Butterick <mb@mbtype.com>
Date: Mon, 4 Jan 2016 10:55:55 -0800
Subject: [PATCH] fix input file linking

---
 helper.rkt | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/helper.rkt b/helper.rkt
index 6eb4c97..f163ec1 100644
--- a/helper.rkt
+++ b/helper.rkt
@@ -1,5 +1,6 @@
 #lang at-exp racket/base
-(require scribble/manual)
+(require scribble/manual scribble/html-properties
+         scribble/core)
 (provide (all-defined-out))
 (require (for-syntax racket/base racket/syntax) racket/runtime-path)
 (provide (for-syntax #%datum))
@@ -17,4 +18,5 @@
        #'(begin
            (require racket/runtime-path)
            (define-runtime-path rp-name where)
-           @(link (path->string rp-name) text-args ...)))]))
\ No newline at end of file
+           (element (style #f (list (link-resource where)))
+           text-args ...)))]))
\ No newline at end of file