diff --git a/.hgignore b/.hgignore new file mode 100644 index 0000000..a32856f --- /dev/null +++ b/.hgignore @@ -0,0 +1,10 @@ +syntax: glob +*,v +RCS +CVS +.cvsignore +[._]win* +__emacs +docs/* +*.swp +trashbox diff --git a/.hgtags b/.hgtags index ebeeba0..8c13073 100644 --- a/.hgtags +++ b/.hgtags @@ -1,3 +1,4 @@ 73cba5ddd1114214308f400a1550f64210f15068 v0 ce2deaceb818dad84bb6a06079cceddeca2f3ef7 yatex-1.74 801593454c59be43ddc14f725c647ab379b44c32 start-branch-for-1.75 +6be1692f81cd35d0ea6022840c9f7e28af6c8e66 start-for-1.75 diff --git a/docs/qanda b/docs/qanda index bfa1d94..ac1dfb7 100644 --- a/docs/qanda +++ b/docs/qanda @@ -344,8 +344,8 @@ �������������������������������� �Ăȋ�ɂȂ�킯�ł���B���������傦���B���āA������program�� - ���̃}�N����`��ǂ�����Ɗ‹��ɓn���� foo.c �͂��̂܂� - \label{#1} �Ń��x���Ƃ��Ď����I�ɑł���邱�ƂɂȂ�B���ApLaTeX + ���̃}�N����`��ǂ�����Ɗ‹��ɓn���� foo.c �͂��̂܂܎����I�� + \label{#1} �Ń��x���Ƃ��đł���邱�ƂɂȂ�܂��B���ApLaTeX �̃��x���͓��{���OK��B�ŁA���̈Öق̂����ɑł��ꂽ���x������� ���ɋ�����Ƃ����̂��X�}�[�g�Ȃ����ł��B������`����̂��ϐ� YaTeX::ref-labeling-regexp-alist-private �Ȃ�B����ɂ� @@ -682,9 +682,9 @@ �̂悤�Ƀ��C���𑗂�Ή����ł��܂��B�葱���͑S�Ď����ōs���A�o �^����������Ɗm�F�ƂƂ��ɁA�Q��/�x�~/�E��̐���R�}���h�̗��p - ���@���ԑ�����܂��B����Q�����Ĉꏏ�ɖ쒹/����/����/�򒹂���� - �Ă��������B�Ȃ��A���ȏЉ�̕��������ꍇ�ꌩ���������悤�Ɍ����� - �����A�����I�ɓo�^�������܂��̂Ō䒍�Ӊ������B + ���@���ԑ�����܂��B����Q�����Ĉꏏ�ɖ쒹/����/����/��/�Ԓ��� + ��ĂĂ��������B�Ȃ��A���ȏЉ�̕��������ꍇ�ꌩ���������悤�Ɍ� + ���܂����A�����I�ɓo�^�������܂��̂Ō䒍�Ӊ������B �E�쒹�̍ŐV����? @@ -696,6 +696,26 @@ ������̂ŁAcurrent�ł̗��p�͂Ƃ��Ɂu�f�o�b�O�ɋ��͂���v�Ƃ��� �S�\���ł̗��p�����肢���܂��B + yatex-current�͑S�t�@�C���𖈉�擾����K�v������̂Ŕ�����ł��B + YaTeX�̃\�[�X�R�[�h��Mercurial���|�W�g���𗘗p���A�����I���ˆ��S + �ɍX�V���s�Ȃ��ĉ������BMercurial���C���X�g�[����A�ȉ��̂悤�� + ���ĊJ���łɒǐ����܂��B + + hg clone http://www.yatex.org:/hgrepos/yatex + + �ŁA���|�W�g���S�̂��擾���܂��B�J���u�����`�� dev �Ȃ̂� + + cd yatex + hg up -C dev + + ���Đ؂�ւ��܂�(�����[�X�p�u�����`�� default)�B�Ȍ�́A���f�B�� + �N�g���Œ���I�� + + hg pull -uv + + ����΍X�V�݂̂��擾���܂��B���̃f�B���N�g����Emacs�� load-path + �ɉ����Ă��܂��Ă��悢�ł��傤�B + �E�Ƃɂ����킩��܂��[��! �܂�����̑O�� yatex-current(��q) �������Ă݂ĉ������B���ɒ��� diff --git a/docs/qanda.eng b/docs/qanda.eng index ca91172..5b1efce 100644 --- a/docs/qanda.eng +++ b/docs/qanda.eng @@ -393,6 +393,22 @@ errors. The author cannot respond to your query about yatex-current. + If you want to catch up to latest version, using yatex-current + is inefficient. Use yatex's mercurial repository instead. + + hg clone http://www.yatex.org:/hgrepos/yatex + cd yatex + hg up -C dev + + Then, getting all updates by `hg pull'. + + hg pull -uv + + Okay to set load-path of yatex to local copy of repository. + Two branch names are mostly in use. The `default' branch is for + release versions, the `dev' branch is for development. + + *Help, help HELP!! Ways of getting answers in fastest order. diff --git a/docs/yahtmle b/docs/yahtmle index 7ea051d..1c6c43e 100644 --- a/docs/yahtmle +++ b/docs/yahtmle @@ -1,7 +1,8 @@ Info file: yahtmle, -*-Text-*- produced by `texinfo-format-buffer' from file `yahtmle.tex' -using `texinfmt.el' version 2.32 of 19 November 1993. +using `texinfmt.el' version 2.38 of 3 July 1998. + @@ -22,6 +23,7 @@ * Copying:: Copyright * Concept Index:: Index +  File: yahtmle, Node: Intro, Next: Installation, Prev: Top, Up: Top @@ -35,6 +37,7 @@ (This Info is still incomplete) +  File: yahtmle, Node: Installation, Next: Command Invocation, Prev: Intro, Up: Top @@ -46,6 +49,7 @@ * Setting environments for weblint browsers and image viewers:: * Setting environment variables for WWW pages:: +  File: yahtmle, Node: Setting up yahtml, Next: Setting environments for weblint browsers and image viewers, Prev: Installation, Up: Installation @@ -71,6 +75,7 @@ extensions. "yahtml" will be displayed on the mode line if no errors occurred. +  File: yahtmle, Node: Setting environments for weblint browsers and image viewers, Next: Setting environment variables for WWW pages, Prev: Setting up yahtml, Up: Installation @@ -89,6 +94,7 @@ `yahtml-kanji-code' ... kanji code for HTML files +  File: yahtmle, Node: Setting environment variables for WWW pages, Prev: Setting environments for weblint browsers and image viewers, Up: Installation @@ -100,8 +106,7 @@ ... list of matching path name on file system and URLs `yahtml-directory-index' ... index file displayed when none is given in URL. Usually - `index.html' on NCSA type httpd and `Welcome.html' on - CERN types. + `index.html' on NCSA type httpd and `Welcome.html' on CERN types. Examples for `yahtml-path-url-alist'. If `/home/yuuji/http/' is `http://localhost/~yuuji' at home and `/usr/home/yuuji/www/' is @@ -113,6 +118,7 @@ Any number of additions can be made to this list. +  File: yahtmle, Node: Command Invocation, Next: Completion, Prev: Installation, Up: Top @@ -127,6 +133,7 @@ `[prefix] t r' ... Reload current page if browser is already running +  File: yahtmle, Node: Completion, Next: Jump, Prev: Command Invocation, Up: Top @@ -174,6 +181,7 @@ for < (<), > (>), & (&), " ("), ' ('), blank ( ) is possible. +  File: yahtmle, Node: Jump, Next: Changing and Deleting, Prev: Completion, Up: Top @@ -192,6 +200,7 @@ * `' -> move cursor to linked target * `' -> open Java source +  File: yahtmle, Node: Changing and Deleting, Next: CSS Support, Prev: Jump, Up: Top @@ -204,6 +213,7 @@ * Changing entities:: * URLencoding of strings within region:: +  File: yahtmle, Node: Changing tags in pairs, Next: Changing entities, Prev: Changing and Deleting, Up: Changing and Deleting @@ -222,6 +232,7 @@ * attributes such as `photo' ... change attributes +  File: yahtmle, Node: Changing entities, Next: URLencoding of strings within region, Prev: Changing tags in pairs, Up: Changing and Deleting @@ -236,11 +247,12 @@ ... convert char to special entity in marked region `[prefix] :' ... convert special entity to original char in marked region - (reverse of [prefix] ;) + (reverse of [prefix] ;) +  -File: yahtmle, Node: URLencoding of strings within region, Prev: Changing entities, Up: Changing and Deleting +File: yahtmle, Node: URLencoding of strings within region, Next: td-enclosure/tr-enclosure, Prev: Changing entities, Up: Changing and Deleting URLencoding of strings within region ==================================== @@ -248,6 +260,32 @@ `[prefix] #' ... encode chars that needs to be URLencoded within region + + +File: yahtmle, Node: td-enclosure/tr-enclosure, Prev: URLencoding of strings within region, Up: Changing and Deleting + +td-enclosure/tr-enclosure +========================= +If you wan to convert series of field into ... repetitions for +table element, td-enclosure or tr-enclosure is convenient. + + `[prefix] '} + + ... Enclose each field in a region into ...'s. + `[prefix] ]' + + ... Enclose each line in a region into ...'s, with every +line converted to ... repetition. They presume white space as +field separator by default. To change this, enter other delimiting +character for a query. You can convert CSV, for example, into table by +specifying comma(,) as a delimiter. + +If you want to enclose fields with th, call with universal-argument +(`C-u'). Enter `th' to enclose fields with .... The special +answer `thd' means that enclose the only first column with th, and the +rest with td. + +  File: yahtmle, Node: CSS Support, Next: Customizations, Prev: Changing and Deleting, Up: Top @@ -259,6 +297,7 @@ * CSS-class completion:: * Reread CSS definition:: +  File: yahtmle, Node: CSS-class completion, Next: Reread CSS definition, Prev: CSS Support, Up: CSS Support @@ -281,6 +320,7 @@ class name. If this is bothering, typing `C-j' instead of `RET' (or `C-m') cancels the next prompt to class name completion. +  File: yahtmle, Node: Reread CSS definition, Prev: CSS-class completion, Up: CSS Support @@ -289,6 +329,7 @@ If you add some class to your CSS file and you want yahtml to load new definitions, type `M-x yahtml-mode RET' to make yahtml do. +  File: yahtmle, Node: Customizations, Next: Copying, Prev: CSS Support, Up: Top @@ -302,6 +343,7 @@ * All customizable variables:: List of customizable variables * Hook variables:: hook variables +  File: yahtmle, Node: All customizable variables, Next: Hook variables, Prev: Customizations, Up: Customizations @@ -318,9 +360,9 @@ Browser to view external pages with `[prefix]g'. (netscape) -- Variable: yahtml-kanji-code - Default kanji code. 1=sjis, 2=jis, 3=euc (2) If - AddType "text/html; charset=xxx" .html is written in .htaccess, - this will override yahtml-kanji-code. + Default kanji code. 1=sjis, 2=jis, 3=euc, 4=utf-8 (2) If AddType + "text/html; charset=xxx" .html is written in .htaccess, this will + override yahtml-kanji-code. -- Variable: yahtml-fill-column Columns to auto-fill (72) @@ -410,6 +452,7 @@ -- Variable: yahtml-indentation-boundary Boundary regexp for indentation calculation. (`"^\\s *"') +  File: yahtmle, Node: Hook variables, Prev: All customizable variables, Up: Customizations @@ -417,6 +460,7 @@ ============== +  File: yahtmle, Node: Copying, Next: Concept Index, Prev: Customizations, Up: Top @@ -440,6 +484,7 @@ HIROSE, Yuuji +  File: yahtmle, Node: Concept Index, Prev: Copying, Up: Top @@ -457,3 +502,30 @@ + + +Tag table: +Node: Top148 +Node: Intro725 +Node: Installation1123 +Node: Setting up yahtml1404 +Node: Setting environments for weblint browsers and image viewers2195 +Node: Setting environment variables for WWW pages2891 +Node: Command Invocation3862 +Node: Completion4290 +Node: Jump5807 +Node: Changing and Deleting6287 +Node: Changing tags in pairs6538 +Node: Changing entities7033 +Node: URLencoding of strings within region7569 +Node: td-enclosure/tr-enclosure7870 +Node: CSS Support8836 +Node: CSS-class completion9062 +Node: Reread CSS definition9915 +Node: Customizations10190 +Node: All customizable variables10466 +Node: Hook variables14234 +Node: Copying14360 +Node: Concept Index15151 + +End tag table diff --git a/docs/yahtmle.tex b/docs/yahtmle.tex index 41e9387..10fa2d5 100644 --- a/docs/yahtmle.tex +++ b/docs/yahtmle.tex @@ -5,7 +5,7 @@ @iftex @c @syncodeindex fn cp -@c Last modified Fri Mar 1 16:16:59 2002 on firestorm +@c Last modified Thu Dec 9 16:12:43 2010 on firestorm @syncodeindex vr cp @end iftex @@ -270,7 +270,7 @@ @end table -@node URLencoding of strings within region, , Changing entities, Changing and Deleting +@node URLencoding of strings within region, td-enclosure/tr-enclosure, Changing entities, Changing and Deleting @comment node-name, next, previous, up @section URLencoding of strings within region @@ -279,6 +279,29 @@ @dots{} encode chars that needs to be URLencoded within region @end table +@node td-enclosure/tr-enclosure, , URLencoding of strings within region, Changing and Deleting +@comment node-name, next, previous, up +@section td-enclosure/tr-enclosure +If you wan to convert series of field into ... repetitions for +table element, td-enclosure or tr-enclosure is convenient. + +@table @kbd + @item [prefix] } + @dots{} Enclose each field in a region into ...'s. + @item [prefix] ] + @dots{} Enclose each line in a region into ...'s, with + every line converted to ... repetition. +@end table +They presume white space as field separator by default. +To change this, enter other delimiting character for a query. +You can convert CSV, for example, into table by specifying +comma(,) as a delimiter. + +If you want to enclose fields with th, call with +universal-argument (@kbd{C-u}). Enter `th' to enclose fields +with .... The special answer `thd' means that +enclose the only first column with th, and the rest with td. + @node CSS Support, Customizations, Changing and Deleting, Top @comment node-name, next, previous, up @chapter CSS(Style Sheets) Support @@ -348,7 +371,7 @@ @end defvar @defvar yahtml-kanji-code -Default kanji code. 1=sjis, 2=jis, 3=euc (2) +Default kanji code. 1=sjis, 2=jis, 3=euc, 4=utf-8 (2) If @quotation AddType "text/html; charset=xxx" .html diff --git a/docs/yahtmlj b/docs/yahtmlj index 66fe8e9..b4fdb18 100644 --- a/docs/yahtmlj +++ b/docs/yahtmlj @@ -1,7 +1,8 @@ Info file: yahtmlj, -*-Text-*- produced by `texinfo-format-buffer' from file `yahtmlj.tex' -using `texinfmt.el' version 2.32 of 19 November 1993. +using `texinfmt.el' version 2.38 of 3 July 1998. + @@ -11,459 +12,531 @@ * Menu: -* Intro:: $B$O$8$a$K(B -* Installation:: $B%$%s%9%H!<%k(B -* Command Invocation:: $B30It%3%^%s%I5/F0(B -* Completion:: $BJd40F~NO(B -* Jump:: $B%+!<%=%k%8%c%s%W(B -* Changing and Deleting:: $BJQ99$H:o=|(B -* CSS Support:: $B%9%?%$%k%7!<%HJd40(B -* Customizations:: $B%+%9%?%^%$%:JQ?t0lMw(B -* Copying:: $B$H$j$"$D$+$$(B -* Concept Index:: $B:w0z(B +* Intro:: $(B$O$8$a$K +(B* Installation:: $(B%$%s%9%H!<%k +(B* Command Invocation:: $(B30It%3%^%s%I5/F0 +(B* Completion:: $(BJd40F~NO +(B* Jump:: $(B%+!<%=%k%8%c%s%W +(B* Changing and Deleting:: $(BJQ99$H:o=| +(B* CSS Support:: $(B%9%?%$%k%7!<%HJd40 +(B* Customizations:: $(B%+%9%?%^%$%:JQ?t0lMw +(B* Copying:: $(B$H$j$"$D$+$$ +(B* Concept Index:: $(B:w0z +  -File: yahtmlj, Node: Intro, Next: Installation, Prev: Top, Up: Top +(BFile: yahtmlj, Node: Intro, Next: Installation, Prev: Top, Up: Top -$B$O$8$a$K(B -******** +$(B$O$8$a$K +(B******** -yahtml$B$O(B GNU Emacs $B>e$G(B HTML$BJ8=q$r:n@.$9$k;~$K!"HK;($J(BHTML$B%?%0$NF~NO$rJd40(B -$B5!G=$K$h$C$F%9%`!<%:$K9T$($k$h$&$K$9$k$@$1$G$J$/!"(Bweblint$B$J$I$N9=J8%A%'%C(B -$B%/%W%m%0%i%`!"%+!<%=%k0LCV$N(BURL$B$d%U%!%$%kL>$K0MB8$7$?%V%i%&%6(B/$B%$%a!<%8%t%e!<(B -$B%"$N5/F0$J$I$r(B Emacs $BJT=82hLLCf$+$i9T$($k$h$&$K$9$k%Q%C%1!<%8$G$9!#(B +yahtml$(B$O (BGNU Emacs $(B>e$G (BHTML$(BJ8=q$r:n@.$9$k;~$K!"HK;($J(BHTML$(B%?%0$NF~NO$rJd40 +5!G=$K$h$C$F%9%`!<%:$K9T$($k$h$&$K$9$k$@$1$G$J$/!"(Bweblint$(B$J$I$N9=J8%A%'%C +%/%W%m%0%i%`!"%+!<%=%k0LCV$N(BURL$(B$d%U%!%$%kL>$K0MB8$7$?%V%i%&%6(B/$(B%$%a!<%8%t%e!< +%"$N5/F0$J$I$r (BEmacs $(BJT=82hLLCf$+$i9T$($k$h$&$K$9$k%Q%C%1!<%8$G$9!# -($B$3$N(BInfo$B$OL$40@.$G$9(B(__)$B!D(B) +(B($(B$3$N(BInfo$(B$OL$40@.$G$9(B(__)$(B!D(B) +  File: yahtmlj, Node: Installation, Next: Command Invocation, Prev: Intro, Up: Top -$B%$%s%9%H!<%k(B -************ +$(B%$%s%9%H!<%k +(B************ * Menu: -* yahtml$B5/F0$N$?$a$N@_Dj(B:: -* lint$B%W%m%0%i%`(B/$B%V%i%&%6(B/$B%$%a!<%8%t%e!<%"4D6-Ey$N@_Dj(B:: -* WWW$B%Z!<%84D6-MQJQ?t$N@_Dj(B:: +* yahtml$(B5/F0$N$?$a$N@_Dj(B:: +* lint$(B%W%m%0%i%`(B/$(B%V%i%&%6(B/$(B%$%a!<%8%t%e!<%"4D6-Ey$N@_Dj(B:: +* WWW$(B%Z!<%84D6-MQJQ?t$N@_Dj(B:: +  -File: yahtmlj, Node: yahtml$B5/F0$N$?$a$N@_Dj(B, Next: lint$B%W%m%0%i%`(B/$B%V%i%&%6(B/$B%$%a!<%8%t%e!<%"4D6-Ey$N@_Dj(B, Prev: Installation, Up: Installation +File: yahtmlj, Node: yahtml$(B5/F0$N$?$a$N@_Dj(B, Next: lint$(B%W%m%0%i%`(B/$(B%V%i%&%6(B/$(B%$%a!<%8%t%e!<%"4D6-Ey$N@_Dj(B, Prev: Installation, Up: Installation -yahtml$B5/F0$N$?$a$N@_Dj(B -====================== +yahtml$(B5/F0$N$?$a$N@_Dj +(B====================== -`~/.emacs'$B$K2<$N(B2$B9`L\$r2C$($^$9!#(B +`~/.emacs'$(B$K2<$N(B2$(B9`L\$r2C$($^$9!# - (setq auto-mode-alist + (B(setq auto-mode-alist (cons (cons "\\.html$" 'yahtml-mode) auto-mode-alist)) (autoload 'yahtml-mode "yahtml" "Yet Another HTML mode" t) -$Be$N@_Dj$K$h$j!"3HD%;R$,(B .html $B$G$"$k%U%!%$%k$rJT=8$9$k$H<+F0E*$K(B -yahtml $B$,%m!<%I$5$l$^$9!#(Byahtml$B$,@5>o$K5/F0$G$-$?$H$-$O%b!<%I%i%$%s$NI=<((B -$B$,!V(Byahtml$B!W$KJQ$o$j$^$9!#(B + 0J>e$N@_Dj$K$h$j!"3HD%;R$, (B.html $(B$G$"$k%U%!%$%k$rJT=8$9$k$H<+F0E*$K +(Byahtml $(B$,%m!<%I$5$l$^$9!#(Byahtml$(B$,@5>o$K5/F0$G$-$?$H$-$O%b!<%I%i%$%s$NI=<( +$,!V(Byahtml$(B!W$KJQ$o$j$^$9!# +  -File: yahtmlj, Node: lint$B%W%m%0%i%`(B/$B%V%i%&%6(B/$B%$%a!<%8%t%e!<%"4D6-Ey$N@_Dj(B, Next: WWW$B%Z!<%84D6-MQJQ?t$N@_Dj(B, Prev: yahtml$B5/F0$N$?$a$N@_Dj(B, Up: Installation +(BFile: yahtmlj, Node: lint$(B%W%m%0%i%`(B/$(B%V%i%&%6(B/$(B%$%a!<%8%t%e!<%"4D6-Ey$N@_Dj(B, Next: WWW$(B%Z!<%84D6-MQJQ?t$N@_Dj(B, Prev: yahtml$(B5/F0$N$?$a$N@_Dj(B, Up: Installation -lint$B%W%m%0%i%`(B/$B%V%i%&%6(B/$B%$%a!<%8%t%e!<%"4D6-Ey$N@_Dj(B -==================================================== +lint$(B%W%m%0%i%`(B/$(B%V%i%&%6(B/$(B%$%a!<%8%t%e!<%"4D6-Ey$N@_Dj +(B==================================================== -$BMxMQ$9$k30It%W%m%0%i%`$J$I$K4X$9$k0J2<$NJQ?t$r3NG'$7!"I,MW$J$i@5$7$$CM$KJQ(B -$B99$7$^$9(B($B3g8LFb$O%G%U%)%k%HCM(B)$B!#(B -`yahtml-www-browser' - ... $B5/F0$9$k%V%i%&%6$N%3%^%s%IL>(B(netscape) +$(BMxMQ$9$k30It%W%m%0%i%`$J$I$K4X$9$k0J2<$NJQ?t$r3NG'$7!"I,MW$J$i@5$7$$CM$KJQ +99$7$^$9(B($(B3g8LFb$O%G%U%)%k%HCM(B)$(B!# +(B`yahtml-www-browser' + ... $(B5/F0$9$k%V%i%&%6$N%3%^%s%IL>(B(netscape) `yahtml-image-viewer' - ... $B5/F0$9$k2hA|%S%e!<%"$N%3%^%s%IL>(B(xv) + ... $(B5/F0$9$k2hA|%S%e!<%"$N%3%^%s%IL>(B(xv) `yahtml-lint-program' - ... $B9=J8%A%'%C%/%W%m%0%i%`$N%3%^%s%IL>(B(jweblint) + ... $(B9=J8%A%'%C%/%W%m%0%i%`$N%3%^%s%IL>(B(jweblint) `yahtml-kanji-code' - ... html$B%U%!%$%k$N4A;z%3!<%I(B + ... html$(B%U%!%$%k$N4A;z%3!<%I +  -File: yahtmlj, Node: WWW$B%Z!<%84D6-MQJQ?t$N@_Dj(B, Prev: lint$B%W%m%0%i%`(B/$B%V%i%&%6(B/$B%$%a!<%8%t%e!<%"4D6-Ey$N@_Dj(B, Up: Installation +(BFile: yahtmlj, Node: WWW$(B%Z!<%84D6-MQJQ?t$N@_Dj(B, Prev: lint$(B%W%m%0%i%`(B/$(B%V%i%&%6(B/$(B%$%a!<%8%t%e!<%"4D6-Ey$N@_Dj(B, Up: Installation -WWW$B%Z!<%84D6-MQJQ?t$N@_Dj(B -========================= +WWW$(B%Z!<%84D6-MQJQ?t$N@_Dj +(B========================= -$B%[!<%`%Z!<%8$H$J$k%U%!%$%k$,B8:_$9$k(BPATH$BL>$K4X$9$kJQ?t$r@_Dj$7$^$9!#(B -`yahtml-path-url-alist' - ... $B%U%!%$%k%7%9%F%`>e$N(BPATH$BL>$H!"(BURL$B$NBP1~I=(B -`yahtml-directory-index' - ... URL$B;XDj$G%U%!%$%kL>$r>JN,$7$?$H$-$KI=<($5$l$k%$%s%G%C%/%9(B - $B%U%!%$%kL>(B(NCSA$B7O(Bhttpd$B$J$i(B `index.html', CERN$B7O$J$i(B - `Welcome.html'$B$,0lHLE*(B) +$(B%[!<%`%Z!<%8$H$J$k%U%!%$%k$,B8:_$9$k(BPATH$(BL>$K4X$9$kJQ?t$r@_Dj$7$^$9!# +(B`yahtml-path-url-alist' + ... $(B%U%!%$%k%7%9%F%`>e$N(BPATH$(BL>$H!"(BURL$(B$NBP1~I= +(B`yahtml-directory-index' + ... URL$(B;XDj$G%U%!%$%kL>$r>JN,$7$?$H$-$KI=<($5$l$k%$%s%G%C%/%9 + %U%!%$%kL>(B(NCSA$(B7O(Bhttpd$(B$J$i (B`index.html', CERN$(B7O$J$i(B`Welcome.html'$(B$,0l + HLE*(B) -$BJQ?t(B `yahtml-path-url-alist' $B$N@_DjNc$r<($7$^$9!#Nc$($P!"<+Bp$G$O!"(B -`/home/yuuji/http/' $B$,(B `http://localhost/~yuuji' $B$G;2>H$G$-!"?&>l$G$O(B -`/usr/home/yuuji/www/' $B$,(B`http://www.keio.ac.jp/~yuuji/' $B$G;2>H$G$-$k$h$&(B -$B$K$J$C$F$$$k>l9g$O0J2<$N$h$&$K@_Dj$7$^$9!#(B +$(BJQ?t (B`yahtml-path-url-alist' $(B$N@_DjNc$r<($7$^$9!#Nc$($P!"<+Bp$G$O!" +(B`/home/yuuji/http/' $(B$, (B`http://localhost/~yuuji' $(B$G;2>H$G$-!"?&>l$G$O +(B`/usr/home/yuuji/www/' $(B$,(B`http://www.keio.ac.jp/~yuuji/' $(B$G;2>H$G$-$k$h$& +$K$J$C$F$$$k>l9g$O0J2<$N$h$&$K@_Dj$7$^$9!# - (setq yahtml-path-url-alist + (B(setq yahtml-path-url-alist '(("/home/yuuj/http" . "http://localhost/~yuuji") ("/usr/home/yuuj/www" . "http://www.keio.ac.jp/~yuuji"))) -$B$3$NBP1~AH$O$$$/$i$G$b@_Dj$9$k$3$H$,$G$-$^$9!#(B +$(B$3$NBP1~AH$O$$$/$i$G$b@_Dj$9$k$3$H$,$G$-$^$9!# +  -File: yahtmlj, Node: Command Invocation, Next: Completion, Prev: Installation, Up: Top +(BFile: yahtmlj, Node: Command Invocation, Next: Completion, Prev: Installation, Up: Top -$B30It%3%^%s%I5/F0(B -**************** +$(B30It%3%^%s%I5/F0 +(B**************** -HTML$B%U%!%$%kJT=8$K$+$+$o$k$$$/$D$+$N%3%^%s%I$rB(:B$K8F$V$3$H$,$G$-$^$9!#(B -`[prefix] t j' - ... HTML$B9=J8%A%'%C%+(B(jweblint)$B5/F0(B -`[prefix] t p' - ... $B8=:_$N%Z!<%8$rBP>]$H$7$?%V%i%&%65/F0(B -`[prefix] t r' - ... $B8=:_$N%Z!<%8$,%V%i%&%6$KI=<($5$l$F$$$k$H$-$N(Breload$B;XDj(B +HTML$(B%U%!%$%kJT=8$K$+$+$o$k$$$/$D$+$N%3%^%s%I$rB(:B$K8F$V$3$H$,$G$-$^$9!# +(B`[prefix] t j' + ... HTML$(B9=J8%A%'%C%+(B(jweblint)$(B5/F0 +(B`[prefix] t p' + ... $(B8=:_$N%Z!<%8$rBP>]$H$7$?%V%i%&%65/F0 +(B`[prefix] t r' + ... $(B8=:_$N%Z!<%8$,%V%i%&%6$KI=<($5$l$F$$$k$H$-$N(Breload$(B;XDj +  -File: yahtmlj, Node: Completion, Next: Jump, Prev: Command Invocation, Up: Top +(BFile: yahtmlj, Node: Completion, Next: Jump, Prev: Command Invocation, Up: Top -$BJd40F~NO(B -******** +$(BJd40F~NO +(B******** -$B!VLnD;!W$GMxMQ$G$-$k!"!V(Bbegin$B7?Jd40!W!"!V(Bsection$B7?Jd40!W!"!V(Blarge$B7?Jd40!W!"(B -$B!V(Bmaketitle$B7?Jd40!W!"!V%"%/%;%s%HJd40!W$HA4$/F1$8%-!$l$N7?$NJd40$O=g$K!"!VJ#?t9T$KEO$k%?%0F~NO!W!"(B -$B!V6uMWAG%?%0(B(img$B$J$I(B)$B$NJd40!W!"!V0l9TFb$G$N3+;O(B/$B=*N;%?%0$NF~NO!W!"!V6uMWAG(B -$B6uB0@-%?%0$NF~NO!W!"!VJ8;z;2>HF~NO!W$KBP1~$7$F$$$^$9!#6qBNE*$K$O(B +$(B!VLnD;!W$GMxMQ$G$-$k!"!V(Bbegin$(B7?Jd40!W!"!V(Bsection$(B7?Jd40!W!"!V(Blarge$(B7?Jd40!W!" +!V(Bmaketitle$(B7?Jd40!W!"!V%"%/%;%s%HJd40!W$HA4$/F1$8%-!$l$N7?$NJd40$O=g$K!"!VJ#?t9T$KEO$k%?%0F~NO!W!" +!V6uMWAG%?%0(B(img$(B$J$I(B)$(B$NJd40!W!"!V0l9TFb$G$N3+;O(B/$(B=*N;%?%0$NF~NO!W!"!V6uMWAG +6uB0@-%?%0$NF~NO!W!"!VJ8;z;2>HF~NO!W$KBP1~$7$F$$$^$9!#6qBNE*$K$O -`[prefix] b ($BLnD;$N(Bbegin$BJd40$KBP1~(B)' +(B`[prefix] b ($(BLnD;$N(Bbegin$(BJd40$KBP1~(B)' ...
- $B$N$h$&$K3+;O%?%0$H=*N;%?%0$rFs9T$KEO$C$F=q$-$?$$>l9g$NJd40$r;X$7$^$9!#(B - $B$*$b$K%V%m%C%/7?%?%0$,Jd408uJd$K4^$^$l$^$9!#(B + $(B$N$h$&$K3+;O%?%0$H=*N;%?%0$rFs9T$KEO$C$F=q$-$?$$>l9g$NJd40$r;X$7$^$9!# + $*$b$K%V%m%C%/7?%?%0$,Jd408uJd$K4^$^$l$^$9!# -`[prefix] s ($BLnD;$N(Bsection$B7?Jd40$KBP1~(B)' +(B`[prefix] s ($(BLnD;$N(Bsection$(B7?Jd40$KBP1~(B)' ... photo - $B$N$h$&$K=*N;%?%0$r;}$?$:!"$+$DB0@-CM$N$_$G5!G=$r;XDj$9$k%?%0$rJd40$7(B - $B$^$9!#Jd408uJd$H$7$F$O!"(Bimg, input $B$,B8:_$7$^$9!#(B + $(B$N$h$&$K=*N;%?%0$r;}$?$:!"$+$DB0@-CM$N$_$G5!G=$r;XDj$9$k%?%0$rJd40$7 + $^$9!#Jd408uJd$H$7$F$O!"(Bimg, input $(B$,B8:_$7$^$9!# -`[prefix] l ($BLnD;$N(Blarge$B7?Jd40$KBP1~(B)' - ... begin$B7?Jd40$H$[$\F1$8$G$9$,!"(B +(B`[prefix] l ($(BLnD;$N(Blarge$(B7?Jd40$KBP1~(B)' + ... begin$(B7?Jd40$H$[$\F1$8$G$9$,!" - $B!A(B + (B $(B!A (B - $B$N$h$&$K0l9TFb$K3+;O(B/$B=*N;%?%0$rF~$l$?$$$H$-$KMxMQ$7$^$9!#(B + $(B$N$h$&$K0l9TFb$K3+;O(B/$(B=*N;%?%0$rF~$l$?$$$H$-$KMxMQ$7$^$9!# -`[prefix] m ($BLnD;$N(Bmaketitle$B7?Jd40$KBP1~(B)' - ... $BMWAG$bB0@-CM$b;}$?$J$$%?%0$rJd40F~NO$7$^$9!#(B
- $B$J$I$,Jd408uJd$KAjEv$7$^$9!#(B +(B`[prefix] m ($(BLnD;$N(Bmaketitle$(B7?Jd40$KBP1~(B)' + ... $(BMWAG$bB0@-CM$b;}$?$J$$%?%0$rJd40F~NO$7$^$9!#(B
+ $(B$J$I$,Jd408uJd$KAjEv$7$^$9!# -`[prefix] a ($BLnD;$N%"%/%;%s%HJd40$KBP1~(B)' - ... $B%(%s%F%#%F%#;2>H$K$h$kJ8;zI=5-$rF~NO$9$k$H$-$KMQ$$$^$9!#(B - $B%G%U%)%k%H$G$O(B < (<), > (>), & (&), " ("), ' ('), - $B%V%i%s%/(B ( ) $B$NJd40F~NO$,9T$($^$9!#(B +(B`[prefix] a ($(BLnD;$N%"%/%;%s%HJd40$KBP1~(B)' + ... $(B%(%s%F%#%F%#;2>H$K$h$kJ8;zI=5-$rF~NO$9$k$H$-$KMQ$$$^$9!# + %G%U%)%k%H$G$O (B< (<), > (>), & (&), " ("), ' ('), + $(B%V%i%s%/ (B( ) $(B$NJd40F~NO$,9T$($^$9!# +  -File: yahtmlj, Node: Jump, Next: Changing and Deleting, Prev: Completion, Up: Top +(BFile: yahtmlj, Node: Jump, Next: Changing and Deleting, Prev: Completion, Up: Top -$B%+!<%=%k%8%c%s%W(B -**************** -$BJ8=qCf$N$$$m$$$m$J>l=j$G(B +$(B%+!<%=%k%8%c%s%W +(B**************** +$(BJ8=qCf$N$$$m$$$m$J>l=j$G -`[prefix] g' - ... $BBP1~$9$k%*%V%8%'%/%H$K%8%c%s%W(B +(B`[prefix] g' + ... $(BBP1~$9$k%*%V%8%'%/%H$K%8%c%s%W -$B$r2!$9$3$H$K$h$j!"%+!<%=%k0LCV$N(BHTML$B9=J8$KBP1~$9$k>l=j$K%8%c%s%W$7$^$9!#BP(B -$B1~4X78$,B8:_$9$k$H2rl=j$K%8%c%s%W$7$^$9!#BP +1~4X78$,B8:_$9$k$H2r' $B"+"*(B `' - * `' $B"*(B $BBP1~$9$k(Bviewer$B5/F0(B - * `' $B"*(B $B%j%s%/@h$X$N%]%$%s%H0\F0(B - * `' $B"*(B Java$B%=!<%9%W%m%0%i%`$X$N0\F0(B + (B* `' $(B"+"* (B`' + * `' $(B"* BP1~$9$k(Bviewer$(B5/F0 + (B* `' $(B"* %j%s%/@h$X$N%]%$%s%H0\F0 + (B* `' $(B"* (BJava$(B%=!<%9%W%m%0%i%`$X$N0\F0 +  -File: yahtmlj, Node: Changing and Deleting, Next: CSS Support, Prev: Jump, Up: Top +(BFile: yahtmlj, Node: Changing and Deleting, Next: CSS Support, Prev: Jump, Up: Top -$BJQ99(B/$B:o=|(B -********* +$(BJQ99(B/$(B:o=| +(B********* * Menu: -* $BBP%?%0$NJQ99(B:: -* $BJ8;z;2>H$X$NJQ99(B:: -* $B%j%8%g%sFbJ8;z$N(BURLencode:: - - -File: yahtmlj, Node: $BBP%?%0$NJQ99(B, Next: $BJ8;z;2>H$X$NJQ99(B, Prev: Changing and Deleting, Up: Changing and Deleting - -$BBP%?%0$NJQ99(B -============ -$BJ8=qCf$N$$$m$$$m$J>l=j$G(B - -`[prefix] c' - ... $BBP1~$9$k%?%0Ey$rJQ99(B - -$B$r2!$9$3$H$K$h$j!"%+!<%=%k0LCV$N(BHTML$B9=J8$K1~$8$?5-=RFbMF$NJQ99$r9T$$$^$9!#(B -$B%+!<%=%k0LCV$HJQ99$9$kFbMF$NBP1~$O0J2<$NDL$j$G$9!#(B - - * `'$B!A(B`' - ... `TAG' $B$NJQ99(B - * `photo' $B$J$I$NB0@-CM(B - ... $BB0@-CM$NJQ99(B - - -File: yahtmlj, Node: $BJ8;z;2>H$X$NJQ99(B, Next: $B%j%8%g%sFbJ8;z$N(BURLencode, Prev: $BBP%?%0$NJQ99(B, Up: Changing and Deleting - -$BJ8;z;2>H$X$NJQ99(B -================ -$BJ8;z$H$7$F$N(B < $B$d(B > $B$rI=8=$9$k$H$-$O!"J8;z;2>H$rMQ$$$F(B< $B$d(B > $B$HI=5-(B -$B$9$kI,MW$,$"$j$^$9$,!"(BHTML$B0J30$N%U%!%$%k$+$i$3$l$i$NJ8;z$r4^$`%F%-%9%H$rD%(B -$B$j9~$s$@>l9g$J$I$K!"$3$l$i$NJ8;z$r0l3g$7$FJ8;z;2>H7A<0$KJQ49$G$-$^$9!#(B - -`[prefix] ;' - ... $B;XDj$7$?NN0h$NJ8;z;2>H$KCV$-49$($k$Y$-J8;z$NCV49(B -`[prefix] :' - ... $B;XDj$7$?NN0h$NJ8;z;2>H$r;2>HJ8;z$=$N$b$N$KCV49(B - ([prefix] ; $B$N5UJQ49(B) +* $(BBP%?%0$NJQ99(B:: +* $(BJ8;z;2>H$X$NJQ99(B:: +* $(B%j%8%g%sFbJ8;z$N(BURLencode:: +* td$(B3g$j(B/tr$(B3g$j(B::  -File: yahtmlj, Node: $B%j%8%g%sFbJ8;z$N(BURLencode, Prev: $BJ8;z;2>H$X$NJQ99(B, Up: Changing and Deleting +File: yahtmlj, Node: $(BBP%?%0$NJQ99(B, Next: $(BJ8;z;2>H$X$NJQ99(B, Prev: Changing and Deleting, Up: Changing and Deleting -$B%j%8%g%sFbJ8;z$N(BURLencode +$(BBP%?%0$NJQ99 +(B============ +$(BJ8=qCf$N$$$m$$$m$J>l=j$G + +(B`[prefix] c' + ... $(BBP1~$9$k%?%0Ey$rJQ99 + +$r2!$9$3$H$K$h$j!"%+!<%=%k0LCV$N(BHTML$(B9=J8$K1~$8$?5-=RFbMF$NJQ99$r9T$$$^$9!# +%+!<%=%k0LCV$HJQ99$9$kFbMF$NBP1~$O0J2<$NDL$j$G$9!# + + (B* `'$(B!A(B`' + ... `TAG' $(B$NJQ99 + (B* `photo' $(B$J$I$NB0@-CM + (B... $(BB0@-CM$NJQ99 + + + +(BFile: yahtmlj, Node: $(BJ8;z;2>H$X$NJQ99(B, Prev: $(BBP%?%0$NJQ99(B, Up: Changing and Deleting + +$(BJ8;z;2>H$X$NJQ99 +(B================ +$(BJ8;z$H$7$F$N (B< $(B$d (B> $(B$rI=8=$9$k$H$-$O!"J8;z;2>H$rMQ$$$F(B< $(B$d (B> $(B$HI=5- +$9$kI,MW$,$"$j$^$9$,!"(BHTML$(B0J30$N%U%!%$%k$+$i$3$l$i$NJ8;z$r4^$`%F%-%9%H$rD% +$j9~$s$@>l9g$J$I$K!"$3$l$i$NJ8;z$r0l3g$7$FJ8;z;2>H7A<0$KJQ49$G$-$^$9!# + +(B`[prefix] ;' + ... $(B;XDj$7$?NN0h$NJ8;z;2>H$KCV$-49$($k$Y$-J8;z$NCV49 +(B`[prefix] :' + ... $(B;XDj$7$?NN0h$NJ8;z;2>H$r;2>HJ8;z$=$N$b$N$KCV49(B([prefix] ; + $(B$N5UJQ49(B) + + + + +File: yahtmlj, Node: $(B%j%8%g%sFbJ8;z$N(BURLencode, Next: td$(B3g$j(B/tr$(B3g$j(B, Prev: $(BJ8;z;2>H$X$NJQ99(B, Up: Changing and Deleting + +$(B%j%8%g%sFbJ8;z$N(BURLencode ========================= [prefix] # - ... $B;XDj$7$?NN0hFb$K(B URLencode $B$9$Y$-J8;z$,$"$l$P$=$l$i$r(B - $B%(%s%3!<%II=5-$KCV49!#(B + ... $(B;XDj$7$?NN0hFb$K (BURLencode $(B$9$Y$-J8;z$,$"$l$P$=$l$i$r%(%s + %3!<%II=5-$KCV49!# +  -File: yahtmlj, Node: CSS Support, Next: Customizations, Prev: Changing and Deleting, Up: Top +(BFile: yahtmlj, Node: td$(B3g$j(B/tr$(B3g$j(B, Prev: $(B%j%8%g%sFbJ8;z$N(BURLencode, Up: Changing and Deleting -CSS($B%9%?%$%k%7!<%H(B)$B%5%]!<%H(B -*************************** +td$(B3g$j(B/tr$(B3g$j +(B============= +$(B6uGr6h@Z$j$G=q$$$?I=7A<0$N9T%l%3!<%I$r (B $(B3g$j$NJB$S!$$"$k$$$O$=$l$i$r$5 +$i$K (B $(B$G3g$C$?9TJB$S$KJQ49$G$-$^$9!# + (B`[prefix] '} + + ... $(B8=:_$N%j%8%g%s$K$"$k%G!<%?$r6uGr6h@Z$j$4$H$K + (B... $(B$G3g$k + (B`[prefix] ]' + + ... $(B8=:_$N%j%8%g%s$K$"$k9T$r>e5-(Btd$(B3g$j$r$[$I$3$7$F$+$i$5$i$K9T$4$H +$K (B... $(B$G3g$k%G%U%)%k%H$G$O6uGr6h@Z$j$G$9$,!$$3$l$rJQ$($k$H$-$O +(BDelimiter: $(B$NLd$$9g$o$;$K6h@Z$jJ8;z$r;XDj$7$^$9!#$?$H$($P%+%s%^(B(,) $(B$r;XDj +$9$k$H(BCSV$(B$+$iI=$r:n$k$3$H$,$G$-$^$9!# + +(Btd$(B0J30$NMWAG!$6qBNE*$K$O (Bth $(B$G3g$j$?$$>l9g$O (Buniversal-argument (`C-u') $(B$r +$D$1$F>e5-(B2$(B$D$N%3%^%s%I$r8F$S$^$9!#$I$NMWAG$G3g$k$+$N... $(B$G3g$j$^$9!#$b$7!$Bh(B1$(B%U%#!< +%k%I$N$_ (Bth $(B$G!$;D$j$rA4It (Btd $(B3g$j$K$7$?$$$H$-$O (Bthd $(B$HF~NO$7$F2<$5$$!# + + + +(BFile: yahtmlj, Node: CSS Support, Next: Customizations, Prev: Changing and Deleting, Up: Top + +CSS($(B%9%?%$%k%7!<%H(B)$(B%5%]!<%H +(B*************************** * Menu: * CSS-class completion:: * Reread CSS file:: +  File: yahtmlj, Node: CSS-class completion, Next: Reread CSS file, Prev: CSS Support, Up: CSS Support -CSS$B%/%i%9L>Jd40(B -=============== -HTML$B20$O(BCSS(Cascading Style Sheets)$B$N%/%i%9L>$rJd40F~NO$9$k$3$H$,$G$-$^$9!#(B -$B%9%?%$%kDj5A$H$7$F(B +CSS$(B%/%i%9L>Jd40 +(B=============== +HTML$(B20$O(BCSS(Cascading Style Sheets)$(B$N%/%i%9L>$rJd40F~NO$9$k$3$H$,$G$-$^$9!# +%9%?%$%kDj5A$H$7$F - h1.foo, h2.foo { background-color: 0xffffff; } + (Bh1.foo, h2.foo { background-color: 0xffffff; } h1.bar, h2.bar { font-size: 120%; } -$B$N$h$&$J$b$N$,$"$C$?>l9g$K!"(Bh1$B$^$?$O(Bh2$B%?%0$r(B [prefix] b $B$d(B [prefix] l $B$GJd(B -$B40F~NO$7$?>l9g$K!"$=$l$i$KM-8z$J(B class $BL>$G$"$k(B foo, bar $B$r8uJd$H$7$FJd40(B -$BF~NO$9$k$3$H$,2DG=$G$9!#$^$?(B +$(B$N$h$&$J$b$N$,$"$C$?>l9g$K!"(Bh1$(B$^$?$O(Bh2$(B%?%0$r (B[prefix] b $(B$d (B[prefix] l $(B$GJd +40F~NO$7$?>l9g$K!"$=$l$i$KM-8z$J (Bclass $(BL>$G$"$k (Bfoo, bar $(B$r8uJd$H$7$FJd40 +F~NO$9$k$3$H$,2DG=$G$9!#$^$? - .caution { font-size: 120%; background-color: 0xc00000;} + (B.caution { font-size: 120%; background-color: 0xc00000;} -$B$N$h$&$JA4$F$N%(%l%a%s%H$KF/$/(Bclass$B$,Dj5A$5$l$F$$$?>l9g$O!"A4$F$N%?%0$NJd(B -$B40F~NO;~$K(Bclass$B;2>HF~NO$r5a$a$i$l$^$9!#$3$l$,HQ$o$7$$>l9g$O%(%l%a%s%HL>F~(B -$BNO3NDj$N$H$-$K%j%?!<%s%-!<(B($B$^$?$O(BC-m)$B$G$O$J$/!"(BC-j$B$r2!$;$P(Bclass$BJd40F~NO$r(B -$B%-%c%s%;%k$G$-$^$9!#$?$H$($P(B +$(B$N$h$&$JA4$F$N%(%l%a%s%H$KF/$/(Bclass$(B$,Dj5A$5$l$F$$$?>l9g$O!"A4$F$N%?%0$NJd +40F~NO;~$K(Bclass$(B;2>HF~NO$r5a$a$i$l$^$9!#$3$l$,HQ$o$7$$>l9g$O%(%l%a%s%HL>F~ +NO3NDj$N$H$-$K%j%?!<%s%-!<(B($(B$^$?$O(BC-m)$(B$G$O$J$/!"(BC-j$(B$r2!$;$P(Bclass$(BJd40F~NO$r +%-%c%s%;%k$G$-$^$9!#$?$H$($P - `[prefix] l' $B9TFb%?%0Jd40$r5/F0(B - ($B$^$?$O(B`[prefix] l SPC') - tt $B$r$$$l$?$$$N$G(Btt$B$HF~NO(B - `C-m' + (B`[prefix] l' $(B9TFb%?%0Jd40$r5/F0 + (B($(B$^$?$O(B`[prefix] l SPC') + tt $(B$r$$$l$?$$$N$G(Btt$(B$HF~NO + (B`C-m' -$B$H$7$?>l9g$OB3$$$F(B class= $B$HJd40%W%m%s%W%H$,=P$^$9$,!"(B +$(B$H$7$?>l9g$OB3$$$F (Bclass= $(B$HJd40%W%m%s%W%H$,=P$^$9$,!" - `[prefix] l' $B9TFb%?%0Jd40$r5/F0(B - ($B$^$?$O(B`[prefix] l SPC') - tt $B$r$$$l$?$$$N$G(Btt$B$HF~NO(B - `C-j' + (B`[prefix] l' $(B9TFb%?%0Jd40$r5/F0 + (B($(B$^$?$O(B`[prefix] l SPC') + tt $(B$r$$$l$?$$$N$G(Btt$(B$HF~NO + (B`C-j' -$B$H:G8e$r(B `C-j' $B$GF~NO$7$?>l9g$O(B class $BJd40%W%m%s%W%H$O=P$^$;$s!#(B +$(B$H:G8e$r (B`C-j' $(B$GF~NO$7$?>l9g$O (Bclass $(BJd40%W%m%s%W%H$O=P$^$;$s!# +  -File: yahtmlj, Node: Reread CSS file, Prev: CSS-class completion, Up: CSS Support +(BFile: yahtmlj, Node: Reread CSS file, Prev: CSS-class completion, Up: CSS Support -CSS$BDj5A%U%!%$%k$NFI$_D>$7(B -========================= -html$B%U%!%$%k$rJT=8Cf$K(BCSS$BDj5A%U%!%$%k$r=$@5$7!"DI2C$7$?(Bclass$B$rJd408uJd$H$7(B -$B$FD>$A$KFI$_9~$^$;$?$$>l9g$O!"(B`M-x yahtml-mode' $B$H$7$F:F5/F0$r9T$C$F$/$@$5(B -$B$$!#(B +CSS$(BDj5A%U%!%$%k$NFI$_D>$7 +(B========================= +html$(B%U%!%$%k$rJT=8Cf$K(BCSS$(BDj5A%U%!%$%k$r=$@5$7!"DI2C$7$?(Bclass$(B$rJd408uJd$H$7 +$FD>$A$KFI$_9~$^$;$?$$>l9g$O!"(B`M-x yahtml-mode' $(B$H$7$F:F5/F0$r9T$C$F$/$@$5 +$$!# +  -File: yahtmlj, Node: Customizations, Next: Copying, Prev: CSS Support, Up: Top +(BFile: yahtmlj, Node: Customizations, Next: Copying, Prev: CSS Support, Up: Top -$B%+%9%?%^%$%:(B -************ +$(B%+%9%?%^%$%: +(B************ -yahtml$B$NF0:n$r@)8f$9$kJQ?t$K$D$$$F@bL@$7$^$9!#(B +yahtml$(B$NF0:n$r@)8f$9$kJQ?t$K$D$$$F@bL@$7$^$9!# -* Menu: +(B* Menu: -* All customizable variables:: $B%+%9%?%^%$%:JQ?t0lMw(B -* Hook variables:: hook$BJQ?t(B +* All customizable variables:: $(B%+%9%?%^%$%:JQ?t0lMw +(B* Hook variables:: hook$(BJQ?t +  -File: yahtmlj, Node: All customizable variables, Next: Hook variables, Prev: Customizations, Up: Customizations +(BFile: yahtmlj, Node: All customizable variables, Next: Hook variables, Prev: Customizations, Up: Customizations -$B%+%9%?%^%$%:JQ?t0lMw(B -==================== +$(B%+%9%?%^%$%:JQ?t0lMw +(B==================== -- Variable: yahtml-prefix - yahtml-mode $BCf$N%W%j%U%#%/%9%-!<(B (`\C-c') + yahtml-mode $(BCf$N%W%j%U%#%/%9%-!< (B(`\C-c') -- Variable: yahtml-image-viewer - img$B$G;2>H$7$F$$$k2hA|%U%!%$%k$rI=<($9$k$H$-$K5/F0$9$k%3%^%s%I(B (xv) + img$(B$G;2>H$7$F$$$k2hA|%U%!%$%k$rI=<($9$k$H$-$K5/F0$9$k%3%^%s%I (B(xv) -- Variable: yahtml-www-browser - `[prefix]g' $B$G30It%Z!<%8$rI=<($9$k$H$-$K5/F0$9$k%V%i%&%6(B (netscape) + `[prefix]g' $(B$G30It%Z!<%8$rI=<($9$k$H$-$K5/F0$9$k%V%i%&%6 (B(netscape) -- Variable: yahtml-kanji-code - $B%G%U%)%k%H$N4A;z%3!<%I!#(B1=sjis, 2=jis, 3=euc (2) - .htaccess $B%U%!%$%k$K(B - AddType "text/html; charset=xxx" .html$B$N5-=R$,$"$C$?>l9g$O$=$l(B - $B$K=>$&(B + $(B%G%U%)%k%H$N4A;z%3!<%I!#(B1=sjis, 2=jis, 3=euc, 4=utf-8 (2) + .htaccess $(B%U%!%$%k$K + (BAddType "text/html; charset=xxx" .html $(B$N5-=R$,$"$C$?>l9g$O$=$l + $K=>$& - -- Variable: yahtml-fill-column - auto-fill$B$9$k$H$-$N%+%i%`?t(B (72) + (B-- Variable: yahtml-fill-column + auto-fill$(B$9$k$H$-$N%+%i%`?t (B(72) -- Variable: yahtml-fill-prefix - yahtml-mode $B8GM-$N(Bfill-prefix (`nil') + yahtml-mode $(B8GM-$N(Bfill-prefix (`nil') -- Variable: yahtml-path-url-alist - OS$B$N%U%!%$%k%7%9%F%`>e$G$N%U%k%Q%9L>$H!"$=$N30It8x3+;~$N(BURL$B$NBP1~I=!#(B + OS$(B$N%U%!%$%k%7%9%F%`>e$G$N%U%k%Q%9L>$H!"$=$N30It8x3+;~$N(BURL$(B$NBP1~I=!# - -- Variable: yahtml-directory-index - $B%5!<%P%"%/%;%9;~%U%!%$%kL>$r>JN,$7$?$H$-$K%G%U%)%k%H$G3+$+$l$k%$%s%G%C(B - $B%/%9%U%!%$%k$NL>A0!#B?$/$N>l9g(B index.html$B!#(B(`"index.html"') + (B-- Variable: yahtml-directory-index + $(B%5!<%P%"%/%;%9;~%U%!%$%kL>$r>JN,$7$?$H$-$K%G%U%)%k%H$G3+$+$l$k%$%s%G%C + %/%9%U%!%$%k$NL>A0!#B?$/$N>l9g (Bindex.html$(B!#(B(`"index.html"') -- Variable: yahtml-lint-program - HTML$B9=J8%A%'%C%/%W%m%0%i%`!#(B(`"jweblint"') + HTML$(B9=J8%A%'%C%/%W%m%0%i%`!#(B(`"jweblint"') -- Variable: yahtml-hate-too-deep-indentation - $B%M%9%H$7$?Ns5s7O4D6-$G$N%$%s%G%s%H$,?<$9$.$k$H$-$K(Bt$B$K$9$k!#(B(`nil') + $(B%M%9%H$7$?Ns5s7O4D6-$G$N%$%s%G%s%H$,?<$9$.$k$H$-$K(Bt$(B$K$9$k!#(B(`nil') -- Variable: yahtml-always-/p - `

' $B$r$$$l$?$iI,$:(B `

' $B$7$?$$?M8~$1!#(B`nil' + `

' $(B$r$$$l$?$iI,$: (B`

' $(B$7$?$$?M8~$1!#(B`nil' -- Variable: yahtml-p-prefered-env-regexp - $B<+F0E*$K(B `

' $B$rF~$l$FM_$7$$4D6-!#(B - (`"^\\(body\\|dl\\|blockquote\\)"') + $(B<+F0E*$K (B`

' $(B$rF~$l$FM_$7$$4D6-!# + (B(`"^\\(body\\|dl\\|blockquote\\)"') -- Variable: yahtml-template-file - $B?75,(BHTML$B%U%!%$%k:n@.;~$K<+F0E*$KA^F~$7$FM_$7$$%U%!%$%kL>!#(B - `"~/http/template.html"' + $(B?75,(BHTML$(B%U%!%$%k:n@.;~$K<+F0E*$KA^F~$7$FM_$7$$%U%!%$%kL>!# + (B`"~/http/template.html"' -- Variable: yahtml-prefer-upcases - $B%?%0$KBgJ8;z$r;H$$$?$$!#(B`nil' + $(B%?%0$KBgJ8;z$r;H$$$?$$!#(B`nil' -- Variable: yahtml-prefer-upcase-attributes - $BB0@-;XDj;R$KBgJ8;z$r;H$$$?$$!#(B`nil' + $(BB0@-;XDj;R$KBgJ8;z$r;H$$$?$$!#(B`nil' -- Variable: yahtml-server-type - Apache$B7O$N%5!<%P$rMxMQ$7$F$$$k>l9g$O(B 'apache $B$r%;%C%H$9$k!#(B - ./.htaccess $B$r;2>H$9$k$+$I$&$+$r7hDj$9$k!#(B`'apache' + Apache$(B7O$N%5!<%P$rMxMQ$7$F$$$k>l9g$O (B'apache $(B$r%;%C%H$9$k!# + (B./.htaccess $(B$r;2>H$9$k$+$I$&$+$r7hDj$9$k!#(B`'apache' -- Variable: yahtml-apache-access-file - `yahtml-server-type' $B$,(B `'apache' $B$N$H$-$K%"%/%;%9@)8B%U%!%$%kL>$r;X(B - $BDj!#(B`".htaccess"' + `yahtml-server-type' $(B$, (B`'apache' $(B$N$H$-$K%"%/%;%9@)8B%U%!%$%kL>$r;X + Dj!#(B`".htaccess"' -- Variable: yahtml-shell-command-option - $B%7%'%k$GJL%3%^%s%I$r5/F0$9$k$H$-$N%*%W%7%g%s!#(B + $(B%7%'%k$GJL%3%^%s%I$r5/F0$9$k$H$-$N%*%W%7%g%s!# - -- Variable: yahtml-translate-hyphens-when-comment-region - $BNN0h%3%a%s%H%"%&%H$r$9$k$H$-$K4{$KB8:_$9$k%O%$%U%s$r(B `-' $B$KJQ99$9(B - $B$k$+$I$&$+!#(B(`t') + (B-- Variable: yahtml-translate-hyphens-when-comment-region + $(BNN0h%3%a%s%H%"%&%H$r$9$k$H$-$K4{$KB8:_$9$k%O%$%U%s$r (B`-' $(B$KJQ99$9 + $k$+$I$&$+!#(B(`t') -- Variable: yahtml-entity-reference-chars-alist - $B%(%s%F%#%F%#;2>H(B(Entity Reference)$B$G5-=R$9$Y$-J8;z72$r(B - `'(?$BJ8;z(B . "$B%(%s%F%#%F%#I=5-(B")' $B$H$$$&7A<0$rNs5s$7$?(Balist$B$GJB$Y$k!#(B - $B%G%U%)%k%H$G(B `<', `>', `&', `'', `"' $B$KBP$9$k(Balist$B$,@_Dj$5$l$F$$$k$N(B - $B$G!"DI2C$7$?$$J,$@$1$r5-=R$9$l$PNI$$!#(Bcdr$BIt(B `"$B%(%s%F%#%F%#I=5-(B"' $B$O!"(B - $B@hF,$N(B `&' $B$H(B $BKvHx$N(B`;'$B$O4^$a$:$K=q$/!#(B + $(B%(%s%F%#%F%#;2>H(B(Entity Reference)$(B$G5-=R$9$Y$-J8;z72$r(B`'(?$(BJ8;z (B. "$(B%( + %s%F%#%F%#I=5-(B")' $(B$H$$$&7A<0$rNs5s$7$?(Balist$(B$GJB$Y$k!#%G%U%)%k%H$G + (B`<', `>', `&', `'', `"' $(B$KBP$9$k(Balist$(B$,@_Dj$5$l$F$$$k$N$G!"DI2C$7$?$$ + J,$@$1$r5-=R$9$l$PNI$$!#(Bcdr$(BIt (B`"$(B%(%s%F%#%F%#I=5-(B"' $(B$O!"@hF,$N (B`&' $(B$H + KvHx$N(B`;' $(B$O4^$a$:$K=q$/!# - -- Variable: yahtml-faithful-to-htmllint - $B9=J8%A%'%C%+$H$7$F(B htmllint $B$rMxMQ$9$k>l9g$A$g$C$H$7$?M>7W$J6uGr$J$I(B - $B$KBP$7$F$b7Y9p$r<($9$N$G!"$3$l$r2sHr$9$k$H$-$K$O$3$NJQ?t$r(B`t'$B$K$9$k!#(B + (B-- Variable: yahtml-faithful-to-htmllint + $(B9=J8%A%'%C%+$H$7$F (Bhtmllint $(B$rMxMQ$9$k>l9g$A$g$C$H$7$?M>7W$J6uGr$J$I + $KBP$7$F$b7Y9p$r<($9$N$G!"$3$l$r2sHr$9$k$H$-$K$O$3$NJQ?t$r(B`t'$(B$K$9$k!# - -- Variable: yahtml-use-css - CSS$B$NJd405!G=$r;H$&$+$I$&$+(B (`t') + (B-- Variable: yahtml-use-css + CSS$(B$NJd405!G=$r;H$&$+$I$&$+ (B(`t') -- Variable: yahtml-image-inspection-bytes - $B2hA|%U%!%$%k$N%5%$%:$rD4$Y$k$H$-$KFI$_9~$`%P%$%H?t(B (`10000') + $(B2hA|%U%!%$%k$N%5%$%:$rD4$Y$k$H$-$KFI$_9~$`%P%$%H?t (B(`10000') -- Variable: yahtml:img-default-alt-format - $B$N(BALT$BB0@-$N%G%U%)%k%HJ8;zNs$N=q<0!#(B%x$B$O2hA|$NI}!"(B%y$B$O2hA|(B - $B$N9b$5!"(B%s$B$O%U%!%$%k%5%$%:$KCV49$5$l$k(B (`"%xx%y(%sbytes)"') + $(B$N(BALT$(BB0@-$N%G%U%)%k%HJ8;zNs$N=q<0!#(B%x$(B$O2hA|$NI}!"(B%y$(B$O2hA| + $N9b$5!"(B%s$(B$O%U%!%$%k%5%$%:$KCV49$5$l$k (B(`"%xx%y(%sbytes)"') -- Variable: yahtml-escape-chars - href$BJd40$J$I$N$H$-$KM=LsJ8;z$r(BURL$B%(%s%3!<%I$9$k$+(B; 'ask$B$N$H$-$O3NG'$7(B - $B$F$+$iCV49$9$k(B (`'ask') + href$(BJd40$J$I$N$H$-$KM=LsJ8;z$r(BURL$(B%(%s%3!<%I$9$k$+(B; 'ask$(B$N$H$-$O3NG'$7 + $F$+$iCV49$9$k (B(`'ask') -- Variable: yahtml-use-font-lock - $B%=!<%9$N?'$E$1%Q%C%1!<%8$H$7$F(B font-lock $B$rMxMQ$9$k$+(B(`(featurep ' - font-lock)') + $(B%=!<%9$N?'$E$1%Q%C%1!<%8$H$7$F (Bfont-lock $(B$rMxMQ$9$k$+(B(`(featurep + 'font-lock)') -- Variable: yahtml-use-hilit19 - $B%=!<%9$N?'$E$1%Q%C%1!<%8$H$7$F(B hilit19 $B$rMxMQ$9$k$+(B(`(featurep ' - hilit19)') + $(B%=!<%9$N?'$E$1%Q%C%1!<%8$H$7$F (Bhilit19 $(B$rMxMQ$9$k$+(B(`(featurep + 'hilit19)') -- Variable: yahtml-indentation-boundary - $B%$%s%G%s%H7W;;$rBG$A@Z$C$F$h$$6-3&$H$J$k@55,I=8=(B(`"^\\s *"') + $(B%$%s%G%s%H7W;;$rBG$A@Z$C$F$h$$6-3&$H$J$k@55,I=8=(B(`"^\\s *"') +  File: yahtmlj, Node: Hook variables, Prev: All customizable variables, Up: Customizations -hook$BJQ?t(B -======== +hook$(BJQ?t +(B======== +  File: yahtmlj, Node: Copying, Next: Concept Index, Prev: Customizations, Up: Top -$B:\Ey$K4X$7$F$O@)8B$$$?(B -$B$7$^$;$s!#>o<1E*$K07$C$F$/$@$5$$!#$^$?!";HMQ$7$F$$$k;]$r%a%$%k$G$*CN$i$;$$(B -$B$?$@$/$H!":n:\Ey$K4X$7$F$O@)8B$$$? +$7$^$;$s!#>o<1E*$K07$C$F$/$@$5$$!#$^$?!";HMQ$7$F$$$k;]$r%a%$%k$G$*CN$i$;$$ +$?$@$/$H!":np!"4uK>!"%P%0Js9p!"46A[Ey$O4?7^$$$?$7$^$9!#O"Mm$O(B yuuji@yatex.org $B$^(B -$B$G(B(2000$BG/(B12$B7n8=:_(B)$B!#7QB3E*$K;HMQ$7$F$/$@$5$kJ}$O%a%$%j%s%0%j%9%H!V(Bfj$BLnD;$N(B -$B2q!W$K@'Hs2CF~$7$F$/$@$5$$!#2CF~J}K!$K$D$$$F$OK\%Q%C%1!<%8$N(B `docs/htmlqa' -$B%U%!%$%k$N!V$=$NB>!W$N>O$r8fMw$/$@$5$$!#(B + 6l>p!"4uK>!"%P%0Js9p!"46A[Ey$O4?7^$$$?$7$^$9!#O"Mm$O (Byuuji@yatex.org $(B$^ +$G(B(2000$(BG/(B12$(B7n8=:_(B)$(B!#7QB3E*$K;HMQ$7$F$/$@$5$kJ}$O%a%$%j%s%0%j%9%H!V(Bfj$(BLnD;$N +2q!W$K@'Hs2CF~$7$F$/$@$5$$!#2CF~J}K!$K$D$$$F$OK\%Q%C%1!<%8$N (B`docs/htmlqa' +$(B%U%!%$%k$N!V$=$NB>!W$N>O$r8fMw$/$@$5$$!# -$B;EMM$O!"M=9p$J$/3NH$X$NJQ99(B5300 +Node: $(B%j%8%g%sFbJ8;z$N(BURLencode5658 +Node: td$(B3g$j(B/tr$(B3g$j(B5890 +Node: CSS Support6519 +Node: CSS-class completion6738 +Node: Reread CSS file7734 +Node: Customizations7956 +Node: All customizable variables8180 +Node: Hook variables11178 +Node: Copying11290 +Node: Concept Index11793 + +End tag table diff --git a/docs/yahtmlj.tex b/docs/yahtmlj.tex index 6861352..84a62a9 100644 --- a/docs/yahtmlj.tex +++ b/docs/yahtmlj.tex @@ -5,7 +5,7 @@ @iftex @c @syncodeindex fn cp -@c Last modified Fri Mar 1 16:16:33 2002 on firestorm +@c Last modified Thu Dec 9 15:56:35 2010 on firestorm @syncodeindex vr cp @end iftex @@ -229,6 +229,7 @@ * �΃^�O�̕ύX:: * �����Q�Ƃւ̕ύX:: * ���W������������URLencode:: +* td����/tr����:: @end menu @node �΃^�O�̕ύX, �����Q�Ƃւ̕ύX, Changing and Deleting, Changing and Deleting @@ -253,7 +254,7 @@ @dots{} �����l�̕ύX @end itemize -@node �����Q�Ƃւ̕ύX, ���W������������URLencode, �΃^�O�̕ύX, Changing and Deleting +@node �����Q�Ƃւ̕ύX, , �΃^�O�̕ύX, Changing and Deleting @comment node-name, next, previous, up @section �����Q�Ƃւ̕ύX �����Ƃ��Ă� < �� > ��\������Ƃ��́A�����Q�Ƃ�p���� @@ -270,7 +271,7 @@ @end table -@node ���W������������URLencode, , �����Q�Ƃւ̕ύX, Changing and Deleting +@node ���W������������URLencode, td����/tr����, �����Q�Ƃւ̕ύX, Changing and Deleting @comment node-name, next, previous, up @section ���W������������URLencode @table @@ -279,6 +280,29 @@ �G���R�[�h�\�L�ɒu���B @end table +@node td����/tr����, , ���W������������URLencode, Changing and Deleting +@comment node-name, next, previous, up +@section td����/tr���� +�󔒋�؂�ŏ������\�`���̍s���R�[�h�� ����̕��сC +���邢�͂���������� �Ŋ������s���тɕϊ��ł��܂��B +@table @kbd + @item [prefix] } + @dots{} ���݂̃��W�����ɂ���f�[�^���󔒋�؂育�Ƃ� + ... �Ŋ��� + @item [prefix] ] + @dots{} ���݂̃��W�����ɂ���s�� + ��Ltd������قǂ����Ă��炳��ɍs���Ƃ� ... �Ŋ��� +@end table +�f�t�H���g�ł͋󔒋�؂�ł����C�����ς���Ƃ��� +Delimiter: �̖₢���킹�ɋ�؂蕶�����w�肵�܂��B���Ƃ��΃J���}(,) +���w�肷���CSV����\����邱�Ƃ��ł��܂��B + +td�ȊO�̗v�f�C��̓I�ɂ� th �Ŋ��肽���ꍇ�� universal-argument +(@kbd{C-u}) ���‚��ď�L2�‚̃R�}���h���Ăт܂��B�ǂ̗v�f�Ŋ��邩�� +���₪������̂ł���� th �Ɠ����΁C�e�t�B�[���h�� ... +�Ŋ���܂��B�����C��1�t�B�[���h�̂� th �ŁC�c���S�� td ����ɂ������Ƃ� +�� thd �Ɠ��͂��ĉ������B + @node CSS Support, Customizations, Changing and Deleting, Top @comment node-name, next, previous, up @chapter CSS(�X�^�C���V�[�g)�T�|�[�g @@ -367,7 +391,7 @@ @end defvar @defvar yahtml-kanji-code -�f�t�H���g�̊����R�[�h�B1=sjis, 2=jis, 3=euc (2) +�f�t�H���g�̊����R�[�h�B1=sjis, 2=jis, 3=euc, 4=utf-8 (2) .htaccess �t�@�C���� @quotation AddType "text/html; charset=xxx" .html diff --git a/docs/yatex.ref b/docs/yatex.ref index d7d859b..155e0e6 100644 --- a/docs/yatex.ref +++ b/docs/yatex.ref @@ -9,11 +9,6 @@ �쒹�ł́Aprefix �L�[���J�X�^�}�C�Y�ł��邽��(�W���ł�C-c)����� [prefix] �ƕ\�L���܂��BC-c �̂܂ܕύX���Ă��Ȃ��ꍇ�A[prefix] a �� C-c a ��\�킵�܂��B - begin�^�R�}���h�Ƃ� \begin�`\end�̌`���̃R�}���h�Asection�^�R - �}���h�Ƃ� \section{��}�̂悤�Ɉ��������R�}���h�Alarge�^�R�}�� - �h�Ƃ� {\tt } �̂悤�Ȓ����ʂň͂܂ꂽ�t�H���g/�T�C�Y�w��q�A - maketitle�^�R�}���h�Ƃ� \maketitle �̂悤�Ɉ����𔺂�Ȃ��R�}�� - �h���w���܂��B �y�⊮�z @@ -31,40 +26,36 @@ ��section�^�⊮(�̈�w��) [prefix] S �������⊮ [prefix] SPC - ����begin�^�⊮�́A�‹����̓������̑Ή��ɂ‚��ẮAInfo �}�j�� - �A�����������������B�̈�w�胂�[�h�ł́A�}�[�N�����ʒu�ƃ|�C���g - �̊Ԃ�\begin{center}�c\end{center} �� {\large } �ȂǂŊ���܂��B + ����begin�^�⊮�́A�‹����̓������̑Ή��ɂ‚��ẮAyatex.doc �� + �������������B�̈�w�胂�[�h�ł́A�}�[�N�����ʒu�ƃ|�C���g�̊Ԃ� + \begin{center}�c\end{center} �� {\large } �ȂǂŊ���܂��B �������L���C���[�W�⊮ ; - ���M���V�������C���[�W�⊮ : + ���M���V�������C���[�W�⊮ / ���2�‚�TeX�̐����‹��̒��ʼn������ꍇ�̂ݗL���ł��B�����I�ɕ� - ���@�\���g���ꍇ�́AC-u �������Ă��� ; �� : �������܂��B + ���@�\���g���ꍇ�́AC-u �������Ă��� ; / �������܂��B �y�v���Z�X�N���z ��jbibtex�N�� [prefix] tb ��jlatex�N�� [prefix] tj - ��makeindex�N�� [prefix] ti - ��jlatex��kill [prefix] tk �� + ��jlatex��~ [prefix] tk �� ���v�����g�A�E�g [prefix] tl ���v�����g�A�E�g(�S�y�[�W) C-u [prefix] tl ���v���r���[�A�N�� [prefix] tp - ��xdvi��ŕ�����T�[�` [prefix] ts ���� - ��lpq�N�� [prefix] tq ��jlatex�N��(�̈�w��) [prefix] tr [prefix] t �������΃��j���[���o��̂ŁA[prefix] t �̎��ɉ����L�[ �͊o���Ȃ��č\���܂���B ���́AMS-DOS �ł͖����ł��B - �����́A-remote �@�\�t���� xdvi �ł̂ݗL���ł��B - [prefix] tr �̗̈�w��́A�������́A %#BEGIN �Ə����Ă���s�� - ��A%#END �Ə����Ă���s�܂łł��B%#END ���ȗ�����ƁA%#BEGIN�� - �當�����܂ŁA�����ȗ�����ƃ}�[�N�����ʒu����A�|�C���g�܂ł��w - ��̈�ƂȂ�܂��B + [prefix] tr �̗̈�w��́A�������́A %#BEGIN �Ə����Ă���s����A + %#END �Ə����Ă���s�܂łł��B%#END ���ȗ�����ƁA%#BEGIN���當�� + ���܂ŁA�����ȗ�����ƁA�}�[�N�����ʒu����A�|�C���g�܂ł��w��̈� + �ƂȂ�܂��B �y�J�[�\���W�����v�z @@ -75,16 +66,13 @@ ������� jlatex �ŃG���[���������ꍇ�̂ݗL���ł��B ���Ή�����I�u�W�F�N�g�W�����v [prefix] g - ���ʃE�B���h�E�� �V [prefix] 4g �J�[�\���W�����v�́A[prefix] g ���������̃J�[�\���̈ʒu�ɂ��A �W�����v���ׂ��ꏊ�𔻒f���܂��B �E\begin{}, \end{}�̏� �Ή����� \end{},\begin{} �� �E%#BEGIN, %#END �̏� �Ή����� %#BEGIN, %#END �� - �E\include(only), \input �̏� �Ή�����t�@�C���� - �E\ref, \label �̏� �Ή����� \label, \ref �� - �E\cite, \bibitem �̏� �Ή����� \bibitem, \cite �� + �E\include(only), \input �̏� �Ή�����t�@�C�� �����C���t�@�C���փW�����v [prefix] ^ ���ʃE�B���h�E�� �V [prefix] 4^ @@ -118,18 +106,9 @@ �y���̑��z ��item�̌����� [prefix] i - - \item ���g���‹����̂ݗL���ł��B\item �̍��ڑS�̂��n���O�C���f - ���g���܂��B - ��LaTeX�R�}���h�ύX [prefix] c - \begin{}, \end{} �̍s�ŋN������Ɗ‹����𓯎��ɕύX���܂��B - section�^�R�}���h�̏�ŋN������ƃR�}���h��ύX���A�R�}���h�̈� - ���̈ʒu�ŋN������ƈ�����ύX���܂��Blarge�^�R�}���h�̏�ŋN�� - ����ƃt�H���g/�T�C�Y�w��q��ύX���܂��B�C���[�W�⊮�œ��͂��� - �������[�h�R�}���h�̏�ŋN������Ɗm�蒼�O�̃C���[�W�⊮����ɖ� - ��܂��B + \begin{}, \end{} �̊‹����𓯎��ɕύX���܂��B ���R�}���h�폜 [prefix] k @@ -144,23 +123,20 @@ �����[�h�؂�ւ� [prefix] w - �V�K�쐬/�C�����[�h�A�������[�h�̐؂�ւ����j���[���o�܂��B + �V�K�쐬/�X�V���[�h�A�������[�h�̐؂�ւ����j���[���o�܂��B ��%# �L�@�̕ҏW [prefix] % ��tabular/array���ʒu�\�� [prefix] & ���I�����C���w���v [prefix] ? - ���I�����C��apropos [prefix] / + ���I�����C���w���v [prefix] / �����܂������s ESC RET �u���܂������s�v�� tabular, array, itemize, enumerate, list, - description �‹��ŗL���ł��B - - - ���C���N���[�h�\���u���E�Y [prefix] d - ��font-lock���������j���[ [prefix] u + description �‹��łŗL���ł��B �L���Y�� - yuuji@yatex.org + yuuji@ae.keio.ac.jp + pcs39334@asciinet.or.jp Local variables: mode: text diff --git a/docs/yatexe b/docs/yatexe index dc028c4..9d700e5 100644 --- a/docs/yatexe +++ b/docs/yatexe @@ -1,7 +1,8 @@ Info file: yatexe, -*-Text-*- produced by `texinfo-format-buffer' from file `yatexe.tex' -using `texinfmt.el' version 2.32 of 19 November 1993. +using `texinfmt.el' version 2.38 of 3 July 1998. + @@ -34,6 +35,7 @@ * Copying:: Redistribution +  File: yatexe, Node: What is YaTeX?, Next: Main features, Prev: Top, Up: Top @@ -47,6 +49,7 @@ YaTeX also supports Demacs which runs on MS-DOS(386), Mule (Multi Language Enhancement to GNU Emacs), and latex on DOS. +  File: yatexe, Node: Main features, Next: Installation, Prev: What is YaTeX?, Up: Top @@ -81,6 +84,7 @@ * Allow you to forget creating \label{}s, \ref or \cite completion automatically generate labels. +  File: yatexe, Node: Installation, Next: Typesetting, Prev: Main features, Up: Top @@ -106,6 +110,7 @@ loaded, mode string on mode line will be turned to "YaTeX". +  File: yatexe, Node: Typesetting, Next: %#notation, Prev: Installation, Up: Top @@ -121,10 +126,17 @@ ... invoke latex `[prefix] t r' ... invoke latex on region +`[prefix] t e' + ... invoke latex on current environment or whole + portion of current formulas in math-mode. `[prefix] t k' ... kill current typesetting process `[prefix] t b' ... invoke bibtex +`[prefix] t i' + ... invoke makeindex +`[prefix] t d' + ... invoke latex && dvipdfmx `[prefix] t p' ... preview `[prefix] t l' @@ -138,6 +150,7 @@ * Calling previewer:: * Printing out:: +  File: yatexe, Node: Calling typesetter, Next: Calling previewer, Prev: Typesetting, Up: Typesetting @@ -163,14 +176,29 @@ the cursor on the line of error message and type `SPACE' key. This makes the cursor move to corresponding source line. - Since `[prefix] tr' pastes the region into the file `texput.tex' in the -current directory, you should be careful of overwriting. The method of -specification of the region is shown in the section *Note %#notation::. + YaTeX-typeset-region invoked by `[prefix] tr' call typesetter for +region. The region is specified by standard point and mark, or by +`%#BEGIN' and `%#END' marks. Selected region will be copied to the +temporary file `texput.tex' with the same preamble as the main file of +current editing sources. Be sure to put all local macro settings in +preamble, not after `\begin{document}'. The method of specification of +the region is shown in the section *Note %#notation::. The documentclass for typeset-region is the same as that of editing file if you edit one file, and is the same as main file's if you edit splitting files. + The `[prefix] te' key automatically marks current inner environment or +inner math mode and then call typeset-region with marked region. This is +convenient to quick view of current tabular environment or current editing +formulas. Keeping previewer window for `texput.dvi' is handy for +debugging. Since `[prefix] te' selects the inner-most environment as +region, it is not suitable for partial typesetting of doubly or more +composed environment. If you want to do partial typesetting for a nested +environment, use `[prefix] tr' for static-region, which is described in +the section *Note %#notation::. + +  File: yatexe, Node: Calling previewer, Next: Printing out, Prev: Calling typesetter, Up: Typesetting @@ -182,6 +210,7 @@ enables you to search current string at the cursor on the running xdvi window. +  File: yatexe, Node: Printing out, Prev: Calling previewer, Up: Typesetting @@ -194,6 +223,7 @@ C-u [prefix] tl +  File: yatexe, Node: %#notation, Next: Completion, Prev: Typesetting, Up: Top @@ -211,6 +241,7 @@ * Lpr format:: * Editing %# notation:: +  File: yatexe, Node: Changing typesetter, Next: Splitting input files, Prev: %#notation, Up: %#notation @@ -223,6 +254,7 @@ anywhere in the source text. This is useful for changing typesetter. +  File: yatexe, Node: Splitting input files, Next: Static region for typesetting, Prev: Changing typesetter, Up: %#notation @@ -249,13 +281,14 @@ To make best use of the feature of inter-file jumping by `[prefix] g' (see *Note Cursor jump::), take described below into consideration. - * You can put split texts in sub directory, but not in - sub directory of sub directory. + * You can put split texts in sub directory, but not in sub directory of + sub directory. * In the main text, specify the child file name with relative path name - such as \include{chap1/sub}, when you include the file in - a sub-directory. - * In a sub-text, write `%#!latex main.tex' even if `main.tex' - is in the parent directory(not %#!latex ../main.tex). + such as \include{chap1/sub}, when you include the file in a + sub-directory. + * In a sub-text, write `%#!latex main.tex' even if `main.tex' is in the + parent directory(not %#!latex ../main.tex). +  File: yatexe, Node: Static region for typesetting, Next: Lpr format, Prev: Splitting input files, Up: %#notation @@ -290,6 +323,7 @@ the middle of very long text. Do not forget to erase `%#BEGIN' `%#END' pair. +  File: yatexe, Node: Lpr format, Next: Editing %# notation, Prev: Static region for typesetting, Up: %#notation @@ -322,6 +356,7 @@ %#LPR dvi2ps %s | lpr +  File: yatexe, Node: Editing %# notation, Prev: Lpr format, Up: %#notation @@ -341,6 +376,7 @@ `%#END', and `l' to edit `%#LPR' entry. When you type `b', all `%#BEGIN' and `%#END' are automatically erased. +  File: yatexe, Node: Completion, Next: Local dictionaries, Prev: %#notation, Up: Top @@ -362,13 +398,14 @@ * Image completion:: * Greek letters completion:: +  File: yatexe, Node: Begin-type completion, Next: Section-type completion, Prev: Completion, Up: Completion Begin-type completion ===================== - "Begin-type completion" completes commands of `\begin{env}' ... + "Begin-type completion" completes commands of `\begin{env}' ... `\end{env}'. All of the begin-type completions begin with this key sequence. @@ -450,6 +487,7 @@ `[prefix] B SPC' enclose a region with the environment selected by completing-read. +  File: yatexe, Node: Section-type completion, Next: Large-type completion, Prev: Begin-type completion, Up: Completion @@ -529,6 +567,7 @@ * view-sectioning:: +  File: yatexe, Node: view-sectioning, Prev: Section-type completion, Up: Section-type completion @@ -572,6 +611,7 @@ ... Hide sectioning commands whose level is lower than n +  File: yatexe, Node: Large-type completion, Next: Maketitle-type completion, Prev: Section-type completion, Up: Completion @@ -596,6 +636,7 @@ prefix key stroke as `[prefix] L'. It encloses the region by braces with large-type command. +  File: yatexe, Node: Maketitle-type completion, Next: Arbitrary completion, Prev: Large-type completion, Up: Completion @@ -613,6 +654,7 @@ maketitle-completion, and there are LaTeX commands with no arguments in completion table. +  File: yatexe, Node: Arbitrary completion, Next: End completion, Prev: Maketitle-type completion, Up: Completion @@ -627,6 +669,7 @@ after the initial string of LaTeX command that is preceded by `\'. +  File: yatexe, Node: End completion, Next: Accent completion, Prev: Arbitrary completion, Up: Completion @@ -643,6 +686,7 @@ at the end of the opened environment. +  File: yatexe, Node: Accent completion, Next: Image completion, Prev: End completion, Up: Completion @@ -670,6 +714,7 @@ will be completed, and the cursor gets out from braces. +  File: yatexe, Node: Image completion, Next: Greek letters completion, Prev: Accent completion, Up: Completion @@ -720,6 +765,7 @@ Emacs-Lisp variable `YaTeX-math-sign-alist-private'. See also `yatexmth.el' for the information of the structure of this variable. +  File: yatexe, Node: Greek letters completion, Prev: Image completion, Up: Completion @@ -737,6 +783,7 @@ `:' after universal-argument(`C-u') which forces `;' and `:' to work as math-prefix. +  File: yatexe, Node: Local dictionaries, Next: Commenting out, Prev: Completion, Up: Top @@ -762,6 +809,7 @@ (setq YaTeX-nervous nil) +  File: yatexe, Node: Commenting out, Next: Cursor jump, Prev: Local dictionaries, Up: Top @@ -809,6 +857,7 @@ out from `\begin' to `\end'' mode. +  File: yatexe, Node: Cursor jump, Next: Changing and Deleting, Prev: Commenting out, Up: Top @@ -824,6 +873,7 @@ * Jumping around the environment:: * Jumping to last completion position:: +  File: yatexe, Node: Jump to corresponding object, Next: Invoking image processor, Prev: Cursor jump, Up: Cursor jump @@ -863,6 +913,7 @@ that this function doesn't work on `begin/end', `%#BEGIN/%#END' pairs because it is meaningless. +  File: yatexe, Node: Invoking image processor, Next: Jump to main file, Prev: Jump to corresponding object, Up: Cursor jump @@ -890,6 +941,7 @@ `YaTeX-file-processor-alist'. If any, call the corresponding image viewer or drawing tool. +  File: yatexe, Node: Jump to main file, Next: Jumping around the environment, Prev: Invoking image processor, Up: Cursor jump @@ -906,6 +958,7 @@ in a sub text switch the buffer to the main text specified by `%#!' notation. +  File: yatexe, Node: Jumping around the environment, Next: Jumping to last completion position, Prev: Jump to main file, Up: Cursor jump @@ -921,6 +974,7 @@ `M-C-@' ... mark environment +  File: yatexe, Node: Jumping to last completion position, Prev: Jumping around the environment, Up: Cursor jump @@ -933,6 +987,7 @@ register-to-point with argument YaTeX-current-position-register, which is achieved by typing `C-x j 3'(by default). +  File: yatexe, Node: Changing and Deleting, Next: Filling, Prev: Cursor jump, Up: Top @@ -952,6 +1007,7 @@ * Changing LaTeX commands:: * Killing LaTeX commands:: +  File: yatexe, Node: Changing LaTeX commands, Next: Killing LaTeX commands, Prev: Changing and Deleting, Up: Changing and Deleting @@ -978,6 +1034,7 @@ freely emerge. So keep it mind to put the cursor on a brace when you are thinking of changing a complicated argument. +  File: yatexe, Node: Killing LaTeX commands, Prev: Changing LaTeX commands, Up: Changing and Deleting @@ -1006,6 +1063,7 @@ Main \footnote{note} here. Main note here. Main here. ~(cursor) +  File: yatexe, Node: Filling, Next: Updation of includeonly, Prev: Changing and Deleting, Up: Top @@ -1061,6 +1119,7 @@ putting cursor on the first occurrence of non-whitespace character on a line changes the fill-prefix temporarily to the depth of the line. +  File: yatexe, Node: Updation of includeonly, Next: What column, Prev: Filling, Up: Top @@ -1085,6 +1144,7 @@ `\includeonly' list, `r' to replace \`includeonly' list with the current file, and type `%' to comment out the `\includeonly' line. +  File: yatexe, Node: What column, Next: Intelligent newline, Prev: Updation of includeonly, Up: Top @@ -1115,6 +1175,7 @@ column headers, you can create a row of virtual column headers by putting them in the first line and commenting that line with `%'. +  File: yatexe, Node: Intelligent newline, Next: Usepackage checker, Prev: What column, Up: Top @@ -1136,8 +1197,8 @@ * `tabular', `tabular*', `array' - Corresponding number of `&' and `\\'. - And `\hline' if needed. + Corresponding number of `&' and `\\'. And `\hline' if + needed. * `tabbing' @@ -1160,6 +1221,7 @@ useful. See the definition of the function `YaTeX-intelligent-newline-itemize' as an example. +  File: yatexe, Node: Usepackage checker, Next: Online help, Prev: Intelligent newline, Up: Top @@ -1175,6 +1237,7 @@ variable `YaTeX-package-alist-private' correctly. Please refere the value of `YaTeX-package-alist-default' as an example. +  File: yatexe, Node: Online help, Next: Browsing file hierarchy, Prev: Usepackage checker, Up: Top @@ -1224,6 +1287,7 @@ you describe the help on some standard commands. I might want to include it in the next distribution. +  File: yatexe, Node: Browsing file hierarchy, Next: Cooperation with other packages, Prev: Online help, Up: Top @@ -1285,6 +1349,7 @@ Note that operations on the file contents in the next window do not work correctly when you close the corresponding file. +  File: yatexe, Node: Cooperation with other packages, Next: Customizations, Prev: Browsing file hierarchy, Up: Top @@ -1310,6 +1375,7 @@ If you want to use it with YaTeX, please refer the file `yatexm-o.el' as an example. +  File: yatexe, Node: Customizations, Next: Etcetera, Prev: Cooperation with other packages, Up: Top @@ -1325,6 +1391,7 @@ * Add-in functions:: * Add-in generator:: +  File: yatexe, Node: Lisp variables, Next: Add-in functions, Prev: Customizations, Up: Customizations @@ -1351,6 +1418,7 @@ * Hook variables:: * Hook file:: +  File: yatexe, Node: All customizable variables, Next: Sample definitions, Prev: Lisp variables, Up: Lisp variables @@ -1369,8 +1437,8 @@ -- Variable: YaTeX-kanji-code Default buffer-file-coding-system for YaTeX modes' buffer. Set this - 0 to no language conversion. Nil to preserve original coding-system. - (`1 or 2') + 0 to no language conversion. Nil to preserve original + coding-system. 1=Shift JIS, 2=JIS, 3=EUC, 4=UTF-8 (`1 or 2') -- Variable: YaTeX-prefix Prefix key stroke (`C-c') @@ -1383,7 +1451,7 @@ -- Variable: YaTeX-user-completion-table Name of user dictionary where learned completion table will be - stored. (`"~/.yatexrc"') + stored. (`"~/.yatexrc"') -- Variable: tex-command LaTeX typesetter command (`"latex"') @@ -1403,6 +1471,9 @@ -- Variable: makeindex-command Default makeindex command (`"makeindex"' (`"makeind"' on MS-DOS)) + -- Variable: YaTeX-dvipdf-command + Default command name to convert .dvi to PDF (`"dvipdfmx"') + -- Variable: YaTeX-need-nonstop Put `\nonstopmode{}' or not (`nil') @@ -1542,13 +1613,10 @@ `usepackage' for corresponding macro, when you input that macro with completion. If required `usepackage' is not found, YaTeX also automatically inserts `\usepackage'. Alist is as follows; - '((PackageName1 - (completionType ListOfMacro) - (completionType ListOfMacro)) - (PackageName2 - (completionType ListOfMacro) - (completionType ListOfMacro...))....) completionType is - one of `env, section, maketitle'. Consult the value of + '((PackageName1 (completionType ListOfMacro) (completionType + ListOfMacro)) (PackageName2 (completionType ListOfMacro) + (completionType ListOfMacro...))....) completionType is one of `env, + section, maketitle'. Consult the value of `YaTeX-package-alist-default' as an example. -- Variable: YaTeX-tabular-indentation @@ -1591,6 +1659,7 @@ (YaTeX::ref-generate-label nil nil)))) +  File: yatexe, Node: Sample definitions, Next: Hook variables, Prev: All customizable variables, Up: Lisp variables @@ -1605,6 +1674,7 @@ YaTeX-user-completion-table "~/src/emacs/yatexrc" YaTeX-fill-prefix " ") +  File: yatexe, Node: Hook variables, Next: Hook file, Prev: Sample definitions, Up: Lisp variables @@ -1623,6 +1693,7 @@ You should use functions `YaTeX-define-key', or `YaTeX-define-begend-key' to define all the key sequences of yatex-mode. +  File: yatexe, Node: Hook file, Prev: Hook variables, Up: Lisp variables @@ -1634,6 +1705,7 @@ file at the initialization of itself. Using `yatexhks.el' makes `yatex-mode-load-hook' unnecessary. +  File: yatexe, Node: Add-in functions, Next: Add-in generator, Prev: Lisp variables, Up: Customizations @@ -1667,6 +1739,7 @@ * Useful functions for creating add-in:: * Contribution:: +  File: yatexe, Node: How the add-in function works, Next: How the function is called, Prev: Add-in functions, Up: Add-in functions @@ -1731,6 +1804,7 @@ * Defining argument-add-in:: * Defining enclosing-add-in:: +  File: yatexe, Node: Defining option-add-in, Next: Defining argument-add-in, Prev: How the add-in function works, Up: How the add-in function works @@ -1752,6 +1826,7 @@ (defun YaTeX:tabular () (concat "{" (read-string "Rule: ") "}")) +  File: yatexe, Node: Defining argument-add-in, Next: Defining enclosing-add-in, Prev: Defining option-add-in, Up: How the add-in function works @@ -1775,6 +1850,7 @@ Note that when the `argument add-in' function return `nil', normal argument reader will be called. +  File: yatexe, Node: Defining enclosing-add-in, Prev: Defining argument-add-in, Up: How the add-in function works @@ -1798,6 +1874,7 @@ (throw 'done (replace-match "}{"))) (goto-char (match-end 0))))) +  File: yatexe, Node: How the function is called, Next: Useful functions for creating add-in, Prev: How the add-in function works, Up: Add-in functions @@ -1812,6 +1889,7 @@ been inserted. `Argument add-in' functions are called at each entry of arguments for section-type commands. +  File: yatexe, Node: Useful functions for creating add-in, Next: Contribution, Prev: How the function is called, Up: Add-in functions @@ -1851,6 +1929,7 @@ if not. The variable `YaTeX-current-completion-type' holds the symbol according to the current completion type. +  File: yatexe, Node: Contribution, Prev: Useful functions for creating add-in, Up: Add-in functions @@ -1860,6 +1939,7 @@ If you make your own pretty function and you let it be in public, please send me the function. I'm going to include it in the next release. +  File: yatexe, Node: Add-in generator, Prev: Add-in functions, Up: Customizations @@ -1890,12 +1970,11 @@ Simple generator ---------------- - The latter generator is invoked by the next sequence. - `M-x YaTeX-generate-simple' -This generator can make both "option add-in" and "argument add-in" -(*refer the section add-in functions* -*Note How the add-in function works::), whereas `YaTeX-generate' -cannot make "argument addin". + The latter generator is invoked by the next sequence. `M-x +YaTeX-generate-simple' This generator can make both "option add-in" and +"argument add-in" (*refer the section add-in functions* *Note How the +add-in function works::), whereas `YaTeX-generate' cannot make "argument +addin". For example, assume you have the LaTeX command as follows. @@ -2030,6 +2109,7 @@ steel yourself in the happy atmosphere and do not send me the function. I do know it is not fine because it is generated by yatexgen:-p. +  File: yatexe, Node: Etcetera, Next: Copying, Prev: Customizations, Up: Top @@ -2046,6 +2126,7 @@ The package name `Wild Bird' is the English translation of Japanese title `Yachou', which is a trick on words of Japanese. +  File: yatexe, Node: Copying, Prev: Etcetera, Up: Top @@ -2070,68 +2151,69 @@ HIROSE Yuuji +  Tag table: -Node: Top153 -Node: What is YaTeX?1493 -Node: Main features1865 -Node: Installation3456 -Node: Typesetting4232 -Node: Calling typesetter5061 -Node: Calling previewer6406 -Node: Printing out6766 -Node: %#notation7057 -Node: Changing typesetter7432 -Node: Splitting input files7795 -Node: Static region for typesetting9222 -Node: Lpr format10350 -Node: Editing %# notation11406 -Node: Completion11924 -Node: Begin-type completion12483 -Node: Section-type completion15526 -Node: view-sectioning17960 -Node: Large-type completion19539 -Node: Maketitle-type completion20269 -Node: Arbitrary completion20820 -Node: End completion21209 -Node: Accent completion21678 -Node: Image completion22294 -Node: Greek letters completion24550 -Node: Local dictionaries25276 -Node: Commenting out26212 -Node: Cursor jump27670 -Node: Jump to corresponding object27981 -Node: Invoking image processor29381 -Node: Jump to main file30723 -Node: Jumping around the environment31087 -Node: Jumping to last completion position31504 -Node: Changing and Deleting32012 -Node: Changing LaTeX commands32403 -Node: Killing LaTeX commands33579 -Node: Filling34763 -Node: Updation of includeonly36613 -Node: What column37409 -Node: Intelligent newline38493 -Node: Usepackage checker40153 -Node: Online help40743 -Node: Browsing file hierarchy42417 -Node: Cooperation with other packages44153 -Node: Customizations44857 -Node: Lisp variables45190 -Node: All customizable variables46193 -Node: Sample definitions55941 -Node: Hook variables56453 -Node: Hook file57156 -Node: Add-in functions57494 -Node: How the add-in function works58353 -Node: Defining option-add-in60551 -Node: Defining argument-add-in61272 -Node: Defining enclosing-add-in62153 -Node: How the function is called63006 -Node: Useful functions for creating add-in63681 -Node: Contribution65085 -Node: Add-in generator65358 -Node: Etcetera70751 -Node: Copying71355 +Node: Top146 +Node: What is YaTeX?1487 +Node: Main features1860 +Node: Installation3452 +Node: Typesetting4229 +Node: Calling typesetter5298 +Node: Calling previewer7502 +Node: Printing out7863 +Node: %#notation8155 +Node: Changing typesetter8531 +Node: Splitting input files8895 +Node: Static region for typesetting10319 +Node: Lpr format11448 +Node: Editing %# notation12505 +Node: Completion13024 +Node: Begin-type completion13584 +Node: Section-type completion16627 +Node: view-sectioning19062 +Node: Large-type completion20642 +Node: Maketitle-type completion21373 +Node: Arbitrary completion21925 +Node: End completion22315 +Node: Accent completion22785 +Node: Image completion23402 +Node: Greek letters completion25659 +Node: Local dictionaries26386 +Node: Commenting out27323 +Node: Cursor jump28782 +Node: Jump to corresponding object29094 +Node: Invoking image processor30495 +Node: Jump to main file31838 +Node: Jumping around the environment32203 +Node: Jumping to last completion position32621 +Node: Changing and Deleting33130 +Node: Changing LaTeX commands33522 +Node: Killing LaTeX commands34699 +Node: Filling35884 +Node: Updation of includeonly37735 +Node: What column38532 +Node: Intelligent newline39617 +Node: Usepackage checker41271 +Node: Online help41862 +Node: Browsing file hierarchy43537 +Node: Cooperation with other packages45274 +Node: Customizations45979 +Node: Lisp variables46313 +Node: All customizable variables47317 +Node: Sample definitions57116 +Node: Hook variables57629 +Node: Hook file58333 +Node: Add-in functions58672 +Node: How the add-in function works59532 +Node: Defining option-add-in61731 +Node: Defining argument-add-in62453 +Node: Defining enclosing-add-in63335 +Node: How the function is called64189 +Node: Useful functions for creating add-in64865 +Node: Contribution66270 +Node: Add-in generator66544 +Node: Etcetera71916 +Node: Copying72521  End tag table diff --git a/docs/yatexe.tex b/docs/yatexe.tex index 3297409..344850f 100644 --- a/docs/yatexe.tex +++ b/docs/yatexe.tex @@ -5,7 +5,7 @@ @iftex @c @syncodeindex fn cp -@c Last modified Wed Jul 20 21:27:50 2005 on firestorm +@c Last modified Thu May 27 18:04:10 2010 on firestorm @syncodeindex vr cp @end iftex @@ -145,10 +145,17 @@ @dots{} invoke latex @item [prefix] t r @dots{} invoke latex on region +@item [prefix] t e + @dots{} invoke latex on current environment or whole + portion of current formulas in math-mode. @item [prefix] t k @dots{} kill current typesetting process @item [prefix] t b @dots{} invoke bibtex +@item [prefix] t i + @dots{} invoke makeindex +@item [prefix] t d + @dots{} invoke latex && dvipdfmx @item [prefix] t p @dots{} preview @item [prefix] t l @@ -188,15 +195,29 @@ the cursor on the line of error message and type @kbd{SPACE} key. This makes the cursor move to corresponding source line. - Since @kbd{[prefix] tr} pastes the region into the file -@file{texput.tex} in the current directory, you should be careful of -overwriting. The method of specification of the region is shown in the + YaTeX-typeset-region invoked by @kbd{[prefix] tr} call typesetter +for region. The region is specified by standard point and mark, or +by @code{%#BEGIN} and @code{%#END} marks. Selected region will be +copied to the temporary file @file{texput.tex} with the same preamble +as the main file of current editing sources. Be sure to put +all local macro settings in preamble, not after @code{\begin{document}}. + The method of specification of the region is shown in the section @xref{%#notation}. The documentclass for typeset-region is the same as that of editing file if you edit one file, and is the same as main file's if you edit splitting files. + The @kbd{[prefix] te} key automatically marks current inner environment +or inner math mode and then call typeset-region with marked region. This +is convenient to quick view of current tabular environment or current +editing formulas. Keeping previewer window for @file{texput.dvi} is handy +for debugging. Since @kbd{[prefix] te} selects the inner-most environment +as region, it is not suitable for partial typesetting of doubly or more +composed environment. If you want to do partial typesetting for a nested +environment, use @kbd{[prefix] tr} for static-region, which is described +in the section @xref{%#notation}. + @node Calling previewer, Printing out, Calling typesetter, Typesetting @comment node-name, next, previous, up @section Calling previewer @@ -1594,7 +1615,7 @@ @defvar YaTeX-kanji-code Default buffer-file-coding-system for YaTeX modes' buffer. Set this 0 to no language conversion. Nil to preserve original -coding-system. (@code{1 or 2}) +coding-system. 1=Shift JIS, 2=JIS, 3=EUC, 4=UTF-8 (@code{1 or 2}) @end defvar @defvar YaTeX-prefix @@ -1638,6 +1659,10 @@ Default makeindex command (@code{"makeindex"} (@code{"makeind"} on MS-DOS)) @end defvar +@defvar YaTeX-dvipdf-command +Default command name to convert .dvi to PDF (@code{"dvipdfmx"}) +@end defvar + @defvar YaTeX-need-nonstop Put @code{\nonstopmode@{@}} or not (@code{nil}) @end defvar diff --git a/docs/yatexj b/docs/yatexj index d637f7b..5c1d9b9 100644 --- a/docs/yatexj +++ b/docs/yatexj @@ -1,7 +1,8 @@ Info file: yatexj, -*-Text-*- produced by `texinfo-format-buffer' from file `yatexj.tex' -using `texinfmt.el' version 2.32 of 19 November 1993. +using `texinfmt.el' version 2.38 of 3 July 1998. + @@ -37,6 +38,7 @@ * Concept Index:: $B:w0z(B +  File: yatexj, Node: Intro, Next: Terminology, Prev: Top, Up: Top @@ -51,6 +53,7 @@ English manual *Note Top: (yatexe)Top. +  File: yatexj, Node: Terminology, Next: Main features, Prev: Intro, Up: Top @@ -84,6 +87,7 @@ $BEv$F$i$l$F$$$k$N$G!"FC$KJQ99$7$F$$$J$$>l9gK\%^%K%e%"%k$N(B `[prefix]' $B$H$$$&I=5-$O!"(B`C-c' $B$HFI$_49$($F$/$@$5$$!#(B +  File: yatexj, Node: Main features, Next: Installation, Prev: Terminology, Up: Top @@ -94,7 +98,7 @@ * $B%+!<%=%k0LCV$K$h$i$J$$8GDj%j%8%g%s$NItJ,%?%$%W%;%C%H(B * \includeonly$B$N%o%s%?%C%A99?7(B * $B%(%i!<2U=j$X$N<+F0%8%c%s%W(B(`C-c '') - * `\begin{}, \end{}, \section...' $B$J$I$N(B LaTeX$B%3%^%s%I$NJd40F~NO(B(`C-c + * `\begin{}, \end{}, \section...' $B$J$I$N(B LaTeX $B%3%^%s%I$NJd40F~NO(B(`C-c b', `C-c s', `C-c l', `C-c m') * $B4{$KF~NO$7$?%F%-%9%H$r4D6-$d%3%^%s%I0z?t$NCf$KoJd40%-!<(B) @@ -104,13 +108,12 @@ * LaTeX $B$N4D6-$d%3%^%s%I$K1~$8$?%,%$%IIU$-0z?tF~NO(B * $BLnD;$K$J$$%,%$%IIU$-0z?tF~NO4X?t$N<+F0@8@.(B(`yatexgen.el') * LaTeX $B%3%^%s%I$N:o=|(B/$BJQ99(B(`C-c k', `C-c c') - * $B%U%!%$%k4V!"(B`\begin'<->`\end'$B4V!"(B - `\ref'<->`\label'$B4V!"(B - `\cite'<->`\bibitem'$B%8%c%s%W(B(`C-c g') - * $B0l3g%3%a%s%H%"%&%H(B/$B%"%s%3%a%s%H%"%&%H(B - (`C-c >', `C-c <', `C-c ,', `C-c .') - * $B%"%/%;%s%H5-9f(B/$B?t<04D6-MQ%3%^%s%I(B/$B%.%j%7%cJ8;z$NF~NO;Y1g(B - (`C-c a', `;', `/') + * $B%U%!%$%k4V!"(B`\begin'<->`\end'$B4V!"(B`\ref'<->`\label'$B4V!"(B + `\cite'<->`\bibitem'$B%8%c%s%W(B(`C-c g') + * $B0l3g%3%a%s%H%"%&%H(B/$B%"%s%3%a%s%H%"%&%H(B(`C-c >', `C-c <', `C-c ,', `C-c + .') + * $B%"%/%;%s%H5-9f(B/$B?t<04D6-MQ%3%^%s%I(B/$B%.%j%7%cJ8;z$NF~NO;Y1g(B(`C-c a', + `;', `/') * tabular/array$B4D6-$N%+%i%`0LCV%,%$%I(B * $BI8=`E*(B LaTeX $B%3%^%s%I$N%*%s%i%$%s%X%k%W(B(`C-c ?', `C-c /') * $B%I%-%e%a%s%H$N%$%s%/%k!<%I9=B$$N;k3PE*I=<($H%P%C%U%!@Z$jBX$((B(`C-c d') @@ -118,6 +121,7 @@ userpackage * \label$B$rBG$D$3$H$O$b$&K:$l$h$&(B! ref$B$d(Bcite$BJd40F~NO$G<+F0@8@.$7$^$9(B +  File: yatexj, Node: Installation, Next: Invocation, Prev: Main features, Up: Top @@ -156,9 +160,8 @@ ... $B5/F0$9$k%W%l%t%e!<%"$N%3%^%s%IL>(B `NTT-jTeX' ... $B2~9T(B+$B%$%s%G%s%H$K$h$C$F!"%?%$%W%;%C%H8e$N;z4V$,6u$$$F$7$^(B - $B$&$N$rM^@)$9$k>l9g$K(Bt$B$K$9$k(B($B8E$$(BNTT-jTeX$B$G82Cx$K8=$l$k(B)$B!#6qBN(B - $BE*$K$O!"(B - fill$B$9$k$H$-$K3F9T$N=*$o$j$K(B%$B$rIU2C$9$k$h$&$K$J$k!#(B + $B$&$N$rM^@)$9$k>l9g$K(Bt$B$K$9$k(B($B8E$$(BNTT-jTeX$B$G82Cx$K8=$l$k(B)$B!#6qBNE*$K$O!"(B + fill$B$9$k$H$-$K3F9T$N=*$o$j$K(B%$B$rIU2C$9$k$h$&$K$J$k!#(B `YaTeX-kanji-code' ... $BJ8=q$r:n@.$9$k;~$N4A;z%3!<%I(B `dviprint-command-format' @@ -166,10 +169,10 @@ `makeindex-command' ... makeindex$B%3%^%s%I(B -$B$3$l$i$rJQ99$9$k>l9g$O!"$d$O$j(B`~/.emacs'$B$K$F!"$?$H$($P(B - (setq tex-command "bigjlatex") -$B$N$h$&$K$7$F$/$@$5$$!#$I$N$h$&$JCM$r%;%C%H$9$l$PNI$$$+$K$D$$$F$O!"(B -*Note All customizable variables::$B$r;2>H$7$F$/$@$5$$!#(B +$B$3$l$i$rJQ99$9$k>l9g$O!"$d$O$j(B`~/.emacs'$B$K$F!"$?$H$($P(B(setq tex-command +"bigjlatex") $B$N$h$&$K$7$F$/$@$5$$!#$I$N$h$&$JCM$r%;%C%H$9$l$PNI$$$+$K$D$$(B +$B$F$O!"(B*Note All customizable variables::$B$r;2>H$7$F$/$@$5$$!#(B +  @@ -185,10 +188,17 @@ ... $B%?%$%W%;%C%?(B(platex)$B5/F0(B `[prefix] t r' ... $B%?%$%W%;%C%?5/F0(B($BNN0h;XDj(B) +`[prefix] t e' + ... $B%?%$%W%;%C%?5/F0(B($B%]%$%s%H0LCV$N4D6-$^$?$O?t<0%b!<%I$N$_BP(B + $B>N(B) `[prefix] t k' ... $BF0:nCf$N%?%$%W%;%C%?$NDd;_(B `[prefix] t b' ... jbibtex$B5/F0(B +`[prefix] t i' + ... makeindex$B5/F0(B +`[prefix] t d' + ... $B%?%$%W%;%C%?$H(Bdvipdfmx$B5/F0(B `[prefix] t p' ... $B%W%l%t%e!<%"5/F0(B `[prefix] t l' @@ -202,6 +212,7 @@ * Calling previewer:: $B%W%l%t%e!<%"5/F0(B * Print out:: $B%W%j%s%H%"%&%HMQ%3%^%s%I$N5/F0(B +  File: yatexj, Node: Calling typesetter, Next: Calling previewer, Prev: Invocation, Up: Invocation @@ -234,11 +245,25 @@ $B%]%$%s%H$H%^!<%/$N4V!"$"$k$$$O%F%-%9%HCf$KKd$a9~$s$@(B `%#BEGIN' $B$H(B`%#END' $B$N4V$NNN0h(B(*Note %#notation::)$B$@$1$r@Z$jl9g$N(B documentclass $B$O!"C10l%U%!%$%k$N(B LaTeX $B%=!<%9$NJT=8;~$K$O$=(B -$B$N%U%!%$%k$N(B documentclass $B$,!"JL%U%!%$%k$+$i(B include $B$7$F$$$k>l9g$K$O%a%$(B -$B%s%U%!%$%k$N(B documentclass $B$,<+F0E*$KA*Br$5$l$^$9!#;XDjNN0h$O!"%a%$%s%U%!(B -$B%$%k$N$"$k%G%#%l%/%H%j$N(B`texput.tex'$B$H$$$&NW;~%U%!%$%k$K=PNO$5$l$^$9$N$G!"(B -$B>e=q$-$K$OCm0U$7$F$/$@$5$$!#(B +$B$9!#$3$N>l9g%a%$%s%U%!%$%k$N%W%j%"%s%V%k$,0l;~%U%!%$%k$N%W%j%"%s%V%k$H$7$F(B +$B;H$o$l$^$9!#$7$?$,$C$F%W%j%"%s%V%k$K$J$$%^%/%mDj5A$,NN0hFb$K$"$k$H%(%i!<$K(B +$B$J$j$^$9!#NN0h%?%$%W%;%C%H$r;H$&>l9g!"I,$:%^%/%mDj5A$O%W%j%"%s%V%k(B +(`\begin{document}'$B$h$jA0(B)$B$KCV$/$h$&$K$7$F2<$5$$!#0l;~%U%!%$%k$O%a%$%s%U%!(B +$B%$%k$N$"$k%G%#%l%/%H%j$N(B`texput.tex'$B$H$$$&L>A0$G=PNO$5$l$k$N$G!">e=q$-$K$O(B +$BCm0U$7$F$/$@$5$$!#(B + + +$B4D6-%?%$%W%;%C%H(B +---------------- + + + `[prefix] te' $B$r2!$9$H!"%]%$%s%H0LCV$N:G$bFbB&$N4D6-!"$^$?$O?t<0%b!<%IFb(B +$B$N>l9g$O$=$N?t<0%b!<%IA4BN$,<+F0E*$KNN0hA*Br$5$l$F!"NN0h%?%$%W%;%C%H$r8F$S(B +$B=P$7$^$9!#(Btabular$B4D6-$d?t<0%b!<%I$GJ#;($J$b$N$r:n$C$F$$$k>l9g$O3N$+$a$?$$(B +$BItJ,$@$1$r3NG'$G$-$k$N$GJXMx$G$9!#$3$l$b(B `texput.tex' $B$K3:EvItJ,$r=q$-=P$7(B +$B$^$9!#%W%l%t%e!<%"$G(B `texput.dvi' $B$r3+$$$?$^$^$K$7$F$*$1$P=$@5$H3NG'$,AGAa(B +$B$/$G$-$k$G$7$g$&!#(B +  File: yatexj, Node: Calling previewer, Next: Print out, Prev: Calling typesetter, Up: Invocation @@ -252,6 +277,7 @@ $B$k$3$H$,$G$-$^$9!#(B +  File: yatexj, Node: Print out, Prev: Calling previewer, Up: Invocation @@ -268,6 +294,7 @@ $B$N$h$&$K5/F0$7$F$/$@$5$$!#(B +  File: yatexj, Node: %#notation, Next: Completion, Prev: Invocation, Up: Top @@ -285,6 +312,7 @@ * lpr format:: $B%W%j%s%H%"%&%H%3%^%s%IMQ%U%)!<%^%C%H(B * Editing %# notation:: %#$B5-K!$NJT=8(B +  File: yatexj, Node: Changing typesetter, Next: Splitting input files, Prev: %#notation, Up: %#notation @@ -299,6 +327,7 @@ NTT jTeX $B$H!"(BASCII jTeX $B$r;H$$J,$1$?$$$h$&$J>l9g$KJXMx$G$7$g$&!#(B +  File: yatexj, Node: Splitting input files, Next: Fix region for typesetting, Prev: Changing typesetter, Up: %#notation @@ -330,13 +359,14 @@ 1. $B%5%V%G%#%l%/%H%j$r:n$C$F!"$=$NCf$K%5%V%U%!%$%k$rCV$/$3$H$O$G$-$k$,%5(B $B%V%G%#%l%/%H%j$N%5%V%G%#%l%/%H%j$K$OCV$1$J$$!#(B - 2. $B%a%$%s%U%!%$%k$+$i%5%V%G%#%l%/%H%jFb$N%U%!%$%k$r(B include$B$9$k;~$K$O!"(B + 2. $B%a%$%s%U%!%$%k$+$i%5%V%G%#%l%/%H%jFb$N%U%!%$%k$r(B include $B$9$k;~$K$O!"(B $BAjBP%Q%9;XDj$rMQ$$$F!"(B`\include{chap1/sub}'$B$N$h$&$K5-=R!#(B 3. $B%a%$%s%U%!%$%k$,0l$D>e$N%G%#%l%/%H%j$K$"$k>l9g$b!"%5%V%U%!%$%k$K$O(B %#!platex main.tex $B$N$h$&$K5-=R$9$k(B(../main$B$G$O$J$$(B)$B!#(B +  File: yatexj, Node: Fix region for typesetting, Next: lpr format, Prev: Splitting input files, Up: %#notation @@ -370,8 +400,9 @@ tabular $B4D6-$r2?EY$b;n9T:x8m$7$F$$$k$h$&$J>l9g$O!"(B`\begin'$B$NA0$N9T$K(B `%#BEGIN' $B$H=q$-!"(B`\end' $B$N$K(B `%#BEGIN' $B$r=q(B -$B$$$F$*$1$P!"A0H>$NItJ,$OL5;k$G$-$^$9!#$3$N(BBEGIN$B$H(BEND$B$N>C$7K:$l$K$O==J,$4Cm(B -$B0U2<$5$$!#(B +$B$$$F$*$1$P!"A0H>$NItJ,$OL5;k$G$-$^$9!#$3$N(BBEGIN$B$H(BEND $B$N>C$7K:$l$K$O==J,$4(B +$BCm0U2<$5$$!#(B +  @@ -410,6 +441,7 @@ $B$J$I$H$9$k$N$bJXMx$+$b$7$l$^$;$s!#(B +  File: yatexj, Node: Editing %# notation, Prev: lpr format, Up: %#notation @@ -430,6 +462,7 @@ $B$r(B `%#BEGIN' $B!A(B `%#END' $B$G3g$j$?$$;~$O!"(B`b'$B$r2!$7$^$9!#(B`b'$B$rA*$s$@;~$K$O!"(B $B$=$l$^$G%P%C%U%!Cf$KCV$+$l$F$$$?(B `%#BEGIN', `%#END' $B$,<+F0E*$K>C5n$5$l$^$9!#(B +  File: yatexj, Node: Completion, Next: Local dictionary, Prev: %#notation, Up: Top @@ -451,6 +484,7 @@ * Image completion:: $B?t<05-9f%$%a!<%8Jd40(B * Greek letter completion:: $B%.%j%7%cJ8;zJd40(B +  File: yatexj, Node: begin$B7?Jd40(B, Next: section$B7?Jd40(B, Prev: Completion, Up: Completion @@ -463,7 +497,7 @@ `[prefix] b' ... begin $B7?Jd403+;O(B($BI8=`$G$O(B `C-c b') -$B$G;O$^$j$^$9!#IQHK$KMQ$$$i$l$k.J8;z$N(B 'b'$B!Y(B +$B$r%^!<%/$7$F!"(Bbegin $B7?Jd40$N3F%3%^%s%I$N(B `[prefix]' $B$N.J8;z$N(B 'b'$B!Y(B $B$r!XBgJ8;z!Y$KJQ$($F5/F0$7$F2<$5$$!#(B($B$^$?$O!"(B`C-u' $B$r@h$KBG$A!"(Buniversal argument $B$r$D$1$F$b2DG=$G$9(B) @@ -545,6 +579,7 @@ `b' $B$rBgJ8;z$KJQ$($F!"(B`[prefix] B SPC' $B$H%?%$%W$9$l$P!"$"$i$+$8$a%^!<%/$7(B $B$F$*$$$?%j%8%g%s$r!"(Bbegin $B$H(B end $B$N4D6-$G3g$j$^$9!#(B +  File: yatexj, Node: section$B7?Jd40(B, Next: large$B7?Jd40(B, Prev: begin$B7?Jd40(B, Up: Completion @@ -597,6 +632,7 @@ * view-sectioning:: $B%;%/%7%g%s6h@Z$j$N%"%&%H%i%$%sI=<((B * label-generation:: $B%i%Y%k<+F0@8@.(B +  File: yatexj, Node: 2$B8D0J>e$N0z?t$r$H$k(B section$B7?%3%^%s%I(B, Next: Enclose section-type command, Prev: section$B7?Jd40(B, Up: section$B7?Jd40(B @@ -624,6 +660,7 @@ $B$$$F8D?t$r;XDj$7D>$9$3$H$G!"<+F0E*$K<-=qCf$N0z?t$N8D?t$NItJ,$r99?7$7$^$9!#(B +  File: yatexj, Node: Enclose section-type command, Next: Recursive completion, Prev: 2$B8D0J>e$N0z?t$r$H$k(B section$B7?%3%^%s%I(B, Up: section$B7?Jd40(B @@ -633,6 +670,7 @@ $B$^$?!"5/F0%3%^%s%I$N(B`s'$B$rBgJ8;z$KJQ$($F5/F0$9$k$H!"$"$i$+$8$a=q$$$?J8>O(B $B$r(B section $B7?%3%^%s%I$NBh0l0z?t$H$7$F3g$j$^$9!#(B +  File: yatexj, Node: Recursive completion, Next: view-sectioning, Prev: Enclose section-type command, Up: section$B7?Jd40(B @@ -640,10 +678,11 @@ -------- $B9bEY$J;H$$J}$K$J$k$+$b$7$l$^$;$s$,!"(Bsection$B7?Jd40$N0z?t$NF~NO;~$K$5$i$K(B -$BJd40F~NO$rMxMQ$9$k$3$H$,$G$-$^$9(B(section/large/maketitle$B7?$K8B$k(B)$B!#(Bsection +$BJd40F~NO$rMxMQ$9$k$3$H$,$G$-$^$9(B(section/large/maketitle$B7?$K8B$k(B)$B!#(Bsection $B7?%3%^%s%I$N0z?t$K99$K(B LaTeX $B%3%^%s%I$,Mh$k>l9g$K$O%_%K%P%C%U%!$GLnD;$NJd(B $B40%-!<$r:F5"E*$KF~NO$9$k$3$H$G0z?t$NF~NO$b8zN(E*$K9T$J$($^$9!#(B +  File: yatexj, Node: view-sectioning, Next: label-generation, Prev: Recursive completion, Up: section$B7?Jd40(B @@ -688,6 +727,7 @@ ... $B%l%Y%k(B n $B0J2<$N%;%/%7%g%s%3%^%s%I$r1#$7$FI=<((B +  File: yatexj, Node: label-generation, Prev: view-sectioning, Up: section$B7?Jd40(B @@ -701,6 +741,7 @@ $B$F$N%+%&%s%?$K%i%Y%k$r$D$1$k$N$b$?$$$X$s$G$9!#$b$&%i%Y%kL>$K2?$r$D$1$k$+!"(B $B%i%Y%k$r$D$1$k$+$D$1$^$$$+!"$J$I$H$$$&$3$H$OK:$l$^$7$g$&(B! +  File: yatexj, Node: large$B7?Jd40(B, Next: maketitle$B7?Jd40(B, Prev: section$B7?Jd40(B, Up: Completion @@ -729,6 +770,7 @@ $B;z$NHO0O$r%^!<%/$7$F$+$i!"8F$S=P$7%-!<$r(B `[prefix] L' $B$H!"BgJ8;z$N(B L $B$KJQ(B $B$($F8F$S=P$;$P!"$=$N%j%8%g%sA4BN$,!"%V%l!<%9$G0O$^$l$^$9!#(B +  File: yatexj, Node: maketitle$B7?Jd40(B, Next: Arbitrary completion, Prev: large$B7?Jd40(B, Up: Completion @@ -743,6 +785,7 @@ $B$G!"(Bmaketitle $B7?Jd40$r3+;O$7$^$9!#Jd40$NMWNN$O:#$^$G$N$b$N$H$^$C$?$/F1$8$G(B $B$9!#(BLaTeX $BMQ$N%3%^%s%IL>$,Jd408uJd$H$7$FMQ0U$5$l$F$$$^$9!#(B +  File: yatexj, Node: Arbitrary completion, Next: end$BJd40(B, Prev: maketitle$B7?Jd40(B, Up: Completion @@ -759,6 +802,7 @@ $B$rF~NO$9$l$P!"A4$F$NJd408uJd$NCf$+$i0lCW$9$k$b$N$,A*$P$l%+!<%=%k0LCV$KA^F~(B $B$5$l$^$9!#(B +  File: yatexj, Node: end$BJd40(B, Next: Accent mark completion, Prev: Arbitrary completion, Up: Completion @@ -775,6 +819,7 @@ $B$H$9$k$3$H$G!"8=:_3+$$$F$$$k4D6-L>$G(B \end{} $B$,Jd$o$l$^$9!#(B +  File: yatexj, Node: Accent mark completion, Next: Image completion, Prev: end$BJd40(B, Up: Completion @@ -801,6 +846,7 @@ $B$,40@.$5$l!"%+!<%=%k$O(B{}$B$N30$KLa$j$^$9!#(B +  File: yatexj, Node: Image completion, Next: Greek letter completion, Prev: Accent mark completion, Up: Completion @@ -816,8 +862,8 @@ $B$N$h$&$K$7$^$9$,!"$3$l$rMxMQ$7$F!"?t<05-9f%$%a!<%8F~NO%b!<%I$G(B `\leftarrow'$B$rF~NO$9$k$K$O!"(B`;'($B%;%_%3%m%s(B)$B$rBG$C$F$+$i(B`<-'$B$HF~NO$7$^$9!#(B $BF1MM$K!"D9$$Lp0u"+(B-(long-leftarrow) $B$r(BASCII$BJ8;z$@$1$GI=8=$9$k>l9g!V(B<--$B!W$H(B -$B$9$k$N$G!"(B`\longleftarrow'$B$rF~NO$9$k$?$a$K$O!"(B`;<--'$B$HF~NO$7$^$9!#$"$k$$$O(B -$BL58BBg5-9f$r(BASCII$BJ8;z$@$1$GI=8=$9$k;~$O!V(Boo$B!W$N$h$&$K$9$k$3$H$+$i!"(B +$B$9$k$N$G!"(B`\longleftarrow'$B$rF~NO$9$k$?$a$K$O!"(B`;<--' $B$HF~NO$7$^$9!#$"$k$$(B +$B$OL58BBg5-9f$r(BASCII$BJ8;z$@$1$GI=8=$9$k;~$O!V(Boo$B!W$N$h$&$K$9$k$3$H$+$i!"(B `\infty' $B$rF~NO$9$k;~$O!"(B`;oo'$B$H%-!l9g$O(B Emacs-Lisp $BJQ?t(B `YaTeX-math-sign-alist-private' $B$KDj5A$7$F$/$@$5$$!#$=$NFb(B -$BMF$H%G%U%)%k%H$N$b$N$r9g$o$;$?$b$N$,BP1~I=$H$7$F;HMQ$5$l$^$9(B(private$B$NJ}$,(B -$BM%@h$5$l$k(B)$B!#$J$*!"$3$NJQ?t$N9=B$$K$D$$$F$O(B `yatexmth.el' $B$r;2>H$7$F$/$@$5(B -$B$$!#(B +$BMF$H%G%U%)%k%H$N$b$N$r9g$o$;$?$b$N$,BP1~I=$H$7$F;HMQ$5$l$^$9(B(private $B$NJ}(B +$B$,M%@h$5$l$k(B)$B!#$J$*!"$3$NJQ?t$N9=B$$K$D$$$F$O(B `yatexmth.el' $B$r;2>H$7$F$/$@(B +$B$5$$!#(B +  File: yatexj, Node: Greek letter completion, Prev: Image completion, Up: Completion @@ -876,6 +923,7 @@ $B@)E*$K%$%a!<%8Jd40$KF~$k$3$H$,$G$-$^$9!#$^$?!"$3$N;~$K$I$N$h$&$J>uBV$G?t<0(B $B4D6-FbH=Dj$K<:GT$7$?$+$r$4O"Mm2<$5$$!#(B +  File: yatexj, Node: Local dictionary, Next: Commenting out, Prev: Completion, Up: Top @@ -893,8 +941,9 @@ `foo' is not in table. Register into: U)serDic L)ocalDic N)one D)iscard $B$H$$$&%W%m%s%W%H$KBP$7!"(B`u'$B$HEz$($k$H!V%f!<%6<-=q!W$r!"(B`l'$B$HEz$($k$H%m!<%+(B -$B%k<-=q$r99?7$7!"(B`n'$B$HEz$($k$H<-=q%U%!%$%k$O99?7$;$:8=:_$N(BEmacs$B%;%C%7%g%s$N(B -$B$_M-8z$JC18l$H$7!"(B`d'$B$HEz$($k$H?7$?$JC18l$r3X=,$;$:$Kl(B $B9g$K$O(B`~/.emacs'$B$J$I$G!"(B @@ -903,6 +952,7 @@ $B$H$7$F2<$5$$!#(B +  File: yatexj, Node: Commenting out, Next: Cursor jump, Prev: Local dictionary, Up: Top @@ -952,6 +1002,7 @@ `[preifx] >' $B$r2!$7$F$b%+!<%=%k$,(B `\begin{}' $B$N>e$K$"$k$H(B`\begin{}'$B!A(B `\end{}'$B%b!<%I$G%3%a%s%H5!G=$,F/$$$F$7$^$&$N$GCm0U$7$F2<$5$$!#(B +  File: yatexj, Node: Cursor jump, Next: Modifying/Deleting, Prev: Commenting out, Up: Top @@ -967,6 +1018,7 @@ * $B4D6-$rC10L$H$7$?%8%c%s%W(B:: * $B:G8e$NJd400LCV$X$N%8%c%s%W(B:: +  File: yatexj, Node: $BBP1~%*%V%8%'%/%H$X$N%8%c%s%W(B, Next: $B$*3(IA$-%D!<%k5/F0(B, Prev: Cursor jump, Up: Cursor jump @@ -1005,6 +1057,7 @@ $B$3$N5!G=$O(B `begin/end', `%#BEGIN/%#END' $B4V$N%8%c%s%W$KBP$7$F$O(B($B0UL#$,$J$$(B $B$H;W$o$l$k$N$G(B)$B5!G=$7$J$$$N$GCm0U$7$F$/$@$5$$!#(B +  File: yatexj, Node: $B$*3(IA$-%D!<%k5/F0(B, Next: $B%a%$%s%U%!%$%k$X$N%8%c%s%W(B, Prev: $BBP1~%*%V%8%'%/%H$X$N%8%c%s%W(B, Up: Cursor jump @@ -1034,6 +1087,7 @@ $B2<$5$$!#$&$^$/@_Dj$9$k$H!"2hA|%U%!%$%k$K$+$.$i$:!"G$0U$N7A<0$N%U%!%$%k$rG$(B $B0U$N%W%m%;%C%5$G=hM}$9$k%3%^%s%I$r4JC1$K8F$S=P$9$3$H$,$G$-$^$9!#(B +  File: yatexj, Node: $B%a%$%s%U%!%$%k$X$N%8%c%s%W(B, Next: $B4D6-$rC10L$H$7$?%8%c%s%W(B, Prev: $B$*3(IA$-%D!<%k5/F0(B, Up: Cursor jump @@ -1051,6 +1105,7 @@ $B%*!<%W%s$7$F$$$J$$>l9g$O!"%+%l%s%H%G%#%l%/%H%j$+$iC5$7$F<+F0E*$K%*!<%W%s$7(B $B$^$9!#(B +  File: yatexj, Node: $B4D6-$rC10L$H$7$?%8%c%s%W(B, Next: $B:G8e$NJd400LCV$X$N%8%c%s%W(B, Prev: $B%a%$%s%U%!%$%k$X$N%8%c%s%W(B, Up: Cursor jump @@ -1069,6 +1124,7 @@ $B>e5-$N%3%^%s%I$ODL>o$N(B`[prefix]'$B%-!<$G$O$J$/(B`META'$B%-!<$r%W%j%U%#%/%9$H$7$F(B $B5!G=$9$k$N$G$4Cm0U2<$5$$!#(B +  File: yatexj, Node: $B:G8e$NJd400LCV$X$N%8%c%s%W(B, Prev: $B4D6-$rC10L$H$7$?%8%c%s%W(B, Up: Cursor jump @@ -1079,6 +1135,7 @@ $B$k%U%!%$%k$NG!2?$J$k0LCV$K9T$C$?$H$7$F$b!"(B`C-x j 3'(`jump-to-register')$B$r(B $B;H$C$FD>$A$K:G8e$NJd40F~NO0LCV$KLa$k$3$H$,$G$-$^$9!#(B +  File: yatexj, Node: Modifying/Deleting, Next: Filling, Prev: Cursor jump, Up: Top @@ -1101,6 +1158,7 @@ * Changing LaTeX command:: LaTeX $B%3%^%s%I$NJQ99(B * Killing LaTeX command:: LaTeX $B%3%^%s%I$N:o=|(B +  File: yatexj, Node: Changing LaTeX command, Next: Killing LaTeX command, Prev: Modifying/Deleting, Up: Modifying/Deleting @@ -1123,6 +1181,7 @@ $B$+$i=|30$9$k$3$H$,$G$-$^$9!#(B +  File: yatexj, Node: Killing LaTeX command, Prev: Changing LaTeX command, Up: Modifying/Deleting @@ -1150,6 +1209,7 @@ $BK\J8(B\footnote{$B5SCm(B}$B$G$9!#(B $BK\J85SCm$G$9!#(B $BK\J8$G$9!#(B $B",(B($B%+!<%=%k0LCV(B) +  File: yatexj, Node: Filling, Next: Includeonly, Prev: Modifying/Deleting, Up: Top @@ -1206,6 +1266,7 @@ $B$h$j(B fill-prefix $B$r$$$A$$$AJQ99$7$J$/$F7eB7$($,$G$-$^$9!#(B +  File: yatexj, Node: Includeonly, Next: What column, Prev: Filling, Up: Top @@ -1227,10 +1288,11 @@ A)dd R)eplace %)comment? -$B8=:_JT=8Cf$N%U%!%$%k$r(B `\includeonly' $B$N%j%9%H$K2C$($?$$;~$K$O(B`a'$B$r!"8=:_(B +$B8=:_JT=8Cf$N%U%!%$%k$r(B `\includeonly' $B$N%j%9%H$K2C$($?$$;~$K$O(B`a' $B$r!"8=:_(B $BJT=8Cf$N%U%!%$%k$@$1$r(B `\includeonly' $B$K$7$?$$;~$O(B`r'$B$r!"(B`\includeonly' $B$N(B $B9T$r%3%a%s%H%"%&%H$7$FL58z2=$7$?$$;~$K$O!"(B`%'$B$r$=$l$>$l2!$7$F2<$5$$!#(B +  File: yatexj, Node: What column, Next: Intelligent newline, Prev: Includeonly, Up: Top @@ -1260,6 +1322,7 @@ $B$9!#$b$79`L\L>$H$7$FJL$N$b$N$rI=<($7$FM_$7$$>l9g$O!"9TF,$r(B`%'$B$K$7$F%@%_!<(B $B$N9`L\JB$S$r:n$C$F$*$/$HNI$$$G$7$g$&!#(B +  File: yatexj, Node: Intelligent newline, Next: Usepackage cheker, Prev: What column, Up: Top @@ -1302,6 +1365,7 @@ $B$K$7$F$/$@$5$$!#(B +  File: yatexj, Node: Usepackage cheker, Next: Changing mode of YaTeX, Prev: Intelligent newline, Up: Top @@ -1317,6 +1381,7 @@ $B72$r(Balist$B$N7A<0$GJQ?t(B `YaTeX-package-alist-private' $B$K@_Dj$7$F$*$/I,MW$,$"(B $B$j$^$9!#(B +  File: yatexj, Node: Changing mode of YaTeX, Next: Online help, Prev: Usepackage cheker, Up: Top @@ -1342,6 +1407,7 @@ $B%I$r(B (`"~/.yatexrc"') -- Variable: YaTeX-kanji-code - $BJ8=q$r:n@.$9$k;~$N4A;z%3!<%I(Bnil=$B4{B8$N%3!<%I$N$^$^(B - 0=no-conversion1=Shift JIS, 2=JIS, 3=EUC (2 (MS-DOS$B$G$O(B1)) + $BJ8=q$r:n@.$9$k;~$N4A;z%3!<%I(Bnil=$B4{B8$N%3!<%I$N$^$^(B 0=no-conversion + 1=Shift JIS, 2=JIS, 3=EUC, 4=UTF-8 (2 (MS-DOS$B$G$O(B1)) -- Variable: tex-command LaTeX$B%?%$%W%;%C%?%3%^%s%IL>(B (`"platex"') @@ -1551,6 +1622,9 @@ -- Variable: makeindex-command makeindex$B%3%^%s%I(B (`"makeindex"' (MS-DOS$B$G$O(B`"makeind"')) + -- Variable: YaTeX-dvipdf-command + dvi$B$r(BPDF$B$KJQ49$9$k%3%^%s%I(B (`"dvipdfmx"') + -- Variable: YaTeX-need-nonstop `\nonstopmode{}'$B$r<+F0E*$KIU2C$9$k$+(B (`nil') @@ -1652,7 +1726,7 @@ -- Variable: YaTeX-hilit-sectioning-attenuation-rate $B?'IU$1$,M-8z$J;~$N!"(B`\subparagraph' $B$N?'$r(B `\chapter' $B$NG;EY$N2?(B%$BGv$/(B - $B$7$?$b$N$K$9$k$+(B (`'(15 40)') `YaTeX-hilit-sectioning-face'$B$N9`;2>H!#(B + $B$7$?$b$N$K$9$k$+(B (`'(15 40)') `YaTeX-hilit-sectioning-face' $B$N9`;2>H!#(B -- Variable: YaTeX-use-AMS-LaTeX AMS-LaTeX $B$r;HMQ$9$k>l9g$O(B `t' $B$K@_Dj$9$k(B (`nil') @@ -1671,8 +1745,8 @@ (`(featurep 'font-lock)') -- Variable: YaTeX-use-hilit19 - $B%=!<%9$N?'$E$1%Q%C%1!<%8$H$7$F(B hilit19 $B$rMxMQ$9$k$+$I$&$+(B(`(featurep ' - hilit19)') + $B%=!<%9$N?'$E$1%Q%C%1!<%8$H$7$F(B hilit19 $B$rMxMQ$9$k$+$I$&$+(B(`(featurep + 'hilit19)') -- Variable: YaTeX-use-italic-bold italic, bold$B%U%)%s%H$rLnD;$,C5$9$+$I$&$+(B (Emacs20$B0J9_$J$i(B`t') @@ -1686,15 +1760,12 @@ LaTeX2e$B$N%Q%C%1!<%8L>$H$=$NCf$K4^$^$l$k%^%/%m$N%j%9%H!#E,@Z$K@_Dj$7$F(B $B$*$/$HK\J8F~NO;~$K%^%/%m$rJd40F~NO$9$k$H$=$N%^%/%m$KI,MW$J%Q%C%1!<%8(B $B$r(B usepackage $B$9$k$+<+F0E*$K8!::$7$F$/$l$k!#$7$F$$$J$1$l$P(B - \usepackage $B$r<+F0DI2C$9$k$3$H$b$G$-$k!#%j%9%H$O(B - '(($B%Q%C%1!<%8L>(B1 - ($BJd40%?%$%W(B $B%^%/%m$N%j%9%H!D!D(B) - ($BJd40%?%$%W(B $B%^%/%m$N%j%9%H!D!D(B)) - ($B%Q%C%1!<%8L>(B2 - ($BJd40%?%$%W(B $B%^%/%m$N%j%9%H!D!D(B) - ($BJd40%?%$%W(B $B%^%/%m$N%j%9%H!D!D(B))$B!D!D!D(B)$B$H$$$&7A<0$K$9$k!#(B - $BJd40%?%$%W$O(B `env, section, maketitle' $B$N$I$l$+!#6qBNNc$OJQ?t(B - `YaTeX-package-alist-default'$B$NCM;2>H!#(B + \usepackage $B$r<+F0DI2C$9$k$3$H$b$G$-$k!#%j%9%H$O(B'(($B%Q%C%1!<%8L>(B1 ($BJd(B + $B40%?%$%W(B $B%^%/%m$N%j%9%H!D!D(B) ($BJd40%?%$%W(B $B%^%/%m$N%j%9%H!D!D(B)) ($B%Q%C%1!<(B + $B%8L>(B2 ($BJd40%?%$%W(B $B%^%/%m$N%j%9%H!D!D(B) ($BJd40%?%$%W(B $B%^%/%m$N%j%9(B + $B%H!D!D(B))$B!D!D!D(B) $B$H$$$&7A<0$K$9$k!#Jd40%?%$%W$O(B `env, section, + maketitle' $B$N$I$l$+!#6qBNNc$OJQ?t(B `YaTeX-package-alist-default' $B$NCM(B + $B;2>H!#(B -- Variable: YaTeX-tabular-indentation tabular/array $B4D6-$G8=:_9T$N@hF,0LCV$,I=$NBh(BN$B%+%i%`$N$H$-$OI8=`%$%s%G(B @@ -1731,6 +1802,7 @@ (concat command ":" value) (YaTeX::ref-generate-label nil nil)))) +  File: yatexj, Node: Sample definitions, Next: Hook variables, Prev: All customizable variables, Up: Lisp variables @@ -1747,6 +1819,7 @@ $B$r(B `~/.emacs' $B$K2C$($^$9!#(B +  File: yatexj, Node: Hook variables, Next: Hook file, Prev: Sample definitions, Up: Lisp variables @@ -1764,8 +1837,8 @@ '(lambda () (outline-minor-mode t))) $B5U$K!"FH<+$N%-!$b%7%g!<(B -$B%H%+%C%H%-!<$GF~$l$?$$$J$I$H$$$&;~$O!"$b(B +$B%7%g!<%H%+%C%H%-!<$GF~$l$?$$$J$I$H$$$&;~$O!"p!"4uK>!"%P%0Js9p!"46A[Ey$O4?7^$$$?$7$^$9!#O"Mm$O(B yuuji@yatex.org $B$^(B $B$G(B(2004$BG/(B1$B7n8=:_(B)$B!#7QB3E*$K;HMQ$7$F$/$@$5$kJ}$O%a%$%j%s%0%j%9%H!V(Bfj$BLnD;$N(B -$B2q!W$K@'Hs2CF~$7$F$/$@$5$$!#2CF~J}K!$K$D$$$F$OK\%Q%C%1!<%8$N(B `docs/qanda' +$B2q!W$K@'Hs2CF~$7$F$/$@$5$$!#2CF~J}K!$K$D$$$F$OK\%Q%C%1!<%8$N(B `docs/qanda' $B%U%!%$%k$N!V$=$NB>!W$N>O$r8fMw$/$@$5$$!#(B $B;EMM$O!"M=9p$J$/3Ne$N0z?t$r$H$k(B section$B7?%3%^%s%I(B. 4. -* $B0z?t$N8D?t$rJQ$($k(B[$B$R$-$9$&$N$3$9$&$r$+$($k(B]: 2$B8D0J>e$N0z?t$r$H$k(B section$B7?%3%^%s%I(B. 24. -* $B$*$^$+$;2~9T(B[$B$*$^$+$;$+$$$-$h$&(B]: Intelligent newline. 4. -* $B&2(B[$B$7$/$^(B]: Image completion. 4. -* $B2$J8(B[$B$*$&$U$s(B]: Accent mark completion. 4. -* $B$3$3$O$I$3(B?[$B$3$3$O$H$3(B?]: What column. 4. -* $B%3%a%s%H%"%&%H(B[$B$3$a$s$H$"$&$H(B]: Commenting out. 4. -* $B3g$k(B[$B$/$/$k(B]: Enclose section-type command. 4. -* $B3g$k(B[$B$/$/$k(B]: large$B7?Jd40(B. 21. -* $B$*3(IA$-%D!<%k5/F0(B[$B$*$($+$-$D$&$k$-$H$&(B]: $B$*3(IA$-%D!<%k5/F0(B. 4. -* $B%3%^%s%I%R%9%H%j(B[$B$3$^$s$H$R$9$H$j(B]: Cooperation with other packages. 8. -* $B4D6-L>$NJd40(B[$B$+$s$-$h$&$a$$$N$[$+$s(B]: begin$B7?Jd40(B. 4. -* $B4D6-L>$NJQ99(B[$B$+$s$-$h$&$a$$$N$X$s$3$&(B]: Changing LaTeX command. 20. -* $B4D6-$N@hF,$X(B[$B$+$s$-$h$&$N$;$s$H$&$X(B]: $B4D6-$rC10L$H$7$?%8%c%s%W(B. 7. -* $B4D6-$NKvHx$X(B[$B$+$s$-$h$&$N$^$D$R$X(B]: $B4D6-$rC10L$H$7$?%8%c%s%W(B. 7. -* $B4D6-$N:o=|(B[$B$+$s$-$h$&$N$5$/$7$h(B]: Killing LaTeX command. 6. -* $B4D6-$r%^!<%/(B[$B$+$s$-$h$&$r$^$"$/(B]: $B4D6-$rC10L$H$7$?%8%c%s%W(B. 7. -* $B5/F0$9$k%3%^%s%I$rJQ$($k(B[$B$-$H$&$9$k$3$^$s$H$r$+$($k(B]: Changing typesetter. 7. -* %#$B5-K!<+BN$NJT=8(B[%#$B$-$[$&$7$?$$$N$X$s$7$f$&(B]: Editing %# notation. 4. -* $B%-!<%"%5%$%s(B[$B$-$$$"$5$$$s(B]: Customizations. 4. -* $B7eB7$((B[$B$1$?$=$m$((B]: Filling. 4. -* $B%;%/%7%g%s6h@Z$j0lMw%P%C%U%!(B[$B$;$/$7$h$s$/$-$j$$$A$i$s$O$D$U$"(B]: view-sectioning. 18. -* $B%;%/%7%g%s6h@Z$j(B[$B$;$/$7$h$s$/$-$j(B]: view-sectioning. 42. -* $B%8%c%s%W(B[$B$7$d$s$U(B]: view-sectioning. 42. -* $B8GDjNN0h$N%?%$%W%;%C%H(B[$B$3$F$$$j$h$&$$$-$N$?$$$U$;$D$H(B]: Fix region for typesetting. 4. -* $B8=:_$N%+%i%`I=<((B[$B$1$s$5$$$N$+$i$`$R$h$&$7(B]: What column. 22. -* $B%+%9%?%^%$%:(B[$B$+$9$?$^$$$9(B]: Customizations. 4. -* $B%+%9%?%^%$%:JQ?t0lMw(B[$B$+$9$?$^$$$9$X$s$9$&$$$A$i$s(B]: All customizable variables. 4. -* $B%$%a!<%8Jd40(B[$B$$$a$($7$[$+$s(B]: Image completion. 4. -* $B%b!<%I@Z$jBX$((B[$B$b$&$H$-$j$+$((B]: Changing mode of YaTeX. 4. -* $BB>$N%U%!%$%k$N$7(B[$B$[$+$N$U$"$$$k$N$F$J$*$7(B]: Includeonly. 11. -* $BB>%Q%C%1!<%8$H$NO"7H(B[$B$?$O$D$1$($7$H$N$l$s$1$$(B]: Cooperation with other packages. 4. -* $BD9$$%U%!%$%k$NJT=8(B[$B$J$+$$$U$"$$$k$N$X$s$7$f$&(B]: Fix region for typesetting. 34. -* $B$d$A$g$&(B[$B$d$A$h$&(B]: Intro. 4. -* $B@_DjNc(B[$B$;$D$F$$$l$$(B]: Sample definitions. 4. * %#BEGIN: Fix region for typesetting. 4. -* begin$B7?Jd40(B[begin$B$+$?$[$+$s(B]: begin$B7?Jd40(B. 4. -* $B:F5"Jd40(B[$B$5$$$-$[$+$s(B]: Recursive completion. 4. -* $B%f!<%6<-=q(B[$B$f$&$5$7$7$h(B]: begin$B7?Jd40(B. 71. -* &$BF~NO(B[&$B$K$f$&$j$h$/(B]: Intelligent newline. 4. -* $BF~NO%U%!%$%kJ,3d(B[$B$K$f$&$j$h$/$U$"$$$k$U$s$+$D(B]: Splitting input files. 11. -* $B!g(B[$B$`$1$s$?$$(B]: Image completion. 4. -* $B@h2s$j(Busepackage[$B$5$-$^$o$j(B]: Usepackage cheker. 4. -* ;$B<+?H(B[;$B$7$7$s(B]: Image completion. 31. -* $B%"%&%H%i%$%s(B[$B$"$&$H$i$$$s(B]: view-sectioning. 4. -* $B%(%i!<=$@5(B[$B$($i$"$7$f$&$;$$(B]: Calling typesetter. 4. -* $B%i%Y%k<+F0@8@.(B[$B$i$X$k$7$H$&$;$$$;$$(B]: label-generation. 4. -* $B%.%j%7%cJ8;zJd40(B[$B$-$j$7$d$b$7$[$+$s(B]: Greek letter completion. 4. -* $BJ8;z%5%$%:;XDj;R(B[$B$b$7$5$$$9$7$F$$$7(B]: large$B7?Jd40(B. 17. -* $BJD$89~$a$k(B[$B$H$7$3$a$k(B]: begin$B7?Jd40(B. 81. -* $BJ#;($J(Btabular[$B$U$/$5$D$J(Btabular]: What column. 4. -* $B>!JN,(Blpr$B5/F0(B[$B$X$($7$+$/$K$s$7$h$&$j$d$/(Blpr$B$-$H$&(B]: Print out. 12. +* begin�^��(J.(B[begin,B)=Y)q(B]: begin�^��(J.(B. 4. * C-c: Invocation. 4. * Demacs: Intro. 4. * .emacs: Installation. 4. * %#END: Fix region for typesetting. 4. -* end$BJd40(B[end$B$[$+$s(B]: end$BJd40(B. 4. +* end��(J.(B[end,BY)q(B]: end��(J.(B. 4. * ghostview: Splitting input files. 16. * gmhist: Cooperation with other packages. 8. -* hook$BJQ?t(B[hook$B$X$s$9$&(B]: Hook variables. 4. +* hook�ϐ�[hook,BVq7$(B]: Hook variables. 4. +* �o�͏I���y�[�W[,B5dBhf-5d$hf$V&5(B]: Print out. 9. * includeonly: Includeonly. 4. * Install: Installation. 4. -* item$B$J$I$N7eB7$((B[item$B$J$H$N$1$?$=$m$((B]: Filling. 8. +* item,BHGL���(B�,B&(B[item,BHFL/=;k&(B]: Filling. 8. +* �o�͊J�n�y�[�W[,B5dBhf-)"5V&5(B]: Print out. 9. * jlatex: Invocation. 4. -* large$B7?Jd40(B[large$B$+$?$[$+$s(B]: large$B7?Jd40(B. 4. +* large�^��(J.(B[large,B)=Y)q(B]: large�^��(J.(B. 4. * LaTeX: Intro. 4. * leftarrow: Image completion. 4. * lpr format: lpr format. 4. -* lpr$B$U$)!<$^$C$H(B[lpr$B$U$*$*$^$D$H(B]: lpr format. 4. -* lpr$B%U%)!<%^%C%H(B[lpr$B$U$*$*$^$D$H(B]: lpr format. 4. -* lpr$B%U%)!<%^%C%H$NJQ99(B[lpr$B$U$*$*$^$D$H$N$X$s$3$&(B]: Editing %# notation. 18. -* maketitle$B7?Jd40(B[maketitle$B$+$?$[$+$s(B]: maketitle$B7?Jd40(B. 4. -* M-C-@: $B4D6-$rC10L$H$7$?%8%c%s%W(B. 7. -* M-C-a: $B4D6-$rC10L$H$7$?%8%c%s%W(B. 7. -* M-C-e: $B4D6-$rC10L$H$7$?%8%c%s%W(B. 7. +* lpr�t�H�[�}�b�g,BL�(BύX[lpr,BS((\BFLVq1$(B]: Editing %# notation. 18. +* lpr,BS'�(B[,B\AF(B[lpr,BS((\BF(B]: lpr format. 4. +* lpr�t�H�[�}�b�g[lpr,BS((\BF(B]: lpr format. 4. +* maketitle�^��(J.(B[maketitle,B)=Y)q(B]: maketitle�^��(J.(B. 4. +* M-C-@: (JB(B��,Bp�(BP,HJ,BF5=�(BW�����v. 7. +* M-C-a: (JB(B��,Bp�(BP,HJ,BF5=�(BW�����v. 7. +* M-C-e: (JB(B��,Bp�(BP,HJ,BF5=�(BW�����v. 7. * min-out: Cooperation with other packages. 17. * M-q: Filling. 46. * Mule: Intro. 4. -* NTT-jTeX[$B$($L$F$$$$$F$$$$$7$($$$F$D$/(B]: Filling. 16. +* ����,BI(Bincludeonly[,B)BDI(Bincludeonly]: Includeonly. 4. +* NTT-jTeX[,B&JD""D""5&"DB-(B]: Filling. 16. * platex: Invocation. 4. * prefix ,: Commenting out. 4. * prefix .: Commenting out. 4. @@ -1961,93 +2036,97 @@ * prefix ?: Online help. 4. * prefix &: What column. 4. * prefix a: Accent mark completion. 4. -* prefix b: begin$B7?Jd40(B. 4. +* prefix b: begin�^��(J.(B. 4. * prefix c: Modifying/Deleting. 4. * prefix d: Inclusion hierarchy browser. 4. -* prefix e: end$BJd40(B. 4. +* prefix e: end��(J.(B. 4. * prefix g: Cursor jump. 4. * prefix i: Filling. 8. * prefix k: Modifying/Deleting. 4. * prefix key: Invocation. 4. -* prefix l: large$B7?Jd40(B. 4. -* prefix m: maketitle$B7?Jd40(B. 4. -* prefix s: section$B7?Jd40(B. 4. +* prefix l: large�^��(J.(B. 4. +* prefix m: maketitle�^��(J.(B. 4. +* prefix s: section�^��(J.(B. 4. * prefix SPC: Arbitrary completion. 4. * prefix w: Changing mode of YaTeX. 4. -* prefix$B%-!e$N0z?t$r$H$k(B section$B7?%3%^%s%I(B24617 -Node: Enclose section-type command26115 -Node: Recursive completion26515 -Node: view-sectioning27067 -Node: label-generation29528 -Node: large$B7?Jd40(B30273 -Node: maketitle$B7?Jd40(B31400 -Node: Arbitrary completion31882 -Node: end$BJd40(B32488 -Node: Accent mark completion33125 -Node: Image completion33856 -Node: Greek letter completion37390 -Node: Local dictionary38385 -Node: Commenting out39625 -Node: Cursor jump41857 -Node: $BBP1~%*%V%8%'%/%H$X$N%8%c%s%W(B42231 -Node: $B$*3(IA$-%D!<%k5/F0(B44128 -Node: $B%a%$%s%U%!%$%k$X$N%8%c%s%W(B46093 -Node: $B4D6-$rC10L$H$7$?%8%c%s%W(B46762 -Node: $B:G8e$NJd400LCV$X$N%8%c%s%W(B47426 -Node: Modifying/Deleting47904 -Node: Changing LaTeX command48558 -Node: Killing LaTeX command49574 -Node: Filling51007 -Node: Includeonly53476 -Node: What column54565 -Node: Intelligent newline55914 -Node: Usepackage cheker57849 -Node: Changing mode of YaTeX58630 -Node: Online help59777 -Node: Inclusion hierarchy browser61920 -Node: Cooperation with other packages64375 -Node: Customizations65133 -Node: Lisp variables65619 -Node: All customizable variables66653 -Node: Sample definitions77680 -Node: Hook variables78259 -Node: Hook file79619 -Node: Add-in functions79954 -Node: Etc80372 -Node: Copying81013 -Node: Concept Index82458 +Node: Top146 +Node: Intro1200 +Node: Terminology1503 +Node: Main features2138 +Node: Installation3171 +Node: Invocation4390 +Node: Calling typesetter5214 +Node: Calling previewer6452 +Node: Print out6768 +Node: %#notation7034 +Node: Changing typesetter7408 +Node: Splitting input files7666 +Node: Fix region for typesetting8615 +Node: lpr format9516 +Node: Editing %# notation10309 +Node: Completion10742 +Node: begin$B7?Jd40(B11215 +Node: section$B7?Jd40(B13800 +Node: 2$B8D0J>e$N0z?t$r$H$k(B section$B7?%3%^%s%I(B14895 +Node: Enclose section-type command15712 +Node: Recursive completion15949 +Node: view-sectioning16255 +Node: label-generation17451 +Node: large$B7?Jd40(B17801 +Node: maketitle$B7?Jd40(B18381 +Node: Arbitrary completion18680 +Node: end$BJd40(B18993 +Node: Accent mark completion19335 +Node: Image completion19761 +Node: Greek letter completion21578 +Node: Local dictionary22038 +Node: Commenting out22643 +Node: Cursor jump23802 +Node: $BBP1~%*%V%8%'%/%H$X$N%8%c%s%W(B24039 +Node: $B$*3(IA$-%D!<%k5/F0(B25027 +Node: $B%a%$%s%U%!%$%k$X$N%8%c%s%W(B25947 +Node: $B4D6-$rC10L$H$7$?%8%c%s%W(B26283 +Node: $B:G8e$NJd400LCV$X$N%8%c%s%W(B26640 +Node: Modifying/Deleting26877 +Node: Changing LaTeX command27282 +Node: Killing LaTeX command27833 +Node: Filling28703 +Node: Includeonly30031 +Node: What column30590 +Node: Intelligent newline31368 +Node: Usepackage cheker32400 +Node: Changing mode of YaTeX32826 +Node: Online help33402 +Node: Inclusion hierarchy browser34378 +Node: Cooperation with other packages35656 +Node: Customizations36111 +Node: Lisp variables36408 +Node: All customizable variables37015 +Node: Sample definitions44315 +Node: Hook variables44749 +Node: Hook file45642 +Node: Add-in functions45848 +Node: Etc46075 +Node: Copying46359 +Node: Concept Index46990  End tag table diff --git a/docs/yatexj.tex b/docs/yatexj.tex index 9845914..867b85f 100644 --- a/docs/yatexj.tex +++ b/docs/yatexj.tex @@ -10,7 +10,7 @@ @c �m�[�h���������� C-l C-u C-n �S���̃m�[�h�X�V C-l C-u C-e @c ���j���[���₵���� C-l C-u C-m �S���̃��j���[�X�V C-l C-u C-a @c �t�H�[�}�b�g����Ƃ��� C-l C-e C-b -@c Last modified Wed Jul 20 21:25:48 2005 on firestorm +@c Last modified Thu May 27 18:24:30 2010 on firestorm @syncodeindex vr cp @end iftex @@ -224,10 +224,17 @@ @dots{} �^�C�v�Z�b�^(platex)�N�� @item [prefix] t r @dots{} �^�C�v�Z�b�^�N��(�̈�w��) +@item [prefix] t e + @dots{} �^�C�v�Z�b�^�N�� + (�|�C���g�ʒu�̊‹��܂��͐������[�h�̂ݑΏ�) @item [prefix] t k @dots{} ���쒆�̃^�C�v�Z�b�^�̒�~ @item [prefix] t b @dots{} jbibtex�N�� +@item [prefix] t i + @dots{} makeindex�N�� +@item [prefix] t d + @dots{} �^�C�v�Z�b�^��dvipdfmx�N�� @item [prefix] t p @dots{} �v�������[�A�N�� @item [prefix] t l @@ -275,11 +282,22 @@ �|�C���g�ƃ}�[�N�̊ԁA���邢�̓e�L�X�g���ɖ��ߍ��� @code{%#BEGIN} �� @code{%#END}�̊Ԃ̗̈�(@ref{%#notation})������؂����ă^�C�v�Z�b�g���邱�Ƃ� -�ł��܂��B���̏ꍇ�� documentclass �́A�P��t�@�C���� La@TeX{} �\�[�X�̕� -�W���ɂ͂��̃t�@�C���� documentclass ���A�ʃt�@�C������ include ���Ă���� -���ɂ̓��C���t�@�C���� documentclass �������I�ɑI������܂��B�w��̈�́A -���C���t�@�C���̂���f�B���N�g����@file{texput.tex}�Ƃ����Վ��t�@�C���ɏo -�͂���܂��̂ŁA�㏑���ɂ͒��ӂ��Ă��������B +�ł��܂��B���̏ꍇ���C���t�@�C���̃v���A���u�����ꎞ�t�@�C���� +�v���A���u���Ƃ��Ďg���܂��B���������ăv���A���u���ɂȂ��}�N����`�� +�̈���ɂ���ƃG���[�ɂȂ�܂��B�̈�^�C�v�Z�b�g���g���ꍇ�A +�K���}�N����`�̓v���A���u��(@code{\begin{document}}���O)�ɒu���悤 +�ɂ��ĉ������B�ꎞ�t�@�C���̓��C���t�@�C���̂��� +�f�B���N�g����@file{texput.tex}�Ƃ������O�ŏo�͂����̂ŁA +�㏑���ɂ͒��ӂ��Ă��������B + +@subsection{�‹��^�C�v�Z�b�g} + + @kbd{[prefix] te} �������ƁA�|�C���g�ʒu�̍ł������̊‹��A�܂��͐������[ +�h���̏ꍇ�͂��̐������[�h�S�̂������I�ɗ̈�I������āA�̈�^�C�v�Z�b�g�� +�Ăяo���܂��Btabular�‹��␔�����[�h�ŕ��G�Ȃ��̂�����Ă���ꍇ�͊m���߂� +�������������m�F�ł���̂ŕ֗��ł��B����� @file{texput.tex} �ɊY�������� +�����o���܂��B�v�������[�A�� @file{texput.dvi} ���J�����܂܂ɂ��Ă����� +�C���Ɗm�F���f�����ł���ł��傤�B @node Calling previewer, Print out, Calling typesetter, Invocation @comment node-name, next, previous, up @@ -1821,8 +1839,8 @@ @defvar YaTeX-kanji-code �������쐬���鎞�̊����R�[�h -nil=�����̃R�[�h�̂܂� 0=no-conversion1=Shift JIS, -2=JIS, 3=EUC (2 (MS-DOS�ł�1)) +nil=�����̃R�[�h�̂܂� 0=no-conversion 1=Shift JIS, +2=JIS, 3=EUC, 4=UTF-8 (2 (MS-DOS�ł�1)) @end defvar @defvar tex-command @@ -1851,6 +1869,10 @@ makeindex�R�}���h (@code{"makeindex"} (MS-DOS�ł�@code{"makeind"})) @end defvar +@defvar YaTeX-dvipdf-command +dvi��PDF�ɕϊ�����R�}���h (@code{"dvipdfmx"}) +@end defvar + @defvar YaTeX-need-nonstop @code{\nonstopmode@{@}}�������I�ɕt�����邩 (@code{nil}) @end defvar diff --git a/hg2cvsci.sh b/hg2cvsci.sh new file mode 100755 index 0000000..6850697 --- /dev/null +++ b/hg2cvsci.sh @@ -0,0 +1,15 @@ +#!/bin/sh +# This script does not support automatic "cvs add". +# If new file is added by "hg add", don't forget to "cvs add" in +# CVS working dir. +# +# This script should be called via incoming hook in .hg/hgrc as below. +# [hooks] +# incoming.cvsci = ./hg2cvsci.sh + +node=${HG_NODE:-tip} +hg=${HG:-hg} +msg=`hg log -r $node --template '{desc}\n'` +cd `dirname $0` +$hg up -r $node +cvs ci -m "$msg" diff --git a/install b/install index 7026bcd..d86e359 100644 --- a/install +++ b/install @@ -61,20 +61,20 @@ About yahtml / yahtml�ɂ‚��� ***************************** -Yahtml is a brand new package for writing HTML files with Emacs. It is +Yahtml is a different package for writing HTML files with Emacs. It is very far from html-mode, html-helper-mode or other existing HTML modes. It is a good successor of YaTeX in HTML world. Do not want it to behave as modes you used. Yahtml doesn't lessen the number of initial typing not so much. But it lessens your effort of polishing/debugging your source, tracing links between file or URL, and browsing the result with -Netscape. If you had not used YaTeX, the concept of `C-c g', `C-c k', +browsers. If you had not used YaTeX, the concept of `C-c g', `C-c k', and `C-c c' are very new to you. If you are interested in the philosophy of YaTeX, please take a look at the info file of YaTeX. yahtml.el �� html-mode �Ƃ� html-helper-mode �Ƃ��Ƃ͂������`�`�񂶂��� �Ⴂ�܂��B�uhtml-helper-mode �ł����Ƃ���̂��̋@�\�͂Ȃ��́`�v�Ƃ����� �����C���Ŏg���ƁA�����[���q�����ł��B�t�ɁA�쒹�̃C���^�t�F�[�X��m���� -�g���Ă���Ƃ��Ȃ蒲�q�ǂ��ł��B�Â����̂ɍS��l�ɂ͂��E�߂��܂���B +�g���Ă���Ƃ��Ȃ蒲�q�ǂ��ł��B Installation of yahtml / yahtml�̃C���X�g�[�� ********************************************* @@ -102,7 +102,8 @@ directory name. If you're not sure of this, ask it to WWW administrator. Typically `index.html' if your site is - running NCSA httpd, and `Welcome.html' - if CERN httpd. + running apache, or `Welcome.html' if + CERN httpd. URL�Ńt�@�C�������ȗ��������ɃI�[�v���� ���t�@�C���BWWW�Ǘ��҂ɕ����ĉ������B + �����Ă� index.html �ł��傤�B diff --git a/makefile b/makefile index a39d877..05e8962 100644 --- a/makefile +++ b/makefile @@ -1,16 +1,16 @@ # -# Makefile for YaTeX +# Makefile for YaTeX/yahtml # # Edit these variables to be suitable for your site PREFIX = /usr/local ## mule2 -EMACS = mule -EMACSDIR= ${PREFIX}/lib/${EMACS} -## emacs20 -#EMACS = emacs -#EMACSDIR= ${PREFIX}/share/${EMACS} +#EMACS = mule +#EMACSDIR= ${PREFIX}/lib/${EMACS} +## emacs20 or later +EMACS = emacs +EMACSDIR= ${PREFIX}/share/${EMACS} ## XEmacs #EMACS = xemacs #EMACSDIR= ${PREFIX}/lib/${EMACS} @@ -49,7 +49,7 @@ # make clean to delete all producted files # make ci to check in all # make co to check out all -MVER = 1.74 +MVER = 1.75 LISP = ${LISP18} ${LISP19} YAHTML = yahtml.el COMMON = yatexlib.el yatexprc.el @@ -68,11 +68,11 @@ DOCOBJ = docs/yatexj docs/yatexe docs/yahtmlj docs/yahtmle HELP = help/YATEXHLP.jp help/YATEXHLP.eng MANIFEST= manifest -EXTRA = dir install 00readme makefile readme.meadow.j +EXTRA = dir install 00readme makefile readme.meadow.j newpage.rb DISTRIB = ${EXTRA} ${LISP} ${DOCS} ${MANIFEST} ${HELP} RCSFILE = ${LISP} ${NEWS} ${DOCSRC} ${HELP} YAHTMLLISP = ${YAHTML} ${COMMON} -YAHTMLDIST = ${YAHTMLLISP} install 00readme makefile +YAHTMLDIST = ${YAHTMLLISP} install 00readme makefile newpage.rb PACK = `ls ${DISTRIB}` TMPDIR = /tmp VERSION = `head yatex.el|awk '/rev\./{print $$4}'` @@ -206,9 +206,9 @@ -x '*RCS/*' -x 'texinfo/*' RSYNCDIR = ${HOME}/http/yatex/rsync/yatex -sync: - @-mkdir ${PACKDIR} - @tar cf - ${PACK} | (cd ${PACKDIR}; tar xf -) - syncdir -A -x CVS ${PACKDIR} ${RSYNCDIR} - (cd ${RSYNCDIR}; cvs ci -m '') - rm -rf ${PACKDIR} +#sync: +# @-mkdir ${PACKDIR} +# @tar cf - ${PACK} | (cd ${PACKDIR}; tar xf -) +# syncdir -A -x CVS ${PACKDIR} ${RSYNCDIR} +# (cd ${RSYNCDIR}; cvs ci -m '') +# rm -rf ${PACKDIR} diff --git a/newpage.rb b/newpage.rb new file mode 100755 index 0000000..6d9db1e --- /dev/null +++ b/newpage.rb @@ -0,0 +1,128 @@ +#!/usr/bin/env ruby +# THIS is very very tentative. Insufficient examination of function. +# Create new HTML file referring other HTML file in the same directory. +# (C)2010 by HIROSE Yuuji [yuuji@yatex.org] +# Last modified Mon Sep 6 16:16:33 2010 on firestorm +# $Id$ +# http://www.yatex.org +# Example: +# newpage.rb Create new index.html by copying template. +# newpage.rb foo.html Create new foo.html whose by copying header +# and footer from index.html. +# newpage.rb d/sub.html Create new directory d (if necessary) and +# d/sub.html by copying header/footer from +# index.html in a same directory or parent +# directory rewriting href to css file +# considering relative path. +# newpage.rb -o [file] Forcibly overwrite existing file. +# newpage.rb -c cssfile Set `cssfile' as defualt css. +# newpage.rb -t template Set `template' as HTML template. +require 'fileutils' + +mydir=File.dirname($0) +myname=File.basename($0, ".rb") + + +index = 'index.html' +cssdefault = nil +overwrite = nil +template = __FILE__ #File.expand_path(myname+".html", mydir) + +def guesscss(dir) + +end + +while ARGV[0] && /^-/ =~ (a0=ARGV[0].dup) && ARGV.shift + break if /^--$/ =~ a0 + while /^-[A-Za-z]/ =~ a0 + case a0 + when "-c" # css + ARGV.shift; cssdefault = ARGV[0] + when "-t" # template + ARGV.shift; cssdefault = ARGV[0] + when "-o" # overwrite + overwrite = true + end + a0.sub!(/-.(.*)/, '-\\1') + end +end + +outfile = ARGV[0]||index +if !overwrite && test(?s, outfile) then + STDERR.printf("File \`%s' exists. Use -o option to overwrite.\n", outfile) + exit 1 +end + +# set css default file +dots = 0 +of = outfile +dots+=1 while "." != (of=File.dirname(of)) +cssdir = "../"*dots + +# set copy source +outdir = File.dirname(outfile) +if "index.html" == File.basename(outfile) + src = (dots == 0 ? template : "index.html") +elsif test(?s, outdir+"/index.html") + src = outdir+"/index.html" +else + src = template +end + +FileUtils.mkdir_p(outdir) + +cssfile = cssdir+"main.css" +name = File.basename(outfile, ".html") +begin + open(outfile, "w") do |out| + #IO.foreach(src) do |line| + if src == __FILE__ + input = DATA + else + input = open(src, "r") + end + begin + html = input.readlines.join + html.sub!(%r|^|i, sprintf("

%s

\n", name)) + if !html.gsub!("__CSSFILE__", cssfile) + html.gsub!(/href=(['\"])(.*\.css)\1/, 'href="'+cssdir+'\2"') + end + html.gsub!("__TITLE__", name) + out.print html + ensure + input.close + end + end + printf(<<_EOS_, outfile, name) +%s +_EOS_ +rescue + p $! + STDERR.printf(<<'_EOS_', outfile, outfile) +Cannot output to [%s]. Do + chmod +w %s +or + chmod +w . +or change output directory. +_EOS_ + exit 1 +end + +__END__ + + +__TITLE__ + + + + + +

__TITLE__

+ + + + diff --git a/yahtml.el b/yahtml.el index 71a7e0a..7d918b8 100644 --- a/yahtml.el +++ b/yahtml.el @@ -1,9 +1,9 @@ ;;; -*- Emacs-Lisp -*- -;;; (c) 1994-2009 by HIROSE Yuuji [yuuji@yatex.org] -;;; Last modified Mon Sep 28 10:45:04 2009 on firestorm +;;; (c) 1994-2012 by HIROSE Yuuji [yuuji(@)yatex.org] +;;; Last modified Thu Jan 12 11:40:53 2012 on firestorm ;;; $Id$ -(defconst yahtml-revision-number "1.72" +(defconst yahtml-revision-number "1.75" "Revision number of running yahtml.el") ;;;[Installation] @@ -14,8 +14,8 @@ ;;; (setq auto-mode-alist ;;; (cons (cons "\\.html$" 'yahtml-mode) auto-mode-alist)) ;;; (autoload 'yahtml-mode "yahtml" "Yet Another HTML mode" t) -;;; (setq yahtml-www-browser "netscape") -;;; ;Write your favorite browser. But netscape is advantageous. +;;; (setq yahtml-www-browser "firefox") +;;; ;Write your favorite browser. But firefox is advantageous. ;;; (setq yahtml-path-url-alist ;;; '(("/home/yuuji/public_html" . "http://www.mynet/~yuuji") ;;; ("/home/staff/yuuji/html" . "http://www.othernet/~yuuji"))) @@ -30,8 +30,8 @@ ;;; (setq auto-mode-alist ;;; (cons (cons "\\.html$" 'yahtml-mode) auto-mode-alist)) ;;; (autoload 'yahtml-mode "yahtml" "Yet Another HTML mode" t) -;;; (setq yahtml-www-browser "netscape") -;;; ;���C�ɓ���̃u���E�U�������ĉ������Bnetscape���֗��ł��B +;;; (setq yahtml-www-browser "firefox") +;;; ;���C�ɓ���̃u���E�U�������ĉ������Bfirefox���֗��ł��B ;;; (setq yahtml-path-url-alist ;;; '(("/home/yuuji/public_html" . "http://www.mynet/~yuuji") ;;; ("/home/staff/yuuji/html" . "http://www.othernet/~yuuji"))) @@ -43,10 +43,12 @@ ;;; AddType "text/html; charset=Shift_JIS" .html (SJIS�̏ꍇ) ;;; AddType "text/html; charset=iso2022-jp" .html (JIS�̏ꍇ) ;;; AddType "text/html; charset=EUC-JP" .html (EUC�̏ꍇ) +;;; AddType "text/html; charset=utf-8" .html (UTF-8�̏ꍇ) ;;; ;;; .htaccess �����Ȃ��ꍇ�� ;;; (setq yahtml-kanji-code 2) -;;; ;HTML�t�@�C���̊����R�[�h��ύX����ꍇ�� 1=SJIS�A2=JIS�A3=EUC +;;; ;HTML�t�@�C���̊����R�[�h��ύX����ꍇ�� +;;; ;1=SJIS�A2=JIS�A3=EUC 4=UTF-8 ;;; ;�Őݒ肵�ĉ������B�f�t�H���g�� 2 �ł��B ;;; ;;; ��K�؂ɏ��������� ~/.emacs �ɑ����ĉ������B @@ -89,7 +91,7 @@ ;;; * [prefix] t p View current html with WWW browser ;;; (To activate this, never fail to set the lisp ;;; variable yahtml-www-browser. Recommended value -;;; is "netscape") +;;; is "firefox") ;;; * [prefix] a YaTeX's accent mark's equivalent of yahtml. ;;; This function can input $lt, $gt or so. ;;; * [prefix] ; Translate chars of `>', `<', `&', and `"' to @@ -139,12 +141,12 @@ ;;; �Q�Ƃ��Ă��郊���N��⊮�@�\���g���Ȃ���ύX�� ;;; ���܂��B ;;; * [prefix] t j �J�����g�t�@�C���ɑ΂��� jweblint ���Ăяo���� -;;; ���B +;;; ���B�t�@�C���擪�t�߂� +;;; +;;; �Ə����Ă����Ƃ��̃R�}���h���Ăт܂��B ;;; * [prefix] t p WWW �u���E�U�ŃJ�����g�t�@�C����\�����܂��B ;;; (lisp�ϐ� yahtml-www-browser �̐ݒ�����Y��� -;;; ���B�����߂� "netscape" �ŁA�˂����̏ꍇ���ɂ˂� -;;; �����N������Ă����ꍇ���̂˂����� Reload ���߂� -;;; ����Ƃ����|�����o���܂�) +;;; ���B�����߂� "firefox" �ł�) ;;; * [prefix] a YaTeX �̃A�N�Z���g�L���⊮�Ɠ����ł��B ;;; < > �������͂ł��܂��B ;;; * [prefix] ; �w�肵�����W�������� > < & " �����ꂼ�� @@ -152,6 +154,13 @@ ;;; * [prefix] : �w�肵�����W�������ŏ�Ƌt�̕ϊ������܂��B ;;; * [prefix] # �w�肵�����W��������%�G���R�[�h�̕K�v�ȕ����� ;;; ����΂������G���R�[�h���܂��B +;;; * [prefix] } ���W�������̓��蕶����؂�̃��R�[�h�� ���т� +;;; �ϊ����܂��BC-u (universal-argument) �t���ŋN�� +;;; �����td�ȊO�̔C�ӗv�f�Ŋ���܂��Bthd���w�肷�� +;;; �ƍŏ���1�‚���th�C�c�肷�ׂĂ�td�Ŋ���܂��B +;;; * [prefix] ] ���W�������̂��ׂĂ̍s���t�B�[���h���Ƃ�td�Ŋ���C +;;; ����Ɋe�s��tr�Ŋ���܂��Buniversal-argument �� +;;; �t����ƃt�B�[���h�����td�ȊO�Ɏw��ł��܂��B ;;; * [prefix] ESC yahtml-mode �𔲂� yahtml-mode �ɓ���O�ɓ��삵 ;;; �Ă������W���[���[�h�ɖ߂�܂��B ;;; @@ -168,7 +177,6 @@ ;;; -;(require 'yatex) (require 'yatexlib) ;;; --- customizable variable starts here --- (defvar yahtml-prefix "\C-c" @@ -235,14 +243,16 @@ (defvar yahtml-use-css t "*Use stylesheet or not") -(defvar yahtml-image-inspection-bytes 50000 ;256 +(defvar yahtml-image-inspection-bytes 500000 "*Number of bytes to inspect the image for geometry information") (defvar yahtml:img-default-alt-format "%xx%y(%sbytes)" "*Default format of img entity's ALT attributes. %x: width, %y: height, %s: size in bytes, %c: first comment string, %f: filename") -(defvar yahtml-faithful-to-htmllint nil) +(defvar yahtml-faithful-to-htmllint yahtml-always-/li + "*Non-nil doesn't put space after opening tags.") + (defvar yahtml-error-line-regexp "^\\(.*\\)(\\([0-9]+\\)):\\|^line \\([0-9]+\\)" "*Regexp of error position which is produced by lint program.") @@ -357,8 +367,7 @@ (yahtml-define-begend-key "bS" "span" map) (yahtml-define-begend-key "bp" "pre" map) (YaTeX-define-key "b " 'yahtml-insert-begend map) - (YaTeX-define-key "B " 'yahtml-insert-begend-region map) - ) + (YaTeX-define-key "B " 'yahtml-insert-begend-region map)) (YaTeX-define-key "e" 'YaTeX-end-environment map) (YaTeX-define-key ">" 'yahtml-comment-region map) (YaTeX-define-key "<" 'yahtml-uncomment-region map) @@ -371,9 +380,10 @@ (YaTeX-define-key ";" 'yahtml-translate-region map) (YaTeX-define-key ":" 'yahtml-translate-reverse-region map) (YaTeX-define-key "#" 'yahtml-escape-chars-region map) + (YaTeX-define-key "}" 'yahtml-td-region map) + (YaTeX-define-key "]" 'yahtml-tr-region map) ;;;;;(YaTeX-define-key "i" 'yahtml-fill-item map) - (YaTeX-define-key "\e" 'yahtml-quit map) - ) + (YaTeX-define-key "\e" 'yahtml-quit map)) (substitute-all-key-definition 'fill-paragraph 'yahtml-fill-paragraph yahtml-mode-map) (substitute-all-key-definition @@ -400,8 +410,8 @@ (make-syntax-table (standard-syntax-table))) (modify-syntax-entry ?\< "(>" yahtml-syntax-table) (modify-syntax-entry ?\> ")<" yahtml-syntax-table) - (modify-syntax-entry ?\n " " yahtml-syntax-table) -) + (modify-syntax-entry ?\n " " yahtml-syntax-table)) + (defvar yahtml-command-regexp "[A-Za-z0-9]+" "Regexp of constituent of html commands.") @@ -420,7 +430,7 @@ ("DefinitionList" . "dl") ("Preformatted" . "pre") ("table") ("thead") ("tbody") ("tfoot") ("tr") ("th") ("td") - ("address") + ("address") ("button") ("h1") ("h2") ("h3") ("h4") ("h5") ("h6") ;; ("p") ;This makes indentation screwed up! ("style") ("script") ("noscript") ("div") ("object") ("ins") ("del") @@ -485,8 +495,6 @@ (defvar yahtml-current-completion-type nil "Has current completion type. This may be used in yahtml addin functions.") -;(defvar yahtml-struct-name-regexp -; "\\<\\(h[1-6]\\|[uod]l\\|html\\|body\\|title\\|head\\|table\\|t[rhd]\\|pre\\|a\\|form\\|select\\|center\\|blockquote\\)\\b") (defvar yahtml-struct-name-regexp (concat "\\<\\(" @@ -541,10 +549,8 @@ (setq ldir dir dir (substring dir 0 (string-match "/$" dir)) dir (file-name-directory dir)))) - line - )) - (t nil)) - ) + line)) + (t nil))) (defun yahtml-dir-default-charset () (let*((fn (file-name-nondirectory (or buffer-file-name ""))) @@ -586,8 +592,7 @@ (setq index-list (cons (substring line 0 x) index-list) line (substring line (match-end 1))) (setq index-list (cons line index-list) - line "")) - ) + line ""))) (or (nreverse index-list) (if (listp yahtml-directory-index) yahtml-directory-index @@ -651,9 +656,7 @@ ;;(font-lock-mode -1) (font-lock-mode 1) ;;Why should I fontify again??? ;; in yatex-mode, there's no need to refontify... - (font-lock-fontify-buffer) - )) - )) + (font-lock-fontify-buffer))))) (set-syntax-table yahtml-syntax-table) (use-local-map yahtml-mode-map) (YaTeX-read-user-completion-table) @@ -754,32 +757,29 @@ (strong "Strong" . (lambda () (interactive) (yahtml-insert-tag nil "STRONG"))) (VAR "Variable notation" . - (lambda () (interactive) (yahtml-insert-tag nil "VAR"))) - ))) + (lambda () (interactive) (yahtml-insert-tag nil "var")))))) (setq yahtml-menu-map-typeface (make-sparse-keymap "typeface tags")) (YaTeX-define-menu 'yahtml-menu-map-typeface (nreverse '((b "Bold" . - (lambda () (interactive) (yahtml-insert-tag nil "B"))) + (lambda () (interactive) (yahtml-insert-tag nil "b"))) (i "Italic" . - (lambda () (interactive) (yahtml-insert-tag nil "I"))) + (lambda () (interactive) (yahtml-insert-tag nil "i"))) (tt "Typewriter" . - (lambda () (interactive) (yahtml-insert-tag nil "TT"))) + (lambda () (interactive) (yahtml-insert-tag nil "tt"))) (u "Underlined" . - (lambda () (interactive) (yahtml-insert-tag nil "U"))) - ))) + (lambda () (interactive) (yahtml-insert-tag nil "u")))))) (setq yahtml-menu-map-listing (make-sparse-keymap "listing")) (YaTeX-define-menu 'yahtml-menu-map-listing (nreverse '((ul "Unordered" . - (lambda () (interactive) (yahtml-insert-begend nil "UL"))) + (lambda () (interactive) (yahtml-insert-begend nil "ul"))) (ol "Ordered" . - (lambda () (interactive) (yahtml-insert-begend nil "OL"))) + (lambda () (interactive) (yahtml-insert-begend nil "ol"))) (dl "Definition" . - (lambda () (interactive) (yahtml-insert-begend nil "DL"))) - ))) + (lambda () (interactive) (yahtml-insert-begend nil "dl")))))) (setq yahtml-menu-map-item (make-sparse-keymap "item")) (YaTeX-define-menu 'yahtml-menu-map-item @@ -789,8 +789,7 @@ (dt "Define term" . (lambda () (interactive) (yahtml-insert-single "dt"))) (dd "Description of term" . - (lambda () (interactive) (yahtml-insert-single "dd"))) - ))) + (lambda () (interactive) (yahtml-insert-single "dd")))))) (define-key yahtml-mode-map [menu-bar yahtml] (cons "yahtml" yahtml-menu-map)) (YaTeX-define-menu @@ -806,16 +805,14 @@ (cons (list 'logi "Logical tags") (cons "logical" yahtml-menu-map-logical)) (cons (list 'type "Typeface tags") - (cons "typeface" yahtml-menu-map-typeface)) - ))) + (cons "typeface" yahtml-menu-map-typeface))))) (if (featurep 'xemacs) (add-hook 'yahtml-mode-hook '(lambda () (or (assoc "yahtml" current-menubar) (progn (set-buffer-menubar (copy-sequence current-menubar)) - (add-submenu nil yahtml-menu-map)))))) - )) + (add-submenu nil yahtml-menu-map)))))))) ;;; ----------- Completion ---------- (defvar yahtml-last-begend "html") @@ -837,7 +834,7 @@ (or (cdr (assoc yahtml-last-begend yahtml-env-table)) yahtml-last-begend)) (setq cmd yahtml-last-begend) - (if yahtml-prefer-upcases (setq cmd (upcase cmd))) + (setq cmd (funcall (if yahtml-prefer-upcases 'upcase 'downcase) cmd)) (if region ;; We want to keep region effective for new tagged environment ;; to enable continuous regioning by another environment @@ -896,6 +893,25 @@ "class(or class list delimited by \\[quoted-insert] SPC): ")) nil YaTeX-minibuffer-completion-map nil))) +(defvar yahtml-newpage-command "newpage.rb" + "*Command name to create new HTML file referring to index.html. +This command should create new HTML file named argument 1 and +output string like `anchor tag'. +This program should take -o option to overwrite existing HTML file.") +(defun yahtml-newpage (file ov) + "Create newpage via newpage script" + (interactive + (list + (let (insert-default-directory) + (read-file-name "New webpage file name: " "")) + current-prefix-arg)) + (if (and (file-exists-p file) (not ov)) + (error "%s already exists. Call this with universal argument to force overwrite." file)) + (insert (substring + (YaTeX-command-to-string + (concat yahtml-newpage-command " " (if ov "-o ") file)) + 0 -1))) + ;;; ---------- Add-in ---------- (defun yahtml-addin (form) "Check add-in function's existence and call it if exists." @@ -904,6 +920,7 @@ (and (setq a (yahtml-css-get-element-completion-alist form)) (not (equal last-command-char ?\C-j)) (memq yahtml-current-completion-type '(multiline inline)) + (not (string-match "#" form)) (yahtml-make-optional-argument ;should be made generic? "class" (yahtml-read-css a))) (if (and (intern-soft addin) (fboundp (intern-soft addin)) @@ -937,16 +954,14 @@ (setq list (cons (list (concat "#" (YaTeX-match-string 1))) list)))) - list))) - ) + list)))) (defvar yahtml-url-completion-map nil "Key map used in URL completion buffer") (if yahtml-url-completion-map nil (setq yahtml-url-completion-map (copy-keymap minibuffer-local-completion-map)) (define-key yahtml-url-completion-map "\t" 'yahtml-complete-url) - (define-key yahtml-url-completion-map " " 'yahtml-complete-url) -) + (define-key yahtml-url-completion-map " " 'yahtml-complete-url)) (defun yahtml-complete-url () "Complete external URL from history or local file name." @@ -1007,8 +1022,8 @@ ; ; Subject: [yatex:02849] Re: [yahtml] tilda in href tag -; From: Masayasu Ishikawa -; To: yatex@arcadia.jaist.ac.jp +; From: Masayasu Ishikawa sfc.keio.ac.jp> +; To: yatexarcadia.jaist.ac.jp ; Date: Mon, 31 May 1999 21:09:31 +0900 ; RFC 2396 �� "2.4.3. Excluded US-ASCII Characters" �ɂ��ƁA�ȉ��̕��� ; �͕K���G�X�P�[�v���Ȃ��Ƃ����܂���B @@ -1049,6 +1064,21 @@ (setq str (substring str (1+ p)))) (concat target str))))) +(defun yahtml-unescape-string (str) + "Untranslate reserved URL-encoded string." + (let ((p 0) c (target "") (md (match-data)) (case-fold-search nil)) + (unwind-protect + (progn + (while (string-match "%\\([0-9a-f][0-9a-f]\\)" str p) + (setq target (concat target + (substring str p (1- (match-beginning 1)))) + p (match-end 0) + c (YaTeX-hex (substring + str (match-beginning 1) (match-end 1))) + target (concat target (format "%c" c)))) + (concat target (substring str p))) + (store-match-data md)))) + (defun yahtml-escape-chars-region (beg end) "Translate reserved chars to encoded string in the region." (interactive "r") @@ -1094,8 +1124,7 @@ (null (assoc href yahtml-urls-local))) (YaTeX-update-table (list href) - 'yahtml-urls-private 'yahtml-urls-private 'yahtml-urls-local)) - ))) + 'yahtml-urls-private 'yahtml-urls-private 'yahtml-urls-local))))) (defvar yahtml-parameters-completion-alist '(("align" ("top") ("middle") ("bottom") ("left") ("right") ("center")) @@ -1135,6 +1164,10 @@ ((eq alist 'file) (let ((insert-default-directory)) (read-file-name prompt "" default nil ""))) + ((eq alist 'command) + (if (fboundp 'read-shell-command) + (read-shell-command prompt) + (read-string prompt))) ((and alist (symbolp alist)) (completing-read prompt (symbol-value alist) nil nil default)) (alist @@ -1340,8 +1373,7 @@ height (yahtml-hex-value 22 4 t))) (t (setq width (yahtml-hex-value 18 2 t) - height (yahtml-hex-value 20 2 t))))) - )) + height (yahtml-hex-value 20 2 t))))))) (message "") (kill-buffer tmpbuf)) (list width height bytes depth (nreverse comment))))) @@ -1349,11 +1381,16 @@ (defun yahtml:form () "Add-in function `form' input format" (concat - " " (if yahtml-prefer-upcase-attributes "METHOD" "method") "=" + " " (if yahtml-prefer-upcase-attributes "METHOD" "method") "=\"" (completing-read "Method: " '(("POST") ("GET")) nil t) + "\"" + (yahtml-make-optional-argument + (if yahtml-prefer-upcase-attributes "ENCTYPE" "enctype") + (completing-read + "Enctype: " + '(("application/x-www-form-urlencoded") ("multipart/form-data")))) " " (if yahtml-prefer-upcase-attributes "ACTION" "action") "=\"" - (read-string "Action: ") "\"" - )) + (read-string "Action: ") "\"")) (defun yahtml:select () "Add-in function for `select' input format" @@ -1402,8 +1439,7 @@ (yahtml-make-optional-argument "type" type) (yahtml-make-optional-argument "value" value) (yahtml-make-optional-argument "size" size) - (yahtml-make-optional-argument "maxlength" maxlength) - ))) + (yahtml-make-optional-argument "maxlength" maxlength)))) (defun yahtml:textarea () "Add-in function for `textarea'" @@ -1515,8 +1551,8 @@ (yahtml-make-optional-argument "type" (yahtml-read-parameter "type" "text/css")) (yahtml-make-optional-argument - "href" (read-from-minibuffer "href: " "" yahtml-url-completion-map)) - ))))) + "href" + (read-from-minibuffer "href: " "" yahtml-url-completion-map))))))) (defvar yahtml:meta-names '(("name" ("keywords")("author")("copyright")("date")("GENERATOR")))) @@ -1577,16 +1613,24 @@ (yahtml-make-optional-argument "height" (yahtml-read-parameter "height")) (yahtml-make-optional-argument - "align" (yahtml-read-parameter "align")) - )) + "align" (yahtml-read-parameter "align")))) (t - "" - )))) + "")))) (defun yahtml:abbr () "Add-in function for abbr." (yahtml-make-optional-argument "title" (yahtml-read-parameter "title"))) +(defun yahtml:button () + (concat + (yahtml-make-optional-argument + "name" (yahtml-read-parameter "name")) + (yahtml-make-optional-argument + "type" (yahtml-read-parameter + "type" "button" '(("submit")("reset")("button")))) + (yahtml-make-optional-argument + "value" (yahtml-read-parameter "value")))) + ;;; ---------- Simple tag ---------- (defun yahtml-insert-tag (region-mode &optional tag) "Insert and put cursor inside of them." @@ -1620,7 +1664,6 @@ (interactive) (yahtml-insert-tag t tag)) - (defvar yahtml-need-single-closer nil) ;for test (defun yahtml-insert-single (cmd) "Insert ." @@ -1681,7 +1724,8 @@ (format "%s=\"%s\"--" (if (string-match "/" file) "virtual" "file") file))) (defun yahtml:!--\#exec () - (format "cmd=\"%s\"--" (yahtml-read-parameter "cmd" "" '(("cmd" . file))))) + (format "cmd=\"%s\"--" + (yahtml-read-parameter "cmd" "" '(("cmd" . command))))) ;;; ---------- Jump ---------- (defun yahtml-on-href-p () @@ -1701,8 +1745,7 @@ (skip-chars-forward " \t\n") (looking-at "\"?\\([^\"> \t\n]+\\)\"?")) (< p (match-end 0)) - (YaTeX-match-string 1) - )))) + (yahtml-unescape-string (YaTeX-match-string 1)))))) (defun yahtml-netscape-sentinel (proc mes) (cond @@ -1813,8 +1856,7 @@ (if (and (re-search-backward "<" nil t) (looking-at ;(concat "<\\(/?" yahtml-struct-name-regexp "\\)\\b") - "<\\(/?[A-Z][A-Z0-9]*\\)\\b" - ) + "<\\(/?[A-Z][A-Z0-9]*\\)\\b") (condition-case nil (forward-list 1) (error nil)) @@ -1881,7 +1923,8 @@ (let ((tag (yahtml-current-tag)) image (p (point)) (case-fold-search t)) (if (and tag (string-match "img" tag) - (setq image (yahtml-get-attrvalue "src"))) + (setq image + (yahtml-unescape-string (yahtml-get-attrvalue "src")))) (progn (message "Invoking %s %s..." yahtml-image-viewer image) (start-process @@ -1895,7 +1938,7 @@ (let ((env (yahtml-current-tag)) s (p (point))) (cond ((string-match "applet" env) - (if (setq s (yahtml-get-attrvalue "code")) + (if (setq s (yahtml-unescape-string (yahtml-get-attrvalue "code"))) (progn (setq s (YaTeX-match-string 1) s (concat @@ -1947,8 +1990,7 @@ ((yahtml-goto-corresponding-img)) ((yahtml-goto-corresponding-source other)) ((yahtml-goto-corresponding-begend)) - (t (message "I don't know where to go.")) - )) + (t (message "I don't know where to go.")))) (defun yahtml-goto-corresponding-*-other-window () "Go to corresponding object." @@ -2012,8 +2054,7 @@ "Kill current position's HTML tag (set)." (interactive "P") (cond - ((yahtml-kill-begend whole)) - )) + ((yahtml-kill-begend whole)))) ;;; ---------- changing ---------- @@ -2161,8 +2202,7 @@ (interactive) (cond ((yahtml-change-begend)) - ((yahtml-change-command)) - )) + ((yahtml-change-command)))) ;;; ---------- commenting ---------- @@ -2184,7 +2224,7 @@ (beginning-of-line) (forward-line 1)) (set-marker e (point)) - ;(comment-region beg (point) (if uncom (list 4))) + ;(comment-region beg (point) (if uncom (list 4))))) )) (t ;(comment-region (region-beginning) (region-end) (if uncom (list 4))) (setq beg (region-beginning)) @@ -2277,6 +2317,92 @@ (goto-char (get 'YaTeX-inner-environment 'point)))) e)) +(defun yahtml-untranslate-string (str) + "Untranslate entity reference." + (let ((md (match-data)) (left "") (right str) b0 ch + (ct (append yahtml-entity-reference-chars-alist + yahtml-entity-reference-chars-alist-default)) + (revrex yahtml-entity-reference-chars-reverse-regexp)) + (unwind-protect + (progn + (while (string< "" right) + (cond + ((string-match revrex right) + (setq ch (YaTeX-rassoc + (substring right (match-beginning 1) (match-end 1))) + b0 (substring right 0 (match-beginning 0)) + right (substring right (match-end 0)) + left (concat left + (substring right 0 (match-beginning 0)) + (char-to-string ch)))) + ((string-match "\\&#\\(x\\)?\\([0-9a-f]+\\);" right) + (setq ch (substring right (match-beginning 2) (match-end 2)) + b0 (substring right 0 (match-beginning 0)) + right (substring right (match-end 0)) + left (concat left + b0 + (char-to-string + (if (match-beginning 1) + (YaTeX-hex ch) + (string-to-number ch)))))) + (t (setq left (concat left right) + right "")))) + left) + (store-match-data md)))) + +;;; ---------- table-ize region ---------- +(defun yahtml-td-region (e delim beg end) + "Enclose each item in a region with ... +Interactive prefix argument consults enclosing element other than td." + (interactive "P\nsDelimiter(s): \nr") + (let ((e (cond + ((null e) "td") + ((stringp e) e) + (t (read-string "Enclose with(`thd' means th td td..): " "th")))) + (ws "[ \t]") + elm p i) + (if (string= delim "") (setq delim " \t\n")) + (setq delim (concat "[" delim "]+") + elm (if (string= "thd" e) + (cons "th" "td") + (cons e e))) + (save-excursion + (save-restriction + (narrow-to-region beg end) + (goto-char (setq p (point-min))) + (setq i 0 e (car elm)) + (while (re-search-forward delim nil t) + (setq e (if (= (setq i (1+ i)) 1) (car elm) (cdr elm))) + (goto-char (match-beginning 0)) + (insert "") + (save-excursion + (goto-char p) + (insert "<" e ">")) + (setq p (point)) + (while (and (not (eobp)) (looking-at ws)) + (delete-char 1)) + (if (looking-at delim) (delete-char 1))) + (insert "<" e ">") + (goto-char (point-max)) + (insert ""))))) + +(defun yahtml-tr-region (e delim beg end) + "Enclose lines in a form tab-sv/csv with ..." + (interactive "P\nsDelimiter(s): \nr") + (setq e (if (and e (listp e)) + (read-string "Enclose with(td or th, `thd' -> th td td td...: " + "th"))) + (save-excursion + (save-restriction + (narrow-to-region (point) (mark)) + (goto-char (point-min)) + (while (not (eobp)) + (insert "") + (yahtml-td-region e delim (point) (point-end-of-line)) + (end-of-line) + (insert "") + (forward-line 1))))) + ;;; ---------- filling ---------- (defvar yahtml-saved-move-to-column (symbol-function 'move-to-column)) (defun yahtml-move-to-column (col &optional force) @@ -2385,11 +2511,11 @@ (yahtml-indent-line-real)))) (defun yahtml-this-indent () - (let ((envs "[uod]l\\|table\\|[ht][rhd0-6]\\|select\\|blockquote\\|center\\|menu\\|dir\\|font") - (itemizing-envs "^\\([uod]l\\|menu\\|dir\\)$") + (let ((envs "[uod]l\\|table\\|[ht][rhd0-6]\\|select\\|blockquote\\|center\\|menu\\|dir\\|d[td]\\|li") + (itemizing-envs "^\\([uod]l\\|menu\\|dir\\|li\\|d[td]\\)$") (itms "<\\(dt\\|dd\\|li\\|t[rdh]\\|option\\)\\b") (excludes - "\\(a\\|p\\|span\\|code\\|tt\\|em\\|u\\|i\\|big\\|small\\|font\\)\\b") + "\\b\\(a\\|p\\|span\\|code\\|tt\\|em\\|u\\|i\\|big\\|small\\|font\\)\\b") inenv p col peol (case-fold-search t)) (save-excursion (beginning-of-line) @@ -2483,9 +2609,9 @@ ;;; ---------- Lint and Browsing ---------- ;;; (defun yahtml-browse-menu () - "Browsing menu" + "Browsing or other external process invokation menu." (interactive) - (message "J)weblint p)Browse R)eload...") + (message "J)weblint p)Browse R)eload N)ewpage...") (let ((c (char-to-string (read-char)))) (cond ((string-match "j" c) @@ -2493,7 +2619,9 @@ ((string-match "[bp]" c) (yahtml-browse-current-file)) ((string-match "r" c) - (yahtml-browse-reload))))) + (yahtml-browse-reload)) + ((string-match "n" c) + (call-interactively 'yahtml-newpage))))) (if (fboundp 'wrap-function-to-control-ime) (wrap-function-to-control-ime 'yahtml-browse-menu t nil)) @@ -2506,10 +2634,12 @@ (interactive "bCall lint on buffer: ") (setq buf (get-buffer buf)) (YaTeX-save-buffers) - (YaTeX-typeset - (concat yahtml-lint-program " " - (file-name-nondirectory (buffer-file-name buf))) - yahtml-lint-buffer "lint" "lint")) + (let ((bcmd (YaTeX-get-builtin "lint"))) + (and bcmd (setq bcmd (yahtml-untranslate-string bcmd))) + (YaTeX-typeset + (concat (or bcmd yahtml-lint-program) + " " (file-name-nondirectory (buffer-file-name buf))) + yahtml-lint-buffer "lint" "lint"))) (defun yahtml-file-to-url (file) "Convert local unix file name to URL. @@ -2572,7 +2702,7 @@ (yahtml-browse-html (yahtml-file-to-url (buffer-file-name)))) (defun yahtml-browse-reload () - "Send `reload' event to netzscape." + "Send `reload' event to netscape." (let ((pb "* WWW Browser *") (cb (current-buffer))) (cond ((string-match "[Nn]etscape" yahtml-www-browser) @@ -2632,7 +2762,8 @@ (yahtml-insert-single "dt") (or yahtml-always-/dt yahtml-faithful-to-htmllint (insert " ")) (setq yahtml-last-single-cmd "dd"))) - (insert (if yahtml-prefer-upcases "
" "
")) + (yahtml-insert-single "dt") + (or yahtml-always-/li yahtml-faithful-to-htmllint (insert " ")) (setq yahtml-last-single-cmd "dd")) (yahtml-indent-line) (and (string-match yahtml-p-prefered-env-regexp "dl") @@ -2714,7 +2845,7 @@ (cond ((and (> cols 0) (memq (read-char) '(?d ?D))) ;Duplication mode - (setq line (YaTeX-buffer-substring (point) cp))) + (setq line (YaTeX-buffer-substring (point) (1- cp)))) (t ;empty cells (setq line "" i 0) (if (> cols 0) @@ -2828,7 +2959,7 @@ (setcdr a (cons (list class) (cdr a)))) (setq alist (cons (list element (list class)) alist)))) (goto-char (1- e)) - (search-forward "}" nil t) + (search-forward "}" nil 1) ;1=move to limit when not found. (setq b (point)))) alist)))) @@ -2987,17 +3118,6 @@ (font-lock-mode -1) ;is stupid, but sure. (font-lock-mode 1)) -;; (defun yahtml-fontify-to-tagend (lim) -;; "*Fontify any tag including < and >. -;; This is invalid use of font-lock function. Therefore -;; this fontifying will loose effectiveness soon or later." -;; (let ((start (match-beginning 0)) -;; (end (progn (skip-chars-forward "^>") (1+ (point))))) -;; (or nil; (font-lock-any-faces-p start end) -;; (font-lock-fillin-text-property -;; start end 'face 'font-lock font-lock-keyword-face))) -;; nil) - (run-hooks 'yahtml-load-hook) (provide 'yahtml) diff --git a/yatex.el b/yatex.el index 6ee41cb..0d0fe82 100644 --- a/yatex.el +++ b/yatex.el @@ -1,15 +1,15 @@ ;;; -*- Emacs-Lisp -*- ;;; Yet Another tex-mode for emacs - //�쒹// -;;; yatex.el rev. 1.74 -;;; (c)1991-2009 by HIROSE Yuuji.[yuuji@yatex.org] -;;; Last modified Mon Sep 28 10:44:35 2009 on firestorm +;;; yatex.el rev. 1.75 +;;; (c)1991-2012 by HIROSE Yuuji.[yuuji@yatex.org] +;;; Last modified Thu Jan 12 11:40:38 2012 on firestorm ;;; $Id$ ;;; The latest version of this software is always available at; ;;; http://www.yatex.org/ (require 'comment) (require 'yatexlib) -(defconst YaTeX-revision-number "1.74" +(defconst YaTeX-revision-number "1.75" "Revision number of running yatex.el") ;---------- Local variables ---------- @@ -82,6 +82,10 @@ (if YaTeX-dos "%e" "-t %e") "*`To' page format of dvi filter. %e will turn to end page number.") +(defvar YaTeX-dvipdf-command + "dvipdfmx" + "*Command name to convert dvi file to PDF.") + (defvar YaTeX-default-document-style (concat (if YaTeX-japan "j") "article") "*Default LaTeX Documentstyle for YaTeX-typeset-region.") @@ -147,7 +151,7 @@ for YaTeX-uncomment-paragraph.") (defvar YaTeX-verbatim-environments - '("verbatim" "verbatim*") + '("verbatim" "verbatim*" "alltt") "*Assume these environments of this variable disable LaTeX commands.") (defvar YaTeX-verb-regexp "verb\\*?\\|path" "*Regexp of verb family. Do not contain preceding \\\\ nor \\(\\).") @@ -363,7 +367,7 @@ (defvar singlecmd-table (append - '(("maketitle") ("makeindex") ("sloppy") ("protect") + '(("maketitle") ("makeindex") ("sloppy") ("protect") ("par") ("LaTeX") ("TeX") ("item") ("item[]") ("appendix") ("hline") ("kill") ;;("rightarrow") ("Rightarrow") ("leftarrow") ("Leftarrow") ("pagebreak") ("nopagebreak") ("tableofcontents") @@ -455,8 +459,9 @@ (YaTeX-define-key ")" 'YaTeX-insert-parens-region) (YaTeX-define-key "$" 'YaTeX-insert-dollars-region) (YaTeX-define-key "i" 'YaTeX-fill-item) - (YaTeX-define-key - "\\" '(lambda () (interactive) (insert "$\\backslash$"))) + (YaTeX-define-key "\\" + '(lambda () (interactive) + (insert (if (YaTeX-in-math-mode-p) "\\backslash" "\\textbackslash")))) (if YaTeX-no-begend-shortcut (progn (YaTeX-define-key "B" 'YaTeX-make-begin-end-region) @@ -505,7 +510,7 @@ (if YaTeX-dos (define-key YaTeX-prefix-map "\C-r" '(lambda () (interactive) - (set-screen-height YaTeX-saved-screen-height) (recenter))))) + (YaTeX-set-screen-height YaTeX-saved-screen-height) (recenter))))) (defvar YaTeX-section-completion-map nil "*Key map used at YaTeX completion in the minibuffer.") @@ -687,7 +692,7 @@ )) (use-local-map YaTeX-mode-map) (set-syntax-table YaTeX-mode-syntax-table) - (if YaTeX-dos (setq YaTeX-saved-screen-height (screen-height))) + (if YaTeX-dos (setq YaTeX-saved-screen-height (YaTeX-screen-height))) (YaTeX-read-user-completion-table) (and (fboundp 'YaTeX-hilit-setup-alist) (YaTeX-hilit-setup-alist)) (makunbound 'inenv) @@ -746,6 +751,7 @@ (autoload 'YaTeX-goto-open-paren "yatexmth" "Goto opening paren" t) (autoload 'YaTeX-change-parentheses "yatexmth" "Change corresponding parens" t) (autoload 'YaTeX-goto-corresponding-paren "yatexmth" "\bigl\bigr jumps" t) +(autoload 'YaTeX-typeset-math-region "yatexmth" "Typeset math-region" t) ;;autoload from yatexhlp.el (autoload 'YaTeX-help "yatexhlp" "YaTeX helper with LaTeX commands." t) @@ -823,7 +829,15 @@ (insert "\n") (or exchange (exchange-point-and-mark))) (goto-char beg2) - (YaTeX-intelligent-newline nil) + (if (intern-soft (concat "YaTeX-intelligent-newline-" env)) + (progn + (YaTeX-intelligent-newline nil) + (message + (cond + (YaTeX-japan "%s �Ŏ��̍s�̓��͂ɐi�݂܂��B") + (t "`%s' produces the next line's template.")) + (key-description + (car (where-is-internal 'YaTeX-intelligent-newline)))))) (YaTeX-indent-line)) (YaTeX-package-auto-usepackage env 'env) (if YaTeX-current-position-register @@ -977,9 +991,11 @@ 'section-table 'user-section-table 'tmp-section-table) (if YaTeX-current-position-register (point-to-register YaTeX-current-position-register)) - (if (string= (buffer-substring (- (point) 2) (point)) "{}") - (forward-char -1)) - (while (string= (buffer-substring (- (point) 3) (1- (point))) "{}") + (if (string= (YaTeX-buffer-substring (- (point) 2) (point)) + "{}") + (forward-char -1)) + (while (string= (YaTeX-buffer-substring (- (point) 3) (1- (point))) + "{}") (forward-char -2)) (YaTeX-package-auto-usepackage section 'section)) (if (<= (minibuffer-depth) 0) (use-global-map global-map)) @@ -1100,7 +1116,7 @@ (t (mapcar 'YaTeX-sync-local-table '(tmp-section-table tmp-env-table tmp-singlecmd-table)) - (let*((pattern (buffer-substring begin end)) + (let*((pattern (YaTeX-buffer-substring begin end)) (all-table (append section-table user-section-table tmp-section-table @@ -1114,8 +1130,9 @@ ;; Next, ;; search completion with backslash (setq completion - (try-completion (buffer-substring (1- begin) end) - all-table nil) + (try-completion + (YaTeX-buffer-substring (1- begin) end) + all-table nil) begin (1- begin))) (cond ((null completion) @@ -1189,13 +1206,51 @@ (interactive "r") (save-excursion (goto-char end) - (insert (or close "}")) + (YaTeX-insert-inherit (or close "}")) (goto-char beg) - (insert (or open "{")))) + (YaTeX-insert-inherit (or open "{")))) + +(defun YaTeX-get-macro-at-point (&optional p) + "Get (La)TeX macro around point P." + (interactive "d") + (save-excursion + (goto-char (setq p (or p (point)))) + (let ((token (substring (substring YaTeX-TeX-token-regexp 1) 0 -2)) + bsend) + (and (not (bobp)) + (or (looking-at YaTeX-TeX-token-regexp) + (string-match + YaTeX-TeX-token-regexp (char-to-string (preceding-char)))) + (progn + (skip-chars-backward token) + (equal (preceding-char) ?\\)) + (save-excursion + (setq bsend (point)) + (skip-chars-backward "\\\\") ;emacs18 doesn't return distance + (/= (% (- bsend (point)) 2) 0)) ;consider \\ + (looking-at YaTeX-TeX-token-regexp) + (YaTeX-match-string 0))))) (defun YaTeX-insert-braces (arg &optional open close) (interactive "p") - (let (env) + (let ((begend-guide + (function + (lambda () + (if (equal (get 'YaTeX-insert-braces 'begend-guide) 2) + nil ;if triggered thrice, do nothing + (momentary-string-display + (format + (cond + (YaTeX-japan "begin/end���͂ɂ� %s ���g���܂��傤") + (t "You don't understand Zen of `%s'!")) + (key-description + (car (where-is-internal 'YaTeX-make-begin-end)))) + (point)) + (put 'YaTeX-insert-braces 'begend-guide + (+ 1 (string-to-int ;increment counter of beg-end guidance + (prin1-to-string + (get 'YaTeX-insert-braces 'begend-guide))))))))) + env macro not-literal b e) (cond ((YaTeX-jmode) (YaTeX-self-insert arg)) ((not (YaTeX-closable-p)) (YaTeX-self-insert arg)) @@ -1205,7 +1260,7 @@ (looking-at "\\\\left\\\\")) (insert "{\\right\\}") (forward-char -8)) - ((save-excursion ;from matsu@math.s.chiba-u.ac.jp + ((save-excursion ;from matsumath.s.chiba-u.ac.jp (and (> (- (point) (point-min)) 6) (forward-char -6)) (looking-at "\\\\[bB]igl\\\\")) (insert @@ -1223,49 +1278,93 @@ ((= (preceding-char) ?\\ ) (insert "{\\}") (forward-char -2)) ;matsu's hack ends here - ((and (> (point) (+ (point-min) 4)) - (save-excursion (backward-char 4) (looking-at "\\\\end")) - (not (YaTeX-literal-p)) + ((and (setq not-literal (not (YaTeX-literal-p))) + (equal "end" (setq macro (YaTeX-get-macro-at-point))) (setq env (YaTeX-inner-environment))) - (momentary-string-display - (concat - "{" - (cond - (YaTeX-japan - (format "���x����͂����� %s b ���g���܂��傤" YaTeX-prefix)) - (t (format "You don't understand Zen of `%s b':p" YaTeX-prefix))) - "}") - (point)) - (insert (or open "{") env (or close "}"))) + (funcall begend-guide) + (insert "{" env "}")) + ((and not-literal (equal "begin" macro)) + (insert "{") + (save-excursion + (indent-to (prog1 (- (current-column) 7) (insert "}\n"))) + (insert "\\end{}") + (setq e (point))) + (setq env + (YaTeX-read-environment + (format "Begin environment(default %s): " YaTeX-env-name))) + (if (string= "" env) (setq env YaTeX-env-name)) + (setq YaTeX-env-name env) + (funcall begend-guide) + (delete-region (- (point) 7) e) + (YaTeX-insert-begin-end env nil)) (t (insert (or open "{") (or close "}")) (forward-char -1) - (if (and (eq (char-after (point)) ?\}) + (if (and (eq (char-after (point)) ?\}) ;; the case `\\{}' (eq (char-after (- (point) 2)) ?\\ )) (progn (insert "\\") (forward-char -1))) )))) (defun YaTeX-jmode () (or (and (boundp 'canna:*japanese-mode*) canna:*japanese-mode*) - (and (boundp 'egg:*mode-on*) egg:*mode-on* egg:*input-mode*))) + (and (boundp 'egg:*mode-on*) egg:*mode-on* egg:*input-mode*) + (and (boundp 'skk-mode) skk-mode (not skk-latin-mode)) + (and (boundp 'default-input-method) default-input-method + current-input-method))) (defun YaTeX-jmode-off () + (if (cond + ((and (boundp 'canna:*japanese-mode*) canna:*japanese-mode*) + (canna-toggle-japanese-mode) t) + ((and (boundp 'egg:*mode-on*) egg:*mode-on* egg:*input-mode*) + (egg:toggle-egg-mode-on-off) t) + ((and (fboundp 'skk-mode) (boundp 'skk-mode) skk-mode) + (cond + ((fboundp 'skk-latin-mode) + (or (and (boundp 'skk-henkan-mode) skk-henkan-mode) + (and (boundp 'skk-henkan-on) + (or skk-henkan-mode skk-henkan-active)) + (and (boundp 'j-henkan-on) + (or j-henkan-on j-henkan-active)) + ;; Deactivate jmode if henkan-mode is not running. + ;; Suggested by tt.tetsuo.tsukamoto. + (progn + (put 'YaTeX-jmode-on 'skkkata skk-katakana) + (skk-latin-mode t)))) + ((fboundp 'skk-mode-off) (skk-mode-off)) + (t (j-mode-off))) + t) + ((and (fboundp 'toggle-input-method) current-input-method) + (toggle-input-method) t) + ((and (fboundp 'fep-force-off) (fep-force-off)))) + (put 'YaTeX-jmode 'jmode t))) + +(defun YaTeX-jmode-on () (cond - ((and (boundp 'canna:*japanese-mode*) canna:*japanese-mode*) - (canna-toggle-japanese-mode)) - ((and (boundp 'egg:*mode-on*) egg:*mode-on* egg:*input-mode*) - (egg:toggle-egg-mode-on-off)) - ((and (fboundp 'skk-mode) (boundp 'skk-mode) skk-mode) - (cond - ((fboundp 'skk-latin-mode) (skk-latin-mode t)) - ((fboundp 'skk-mode-off) (skk-mode-off)) - (t (j-mode-off)))) - ((and (fboundp 'toggle-input-method) current-input-method) - (toggle-input-method)) - ((and (fboundp 'fep-force-off) (fep-force-off))))) + ((boundp 'canna:*japanese-mode*) + (if (not canna:*japanese-mode*) (canna-toggle-japanese-mode))) + ((boundp 'egg:*mode-on*) + (and (not egg:*mode-on*) (not egg:*input-mode*) + (egg:toggle-egg-mode-on-off))) + ((and (fboundp 'skk-mode) (boundp 'skk-mode)) + (if (get 'YaTeX-jmode-on 'skkkata) + (skk-j-mode-on t) + (skk-mode 1)) + (put 'YaTeX-jmode-on 'skkkata nil)) + ((fboundp 'toggle-input-method) + (if (not current-input-method) (toggle-input-method))) + ((and (fboundp 'fep-force-on) (fep-force-on))))) + +(defun YaTeX-jmode-back () + (if (get 'YaTeX-jmode 'jmode) + (YaTeX-jmode-on)) + (setplist 'YaTeX-jmode nil)) (defun YaTeX-self-insert (arg) (call-interactively (global-key-binding (char-to-string last-command-char)))) +(defun YaTeX-insert-inherit (&rest args) + (apply (if (fboundp 'insert-and-inherit) 'insert-and-inherit 'insert) + args)) (defun YaTeX-insert-brackets (arg) "Insert Kagi-kakko or \\ [ \\] pair or simply \[." @@ -1278,35 +1377,35 @@ ((save-excursion (and (> (- (point) (point-min)) 5) (forward-char -5)) (looking-at "\\\\left")) - (insert "[\\right]") + (YaTeX-insert-inherit "[\\right]") (forward-char -7)) - ((save-excursion ;from matsu@math.s.chiba-u.ac.jp + ((save-excursion ;from matsumath.s.chiba-u.ac.jp (and (> (- (point) (point-min)) 5) (forward-char -5)) (looking-at "\\\\[bB]igl")) - (insert + (YaTeX-insert-inherit (concat "[" (buffer-substring (match-beginning 0) (- (match-end 0) 1)) "r]")) (forward-char -6)) ((save-excursion (and (> (- (point) (point-min)) 6) (forward-char -6)) (looking-at "\\\\[bB]iggl")) - (insert + (YaTeX-insert-inherit (concat "[" (buffer-substring (match-beginning 0) (- (match-end 0) 1)) "r]")) (forward-char -7)) ;matsu's hack ends here ((and (= (preceding-char) ?\\ ) (/= (char-after (- (point) 2)) ?\\ ) (not (YaTeX-in-math-mode-p))) - (insert last-command-char "\n") + (YaTeX-insert-inherit last-command-char "\n") (indent-to (max 0 col)) - (insert "\\]") + (YaTeX-insert-inherit "\\]") (beginning-of-line) (open-line 1) (delete-region (point) (progn (beginning-of-line) (point))) (indent-to (+ YaTeX-environment-indent (max 0 col))) (or YaTeX-auto-math-mode YaTeX-math-mode (YaTeX-toggle-math-mode 1))) ((YaTeX-closable-p) - (insert "[]") + (YaTeX-insert-inherit "[]") (backward-char 1)) (t (YaTeX-self-insert arg))))) @@ -1323,27 +1422,27 @@ ((save-excursion (and (> (- (point) (point-min)) 5) (forward-char -5)) (looking-at "\\\\left")) - (insert "(\\right)") + (YaTeX-insert-inherit "(\\right)") (forward-char -7)) - ((save-excursion ;from matsu@math.s.chiba-u.ac.jp + ((save-excursion ;from matsumath.s.chiba-u.ac.jp (and (> (- (point) (point-min)) 5) (forward-char -5)) (looking-at "\\\\[bB]igl")) - (insert + (YaTeX-insert-inherit (concat "(" (buffer-substring (match-beginning 0) (- (match-end 0) 1)) "r)")) (forward-char -6)) ((save-excursion (and (> (- (point) (point-min)) 6) (forward-char -6)) (looking-at "\\\\[bB]iggl")) - (insert + (YaTeX-insert-inherit (concat "(" (buffer-substring (match-beginning 0) (- (match-end 0) 1)) "r)")) (forward-char -7)) ((= (preceding-char) ?\\ ) ;matsu's hack ends here - (insert "(\\)") + (YaTeX-insert-inherit "(\\)") (backward-char 2)) ((YaTeX-closable-p) - (insert "()") + (YaTeX-insert-inherit "()") (backward-char 1)) (t (YaTeX-self-insert arg)))) @@ -1360,9 +1459,9 @@ ((save-excursion (and (> (- (point) (point-min)) 5) (forward-char -5)) (looking-at "\\\\left")) - (insert "|\\right|") + (YaTeX-insert-inherit "|\\right|") (forward-char -7)) - ((save-excursion ;from matsu@math.s.chiba-u.ac.jp + ((save-excursion ;from matsumath.s.chiba-u.ac.jp (and (> (- (point) (point-min)) 5) (forward-char -5)) (looking-at "\\\\[bB]igl")) (insert @@ -1376,10 +1475,10 @@ (concat "|" (buffer-substring (match-beginning 0) (- (match-end 0) 1)) "r|")) (forward-char -7)) - ((save-excursion ; added by Jin + ((save-excursion ; added by Jin nifty.ne.jp> (and (> (- (point) (point-min)) 6) (forward-char -6)) (looking-at "\\\\left\\\\")) - (insert "|\\right\\|") + (YaTeX-insert-inherit "|\\right\\|") (forward-char -8)) ((save-excursion (and (> (- (point) (point-min)) 6) (forward-char -6)) @@ -1396,15 +1495,63 @@ "|" (buffer-substring (match-beginning 0) (- (match-end 0) 2)) "r\\|")) (forward-char -8)) ; added by Jin up to here. ((= (preceding-char) ?\\ ) - (insert "|\\|") + (YaTeX-insert-inherit "|\\|") (backward-char 2)) ; ((and (YaTeX-closable-p) ; (/= (preceding-char) ?|) ; (/= (following-char) ?|)) -; (insert "||") +; (YaTeX-insert-inherit "||") ; (backward-char 1)) (t (YaTeX-self-insert arg)))) +(defvar YaTeX-use-jmode-hook (not (and (fboundp 'skk-mode) (boundp 'skk-mode))) + "*Non-nil means activate automatic jmode switcher within/out math mode. +Hopefully, change default to t in the next version of 1.75.") +(defun YaTeX-jmode-hook (old new) + "A hook controling jmode on/off." + ;; This function is called via point-entered/leave hook, so that + ;; codes in it is evaluated on such emacsen as having text-properties. + (let ((inhibit-point-motion-hooks t) + (oldp (plist-get (text-properties-at old) 'point-left)) + (newp (plist-get (text-properties-at new) 'point-left)) + (lnew (plist-get (text-properties-at new) 'last-new)) + (mjmode (plist-get (text-properties-at new) 'mjmode)) + (bmp (buffer-modified-p)) + (jm (YaTeX-jmode)) b e) + (unwind-protect + (cond + ((eq lnew new) nil) ;Do nothing if continuous entry + ((and (not (eq newp 'YaTeX-jmode-hook)) + (eq oldp 'YaTeX-jmode-hook) + (plist-get (text-properties-at old) 'entered)) + ;; leave + (remove-text-properties + (setq b (1+ (or (previous-single-property-change old 'point-left) + (1- (point))))) + (setq e (1- (or (next-single-property-change old 'point-left) + (1+ (point))))) + (list 'last-new nil 'entered nil)) + (add-text-properties b e (list 'mjmode jm)) + (if (boundp 'skk-katakana) + (put 'YaTeX-jmode-on 'skkkata skk-katakana)) + (if (plist-get (text-properties-at old) 'jmode) + (YaTeX-jmode-on))) + ((and (not (eq oldp 'YaTeX-jmode-hook)) + (eq newp 'YaTeX-jmode-hook) + (not (plist-get (text-properties-at new) 'entered))) + ;; enter + (add-text-properties + (1+ (or (previous-single-property-change new 'point-left) + (1- (point)))) + (1- (or (next-single-property-change new 'point-left) + (1+ (point)))) + (list 'jmode jm 'last-new new 'entered t)) + (if (boundp 'skk-katakana) ;care for skk katakana mode + (put 'YaTeX-jmode-on 'skkkata skk-katakana)) + (if mjmode (YaTeX-jmode-on) (YaTeX-jmode-off)))) + ;;unwind job + (set-buffer-modified-p bmp)))) + (defun YaTeX-insert-dollar () (interactive) (if (or (not (YaTeX-closable-p)) @@ -1414,6 +1561,16 @@ (insert "$") (insert "$$") (forward-char -1) + (and YaTeX-use-jmode-hook + (fboundp 'add-text-properties) + (add-text-properties + (1- (point)) (1+ (point)) + (list 'point-left 'YaTeX-jmode-hook + 'point-entered 'YaTeX-jmode-hook + 'front-sticky t + 'rear-nonsticky t + 'mjmode nil + 'jmode (YaTeX-jmode)))) (YaTeX-jmode-off) (or YaTeX-auto-math-mode YaTeX-math-mode (YaTeX-toggle-math-mode 1)))) @@ -1445,17 +1602,19 @@ Optional second argument CHAR is for non-interactive call from menu." (interactive "P") (message - (concat "J)latex R)egion B)ibtex mk(I)ndex " - (if (fboundp 'start-process) "K)ill-latex ") + (concat "J)latex R)egion E)nv B)ibtex mk(I)dx " + "latex+p(D)f " + (if (fboundp 'start-process) "K)ill ") "P)review " (and (boundp 'window-system) window-system "S)earch ") - "V)iewerr L)pr")) + "V)iewErr L)pr")) (let ((sw (selected-window)) (c (or char (read-char)))) (require 'yatexprc) ;for Nemacs's bug (select-window sw) (cond ((= c ?j) (YaTeX-typeset-buffer)) ((= c ?r) (YaTeX-typeset-region)) + ((= c ?e) (YaTeX-typeset-environment)) ((= c ?b) (YaTeX-call-command-on-file bibtex-command "*YaTeX-bibtex*" YaTeX-parent-file)) ((= c ?i) (YaTeX-call-command-on-file @@ -1463,6 +1622,7 @@ ((= c ?k) (YaTeX-kill-typeset-process YaTeX-typeset-process)) ((= c ?p) (call-interactively 'YaTeX-preview)) ((= c ?q) (YaTeX-system "lpq" "*Printer queue*")) + ((= c ?d) (YaTeX-typeset-buffer YaTeX-dvipdf-command)) ((= c ?v) (YaTeX-view-error)) ((= c ?l) (YaTeX-lpr arg)) ((= c ?m) (YaTeX-switch-mode-menu arg)) @@ -1488,7 +1648,8 @@ ((= c ?l) "%#LPR"))) (if (re-search-forward key nil t) (progn - (setq string (buffer-substring (point) (point-end-of-line))) + (setq string (YaTeX-buffer-substring + (point) (point-end-of-line))) (delete-region (point) (progn (end-of-line) (point)))) (open-line 1) (delete-region (point) (progn (beginning-of-line)(point)));for 19 :-< @@ -1515,6 +1676,29 @@ (set-marker e nil)) )))) +(defvar YaTeX-refcommand-def-regexp-default + "label\\|bibitem") +(defvar YaTeX-refcommand-def-regexp-private nil + "*Regexp of defining label commands") +(defvar YaTeX-refcommand-def-regexp + (concat (if YaTeX-refcommand-def-regexp-private + (concat YaTeX-refcommand-def-regexp-private "\\|")) + YaTeX-refcommand-def-regexp-default)) + +(defvar YaTeX-refcommand-ref-regexp-default + "\\(page\\|eq\\|fig\\)?ref\\|cite") +(defvar YaTeX-refcommand-ref-regexp-private nil + "*Regexp of referring label commands") +(defvar YaTeX-refcommand-ref-regexp + (concat (if YaTeX-refcommand-ref-regexp-private + (concat YaTeX-refcommand-ref-regexp-private "\\|")) + YaTeX-refcommand-ref-regexp-default)) + +(defvar YaTeX-refcommand-regexp + (concat YaTeX-refcommand-def-regexp + "\\|" YaTeX-refcommand-ref-regexp) + "Regexp of label defining/referring command name.") + (defun YaTeX-goto-corresponding-label (reverse &optional otherwin) "Jump to corresponding \\label{} and \\ref{} or \\cite and \\bibitem. The default search direction depends on the command at the cursor position. @@ -1530,7 +1714,7 @@ If optional second argument OTHERWIN is non-nil, move to other window." (let ((scmd "") label direc string blist (p (point)) (cb (current-buffer)) - (refcommands "label\\|\\(page\\|eq\\)?ref\\|cite\\|bibitem") + (refcommands YaTeX-refcommand-regexp) (foundmsg (format "Type %s %c to return to original position." (key-description (car @@ -1557,7 +1741,7 @@ "\\\\bibitem\\(\\[[^]]+\\]\\)?{%k}\\|^\\s *@[a-z]+{%k,") ("bibitem" . "\\\\cite\\(\\[[^]]+\\]\\)?"))))) (goto-char (match-end 0)) - (let ((label (buffer-substring + (let ((label (YaTeX-buffer-substring (1- (point)) (progn (backward-list 1) (1+ (point))))) (fp (make-marker))fl fn (goother (function (lambda (buffer point) @@ -1647,7 +1831,7 @@ (defun YaTeX-goto-corresponding-file (&optional other) "Visit or switch buffer of corresponding file, -looking at \\input or \\include or \includeonly on current line." +looking at \\input or \\include or \\includeonly on current line." (if (not (YaTeX-on-includes-p)) nil (let ((parent buffer-file-name) input-file b) (save-excursion @@ -1656,7 +1840,7 @@ nil (skip-chars-backward "^,{")) (setq input-file - (buffer-substring + (YaTeX-buffer-substring (point) (progn (skip-chars-forward "^ ,}") (point)))) (if (not (string-match "\\.\\(tex\\|sty\\)$" input-file)) (setq input-file (concat input-file ".tex")))) @@ -2205,7 +2389,8 @@ (defun YaTeX-read-section-with-overview () "Read sectioning command with overview. -This function refers a local variable `source-window' in YaTeX-make-section" +This function refers a local variable `source-window' in YaTeX-make-section, +because this function is called with no argument." (interactive) (require 'yatexsec) ;some case needs this (if (> (minibuffer-depth) 1) @@ -2238,9 +2423,9 @@ (interactive) (if (not (YaTeX-on-begin-end-p)) nil (save-excursion - (let (p env (m1 (match-beginning 1)) (m2 (match-beginning 2))) - (setq env (if m1 (buffer-substring m1 (match-end 1)) - (buffer-substring m2 (match-end 2)))) + (let (p env newenv (m1 (match-beginning 1)) (m2 (match-beginning 2))) + (setq env (if m1 (YaTeX-buffer-substring m1 (match-end 1)) + (YaTeX-buffer-substring m2 (match-end 2)))) (goto-char (match-beginning 0)) (set-mark-command nil) (YaTeX-goto-corresponding-environment) @@ -2265,14 +2450,15 @@ (beg (make-marker)) (end (make-marker)) old new) (if (null where) nil (unwind-protect - (progn + (let ((source-window (selected-window))) (cond ((equal where 0);;if point is on section command (set-marker beg (match-beginning 1)) (set-marker end (match-end 1)) (goto-char beg) ;beginning of the command (setq new (YaTeX-read-section - (format "Change `%s' to: " cmd) nil))) + (format "Change `%s' to: " cmd) nil) + old cmd)) ((= where -1);;if point is on a optional parameter (set-marker beg (match-beginning 2)) @@ -2283,9 +2469,10 @@ (if (fboundp (intern-soft (concat YaTeX-addin-prefix cmd))) (YaTeX-addin cmd) (concat "[" - (read-string (format "Change `%s' to: " - (buffer-substring - (1+ beg) (1- end)))) + (read-string + (format "Change `%s' to: " + (setq old (YaTeX-buffer-substring + (1+ beg) (1- end))))) "]")))) ((> where 0);;if point is in arguments' braces @@ -2295,7 +2482,7 @@ (forward-list 1) (forward-char -1) (set-marker end (point)) - (setq old (buffer-substring beg end)) + (setq old (YaTeX-buffer-substring beg end)) (goto-char p) (if (> (length old) 40) (setq old (concat (substring old 0 12) "..." @@ -2305,9 +2492,11 @@ (funcall (intern-soft (concat "YaTeX::" cmd)) where) (read-string (format "Change `%s' to: " old))))) ) ;cond - (delete-region beg end) - (goto-char beg) - (insert-before-markers new)) + (if (string= old new) + nil ;do not replace + (delete-region beg end) + (goto-char beg) + (insert-before-markers new))) (set-marker beg nil) (set-marker end nil)) ;;(goto-char (marker-position p)) @@ -2422,7 +2611,8 @@ nil (goto-char (match-end 2)) (skip-chars-forward - (concat "^" (buffer-substring (match-beginning 2) (match-end 2)))) + (concat "^" (YaTeX-buffer-substring + (match-beginning 2) (match-end 2)))) (and (< (match-beginning 2) point) (< (1- point) (point)))) (store-match-data md))))) @@ -2464,7 +2654,8 @@ (if (match-beginning 2) (setq nest (1+ nest)) (setq nest (1- nest))) - (if (< nest 0) (throw 'open t))))))) + (if (< nest 0) + (throw 'open (cons env (match-beginning 0))))))))) ((listp env) (setq p (or (YaTeX-in-environment-p (car env)) @@ -2478,21 +2669,25 @@ ENV is given in the form of environment's name or its list. This function returns correct result only if ENV is NOT nested." (save-excursion - (let ((md (match-data)) (p (point)) rc clfound) + (let ((md (match-data)) m0 (p (point)) rc clfound) (cond ((listp env) (or (YaTeX-quick-in-environment-p (car env)) (and (cdr env) (YaTeX-quick-in-environment-p (cdr env))))) (t - (if (YaTeX-search-active-backward - (YaTeX-replace-format-args YaTeX-struct-begin env "" "") - YaTeX-comment-prefix nil t) - (setq rc (not (YaTeX-search-active-forward - (YaTeX-replace-format-args - YaTeX-struct-end env) - YaTeX-comment-prefix p t nil)))) - (store-match-data md) - rc))))) + (unwind-protect + (if (prog1 + (YaTeX-search-active-backward + (YaTeX-replace-format-args YaTeX-struct-begin env "" "") + YaTeX-comment-prefix nil t) + (setq m0 (match-beginning 0))) + (if (YaTeX-search-active-forward + (YaTeX-replace-format-args + YaTeX-struct-end env) + YaTeX-comment-prefix p t nil) + nil ;if \end{env} found, return nil + (cons env m0))) ;else, return meaningful values + (store-match-data md))))))) ;; Filling \item (defun YaTeX-remove-trailing-comment (start end) @@ -2576,7 +2771,7 @@ (newline) (indent-to col) (setq fill-prefix - (buffer-substring (point-beginning-of-line)(point))) + (YaTeX-buffer-substring (point-beginning-of-line)(point))) (beginning-of-line) (delete-region (point) (progn (forward-line 1) (point))) (re-search-forward item-term nil 1) @@ -2622,7 +2817,7 @@ (setq end (point)) ;non-whitespace char (skip-chars-forward " \t") (equal (point) p)) - (setq fill-prefix (buffer-substring p end))) + (setq fill-prefix (YaTeX-buffer-substring p end))) ((and ;;(not YaTeX-emacs-19) (string-match YaTeX-itemizing-env-regexp inenv) (setq ii (YaTeX-get-item-info))) @@ -2630,7 +2825,7 @@ (beginning-of-line) (indent-to-column (car (cdr ii))) (setq fill-prefix - (buffer-substring (point) (point-beginning-of-line))) + (YaTeX-buffer-substring (point) (point-beginning-of-line))) (delete-region (point) (progn (beginning-of-line) (point)))))) (cond ((string-match "tabular" inenv) diff --git a/yatex.new b/yatex.new index 5f576d6..938908f 100644 --- a/yatex.new +++ b/yatex.new @@ -1,6 +1,25 @@ What's new in YaTeX/yahtml �쒹/yahtml - �e�o�[�W�����̕ύX�_�ɂ‚��� +1.75 === yatex === + [prefix] t e �Ń|�C���g�ʒu���܂ފ‹��������‹����^�C�v�Z�b�g�B + M-C-SPC �Ŋ‹������łȂ������‹����}�[�N����B + [prefix] t d �Ń^�C�v�Z�b�^�N�������̂��� dvipdfmx ���N���B + \label{}�Ń��x��������ꂽ�Ƃ��� \ref{NAME} �������I��kill-ring�ɒlj��B + [prefix] t c ��\label{NAME} �� NAME ��ς����� \ref ��NAME���ς���B + ����̂��Ƃ� \cite/\bibitem �ɂ��B + \bibitem{}����ꂽ�Ƃ��� \cite{TAG} �������I��kill-ring�ɒlj��B + \end �⊮�̂��߉���̐��x�������グ���B + jsarticle, jsbook ���f�t�H���g�⊮�����ɓ��ꂽ�B + \begin �̒���� { �Ŏ����I�� \end ���݂Ŋ‹��⊮(modify-mode�ƘA��)�B + === yahtml === + [prefix] t �u���E�U���j���[�Ɂun:�V�K�y�[�W�쐬�v��lj�(����)�B + [prefix] t j ��lint�R�}���h�� �s�Ŏw��B + [prefix] } �Ń��W������ td �v�f�Ŋ���(�f�t�H���g�͋󔒋�؂�)�B + [prefix] ] �Ń��W������ tr, td �v�f�Ŋ���(1�s1���R�[�h)�B + �‚����ʂ̂Ȃ�CSS�t�@�C����͂��I���Ȃ������C���B + li, dt, dd �̃C���f���g�v�Z���‹��^�I�ɐ[����ς���悤�ɂ����B + 1.74 === yatex === YaTeX-kanji-code �� 4 �̂Ƃ��� UTF-8 �Ƃ����B Preview�t�@�C���̊g���q��.dvi�ł���Ƃ���������キ����(pdf��)�B diff --git a/yatexadd.el b/yatexadd.el index 29dd614..2a4b57b 100644 --- a/yatexadd.el +++ b/yatexadd.el @@ -1,8 +1,8 @@ ;;; -*- Emacs-Lisp -*- ;;; YaTeX add-in functions. -;;; yatexadd.el rev.18 -;;; (c)1991-2006 by HIROSE Yuuji.[yuuji@yatex.org] -;;; Last modified Fri Sep 21 11:44:42 2007 on firestorm +;;; yatexadd.el rev.19 +;;; (c)1991-2011 by HIROSE Yuuji.[yuuji@yatex.org] +;;; Last modified Mon Mar 7 12:12:11 2011 on firestorm ;;; $Id$ ;;; @@ -198,12 +198,16 @@ (defun YaTeX:parbox () (YaTeX:read-position "tbc")) +(defun YaTeX::parbox (argp) + (cond + ((= argp 1) (read-string "Width: ")) + ((= argp 2) (read-string "Text: ")))) -(defun YaTeX:dashbox () +(defun YaTeX::dashbox () (concat "{" (read-string "Dash dimension: ") "}" (YaTeX:read-coordinates "Dimension"))) -(defun YaTeX:savebox (argp) +(defun YaTeX::savebox (argp) (cond ((= argp 1) (read-string "Saved into name: " "\\")) ((= argp 2) (read-string "Text: ")))) @@ -738,7 +742,7 @@ "Alist of labeling regexp vs. its group number points to label string. This alist is used in \\ref's argument's completion.") (defvar YaTeX::ref-labeling-regexp-alist-private nil - "*Private extesion to YaTeX::ref-labeling-regexp-alist. + "*Private extension to YaTeX::ref-labeling-regexp-alist. See the documetation of YaTeX::ref-labeling-regexp-alist.") (defvar YaTeX::ref-labeling-regexp-alist (append YaTeX::ref-labeling-regexp-alist-default @@ -1115,6 +1119,108 @@ (bury-buffer YaTeX-label-buffer))) label))))) +(defun YaTeX::label-rename-refs (old new &optional def ref) + "Rename reference tag from OLD to NEW. +Optional arguments DEF and REF specify defining command and +referring command respectively. +--------------------------------------------------------- +CONTROL KEYS - �L�[�̐��� + y Replace �u������ + n Do not replace �u�����Ȃ� + ! Replace All w/o query �c��S�����m�F�Ȃ��Œu�� + r Enter Recursive-edit �ċA�ҏW���[�h�� + q Quit from replacing �����܂łŒu������߂� + +Don't forget to exit from recursive edit by typing \\[exit-recursive-edit] +�ċA�ҏW�ɓ������� \\[exit-recursive-edit] �Ŕ����Y��Ȃ��悤�B" + (save-window-excursion + (catch 'exit + (let*((bufs (YaTeX-yatex-buffer-list)) buf b e + (oldptn (regexp-quote old)) + (sw (selected-window)) + (ptn (concat + "\\(" YaTeX-refcommand-ref-regexp "\\)" + "\\s *{" oldptn "}")) + (repface (and (fboundp 'make-overlay) + (fboundp 'internal-find-face) + (if (internal-find-face 'isearch) 'isearch 'region))) + ov + (qmsg "Replace to `%s'? [yn!rq?]") + continue ch) + (while bufs + (set-buffer (setq buf (car bufs))) + (save-excursion + (goto-char (point-min)) + (while (re-search-forward ptn nil t) + (goto-char (match-end 1)) + (skip-chars-forward " \t\n{") + (unwind-protect + (if (and + (looking-at oldptn) + (setq b (match-beginning 0) + e (match-end 0)) + (or continue + (catch 'query + (if repface + (if ov (move-overlay ov b e) + (overlay-put + (setq ov (make-overlay b e)) + 'face repface))) + (switch-to-buffer buf) + (while t + (message qmsg new) + (setq ch (read-char)) + (cond + ((= ch ?q) (throw 'exit t)) + ((= ch ?r) + (message + "Don't forget to exit recursive-edit by `%s'" + (key-description + (where-is-internal + 'exit-recursive-edit '(keymap) t))) + (sleep-for 2) + (recursive-edit)) + ((= ch ?y) (throw 'query t)) + ((= ch ?!) (throw 'query (setq continue t))) + ((= ch ??) + (describe-function + 'YaTeX::label-rename-refs) + (select-window (get-buffer-window "*Help*")) + (search-forward "----") + (forward-line 1) + (set-window-start (selected-window) (point)) + (sit-for 0) + (select-window sw)) + ((= ch ?n) (throw 'query nil))))))) + (replace-match new)) + (and ov (delete-overlay ov))))) + (setq bufs (cdr bufs))))))) + +(defun YaTeX::label (argp &optional labname refname) + "Read label name and return it with copying \\ref{LABEL-NAME} to kill-ring." + (cond + ((= argp 1) + (let*((chmode (boundp (intern-soft "old"))) + (dlab (if chmode old ;if called via YaTeX-change-section (tricky...) + (YaTeX::ref-default-label))) + (label (read-string + (format "New %s name: " (or labname "label")) + (cons dlab 1)))) + (if (string< "" label) + (let ((refstr (format "\\%s{%s}" (or refname "ref") label)) + (key (key-description (where-is-internal 'yank nil t))) + (msg + (if YaTeX-japan + "��kill-ring�ɓ���܂����Byank(%s)�Ŏ��o���܂��B" + " is stored into kill-ring. Paste it by yank(%s)."))) + (kill-new refstr) + (and chmode + (not (equal old label)) + (YaTeX::label-rename-refs old label)) + (message (concat "`%s'" msg) refstr key))) + label)))) + + (fset 'YaTeX::pageref 'YaTeX::ref) (defun YaTeX::tabref (argp) ; For the style file of IPSJ journal (YaTeX::ref @@ -1282,6 +1388,10 @@ (t nil))) +(defun YaTeX::bibitem (argp) + "Add-in function to insert argument of \\bibitem." + (YaTeX::label argp "label" "cite")) + ;;; for AMS-LaTeX (and YaTeX-use-AMS-LaTeX (fset 'YaTeX::eqref 'YaTeX::ref)) ;;; for Harvard citation style @@ -1292,13 +1402,6 @@ (fset 'YaTeX::citep 'YaTeX::cite) (fset 'YaTeX::citet 'YaTeX::cite) -(defun YaTeX-yatex-buffer-list () - (save-excursion - (delq nil (mapcar (function (lambda (buf) - (set-buffer buf) - (if (eq major-mode 'yatex-mode) buf))) - (buffer-list))))) - (defun YaTeX-select-other-yatex-buffer () "Select buffer from all yatex-mode's buffers interactivelly." (interactive) @@ -1587,6 +1690,7 @@ ("latterpaper") ("legalpaper") ("executivepaper") ("landscape") ("oneside") ("twoside") ("draft") ("final") ("leqno") ("fleqn") ("openbib") ("tombow") ("titlepage") ("notitlepage") ("dvips") + ("mingoth") ;for jsarticle ("clock") ;for slides class only ) "Default options list for documentclass") @@ -1624,6 +1728,7 @@ (defvar YaTeX:documentclasses-default '(("article") ("jarticle") ("report") ("jreport") ("book") ("jbook") + ("jsarticle") ("jsbook") ("j-article") ("j-report") ("j-book") ("letter") ("slides") ("ltxdoc") ("ltxguide") ("ltnews") ("proc")) "Default documentclass alist") @@ -1661,7 +1766,7 @@ ("Emerald") ("JungleGreen") ("SeaGreen") ("Green") ("ForestGreen") ("PineGreen") ("LimeGreen") ("YellowGreen") ("SpringGreen") ("OliveGreen") ("RawSienna") ("Sepia") ("Brown") ("Tan") ("Gray") ("Black") ("White")) - "Colors defined in $TEXMF/tex/plain/colordvi.tex") + "Colors defined in $TEXMF/tex/plain/dvips/colordvi.tex") (defvar YaTeX:latex2e-basic-color-alist '(("black") ("white") ("red") ("blue") ("yellow") ("green") ("cyan") diff --git a/yatexhie.el b/yatexhie.el index 5a0aa2c..4bd3e0a 100644 --- a/yatexhie.el +++ b/yatexhie.el @@ -1,8 +1,8 @@ ;;; -*- Emacs-Lisp -*- ;;; YaTeX hierarchy browser. ;;; yatexhie.el -;;; (c)1995 by HIROSE Yuuji [yuuji@yatex.org] -;;; Last modified Fri Jun 27 12:09:49 2003 on firestorm +;;; (c)1995-2012 by HIROSE Yuuji [yuuji@yatex.org] +;;; Last modified Mon Jan 9 20:19:06 2012 on firestorm ;;; $Id$ ;; ----- Customizable variables ----- diff --git a/yatexinf.el b/yatexinf.el index 376b62a..4c51b50 100644 --- a/yatexinf.el +++ b/yatexinf.el @@ -1,7 +1,7 @@ ;;; -*- Emacs-Lisp -*- ;;; YaTeX interfaces for Texinfo mode. -;;; (c)1994,1998,2001 by HIROSE, Yuuji [yuuji@yatex.org] -;;; Last modified Fri Jun 27 12:10:03 2003 on firestorm +;;; (c)1994-2012 by HIROSE, Yuuji [yuuji@yatex.org] +;;; Last modified Mon Jan 9 20:19:55 2012 on firestorm (require 'yatex) (or (boundp 'texinfo-mode-map) diff --git a/yatexlib.el b/yatexlib.el index 8db3166..65cfd8f 100644 --- a/yatexlib.el +++ b/yatexlib.el @@ -1,8 +1,8 @@ ;;; -*- Emacs-Lisp -*- ;;; YaTeX and yahtml common libraries, general functions and definitions ;;; yatexlib.el -;;; (c)1994-2009 by HIROSE Yuuji.[yuuji@yatex.org] -;;; Last modified Mon Sep 28 10:46:39 2009 on firestorm +;;; (c)1994-2012 by HIROSE Yuuji.[yuuji@yatex.org] +;;; Last modified Mon Jan 9 20:20:09 2012 on firestorm ;;; $Id$ ;; General variables @@ -465,13 +465,12 @@ ;;;###autoload (defun rindex (string char) (let ((pos (1- (length string)))(index -1)) - (while (>= pos 0) - (cond - ((= (aref string pos) char) - (setq index pos) (setq pos -1)) - (t (setq pos (1- pos)))) - ) - index)) + (catch 'rindex + (while (>= pos 0) + (cond + ((= (aref string pos) char) + (throw 'rindex pos)) + (t (setq pos (1- pos)))))))) ;;;###autoload (defun point-beginning-of-line () @@ -531,11 +530,15 @@ (cond ((fboundp 'screen-height) (fset 'YaTeX-screen-height 'screen-height) - (fset 'YaTeX-screen-width 'screen-width)) + (fset 'YaTeX-screen-width 'screen-width) + (fset 'YaTeX-set-screen-height 'set-screen-height) + (fset 'YaTeX-set-screen-width 'set-screen-width)) ((fboundp 'frame-height) (fset 'YaTeX-screen-height 'frame-height) - (fset 'YaTeX-screen-width 'frame-width)) - (t (error "I don't know how to run windows.el on this Emacs..."))) + (fset 'YaTeX-screen-width 'frame-width) + (fset 'YaTeX-set-screen-height 'set-frame-height) + (fset 'YaTeX-set-screen-width 'set-frame-width)) + (t (error "I don't know how to run YaTeX on this Emacs..."))) ;;;###autoload (defun split-window-calculate-height (height) @@ -665,6 +668,13 @@ (self-insert-command 1) (YaTeX-minibuffer-complete))) +(defun YaTeX-yatex-buffer-list () + (save-excursion + (delq nil (mapcar (function (lambda (buf) + (set-buffer buf) + (if (eq major-mode 'yatex-mode) buf))) + (buffer-list))))) + (defun foreach-buffers (pattern job) "For each buffer which matches with PATTERN, do JOB." (let ((list (buffer-list))) @@ -822,6 +832,21 @@ (win-switch-to-window 1 (- last-command-char win:base-key))) ;;;###autoload +(defun YaTeX-command-to-string (cmd) + (if (fboundp 'shell-command-to-string) + (funcall 'shell-command-to-string cmd) + (let ((tbuf " *tmpout*")) + (if (get-buffer-create tbuf) (kill-buffer tbuf)) + (let ((standard-output (get-buffer-create tbuf))) + (unwind-protect + (save-excursion + (call-process + shell-file-name nil tbuf nil YaTeX-shell-command-option cmd) + (set-buffer tbuf) + (buffer-string)) + (kill-buffer tbuf)))))) + +;;;###autoload (defun YaTeX-reindent (col) "Remove current indentation and reindento to COL column." (save-excursion @@ -887,7 +912,7 @@ (goto-char m0) (put 'YaTeX-inner-environment 'indent (current-column)) (throw 'begin t))))) - (buffer-substring + (YaTeX-buffer-substring (progn (skip-chars-forward open) (1+ (point))) (progn (skip-chars-forward close) (point))))))) @@ -973,9 +998,16 @@ (let ((env (YaTeX-inner-environment))) (if (not env) (error "No premature environment") (save-excursion - (if (YaTeX-search-active-forward - (YaTeX-replace-format-args YaTeX-struct-end env "" "") - YaTeX-comment-prefix nil t) + (if (and + (YaTeX-re-search-active-forward + (concat + "\\(" (YaTeX-replace-format-args + YaTeX-struct-end env "" "") + "\\)\\|\\(" (YaTeX-replace-format-args + YaTeX-struct-begin env "" "") + "\\)") + YaTeX-comment-prefix nil t) + (match-beginning 1)) ;is closing struc. (if (y-or-n-p (concat "Environment `" env "' may be already closed. Force close?")) @@ -1015,28 +1047,31 @@ (defun YaTeX-mark-environment () "Mark current position and move point to end of environment." (interactive) + (require 'yatexmth) (let ((curp (point))) - (if (and (YaTeX-on-begin-end-p) (match-beginning 1)) ;if on \\begin - (progn (goto-char (match-end 0))) - (if (= (char-after (point)) ?\\) nil ;if on \\end - (skip-chars-backward "^\n\\\\") - (or (bolp) (forward-char -1)))) - (if (not (YaTeX-end-of-environment)) ;arg1 turns to match-beginning 1 - (progn - (goto-char curp) - (error "Cannot found the end of current environment.")) - (YaTeX-goto-corresponding-environment) - (beginning-of-line) ;for confirmation - (if (< curp (point)) + (if (YaTeX-in-math-mode-p) + (YaTeX-mark-mathenv) + (if (and (YaTeX-on-begin-end-p) (match-beginning 1)) ;if on \\begin + (progn (goto-char (match-end 0))) + (if (= (char-after (point)) ?\\) nil ;if on \\end + (skip-chars-backward "^\n\\\\") + (or (bolp) (forward-char -1)))) + (if (not (YaTeX-end-of-environment)) ;arg1 turns to match-beginning 1 (progn - (message "Mark this environment?(y or n): ") - (if (= (read-char) ?y) nil - (goto-char curp) - (error "Abort. Please call again at more proper position.")))) - (set-mark-command nil) - (YaTeX-goto-corresponding-environment) - (end-of-line) - (if (eobp) nil (forward-char 1))))) + (goto-char curp) + (error "Cannot found the end of current environment.")) + (YaTeX-goto-corresponding-environment) + (beginning-of-line) ;for confirmation + (if (< curp (point)) + (progn + (message "Mark this environment?(y or n): ") + (if (= (read-char) ?y) nil + (goto-char curp) + (error "Abort. Please call again at more proper position.")))) + (set-mark-command nil) + (YaTeX-goto-corresponding-environment) + (end-of-line) + (if (eobp) nil (forward-char 1)))))) (defun YaTeX-kill-buffer (buffer) "Make effort to show parent buffer after kill." @@ -1049,6 +1084,37 @@ (get-file-buffer pf) (switch-to-buffer (get-file-buffer pf))))) +(defun YaTeX-get-builtin (key) + "Read source built-in command of %# usage." + (catch 'builtin + (let ((bl (delq nil (list (current-buffer) + (and YaTeX-parent-file + (get-file-buffer YaTeX-parent-file))))) + (leader (or (cdr-safe (assq major-mode + '((yatex-mode . "%#") + (yahtml-mode . "