contrib/scripts/mp.lua

   1 -- Authors: Unknown
   2 -- License: Unknown
   3 -- Last Changed: Unknown
   4 --
   5 -- Mark next mapped window to be attached to a specified object
   6
   7 local marked
   8
   9 function mark_for_attach(frame)
  10     marked=frame
  11 end
  12
  13 local function copy(t)
  14     local ct={}
  15     for k, v in t do
  16          ct[k]=v
  17     end
  18     return ct
  19 end
  20
  21 local orig_get_winprop=get_winprop
  22
  23 local function marked_get_winprop(cwin)
  24     local props=orig_get_winprop(cwin)
  25     if not marked then
  26         return props
  27     end
  28     local newprops=copy(props or {})
  29     newprops.target=marked:name()
  30     marked=nil
  31     return newprops
  32 end
  33
  34 get_winprop=marked_get_winprop