Re: [Mlterm-dev-ja] image escape sqeuence

[<hs...@mt...>]

坂本です。

> 荒木です:-)
> > #  Xtで設定画面を作る(gtkなくても設定を動的に変えられるように)
> > #ですが、適当に拡張した escape sequence を介して設定を変える cursesベースの 
> > #設定ツールというのはどうでしょう?
> プロトコルだけ決めて、curses ベースの外部プログラムは、南さんに製作・配布し
> ていただく、ということで:)

プロトコルを決めてもらえれば、w3m の local-CGI でも作ってみますよ。

例えば、title を変えるのであれば、こんな感じ。
/usr/local/lib/w3m/title.cgi として置いておいて、
  w3m /usr/local/lib/w3m/title.cgi
として使います。
# /dev/tty を /dev/ttyp2 とかに変更可能にすれば遠隔操作できるかも。
-----------------------------------
坂本 浩則 <hs...@mt...>
 http://www2u.biglobe.ne.jp/~hsaka/

#!/usr/bin/perl

for (split('&', $ENV{'QUERY_STRING'})) {
	s/^([^=]*)=//;
	$V{$1} = &form_decode($_);
}

if (defined($V{'title'})) {
	open(TTY, ">/dev/tty");
	print TTY "\033]2;$V{'title'}\007";
	close(TTY);
	$t = &html_quote($V{'title'});
} else {
	$t = "";
}

$CGI = $ENV{'SCRIPT_NAME'} || $0;
$CGI = &html_quote($CGI);
print <<EOF;
Content-Type: text/html

<form action="$CGI">
Title: <input type=text name=title value="$t">
</form>
EOF

sub html_quote {
  local($_) = @_;
  local(%QUOTE) = (
    '<', '&lt;',
    '>', '&gt;',
    '&', '&amp;',
    '"', '&quot;',
  );
  s/[<>&"]/$QUOTE{$&}/g;
  return $_;
}

sub form_decode {
  local($_) = @_;
  s/\+/ /g;
  s/%([\da-f][\da-f])/pack('c', hex($1))/egi;
  return $_;
}