print each road name once only

we use cqueues, which is the async framework that lua-http is built
on. we integrate it into the glib event loop rather hackily by calling
the cqueues event stepper ever 20ms from a glib timeout function

overpass has very low rate limits so we handle a 429 response by
sleeping for a random length of time and retrying. This is, also,
a bit of a hack

pkgs/maps/default.nix

@@ -31,8 +31,8 @@ let
     src = fetchFromGitHub {
       owner = "lgi-devs";
       repo = "lgi";
-      rev = "e06ad94c8a1c84e3cdb80cee293450a280dfcbc7";
-      hash = "sha256-VYr/DV1FAyzPe6p6Quc1nmsHup23IAMfz532rL167Q4=";
+      rev = "a412921fad445bcfc05a21148722a92ecb93ad06";
+      hash = "sha256-kZBpH5gcaCNU134Wn6JXAkFELzmiphc1PeCtmN9cagc=";
     };
   };
   rxi-json = callPackage ../rxi-json { lua = lua5_3; };

pkgs/maps/main.fnl

@@ -143,6 +143,7 @@ label.readout {
            cairo.Content.COLOR
            (* tile-size (+ 4 num-tiles-x))
            (* tile-size (+ 4 num-tiles-y)))
+          seen-road-names {}
           g (cairo.Context.create map-surface)]
 
       (g:set_source_rgb 0.7 0.8 0.8)
@@ -157,11 +158,24 @@ label.readout {
       (cairo-roads-path g lines bounds)
 
       (g:set_source_rgb 0.2 0.2 0.2)
-      (g:set_font_size (- road-width 3))
+      (g:set_font_size (+ road-width 1))
       (each [_ line (pairs lines)]
         (case line.name
-          n (let [(x y angle) (label-coords line bounds)]
-              (when (and x y)
+          n (let [(x y angle) (label-coords line bounds)
+                  ext  (g:text_extents n)
+                  w ext.width
+                  h ext.height]
+              (when (and x y (not (. seen-road-names n)))
+                (tset seen-road-names n true)
+                (g:save)
+                (g:set_line_width h)
+                (g:set_source_rgb 1 1 1)
+                (g:move_to (- x 1) (- y 1))
+                (g:rotate angle)
+                (g:rel_line_to (+ w 1) 0)
+                (g:stroke)
+                (g:restore)
+
                 (g:save)
                 (g:move_to x y)
                 (g:rotate angle)