contrib/lua/remote.lua

   1 -- ELinks-side part of elinks-remote
   2
   3 -- See script elinks-remote for explanation what's this about.
   4
   5 ----------------------------------------------------------------------
   6 --  User options
   7 ----------------------------------------------------------------------
   8
   9 -- File to look in for external url to jump to
  10    external_url_file = elinks_home.."/external.url"
  11
  12
  13 ----------------------------------------------------------------------
  14 --  Implementation
  15 ----------------------------------------------------------------------
  16
  17 function external_url ()
  18    fh = io.open (external_url_file, "r")
  19    aline = current_url ()
  20    if fh then
  21       aline = read (fh, "*l")
  22       io.close (fh)
  23    else
  24       print ("Couldn't open outfile")
  25    end
  26    return aline
  27 end
  28
  29    bind_key ("main", "x",
  30              function () return "goto_url", external_url () end)
  31
  32
  33 function set_external_url ()
  34    fh = io.open (external_url_file, "w")
  35    aline = current_link ()
  36    if fh then
  37       write (fh, aline.."\n")
  38       io.close (fh)
  39    else
  40       print ("Couldn't open outfile")
  41    end
  42 end
  43
  44     bind_key ("main", "X",
  45               function () set_external_url () end)
  46
  47 -- vim: shiftwidth=4 softtabstop=4