From bd8a1a5c7dd2f992f3cd543f692e7b90a12fcf2d Mon Sep 17 00:00:00 2001
From: Daniel Barlow <dan@telent.net>
Date: Tue, 20 Dec 2022 12:26:28 +0000
Subject: [PATCH] don't hardcode directory name

---
 dunlin.fnl | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/dunlin.fnl b/dunlin.fnl
index c18ef67..f92e0d3 100644
--- a/dunlin.fnl
+++ b/dunlin.fnl
@@ -1,4 +1,5 @@
 (local lgi (require :lgi))
+(local lfs (require :lfs))
 (local { : Gtk : Gdk : WebKit2 : cairo } lgi)
 
 (local frame (require :frame))
@@ -7,6 +8,6 @@
 (let [f (frame.new)
       b (buffer.new "main")]
   (f:show-buffer b)
-  (b:visit "file:///home/dan/src/dunlin/doc/index.html"))
+  (b:visit (.. "file://" (lfs.currentdir) "/doc/index.html")))
 
 (Gtk.main)