// ==VimperatorPlugin==
// @name           Link Opener
// @description    Open filtered link(s).
// @description-ja リンクをフィルタリングして開く
// @license        Creative Commons 2.1 (Attribution + Share Alike)
// @version        1.1
// ==/VimperatorPlugin==
//
// Usage:
//    :fo[pen][!] <REGEXP> [-i <INTERVAL_SEC>] [-w <WHERE>]
//      Open filtered links by regexp.
//      When used "!", open links in foreground.
//
//    :lo[pen][!] URI [-w <WHERE>]
//      Open URI
//
// Usage-ja:
//    :fo[pen][!] <ミゲ文字列> [-i <INTERVAL_SEC>] [-w <WHERE>]
//    :fo[pen][!] /<正規表現> [-i <INTERVAL_SEC>] [-w <WHERE>]
//      ミゲ文字列か正規表現でフィルタされたリンクを開く
//
//    :lo[pen][!] URI [-w <WHERE>]
//      URI を開く
//
//    ちなみに Migemo はなくても動きます。
//    無い場合は、 "/" 要らずで正規表現オンリーになります。
//
// Variables:
//    let g:fopen_default_interval="<INTERVAL_SEC>"


(function () { try {

  let migemo = window.XMigemoCore;

  function isHttpLink (link) {
    return link.href && link.href.indexOf('http') == 0;
  }

  function lmatch (re, link) {
    return isHttpLink(link) && (link.href.match(re) || link.textContent.toString().match(re));
  }

  function makeRegExp (str) {
    return migemo ? (str.indexOf('/') == 0) ? new RegExp(str.slice(1), 'i')
                                            : migemo.getRegExp(str)
                  : new RegExp(str, 'i');
  }

  function filteredLinks (word) {
    if (word.match(/^\s*$/))
      return [];
    let re = makeRegExp(word);
    return [it for each (it in content.document.links) if (lmatch(re, it))];
  }

  function charToWhere (str, fail) {
    const table = {
      f: NEW_TAB,
      t: NEW_TAB,
      n: NEW_TAB,
      b: NEW_BACKGROUND_TAB,
      c: CURRENT_TAB,
      w: NEW_WINDOW,
    };
    return (str && table[str.charAt(0).toLowerCase()]) || fail;
  }

  const WHERE_COMPLETIONS = ['f', 't', 'n', 'b', 'c', 'w'];


  let (foihandle) {

    liberator.commands.addUserCommand(
      ['fo[pen]', 'filteropen'],
      'Filtered open',
      function (opts, bang) {
        let where = charToWhere(opts['-where'], bang ? NEW_TAB : NEW_BACKGROUND_TAB);
        let [i, links] = [1, filteredLinks(opts.arguments.join(''))];
        if (!links.length)
          return;
        open(links[0].href, where);
        if (links.length <= 1)
          return;
        let interval = (opts['-interval'] || liberator.globalVariables.fopen_default_interval || 1) * 1000;
        foihandle = setInterval(function () {
          try {
            open(links[i].href, where);
            if ((++i) >= links.length)
              clearInterval(foihandle);
          } catch (e) {
            clearInterval(foihandle);
          }
        }, interval);
      },
      {
        bang: true,
        options: [
          [['-interval', '-i'], liberator.commands.OPTION_INT],
          [['-where', '-w'], liberator.commands.OPTION_STRING],
        ],
        completer: function (word) {
          let links = filteredLinks(word);
          return [0, [[it.href, it.textContent] for each (it in links)]];
        },
      }
    );

    liberator.commands.addUserCommand(
      ['stopfilteropen', 'stopfo[pen]'],
      'Stop filtered open',
      function () {
        clearInterval(foihandle);
      }
    );

  }

  let (
    lolinks = [],
    looptions = [ [['-where', '-w'], liberator.commands.OPTION_STRING, null, WHERE_COMPLETIONS] ]
  ) {

    liberator.commands.addUserCommand(
      ['lo[pen]', 'linkopen'],
      'Filtered open',
      function (opts, bang) {
        let where = charToWhere(opts['-where'], bang ? NEW_TAB : CURRENT_TAB);
        let arg = opts.arguments[0];
        let m = arg.match(/^\d+(?=,)/);
        if (m)
          liberator.buffer.followLink(lolinks[parseInt(m[0], 10)], where);
      },
      {
        options: looptions,
        bang: true,
        completer: function (word) {
          if (!word || word.match(/\s|\d+,/))
            return [];
          lolinks = filteredLinks(word);
          return [0, [[i + ',' + lolinks[i].href, lolinks[i].textContent] for (i in lolinks || [])]];
        }
      }
    );

  }

} catch (e) { log(e); }})();

// vim:sw=2 ts=2 et: