アイコンやフレームのタイトルは Emacs-21 では対応されていたのね。
|
Namazu for hns による簡易全文検索 詳しくは 詳細指定/ヘルプを参照して下さい |
|||||||||||||||||||||||||||||||||||||||||||||||
% cat aliases user1: user2 user2: user3 $ postalias -q user1 aliases user2
[...]
c++ -I/usr/openwin/include -fno-rtti -fno-exceptions -pedantic -Wno-long-long
-pthreads -O -DNDEBUG -DTRIMMED -G -h libjsloader.so -o libjsloader.so
mozJSComponentLoader.o mozJSSubScriptLoader.o -L../../../../dist/bin
-lxpcom -L../../../../dist/bin -L/export/home4/ari/work/mozilla/dist/lib
-lplds4 -lplc4 -lnspr4 -ldl -lmozjs -lposix4 -lsocket -ldl -lm
collect2: ld terminated with signal 11 [セグメント例外]
ld: 警告: シンボル `xpcomKeyName' は サイズ と異なります:
(ファイル mozJSComponentLoader.o 値=0x0; ファイル gmake[2]: *** [libjsloader.so] Error 1
ぐへっ。
% cat a.c
extern const char hoge[];
const char hoge[] = "abc";
% cat b.c
extern const char hoge[];
const char hoge[] = "a";
% make
gcc -c a.c
gcc -c b.c
gcc -G -o libb.so b.o
gcc -G -o liba.so a.o -L. -lb
collect2: ld terminated with signal 11 [セグメント例外]
ld: 警告: シンボル `hoge' は サイズ と異なります:
(ファイル a.o 値=0x0; ファイル *** Error code 1
make: Fatal error: Command failed for target `liba.so'
106950-13 をあててみたけどダメ。
(defun elserv-demo-buffers (path apath request header-only)
(let ((buf (and (not (string= path "")) (get-buffer (substring path 1)))))
(if buf
(concat (elserv-make-header "text/plain")
(with-current-buffer buf (buffer-string)))
(concat (elserv-make-header "text/html")
(concat "<ul>\n"
(mapconcat
(function
(lambda (buf)
(let ((name (buffer-name buf)))
(unless (string= (substring name 0 1) " ")
(concat "<li><a href=\"buffers/" name "\">"
name "</a>\n")))))
(buffer-list)
"")
"</ul>\n")))))
しかし、IE からアクセスすると何か具合悪いなぁ。
(setq nnwarchive-type-definition
'((egroups
(address . "www.egroups.co.jp")
(open-url
"http://www.egroups.co.jp/login.cgi?&login_email=%s&login_password=%s"
nnwarchive-login nnwarchive-passwd)
(list-url
"http://www.egroups.co.jp/mygroups")
(list-dissect . nnwarchive-egroups-list)
(list-groups . nnwarchive-egroups-list-groups)
(xover-url
"http://www.egroups.co.jp/messages/%s/%d" group aux)
(xover-last-url
"http://www.egroups.co.jp/messages/%s/" group)
(xover-page-size . 13)
(xover-dissect . nnwarchive-egroups-xover)
(article-url
"http://www.egroups.co.jp/message/%s/%d?source=1" group article)
(article-dissect . nnwarchive-egroups-article)
(authentication . t)
(article-offset . 0)
(xover-files . nnwarchive-egroups-xover-files))))
(defun nnwarchive-egroups-list-groups (groups)
(save-excursion
(let (articles)
(set-buffer nnwarchive-buffer)
(dolist (group groups)
(erase-buffer)
(nnwarchive-url nnwarchive-xover-last-url)
(goto-char (point-min))
(when (re-search-forward "/ \\([0-9]+\\)[ \t\n\r]*</title>" nil t)
(setq articles (string-to-number (match-string 1))))
(let ((elem (assoc group nnwarchive-groups)))
(if elem
(setcar (cdr elem) articles)
(push (list group articles "") nnwarchive-groups)))
(setq nnwarchive-headers (cdr (assoc group nnwarchive-headers-cache)))
(nnwarchive-egroups-xover group)
(let ((elem (assoc group nnwarchive-headers-cache)))
(if elem
(setcdr elem nnwarchive-headers)
(push (cons group nnwarchive-headers) nnwarchive-headers-cache)))))))
(defun nnwarchive-egroups-xover (group)
(let (article subject from date)
(goto-char (point-min))
(while (re-search-forward
"<a href=\"/message/\\([^/]+\\)/\\([0-9]+\\)[^>]+>\\([^<]+\\)<"
nil t)
(setq group (match-string 1)
article (string-to-number (match-string 2))
subject (match-string 3))
(forward-line 2)
(unless (assq article nnwarchive-headers)
(if (looking-at "<td[^>]+> \\([^<]+\\) </td>")
(setq from (match-string 1)))
(forward-line 1)
(if (looking-at "<td[^>]+> <nobr><font[^>]+>
\\([0-9]+\\).*\\([0-9]+\\).*\\([0-9]+\\).*
.*\\([0-9]+\\):\\([0-9]+\\)\\([ap]m\\)")
(let ((system-time-locale "C"))
(setq date (format-time-string
"%a, %d %b %Y %T %z"
(encode-time 0
(string-to-number (match-string 5))
(+ (string-to-number (match-string 4))
(if (string= (match-string 6) "am")
0
12))
(string-to-number (match-string 3))
(string-to-number (match-string 2))
(string-to-number (match-string 1)))))))
(push (cons
article
(make-full-mail-header
article
(nnweb-decode-entities-string subject)
(nnweb-decode-entities-string from)
date
(concat "<" group "%"
(number-to-string article)
"@egroup.co.jp>")
""
0 0 "")) nnwarchive-headers))))
nnwarchive-headers)
LOGFORMAT (%S %j %u [%d/%M/%Y:%h:%n:%j] "%j%w%r%wHTTP%j" %c %b "%f" "%B") LOGFILE .../access_logって感じで。
LOGFORMAT ([%Y/%m/%d:%h:%n:%j] %S %u %j "%r" "%f" "%B") LOGFILE /home/ari/diary/log/referer_log USEREXCLUDE BATTAって感じで集計すると良さげ。
<li><strong><a name="00000" href="msg00000.html">subject</a> <ul><li><em>From</em>: name</li></ul>
<LI><STRONG><a name="00000" href="msg00000.html">subject</a></STRONG> <EM>name</EM>
<LI><STRONG><A NAME="00000" HREF="msg00000.html"> subject</A> name</STRONG></LI>
<Li><Strong><A NAME="00000" href="msg00000.html"> subject</A></Strong> <EM>name</EM></LI>
<LI><STRONG><A NAME="00000" HREF="msg00000.html">subject</a></strong> <EM>name</EM>
$HNS::Hnf::Command::ConvUrl::Template{MD} =
"http://www.ysnb.net/meadow/meadow-develop/x/%params";
としておくと、
LINK MD:2427 meadow-develop の 2427と記述して meadow-develop の 2427とリンクできる:-)
$Template{"hns-dev"} = sub { sprintf("http://www.h14m.org/ml/hns-dev/msg%05d.html", $_[0] - 1) };
$Template{"hns-users"} = sub { sprintf("http://www.h14m.org/ml/hns-users/msg%05d.html", $_[0] - 1) };
$Template{"emacs-w3m"} = sub { sprintf("http://www.namazu.org/~tsuchiya/emacs-w3m/ml/msg%05d.html", $_[0]-1) };
としておくと
hns-dev:00606,
hns-users:00891,
emacs-w3m:00950とリンクできるように
してみました*1
。
U+0000 - U+007F : 0xxxxxxx U+0080 - U+07FF : 110xxxxx 10xxxxxx U+0800 - U+FFFF : 1110xxxx 10xxxxxx 10xxxxxxx