src/scripts/caption.lua

   1 function captionprocess (canvas)
   2   display = canvas.display
   3   windows = screen.windows()
   4
   5   caption = " "
   6   for i, w in ipairs(windows) do
   7     if w == canvas.window then
   8       caption = caption .. "%{= b}"
   9     end
  10     caption = caption .. string.format("%d: %s", w.number, w.title)
  11     caption = caption .. " "
  12   end
  13
  14   canvas.caption = caption
  15   return 1
  16 end
  17
  18 screen.hook("processcaption", captionprocess);