R;7e[1m[4melmo-ttyp6>[m[84] S;[ eS;IâmS;ˆaS;j< cS;Ø)sS;ßŠ S;xS-T;CHnT;mªwT;Q V;üT2[?1h=[?25l[24;1H and load others...[K[H[KV;ûV[B[K[B[K[B[K[B[K[B[KV;8X[B[K[B[K[B[K[B[K[B[KV;lY[B[K[B[K[B[K[B[K[B[KV;ŸZ[B[K[B[K[B[K[B[K[B[KV;Š\Ë[B[7m----:---F1 [m[m[1m[7m*scratch* [m[m[7m (Fundamental)--L1--All----------------------------[m[m [A[BFinished loading /usr/local/share/emacs/site-lisp/egg/leim-list.el[K[H[?25hV;ƒa[?25l[24;1H[K[ALoading /usr/local/share/emacs/21.0.100/leim/leim-list.el (source)...[H[?25hV;Öé[?25l[23;70Hdone[H[?25hV;p} [?25l[23;1H(emacs)[K[H[?25hV;c+[?25l[23;1HLoading disp-table...[H[?25hV; [?25l[23;22Hdone[H[?25hV;è[?25l[H[J[?25hV;™–E[?25l[24;1H[K[ALoading pcl-cvs-startup (source)...[K[2;1H[?25hV;Ù%[?25l[23;9Hadvice...[K[2;1H[?25hV;i$[?25l[23;9Hbytecomp...[2;1H[?25hV;D[?25l[23;20Hdone[2;1H[?25hV;é>$[?25l[23;13H-opt...[K[2;1H[?25hV;Òp[?25l[23;20Hdone[2;1H[?25hV;c#[?25l[23;9Hadvice[2P[2;1H[?25hV;kÓ6[?25l[23;9Hpcl-cv[18@s-startup (source)[2;1H[?25hV;´ 3[?25l[23;9Helserv-demo (source)...[K[2;1H[?25hV;ð2&[?25l[23;9Hcl-macs...[K[2;1H[?25hV;©»[?25l[23;19Hdone[2;1H[?25hW;"LE[?25l[24;1H[K[ALoading elserv-demo (source)...done[K[2;1H[?25hW;[9[?25l[23;9H/home/elmo/teranisi/.emacs-21...[2;1H[?25hW;Øw[?25l[H[J[?25hW;>ÔE[?25l[24;1H[K[ALoading pcl-cvs-startup (source)...[K[2;1H[?25hW;‡è[?25l[23;36Hdone[2;1H[?25hW;J)[?25l[23;9Hmime-setup...[K[2;1H[?25hW;šH#[?25l[23;10H[5@ail-m[2;1H[?25hW;_n[?25l[24;1Hrce)...[A /usr/local/libexec/emacs/21.0.100/i386--freebsd3/fns-21.0.100.1.el (sou\ [2;1H[?25hW;k[?25l[24;8Hdone[2;1H[?25hW;þ¥9[?25l[24;1H[K[A mail-mime-setup...done[K[2;1H[?25hW;9[?25l[23;1Hgnus-mime-setup is not found.[K[2;1H[?25hW;P\ [?25l[23;1Hemh[6P[2;1H[?25hW;·`2[?25l[23;1HLoading mime-setup...done[2;1H[?25hW;Ú [?25l[24;1HLoading migemo.el (source)...[K[H[7mFile Edit Options Buffers Tools Help [m[m [AW; [B[K[B[K[B[K[B[K[B[KW;L [B[K[B[K[B[K[B[K[B[KW;‚ [B[K[B[K[B[K[B[K[B[KW;» [B[K[B[K[B[K[B[K[B[KW;e Œ[B[K[B[7m--EJ:---F1 [m[m[1m[7m*scratch* [m[m[7m (Fundamental)--L1--All----------------------------[m[m [A[2;1H[?25hW;n [?25l[24;30Hdone[2;1H[?25hW;s ;[?25l[24;9H/home/elmo/teranis[11@i/.emacs-21[2;1H[?25hW;E $[?25l[24;36Hafter19...[2;1H[?25hW;ê [?25l[24;46Hdone[2;1H[?25hW;r.[?25l[24;1HLoading edmacro...[K[2;1H[?25hW;ZŒ[?25l[24;19Hdone[2;1H[?25hW;ˆÁ0[?25l[24;1HLoading font-lock...[K[2;1H[?25hW;ú„ 1[?25l[24;1HLoading regexp-opt...[K[2;1H[?25hW;ò— [?25l[24;22Hdone[2;1H[?25hW;ö&[?25l[24;9Hfont-lock[1P[2;1H[?25hW;$õh[?25l[24;1HFor information about the GNU Project and its goals, type M-x describe-project.[2;1H[?25hX;"Á[?25l[24;1HFor information about the GNU Project and its goals, type M-x describe-project.[K[H[7mFile Edit Options Buffers Tools Help [m[m [AX;X$c[BWelcome to GNU Emacs[K [B[K[B[K[BGet help [K [BUndo changes C-x u[KX;Ž&Ú [BExit Emacs C-x C-c[K [BGet a tutorial M-x help-with-tutorial[K [BUse Info to read docs M-x info[K [BOrdering manuals M-x view-order-manuals[K [BActivate menubar F10 or ESC ` or M-`[KX;á)+ [B(`[35mC-[m' means use the CTRL key. `[35mM-[m' means use the Meta (or Alt) key.[K [BIf you have no Meta key, you may instead type ESC followed by the character.)[K [B[K[BIf an Emacs session crashed recently, type M-x recover-session RET[K [Bto recover the files you were editing.[KX;Z,½ [B[K[BGNU Emacs 21.0.100.1 (i386--freebsd3, X toolkit, Xaw3d scroll bars)[K [B of 2001-03-16 on elmo.dq.isl.ntt.co.jp[K [BCopyright (C) 2001 Free Software Foundation, Inc.[K [B[KX;.Þ[BGNU Emacs comes with ABSOLUTELY NO WARRANTY; type M-x describe-no-warranty for \ [A[B[7m--EJ:---F1 [m[m[1m[7m*scratch* [m[m[7m (Lisp Interaction)--L1--Top-----------------------[m[m [A[2;1H[?25hY;Q[?25l[?25hY;D[u[?25l[24;1HM-x[K[H[7mFile Edit Options Buffers Tools Minibuf Help [m[m [AY;›^,[B[31m;; This buffer is for notes you don't want to save, and for Lisp evaluation. [m [A[B[31m;; If you want to create a file, visit that file with C-x C-f, [m [A[B[31m;; then enter the text in that file's own buffer. [m [A[B[K[B[KY;H`[B[K[B[K[B[K[B[K[B[KY;…a[B[K[B[K[B[K[B[K[B[KY;Äb[B[K[B[K[B[K[B[K[B[KY;rd[B[K[B[7m--EJ:---F1 [m[m[1m[7m*scratch* [m[m[7m (Lisp Interaction)--L5--All-----------------------[m[m [A[24;5H[?25hY;« [?25lw[?25hY;‹ý [?25l3[?25hZ;¯ [?25lm[?25h];Ä½[?25l[?25h];]0 [?25l [?25h];s[?25lURL (default about:):];Þx [C[?25h];`ë [?25lh[?25h^;x [?25lt[?25h^;e] [?25lt[?25h^;Çy [?25lp[?25h^;I [?25l:[?25h_;GÚ [?25l/[?25h_;ÔŽ [?25l/[?25h`;Èå [?25ll[?25h`;Q‘ [?25lo[?25h`;!¸ [?25lc[?25h`;« [?25la[?25h`; ß [?25ll[?25h`;ÝU [?25lh[?25h`;ó [?25lo[?25h`;áE [?25ls[?25ha;¥i [?25lt[?25ha;D¸ [?25l:[?25hb;q{ [?25l8[?25hb;§ [?25l0[?25hb;Ú [?25l0[?25hb;óq [?25l0[?25hd;Íi [?25l [?25hd;u[?25lReading...[K[6;1H[?25hd;Q#[?25l[1;33H[7mHelp [m[md;Ã/*[6;1H[?25h[?25l[24;12Hdone[6;1H[?25hd;²0U[?25l[24;1HCannot retrieve URL: http://localhost:8000 (exit status: 0)[6;1H[?25hg; b[?25l[?25hg;Ë[?25l[?25hh;}+[?25l[24;1H[K[6;1H[?25hh;Û9-[?25l[24;1HM-x[1;33H[7mMinibuf Help[m[mh;`> [24;5H[?25hi;Ä [?25lw[?25hj; Õ[?25l[K[C[?25hj;í [?25le[?25hj;ï_ [?25ll[?25hj;Œ [?25ls[?25hj;## [?25le[?25hk; m[?25lrv-[?25hk;ºö [?25ld[?25hl;c¨ [?25le[?25hl;—£ [?25lm[?25hl;¨ [?25lo[?25hl;£8 [?25l-start[?25hm;Í> [?25l [?25hm;§&[?25l[K[1;33H[7mHelp [m[mm;¯[6;1H[?25hp;ÄíP[?25l[24;1HFind file: ~/cvs/elserv/[1;33H[7mMinibuf Help[m[m[24;25H[?25hq;pK [?25le[?25hq;¼Ë [?25ll[?25hq;ÛÀ [?25ls[?25hq;n [?25le[?25hq;[?25lrv[?25hr;3« [?25l-[?25hr;M [?25ld[?25hr;Æâ [?25le[?25hr;ÍÁ [?25lm[?25hr;{, [?25lo[?25hr;é[?25l.el[?25hs;¼L [?25l [?25hs;‡)[?25l[K[1;33H[7mEmacs-Lisp Help[m[ms;r[2;3H[31m; elserv-demo.el -- Elserv demo. [m [B[K[4;4H[31mCopyright (C) 2001 Yuuichi Teranishi [m[6;1H[31m;; Author: Yuuichi Teranishi [m s;‰k[31m;; Keywords: HTTP [m [B[31m;; This program is free software; you can redistribute it and/or modify [m [31m;; it under the terms of the GNU General Public License as published by [m [31m;; the Free Software Foundation; either version 2, or (at your option) [m s;ö!Â[31m;; any later version. [m [31m;; [m [31m;; This program is distributed in the hope that it will be useful, [m [31m;; but WITHOUT ANY WARRANTY; without even the implied warranty of [m [31m;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the [m s;Ô%Â[31m;; GNU General Public License for more details. [m [31m;; [m [31m;; You should have received a copy of the GNU General Public License [m [31m;; along with GNU Emacs; see the file COPYING. If not, write to the [m [31m;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, [m s;'(·[31m;; Boston, MA 02111-1307, USA. [m [23;13H[1m[7melserv-demo.el[m[m[7m (Emacs-Lisp CVS:1.8)--L1--Top[m[m[2;1H[?25hs;^6[?25l[1;13r[10;1H[3M[1;24rs;r=[2;3H[31m Free Software Foundation, Inc., 59 Temple Place - Suite 330,[m [B[31m;; Boston, MA 02111-1307, USA. [m [4;4H[31m [m[6;3H[31m; Commentary: [m[7;4H[31m [m[9;3H[31m; History: [m[11;1H[K[B[31m;;; Code [m [A[B[K[B([1m[36mrequire[m[m '[35melserv[m)[K [B([1m[36mrequire[m[m '[35mcalendar[m)[K [B([1m[36meval-and-compile[m[m[K [B ([1m[36mignore-errors[m[m ([1m[36mrequire[m[m '[35mw3m[m)))[K [B[K[19;4H[31mcalendar (original was in the httpd.el) [m [B([1m[36mdefun[m[m [1m[34melserv-demo-calendar[m[m (result path ppath request)[K [B ([1m[36mlet[m[m (year month prev-year prev-month next-year next-month)[K [B ([1m[36mif[ms;Ï=a[m (string-match [32m"^/\$[0-9]+\$/\$[0-9]+\$"[m path)[K[B[7m20-- 5%[m[m[2;1H[?25ht;°R[?25l ([1m[36mlet[m[m (year month prev-year prev-month next-year next-month)[K [B ([1m[36mif[m[m (string-match [32m"^/\$[0-9]+\$/\$[0-9]+\$"[m path)[K [B ([1m[36mprogn[m[m[K[5;11H(setq year (string-to-number (match-string 1 path))) [B (setq month (string-to-number (match-string 2 path))))[Kt;•ì [B (setq year (string-to-number (format-time-string [32m"%Y"[m)))[K[8;7H(setq month (string-to-number (format-time-string [32m"%m"[m)))) [B ([1m[36mif[m[m (eq month 1)[K [B ([1m[36mprogn[m[m[K[B(setq prev-year (- year 1)) [B (setq prev-month 12))[K[13;7H(setq prev-year year) [B (setq prev-month (- month 1))) [B ([1m[36mif[m[m (eq month 12) [B ([1m[36mprogn[m[m[K[17;3H (setq next-year (+ year 1))[18;11H(setq next-month 1)) [B (setq next-year year)[K [B (setq next-month (+ month 1)))[K[21;3H (elserv-set-result-code result 200)[K[22;6Helserv-set-result-header result '(content-type [32m"text/html"[m))[23;56H[7m39-- 7[m[m[2;1H[?25ht;…x[?25l[2;3H (elserv-set-result-code result 200)[K[3;6Helserv-set-result-header result '(content-type [32m"text/html"[m))[4;5H(elserv-set-result-body[5;6Hresult[K[6;6H(concat[K[7;7H[32m"Emacs calendar\n"[m[K[8;7H[32m"

Calendar for "[m[K[9;5H (number-to-string year)[10;7H[32m"/"[m[K[B(number-to-string month)[K[12;7H[32m"

\n"[m[K[13;7H[32m"prev\n "[m[16;7H[32m"next "[m[19;7H[32m"

\n"[m[K[20;8H[1m[36mwith-temp-buffer[m[m[K[21;5H    (apply 'generate-calendar (list month year))[22;5H    (buffer-string))[K[23;56H[7m58--11[m[m[2;1H[?25hu;vaë[?25l[2;5H    (apply 'generate-calendar (list month year))[3;5H    (buffer-string))[K[4;5H  [32m"

\n\n"[m)))) [B[K[B[31m;; list-buffers [m u;>gí([1m[36mdefun[m[m [1m[34melserv-demo-buffers[m[m (result path ppath request)[K[8;3H([1m[36mlet[m[m ((buf (and (not (string= path [32m""[m))[9;7H (get-buffer (substring path 1)))))[10;5H([1m[36mif[m[m buf[11;7H ([1m[36mprogn[m[m[K[12;7H (elserv-set-result-header result '(content-type [32m"text/plain"[m))[13;7H (elserv-set-result-body[14;7H result[K[15;7H ([1m[36mwith-current-buffer[m[m buf[K[16;7H (encode-coding-string (buffer-string) 'iso-2022-jp))))[17;8Helserv-set-result-header result '(content-type [32m"text/html"[m))[18;8Helserv-set-result-body[K[19;7H result[K[20;7H (concat[K [B [32m"

"[m [B name [32m"\n"[m)))))[12;10H(buffer-list)[K[13;10H[32m""[m)[K [B [32m"

describe-function

Emacs ¤Î¥¡¼¥ï¡¼¥É¤ò¤·¤é¤Ù¤ë (apropos)

Elserv

Elserv: Yet another HTTP se\[m [32mrver on Emacsen

elserv-publish

¥Ç¥â

¥«¥ì¥ó¥À¡¼

[m [32m¥Ð¥Ã¥Õ¥¡°ìÍ÷w;`r ... ¸½ºß Emacs ¾å¤Ë¤¢¤ë¥Ð¥Ã¥Õ¥¡¤Î°ìÍ÷¤òÉ½\[m [32m¼¨¤·¤Þ¤¹¡£
[m [7m91--34[m[m[2;1H[?25hw;ì7[?25l[32m¥Ð¥Ã¥Õ¥¡°ìÍ÷ ... ¸½ºß Emacs ¾å¤Ë¤¢¤ë¥Ð¥Ã¥Õ¥¡¤Î°ìÍ÷¤òÉ½\[m [32m¼¨¤·¤Þ¤¹¡£
[m [32m¥Ð¥Ã¥Õ¥¡°ìÍ÷ ... Æ±¾å(¤¿¤À¤· localhost °Ê³°¤Ïµñ\\[m [32mÈÝ¡£)
[m [32mÇ§¾Ú¥Æ¥¹¥È ... Ç§¾Ú¤Î¥Æ¥¹¥È
[m [32m¥¡¼¥ï¡¼¥É¤ò¤·¤é¤Ù¤ë ... POST ¤ò»È¤¦Îã¤Ç¤¹¡£
[m [32m¥Õ¥¡¥¤¥ë¤ò¥¢¥Ã¥×¥í¡¼¥É¤¹¤ë ... POST ¤ò»È¤¦Îã¡¢¤½¤Î\[m [32m 2¡£
[m [32m¤¢¤ó¤Æ¤Ê(Í× w3m) ... emacs-w3m ¤Î¥¢¥ó¥Æ¥Êµ¡Ç½¤òÃæ·Ñ¤·¤Þ¤¹¡£
[m [32m¥Ò¥¹¥È¥ê(Í× w3m) ... Æ±¤¸¤¯ emacs-w3m ¤ÎDB¥Ò¥¹¥È¥ê¤òÃæ·Ñ¤·¤Þ\[m [32m¤¹¡£
w;æ:¥ [m [32mÅ·µ¤Í½Êó(Í× w3m) ... Æ±¤¸¤¯ emacs-w3m ¤ÎÅ·µ¤Í½Êó¤òÃæ·Ñ¤·¤Þ¤¹\[m [32m¡£
[m [32m

Calendar for "[m[K[9;5H (number-to-string year)[10;7H[32m"/"[m[K[B(number-to-string month)[K[12;7H[32m"

Emacs ¤Î¥­¡¼¥ï¡¼¥É¤ò¤·¤é¤Ù¤ë (apropos)

Elserv: Yet another HTTP se\[m [32mrver on Emacsen

¥Ç¥â

Calendar for "[m[K[9;5H (number-to-string year)[10;7H[32m"/"[m[K[B(number-to-string month)[K[12;7H[32m"

Emacs ¤Î¥¡¼¥ï¡¼¥É¤ò¤·¤é¤Ù¤ë (apropos)

Elserv: Yet another HTTP se\[m [32mrver on Emacsen