ということで、適当にうろついていたら、 いままでの HTML との対照を見付ける。
ってことで、
<style type="text/css"><!--
dl.note { display: compact; }
--></style>
[...]
<dl class="note">
って感じにしてみるも、IE5.5 / Netscape6.01 / Opera 5.01 でうまくいかず。うぐぅ、ほとんどのブラウザで display は対応されてない 雰囲気(;_;)
|
Namazu for hns による簡易全文検索 詳しくは 詳細指定/ヘルプを参照して下さい |
||||||||||||||||||||||||||||||||||||||||||||||
% perl -e '$_={"a"=>"b", "c"=>"d"};
print shift keys(%{$_}), "\n";'
Type of arg 1 to shift must be array (not keys) at -e line 2, near "),"
Execution of -e aborted due to compilation errors.
scalar の逆の関数って無いのだろうか。
% perl -e '$_={"a"=>"b", "c"=>"d"};
print scalar((keys(%{$_}))[0]), "\n";'
a
って感じでやればいけた。
% ./configure --prefix=$HOME/local % make % make install
% cd File-MMagic % perl Makefile.pl PREFIX=$HOME/perl % make % make install % cd .. % ./configure --prefix=$HOME/local --with-pmdir=$HOME/perl/lib/site-perl/5.005 % make % make install
% $HOME/local/bin/mknmz --debug --include=$HOME/diary/namazu2/etc/mknmzrc \ --media-type=text/hnf --template-dir=$HOME/diary/namazu2/template \ $HOME/diary/2001
(let (start end) (if (get-buffer "*test*") (kill-buffer "*test*")) (pop-to-buffer (get-buffer-create "*test*")) (setq start (point-marker)) (insert "hoge") (setq end (point-marker)) (overlay-put (make-overlay start (1+ start)) 'before-string "fugo") (overlay-put (make-overlay start end) 'face 'highlight))
(defvar gnus-bbdb-x-face-scale-factor 0.4)
(defun gnus-bbdb/summary-author-face-in-bbdb (header)
"Given a Gnus message header, returns a mark if the poster is in the BBDB, \" \" otherwise. The mark itself is the value of the field indicated by `bbdb-message-marker-field' (`mark-char' by default) if the indicated field is in the poster's record, and `gnus-bbdb/summary-known-poster-mark' otherwise."
(let* ((from (mail-header-from header))
(data (condition-case ()
(gnus-bbdb/extract-address-components from)
(error nil)))
(name (car data))
(net (cadr data))
record x-face)
(if (and data
(prog1
(setq record
(bbdb-search-simple
name (if (and net bbdb-canonicalize-net-hook)
(bbdb-canonicalize-address net)
net)))
(if (and record
(setq x-face
(car (split-string
(bbdb-record-getprop record 'face)))))
(with-temp-buffer
(insert "From: X\nX-Face: " x-face "\n")
(let ((x-face-use-overlay nil)
(x-face-scale-factor gnus-bbdb-x-face-scale-factor))
(x-face-decode-message-header))
(setq x-face (buffer-substring 6 7))))))
(or (bbdb-record-getprop record bbdb-message-marker-field)
x-face
gnus-bbdb/summary-known-poster-mark))
" ")))
(fset 'gnus-user-format-function-f 'gnus-bbdb/summary-author-face-in-bbdb)
(setq gnus-summary-line-format
"%U%R%z%I%(%[%6,6~(cut 2)o:%uf %-20,20n%]%) %s\n")
gnus-bbdb/author-in-bbdb から x-face-e21 を呼ぶようにしただけの関数を
user-format-function に設定しただけ(^^;(setq nnmail-extra-headers '(X-Face))
(defvar gnus-summary-x-face-scale-factor 0.4)
(defun gnus-summary-author-face (header)
"Given a Gnus message header, returns a face."
(let ((x-face (cdr (assq 'X-Face (mail-header-extra header)))))
(if x-face
(with-temp-buffer
(insert "From: X\nX-Face: " x-face "\n")
(let ((x-face-use-overlay nil)
(x-face-scale-factor gnus-summary-x-face-scale-factor))
(x-face-decode-message-header))
(setq x-face (buffer-substring 6 7)))
" ")))
(fset 'gnus-user-format-function-F 'gnus-summary-author-face)
(setq gnus-summary-line-format
"%U%R%z%I%(%[%6,6~(cut 2)o:%uF %-20,20n%]%) %s\n")
でいけた!
自己診断表示 - 画面が消え、スタンバイ/オフタイマーランプが点滅したら 本機には自己診断表示機能がついています。これは本機に異常が起きたときに、 スタンバイ/オフタイマーランプの点滅およびその回数でテレビの状態をお知らせし、 (以下略)…。
SSTP Haruna("てすとにょ。"), Wait(400), Unyuu("てすとにゅ。")
成功なり:-)
<style type="text/css"><!--
dl.note { display: compact; }
--></style>
[...]
<dl class="note">
って感じにしてみるも、IE5.5 / Netscape6.01 / Opera 5.01 でうまくいかず。
package HNS::Hnf::Command::ConvUrl;
use strict qw(vars subs);
use HNS::Template;
use vars qw ($Template);
#$Template = "?%year%month%abc#%year%month%day%new%sub";
$Template = "%year%month.shtml#%year%month%day%new%sub";
sub AsHTML($$$) {
my ($self, $start, $params) = @_;
my $class = ref $self;
my $cmd_name = $self->{name};
my $template = sprintf("%s::%sTemplate",
$class,
($start)?'':'End');
my $comment = ($start) ? "<!-- $cmd_name -->": "";
my $templ = new HNS::Template;
$params->{content} = $self->{arg_content};
for (1..3){
$params->{$_} = $self->{attr}->[$_];
}
if ($params->{1} =~ /^#(\d{4})(\d{2})(\d{2})((\d+)(S(\d+))?)?$/ ||
$params->{1} =~ /^#\{(\d{4}),(\d+),(\d+)(,(\d+)(,(\d+))?)?\}$/) {
$params->{1} = HNS::Template->new->Expand($Template,
{'year' => $1,
'month' => sprintf("%02d", $2),
'day' => sprintf("%02d", $3),
'abc' => $3 < 11 ? 'a' : $3 < 21 ? 'b' : 'c',
'new' => $5 || "0",
'sub' => $7 && "S$7"});
}
return $templ->Expand($$template, $params);
}
unshift(@HNS::Hnf::Command::LNEW::ISA, qw(HNS::Hnf::Command::ConvUrl));
unshift(@HNS::Hnf::Command::LSUB::ISA, qw(HNS::Hnf::Command::ConvUrl));
unshift(@HNS::Hnf::Command::URL::ISA, qw(HNS::Hnf::Command::ConvUrl));
unshift(@HNS::Hnf::Command::LINK::ISA, qw(HNS::Hnf::Command::ConvUrl));
unshift(@HNS::Hnf::Command::LSTRIKE::ISA, qw(HNS::Hnf::Command::ConvUrl));
初めて perl で多重継承を使ったけど、うっかり unshift ではなく push を
使ったものだから、既に継承されている AsHTML が使われてしまったり。
(setq hnf-new-link-name-format "#%Y%m%d%N"
hnf-sub-link-name-format "#%Y%m%d%NS%S")
としておこう。
% [ "a" = "b" -a `touch hoge` ] % ls hoge hoge[ EXP1 ] && [ EXP2 ] とすれば良いだけの話しだけど。
% [ "a" = "b" ] && [ `touch hoge` ] % ls hoge ls: hoge: そのようなファイルやディレクトリはありません
<a name="200102172S%O" href="200102b.html#200102172S%O">になってしまう。
--- nsmm.awk.orig Thu Nov 23 23:38:46 2000
+++ nsmm.awk Sun Feb 18 16:22:37 2001
@@ -315,7 +315,7 @@
var["version"] = "0.6.2(2000/11/23)";
# timefmt() 初期化
- _timefmt = "%A!%B!%C!%D!!!%G!%H!%I!!!!%M!!%O!!!%R!%S!%T!%U!%V!%W!%X!%Y!%Z!!!!!!!%a!%b!%c!%d!%e!!%g!%h!!%j!%k!%l!%m!%n!!%p!!%r!%s!%t!%u!%v!%w!%x!%y!%z";
+ _timefmt = "%A!%B!%C!%D!!!%G!%H!%I!!!!%M!!!!!%R!%S!%T!%U!%V!%W!%X!%Y!%Z!!!!!!!%a!%b!%c!%d!%e!!%g!%h!!%j!%k!%l!%m!%n!!%p!!%r!%s!%t!%u!%v!%w!%x!%y!%z";
_d["%"] = "%";
# days_from_epoch() など初期化
split("31 28 31 30 31 30 31 31 30 31 30 31", _nmonth, " "); # 毎月の日数
でいいのかな?if [ "$SESSIONTYPE" = "altDt" -a "`/bin/ps -o args -p $PPID | sed -e 1d`" = "/bin/ksh /etc/dt/config/Xsession.gnome2" ]; thenなんてムリヤリなことをやっているのですが、コンソールから OpenWindows を 起動した時は ksh ではなく sh なので、$PPID が設定されてなくて ps でエラーに なってしまったのでした。
% time perl -e 'use lib qw(lib); use HNS;' perl -e 'use lib qw(lib); use HNS;' 2.89s user 0.09s system 100% cpu 2.961 totalかといって、HNS.pm を使わないように書き直す気にはなれんしなあ。
% time perl -e 'use lib qw(lib); use TDS;' perl -e 'use lib qw(lib); use TDS;' 1.75s user 0.09s system 100% cpu 1.822 total
2001-02-13 21:00:00 ShengHuo ZHU <zsh@cs.rochester.edu> * gnus-sum.el (gnus-summary-read-group-1): Remove gnus-summary-set-local-parameters. (gnus-summary-setup-buffer): Put it here.の影響で、昔 Group Parameter で設定してうまくいかなかった (gnus-fetch-old-headers 'some) という残骸が有効になったためみたい。
(add-hook 'mime-display-text/plain-hook 'mew-message-cut-bannar) (setq mew-banner-replace-string "\n[[[banner]]]\n")で良いかな?
XGetFontProperty(XLoadQueryFont(dpy, "-*-*-medium-r-*-*-16-*-*-*-*-*-iso8859-1"),
XA_FONT, value);
(char *)XGetAtomName(dpy, (Atom)value);
で得られるフォント名が、
Solaris 7 では"-b&h-lucida sans-medium-r-normal-sans-17-170-72-72-p-97-iso8859-1"
だったのに対し、Solaris 8 では
"-b&h-lucida sans-medium-r-normal-sans-16-161-72-72-p-0-iso8859-1"
となり、average_width が 0 なためみたい。Content-Type: text/plain; charset=ISO-2022-JP; name*=iso-2022-jp'ja'%1B$BF%7CK%5C8l%1B%28Bって感じのパートを含むメールを自分宛てに出してみると、 RFC2231 の decode されたものがボタンに表示された。 が、coding-system の decode がされない…。