From 212b0f6f5f3f43addc5a60383acc625207d8b4fe Mon Sep 17 00:00:00 2001
From: Adrian Cochrane <adrian@openwork.nz>
Date: Wed, 8 Nov 2023 12:26:49 +1300
Subject: [PATCH] Set nicer default, remove legacy code.

---
 src/Main.hs | 8 +-------
 1 file changed, 1 insertion(+), 7 deletions(-)

diff --git a/src/Main.hs b/src/Main.hs
index 63d3f52..c97a81c 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -92,12 +92,6 @@ renderLayout atlases drawText (LayoutSpan self)
   where
     (font, _) = fragmentFont self
     ((x, y), VizStyle color) = layoutGetInner $ LayoutSpan self
-{-renderLayout atlases drawText (LayoutSpan ((x, y), VizStyle color) font self)
-    | Just atlas <- M.lookup (pattern font, fontSize font) atlases = do
-        drawText' <- drawText atlas $ fragmentGlyphs self
-        -- FIXME Switch from temp to inherit for inline caller-properties.
-        liftIO $ arDraw drawText' [TextTransformMultiply color]
-                        (V2 (fromEnum x) (fromEnum y))-} -- FIXME: New API!
 renderLayout atlases drawText node = do
     layoutGetChilds node `forM` renderLayout atlases drawText
     return ()
@@ -179,7 +173,7 @@ main = do
     args <- getArgs
     let url = case args of
             (url:_) -> url
-            [] -> "https://git.argonaut-constellation.org/~alcinnz/CatTrap"
+            [] -> "https://haphaestus.org/"
     sess <- newSession
     ref <- initReferer
     xml <- fetchDocument sess ref $ fromMaybe nullURI $ parseURIReference url
-- 
2.30.2