Mercurial > hgrepos > hgweb.cgi > yatex
changeset 446:778525798ef4
merged with 1.79
| author | HIROSE Yuuji <yuuji@gentei.org> |
|---|---|
| date | Thu, 05 Jan 2017 20:45:19 +0900 |
| parents | e37af485338a (current diff) a3ba09c1e8e9 (diff) |
| children | 59459111e042 |
| files | |
| diffstat | 14 files changed, 431 insertions(+), 254 deletions(-) [+] |
line wrap: on
line diff
--- a/docs/yahtmle Sun Jul 12 14:21:20 2015 +0900 +++ b/docs/yahtmle Thu Jan 05 20:45:19 2017 +0900 @@ -1,7 +1,7 @@ Info file: yahtmle, -*-Text-*- produced by `texinfo-format-buffer' from file `yahtmle.tex' -using `texinfmt.el' version 2.38 of 3 July 1998. +using `texinfmt.el' version 2.42 of 7 Jul 2006. START-INFO-DIR-ENTRY * yahtml-e: (yahtmle). Yet Another html-mode for Emacs (English). @@ -49,9 +49,9 @@ ***************** * Menu: -* Setting up yahtml:: -* Setting environments for weblint browsers and image viewers:: -* Setting environment variables for WWW pages:: +* Setting up yahtml:: +* Setting environments for weblint browsers and image viewers:: +* Setting environment variables for WWW pages:: @@ -110,7 +110,8 @@ ... 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 @@ -213,10 +214,10 @@ * Menu: -* Changing tags in pairs:: -* Changing entities:: -* URLencoding of strings within region:: -* td-enclosure/tr-enclosure:: +* Changing tags in pairs:: +* Changing entities:: +* URLencoding of strings within region:: +* td-enclosure/tr-enclosure:: @@ -252,7 +253,7 @@ ... convert char to special entity in marked region `[prefix] :' ... convert special entity to original char in marked region - (reverse of [prefix] ;) + (reverse of [prefix] ;) @@ -263,7 +264,7 @@ ==================================== `[prefix] #' - ... encode chars that needs to be URLencoded within region + ... encode chars that needs to be URLencoded within region @@ -275,15 +276,16 @@ table element, td-enclosure or tr-enclosure is convenient. `[prefix] }' - - ... Enclose each field in a region into <td>...</td>'s. + + ... Enclose each field in a region into <td>...</td>'s. `[prefix] ]' - - ... Enclose each line in a region into <tr>...</tr>'s, with every -line converted to <td>...</td> 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. + + ... Enclose each line in a region into <tr>...</tr>'s, with every + line converted to <td>...</td> 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 <th>...</th>. The special @@ -299,8 +301,8 @@ * Menu: -* CSS-class completion:: -* Reread CSS definition:: +* CSS-class completion:: +* Reread CSS definition:: @@ -322,8 +324,8 @@ .caution { font-size: 120%; background-color: 0xc00000;} when you input any tags via completing-read, yahtml prompts you to input -class name. If this is bothering, typing `C-j' instead of `RET' (or -`C-m') cancels the next prompt to class name completion. +class name. If this is bothering, typing `C-j' instead of +`RET' (or `C-m') cancels the next prompt to class name completion. @@ -366,8 +368,8 @@ -- Variable: 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. + "text/html; charset=xxx" .html is written in .htaccess, this + will override yahtml-kanji-code. -- Variable: yahtml-fill-column Columns to auto-fill (72) @@ -498,39 +500,35 @@ * Menu: -* Customize: Customizations. 4. -* Demacs: Intro. 4. -* Key Assign: Customizations. 4. -* LaTeX: Intro. 4. -* Mule: Intro. 4. -* yahtml: Intro. 4. - - - - +* Customize: Customizations. (line 5) +* Demacs: Intro. (line 5) +* Key Assign: Customizations. (line 5) +* LaTeX: Intro. (line 5) +* Mule: Intro. (line 5) +* yahtml: Intro. (line 5) Tag table: -Node: Top256 -Node: Intro833 -Node: Installation1231 -Node: Setting up yahtml1512 -Node: Setting environments for weblint browsers and image viewers2303 -Node: Setting environment variables for WWW pages2999 -Node: Command Invocation3970 -Node: Completion4398 -Node: Jump5914 -Node: Changing and Deleting6394 -Node: Changing tags in pairs6678 -Node: Changing entities7173 -Node: URLencoding of strings within region7709 -Node: td-enclosure/tr-enclosure8010 -Node: CSS Support8976 -Node: CSS-class completion9202 -Node: Reread CSS definition10055 -Node: Customizations10330 -Node: All customizable variables10606 -Node: Hook variables14374 -Node: Copying14500 -Node: Concept Index15291 +Node: Top259 +Node: Intro836 +Node: Installation1234 +Node: Setting up yahtml1500 +Node: Setting environments for weblint browsers and image viewers2291 +Node: Setting environment variables for WWW pages2987 +Node: Command Invocation3979 +Node: Completion4407 +Node: Jump5923 +Node: Changing and Deleting6403 +Node: Changing tags in pairs6665 +Node: Changing entities7160 +Node: URLencoding of strings within region7704 +Node: td-enclosure/tr-enclosure8007 +Node: CSS Support9032 +Node: CSS-class completion9243 +Node: Reread CSS definition10096 +Node: Customizations10371 +Node: All customizable variables10647 +Node: Hook variables14427 +Node: Copying14553 +Node: Concept Index15344 End tag table
--- a/docs/yahtmlj Sun Jul 12 14:21:20 2015 +0900 +++ b/docs/yahtmlj Thu Jan 05 20:45:19 2017 +0900 @@ -1,7 +1,7 @@ Info file: yahtmlj, -*-Text-*- produced by `texinfo-format-buffer' from file `yahtmlj.tex' -using `texinfmt.el' version 2.38 of 3 July 1998. +using `texinfmt.el' version 2.42 of 7 Jul 2006. START-INFO-DIR-ENTRY * yahtml: (yahtmlj). Yet Another html-mode for Emacs (Japanese). @@ -35,10 +35,11 @@ はじめに ******** -yahtmlは GNU Emacs 上で HTML文書を作成する時に、繁雑なHTMLタグの入力を補完 -機能によってスムーズに行えるようにするだけでなく、weblintなどの構文チェッ -クプログラム、カーソル位置のURLやファイル名に依存したブラウザ/イメージヴュー -アの起動などを Emacs 編集画面中から行えるようにするパッケージです。 +yahtmlは GNU Emacs 上で HTML文書を作成する時に、繁雑なHTMLタグの入力を +補完機能によってスムーズに行えるようにするだけでなく、weblintなどの構 +文チェックプログラム、カーソル位置のURLやファイル名に依存したブラウザ/ +イメージヴューアの起動などを Emacs 編集画面中から行えるようにするパッ +ケージです。 (このInfoは未完成です(__)…) @@ -68,17 +69,17 @@ (cons (cons "\\.html$" 'yahtml-mode) auto-mode-alist)) (autoload 'yahtml-mode "yahtml" "Yet Another HTML mode" t) -次にyahtmlに必要なファイル(`yahtml.el', `yatexlib.el', `yatexprc.el') を置 -くディレクトリを load-path に加えます。たとえば、 `~/src/emacs/yahtml'に置 -くのであれば、 +次にyahtmlに必要なファイル(`yahtml.el', `yatexlib.el', +`yatexprc.el') を置くディレクトリを load-path に加えます。たとえば、 +`~/src/emacs/yahtml'に置くのであれば、 (setq load-path (cons (expand-file-name "~/src/emacs/yahtml") load-path)) などとします。 以上の設定により、拡張子が .html であるファイルを編集すると自動的に -yahtml がロードされます。yahtmlが正常に起動できたときはモードラインの表示 -が「yahtml」に変わります。 +yahtml がロードされます。yahtmlが正常に起動できたときはモードラインの +表示が「yahtml」に変わります。 @@ -87,8 +88,8 @@ lintプログラム/ブラウザ/イメージヴューア環境等の設定 ==================================================== -利用する外部プログラムなどに関する以下の変数を確認し、必要なら正しい値に変 -更します(括弧内はデフォルト値)。 +利用する外部プログラムなどに関する以下の変数を確認し、必要なら正しい値 +に変更します(括弧内はデフォルト値)。 `yahtml-www-browser' ... 起動するブラウザのコマンド名(netscape) `yahtml-image-viewer' @@ -110,13 +111,13 @@ ... ファイルシステム上のPATH名と、URLの対応表 `yahtml-directory-index' ... URL指定でファイル名を省略したときに表示されるインデックス - ファイル名(NCSA系httpdなら `index.html', CERN系なら`Welcome.html'が一 - 般的) + ファイル名(NCSA系httpdなら `index.html', CERN系なら + `Welcome.html'が一般的) 変数 `yahtml-path-url-alist' の設定例を示します。例えば、自宅では、 -`/home/yuuji/http/' が `http://localhost/~yuuji' で参照でき、職場では -`/usr/home/yuuji/www/' が`http://www.keio.ac.jp/~yuuji/' で参照できるよう -になっている場合は以下のように設定します。 +`/home/yuuji/http/' が `http://localhost/~yuuji' で参照でき、職場では +`/usr/home/yuuji/www/' が`http://www.keio.ac.jp/~yuuji/' で参照できる +ようになっている場合は以下のように設定します。 (setq yahtml-path-url-alist '(("/home/yuuj/http" . "http://localhost/~yuuji") @@ -146,26 +147,27 @@ 補完入力 ******** -「野鳥」で利用できる、「begin型補完」、「section型補完」、「large型補完」、 -「maketitle型補完」、「アクセント補完」と全く同じキー操作で対応するHTMLタ -グの補完入力ができます。それぞれの型の補完は順に、「複数行に渡るタグ入力」、 -「空要素タグ(imgなど)の補完」、「一行内での開始/終了タグの入力」、「空要素 -空属性タグの入力」、「文字参照入力」に対応しています。具体的には +「野鳥」で利用できる、「begin型補完」、「section型補完」、「large型補 +完」、「maketitle型補完」、「アクセント補完」と全く同じキー操作で対応 +するHTMLタグの補完入力ができます。それぞれの型の補完は順に、「複数行に +渡るタグ入力」、「空要素タグ(imgなど)の補完」、「一行内での開始/終了タ +グの入力」、「空要素空属性タグの入力」、「文字参照入力」に対応していま +す。具体的には `[prefix] b (野鳥のbegin補完に対応)' ... <ul> </ul> - のように開始タグと終了タグを二行に渡って書きたい場合の補完を指します。 - おもにブロック型タグが補完候補に含まれます。 + のように開始タグと終了タグを二行に渡って書きたい場合の補完を指し + ます。おもにブロック型タグが補完候補に含まれます。 `[prefix] s (野鳥のsection型補完に対応)' ... <img src="foo.gif" alt="photo"> - のように終了タグを持たず、かつ属性値のみで機能を指定するタグを補完し - ます。補完候補としては、img, input が存在します。 + のように終了タグを持たず、かつ属性値のみで機能を指定するタグを補 + 完します。補完候補としては、img, input が存在します。 `[prefix] l (野鳥のlarge型補完に対応)' ... begin型補完とほぼ同じですが、 @@ -175,13 +177,13 @@ のように一行内に開始/終了タグを入れたいときに利用します。 `[prefix] m (野鳥のmaketitle型補完に対応)' - ... 要素も属性値も持たないタグを補完入力します。<br> + ... 要素も属性値も持たないタグを補完入力します。<br> などが補完候補に相当します。 `[prefix] a (野鳥のアクセント補完に対応)' ... エンティティ参照による文字表記を入力するときに用います。 - デフォルトでは < (<), > (>), & (&), " ("), ' ('), - ブランク ( ) の補完入力が行えます。 + デフォルトでは < (<), > (>), & (&), " ("), ' + ('),ブランク ( ) の補完入力が行えます。 @@ -194,8 +196,8 @@ `[prefix] g' ... 対応するオブジェクトにジャンプ -を押すことにより、カーソル位置のHTML構文に対応する場所にジャンプします。対 -応関係が存在すると解釈されるコマンドには以下のものがあります。 +を押すことにより、カーソル位置のHTML構文に対応する場所にジャンプします。 +対応関係が存在すると解釈されるコマンドには以下のものがあります。 * `<TAG>' ←→ `</TAG>' * `<img src="画像ファイル">' → 対応するviewer起動 @@ -227,8 +229,8 @@ `[prefix] c' ... 対応するタグ等を変更 -を押すことにより、カーソル位置のHTML構文に応じた記述内容の変更を行います。 -カーソル位置と変更する内容の対応は以下の通りです。 +を押すことにより、カーソル位置のHTML構文に応じた記述内容の変更を行いま +す。カーソル位置と変更する内容の対応は以下の通りです。 * `<TAG>'〜`</TAG>' ... `TAG' の変更 @@ -241,15 +243,16 @@ 文字参照への変更 ================ -文字としての < や > を表現するときは、文字参照を用いて< や > と表記 -する必要がありますが、HTML以外のファイルからこれらの文字を含むテキストを張 -り込んだ場合などに、これらの文字を一括して文字参照形式に変換できます。 +文字としての < や > を表現するときは、文字参照を用いて< や > と +表記する必要がありますが、HTML以外のファイルからこれらの文字を含むテキ +ストを張り込んだ場合などに、これらの文字を一括して文字参照形式に変換で +きます。 `[prefix] ;' ... 指定した領域の文字参照に置き換えるべき文字の置換 `[prefix] :' - ... 指定した領域の文字参照を参照文字そのものに置換([prefix] ; - の逆変換) + ... 指定した領域の文字参照を参照文字そのものに置換 + ([prefix] ; の逆変換) @@ -259,9 +262,9 @@ リジョン内文字のURLencode ========================= `[prefix] #' - - ... 指定した領域内に URLencode すべき文字があればそれらをエン - コード表記に置換。 + + ... 指定した領域内に URLencode すべき文字があればそれらを + エンコード表記に置換。 @@ -269,23 +272,25 @@ td括り/tr括り ============= -空白区切りで書いた表形式の行レコードを <td> 括りの並び，あるいはそれらをさ -らに <tr> で括った行並びに変換できます。 +空白区切りで書いた表形式の行レコードを <td> 括りの並び，あるいはそれら +をさらに <tr> で括った行並びに変換できます。 `[prefix] }' - - ... 現在のリジョンにあるデータを空白区切りごとに + + ... 現在のリジョンにあるデータを空白区切りごとに <td>...</td> で括る `[prefix] ]' - - ... 現在のリジョンにある行を上記td括りをほどこしてからさらに行ごと -に <tr>...</tr> で括るデフォルトでは空白区切りですが，これを変えるときは -Delimiter: の問い合わせに区切り文字を指定します。たとえばカンマ(,) を指定 -するとCSVから表を作ることができます。 -td以外の要素，具体的には th で括りたい場合は universal-argument (`C-u') を -つけて上記2つのコマンドを呼びます。どの要素で括るかの質問が増えるのでそれ -に th と入れれば，各フィールドを <th>...</th> で括ります。もし，第1フィー -ルドのみ th で，残りを全部 td 括りにしたいときは thd と入力して下さい。 + ... 現在のリジョンにある行を上記td括りをほどこしてからさらに行 + ごとに <tr>...</tr> で括るデフォルトでは空白区切りですが， + これを変えるときはDelimiter: の問い合わせに区切り文字を指 + 定します。たとえばカンマ(,)を指定するとCSVから表を作るこ + とができます。 + +td以外の要素，具体的には th で括りたい場合は universal-argument +(`C-u') をつけて上記2つのコマンドを呼びます。どの要素で括るかの質問が +増えるのでそれに th と入れれば，各フィールドを <th>...</th>で括ります。 +もし，第1フィールドのみ th で，残りを全部 td 括りにしたいときは thd と +入力して下さい。 @@ -305,34 +310,34 @@ CSSクラス名補完 =============== -HTML屋はCSS(Cascading Style Sheets)のクラス名を補完入力することができます。 -スタイル定義として +HTML屋はCSS(Cascading Style Sheets)のクラス名を補完入力することができ +ます。スタイル定義として h1.foo, h2.foo { background-color: 0xffffff; } h1.bar, h2.bar { font-size: 120%; } -のようなものがあった場合に、h1またはh2タグを [prefix] b や [prefix] l で補 -完入力した場合に、それらに有効な class 名である foo, bar を候補として補完 -入力することが可能です。また +のようなものがあった場合に、h1またはh2タグを [prefix] b や [prefix] l +で補完入力した場合に、それらに有効な class 名である foo, bar を候補と +して補完入力することが可能です。また .caution { font-size: 120%; background-color: 0xc00000;} -のような全てのエレメントに働くclassが定義されていた場合は、全てのタグの補 -完入力時にclass参照入力を求められます。これが煩わしい場合はエレメント名入 -力確定のときにリターンキー(またはC-m)ではなく、C-jを押せばclass補完入力を -キャンセルできます。たとえば +のような全てのエレメントに働くclassが定義されていた場合は、全てのタグ +の補完入力時にclass参照入力を求められます。これが煩わしい場合はエレメ +ント名入力確定のときにリターンキー(またはC-m)ではなく、C-jを押せば +class補完入力をキャンセルできます。たとえば - `[prefix] l' 行内タグ補完を起動 - (または`[prefix] l SPC') + [prefix] l 行内タグ補完を起動 + (または[prefix] l SPC) tt <tt></tt>をいれたいのでttと入力 - `C-m' + C-m とした場合は続いて class= と補完プロンプトが出ますが、 - `[prefix] l' 行内タグ補完を起動 - (または`[prefix] l SPC') + [prefix] l 行内タグ補完を起動 + (または[prefix] l SPC) tt <tt></tt>をいれたいのでttと入力 - `C-j' + C-j と最後を `C-j' で入力した場合は class 補完プロンプトは出ません。 @@ -342,9 +347,9 @@ CSS定義ファイルの読み直し ========================= -htmlファイルを編集中にCSS定義ファイルを修正し、追加したclassを補完候補とし -て直ちに読み込ませたい場合は、`M-x yahtml-mode' として再起動を行ってくださ -い。 +htmlファイルを編集中にCSS定義ファイルを修正し、追加した +classを補完候補として直ちに読み込ませたい場合は、 +`M-x yahtml-mode' として再起動を行ってください。 @@ -371,7 +376,8 @@ yahtml-mode 中のプリフィクスキー (`\C-c') -- Variable: yahtml-image-viewer - imgで参照している画像ファイルを表示するときに起動するコマンド (xv) + imgで参照している画像ファイルを表示するときに起動するコマンド + (xv) -- Variable: yahtml-www-browser `[prefix]g' で外部ページを表示するときに起動するブラウザ (netscape) @@ -379,8 +385,8 @@ -- Variable: yahtml-kanji-code デフォルトの漢字コード。1=sjis, 2=jis, 3=euc, 4=utf-8 (2) .htaccess ファイルに - AddType "text/html; charset=xxx" .html の記述があった場合はそれ - に従う + AddType "text/html; charset=xxx" .htmlの記述があった場合は + それに従う -- Variable: yahtml-fill-column auto-fillするときのカラム数 (72) @@ -389,17 +395,19 @@ yahtml-mode 固有のfill-prefix (`nil') -- Variable: yahtml-path-url-alist - OSのファイルシステム上でのフルパス名と、その外部公開時のURLの対応表。 + OSのファイルシステム上でのフルパス名と、その外部公開時のURLの対応 + 表。 -- Variable: yahtml-directory-index - サーバアクセス時ファイル名を省略したときにデフォルトで開かれるインデッ - クスファイルの名前。多くの場合 index.html。(`"index.html"') + サーバアクセス時ファイル名を省略したときにデフォルトで開かれるイ + ンデックスファイルの名前。多くの場合 index.html。(`"index.html"') -- Variable: yahtml-lint-program HTML構文チェックプログラム。(`"jweblint"') -- Variable: yahtml-hate-too-deep-indentation - ネストした列挙系環境でのインデントが深すぎるときにtにする。(`nil') + ネストした列挙系環境でのインデントが深すぎるときにtにする。 + (`nil') -- Variable: yahtml-always-/p `<p>' をいれたら必ず `</p>' したい人向け。`nil' @@ -423,26 +431,27 @@ ./.htaccess を参照するかどうかを決定する。`'apache' -- Variable: yahtml-apache-access-file - `yahtml-server-type' が `'apache' のときにアクセス制限ファイル名を指 - 定。`".htaccess"' + `yahtml-server-type' が `'apache' のときにアクセス制限ファイル名 + を指定。`".htaccess"' -- Variable: yahtml-shell-command-option シェルで別コマンドを起動するときのオプション。 -- Variable: yahtml-translate-hyphens-when-comment-region - 領域コメントアウトをするときに既に存在するハイフンを `-' に変更す - るかどうか。(`t') + 領域コメントアウトをするときに既に存在するハイフンを `-' に変 + 更するかどうか。(`t') -- Variable: yahtml-entity-reference-chars-alist - エンティティ参照(Entity Reference)で記述すべき文字群を`'(?文字 . "エ - ンティティ表記")' という形式を列挙したalistで並べる。デフォルトで - `<', `>', `&', `'', `"' に対するalistが設定されているので、追加したい - 分だけを記述すれば良い。cdr部 `"エンティティ表記"' は、先頭の `&' と - 末尾の`;' は含めずに書く。 + エンティティ参照(Entity Reference)で記述すべき文字群を`'(?文 + 字 . "エンティティ表記")' という形式を列挙したalistで並べる。デ + フォルトで `<', `>', `&', `'', `"' に対するalistが設定されている + ので、追加したい分だけを記述すれば良い。cdr部 `"エンティティ表記 + "' は、先頭の `&' と 末尾の`;'は含めずに書く。 -- Variable: yahtml-faithful-to-htmllint - 構文チェッカとして htmllint を利用する場合ちょっとした余計な空白など - に対しても警告を示すので、これを回避するときにはこの変数を`t'にする。 + 構文チェッカとして htmllint を利用する場合ちょっとした余計な空白 + などに対しても警告を示すので、これを回避するときにはこの変数を`t' + にする。 -- Variable: yahtml-use-css CSSの補完機能を使うかどうか (`t') @@ -451,12 +460,12 @@ 画像ファイルのサイズを調べるときに読み込むバイト数 (`10000') -- Variable: yahtml:img-default-alt-format - <img src...>のALT属性のデフォルト文字列の書式。%xは画像の幅、%yは画像 - の高さ、%sはファイルサイズに置換される (`"%xx%y(%sbytes)"') + <img src...>のALT属性のデフォルト文字列の書式。%xは画像の幅、%yは + 画像の高さ、%sはファイルサイズに置換される (`"%xx%y(%sbytes)"') -- Variable: yahtml-escape-chars - href補完などのときに予約文字をURLエンコードするか; 'askのときは確認し - てから置換する (`'ask') + href補完などのときに予約文字をURLエンコードするか; 'askのときは確 + 認してから置換する (`'ask') -- Variable: yahtml-use-font-lock ソースの色づけパッケージとして font-lock を利用するか(`(featurep @@ -467,7 +476,8 @@ 'hilit19)') -- Variable: yahtml-indentation-boundary - インデント計算を打ち切ってよい境界となる正規表現(`"^\\s *<h[1-3]>"') + インデント計算を打ち切ってよい境界となる正規表現(`"^\\s + *<h[1-3]>"') @@ -484,19 +494,19 @@ 取り扱い ******** - 本プログラムはフリーソフトウェアです。本プログラムを使用して生じたいかな -る結果に対しても作者は責任を負わないこととします。転載等に関しては制限いた -しません。常識的に扱ってください。また、使用している旨をメイルでお知らせい -ただくと、作者は喜んでサポートに励むことでしょう。 + 本プログラムはフリーソフトウェアです。本プログラムを使用して生じたい +かなる結果に対しても作者は責任を負わないこととします。転載等に関しては +制限いたしません。常識的に扱ってください。また、使用している旨をメイル +でお知らせいただくと、作者は喜んでサポートに励むことでしょう。 - 苦情、希望、バグ報告、感想等は歓迎いたします。連絡は yuuji@yatex.org ま -で(2000年12月現在)。継続的に使用してくださる方はメイリングリスト「fj野鳥の -会」に是非加入してください。加入方法については本パッケージの `docs/htmlqa' -ファイルの「その他」の章を御覧ください。 + 苦情、希望、バグ報告、感想等は歓迎いたします。連絡は yuuji@yatex.org +まで(2000年12月現在)。継続的に使用してくださる方はメイリングリスト「fj +野鳥の会」に是非加入してください。加入方法については本パッケージの +`docs/htmlqa'ファイルの「その他」の章を御覧ください。 仕様は、予告なく確実に(気分次第で)変更されます:-p。 - 広瀬雄二 + 広瀬雄二 @@ -508,39 +518,35 @@ * Menu: -* カスタマイズ[かすたまいす]: Customizations. 4. -* キーアサイン[きいあさいん]: Customizations. 4. -* Demacs: Intro. 4. -* HTMLｮ[HTMLや]: Intro. 4. -* LaTeX: Intro. 4. -* Mule: Intro. 4. - - - - +* キーアサイン[きいあさいん]: Customizations. (line 5) +* カスタマイズ[かすたまいす]: Customizations. (line 5) +* Demacs: Intro. (line 5) +* HTML屋[HTMLや]: Intro. (line 5) +* LaTeX: Intro. (line 5) +* Mule: Intro. (line 5) Tag table: -Node: Top257 -Node: Intro726 -Node: Installation1005 -Node: yahtml起動のための設定1193 -Node: lintプログラム/ブラウザ/イメージヴューア環境等の設定1847 -Node: WWWページ環境用変数の設定2347 -Node: Command Invocation3118 -Node: Completion3445 -Node: Jump4429 -Node: Changing and Deleting4828 -Node: 対タグの変更5002 -Node: 文字参照への変更5352 -Node: リジョン内文字のURLencode5735 -Node: td括り/tr括り5969 -Node: CSS Support6598 -Node: CSS-class completion6796 -Node: Reread CSS file7792 -Node: Customizations8014 -Node: All customizable variables8238 -Node: Hook variables11236 -Node: Copying11348 -Node: Concept Index11851 +Node: Top260 +Node: Intro729 +Node: Installation1009 +Node: yahtml起動のための設定1197 +Node: lintプログラム/ブラウザ/イメージヴューア環境等の設定1849 +Node: WWWページ環境用変数の設定2349 +Node: Command Invocation3151 +Node: Completion3478 +Node: Jump4460 +Node: Changing and Deleting4859 +Node: 対タグの変更5033 +Node: 文字参照への変更5383 +Node: リジョン内文字のURLencode5775 +Node: td括り/tr括り6014 +Node: CSS Support6688 +Node: CSS-class completion6886 +Node: Reread CSS file7869 +Node: Customizations8091 +Node: All customizable variables8315 +Node: Hook variables11343 +Node: Copying11455 +Node: Concept Index11951 End tag table
--- a/makefile Sun Jul 12 14:21:20 2015 +0900 +++ b/makefile Thu Jan 05 20:45:19 2017 +0900 @@ -48,7 +48,7 @@ # make clean to delete all producted files # make ci to check in all # make co to check out all -MVER = 1.78 +MVER = 1.79 LISP = ${LISP18} ${LISP19} ${LISP23} YAHTML = yahtml.el COMMON = yatexlib.el yatexprc.el @@ -241,10 +241,6 @@ dostci: ci -l${MVER}.0 -Ncurrent @rcsfile -gohome: - zip -u -r /com/okoma/yuuji/tmp/dosconv/yatex.zip . \ - -x '*RCS/*' -x 'texinfo/*' - RSYNCDIR = ${HOME}/http/yatex/rsync/yatex #sync: # @-mkdir ${PACKDIR}
--- a/yahtml.el Sun Jul 12 14:21:20 2015 +0900 +++ b/yahtml.el Thu Jan 05 20:45:19 2017 +0900 @@ -1,9 +1,9 @@ ;;; yahtml.el --- Yet Another HTML mode -*- coding: sjis -*- -;;; (c) 1994-2015 by HIROSE Yuuji [yuuji(@)yatex.org] -;;; Last modified Wed Feb 11 12:17:03 2015 on firestorm +;;; (c) 1994-2017 by HIROSE Yuuji [yuuji(@)yatex.org] +;;; Last modified Thu Jan 5 17:45:36 2017 on firestorm ;;; $Id$ -(defconst yahtml-revision-number "1.78.1" +(defconst yahtml-revision-number "1.79" "Revision number of running yahtml.el") ;;; Commentary: @@ -369,6 +369,7 @@ (yahtml-define-begend-key "b3" "h3" map) (yahtml-define-begend-key "ba" "a" map) (yahtml-define-begend-key "bf" "form" map) + (yahtml-define-begend-key "bl" "label" map) (yahtml-define-begend-key "bs" "select" map) (yahtml-define-begend-key "bv" "div" map) (yahtml-define-begend-key "bS" "span" map) @@ -382,7 +383,7 @@ (YaTeX-define-key "k" 'yahtml-kill-* map) (YaTeX-define-key "c" 'yahtml-change-* map) (YaTeX-define-key "t" 'yahtml-browse-menu map) - (YaTeX-define-key "a" 'yahtml-complete-mark map) + (YaTeX-define-key "a" 'yahtml-char-entity-ref map) (YaTeX-define-key "'" 'yahtml-prev-error map) (YaTeX-define-key ";" 'yahtml-translate-region map) (YaTeX-define-key ":" 'yahtml-translate-reverse-region map) @@ -424,7 +425,7 @@ ;;; Completion tables for `form' (defvar yahtml-form-table - '(("img") ("input") ("link") ("meta"))) + '(("img") ("input") ("link") ("meta") ("label") ("source"))) (defvar yahtml-user-form-table nil) (defvar yahtml-tmp-form-table nil) (defvar yahtml-last-form "img") @@ -441,7 +442,9 @@ ("h1") ("h2") ("h3") ("h4") ("h5") ("h6") ;; ("p") ;This makes indentation screwed up! ("style") ("script") ("noscript") ("div") ("object") ("ins") ("del") - ("option") + ("option") ("datalist") + ;;HTML5 + ("video") ("audio") )) (if yahtml-html4-strict @@ -473,7 +476,7 @@ (append '(("dfn") ("em") ("cite") ("code") ("kbd") ("samp") ("caption") ("strong") ("var") ("b") ("i") ("tt") ("big") ("small") - ("sup") ("sub") ("span") ("abbr")) + ("sup") ("sub") ("span") ("abbr") ("label")) (if (not yahtml-html4-strict) '(("strike") ("s") ("u") ("font"))) yahtml-env-table) @@ -563,7 +566,7 @@ (defun yahtml-dir-default-charset () (let*((fn (file-name-nondirectory (or buffer-file-name ""))) (ext (substring fn (or (string-match "\\.[a-z0-9]+$" fn) 0))) - (ptn (format "^\\s *AddType.*charset=\\(.*\\)\\%s$" ext)) + (ptn (format "^\\s *AddType.*charset=\\(.*\\)\\%s\\>" ext)) (case-fold-search t) line charset) @@ -869,7 +872,7 @@ (insert "\n") (indent-to-column cc) (insert (format "</%s>" cmd))) - (if (string-match "^a\\|p$" cmd) ;aとp決め打ちってのが美しくない… + (if (string-match "^[ap]$" cmd) ;aとp決め打ちってのが美しくない… (newline) (yahtml-intelligent-newline nil)) (yahtml-indent-line)))) @@ -940,7 +943,7 @@ (and (setq a (yahtml-css-get-element-completion-alist form)) (not (equal (YaTeX-last-key) ?\C-j)) (memq yahtml-current-completion-type '(multiline inline)) - (not (string-match "#" form)) + (not (string-match "#\\|source" form)) (yahtml-make-optional-argument ;should be made generic? "class" (yahtml-read-css a form))) (if (and (intern-soft addin) (fboundp (intern-soft addin)) @@ -950,18 +953,20 @@ "")))) (defvar yahtml-completing-buffer nil) -(defun yahtml-collect-labels (&optional file) +(defun yahtml-collect-labels (&optional file ptn withouthash) "Collect current buffers label (<?? name=...>). If optional argument FILE is specified collect labels in FILE." - (let (list end) + (let ((attrptn (concat "\\(" (or ptn "name\\|id") "\\)\\s *=")) + (hash (if withouthash "" "#")) + list end) (save-excursion - (set-buffer yahtml-completing-buffer) + (set-buffer (or yahtml-completing-buffer (current-buffer))) (if file (let (hilit-auto-highlight) (set-buffer (find-file-noselect file)))) (save-excursion (goto-char (point-min)) (while ;(re-search-forward "<\\w+\\b" nil t) - (re-search-forward "\\(name\\|id\\)\\s *=" nil t) + (re-search-forward attrptn nil t) ;(setq bound (match-end 0)) ;(search-forward ">" nil t) (setq end (match-end 0)) @@ -972,10 +977,13 @@ (skip-chars-forward " \t\n") (looking-at "\"?#?\\([^\">]+\\)\"?\\b"))) (setq list (cons - (list (concat "#" (YaTeX-match-string 1))) + (list (concat hash (YaTeX-match-string 1))) list)))) list)))) +(defun yahtml-collect-ids (&optional file) + (yahtml-collect-labels file "id" 'withouthash)) + (defvar yahtml-url-completion-map nil "Key map used in URL completion buffer") (if yahtml-url-completion-map nil (setq yahtml-url-completion-map @@ -1151,7 +1159,7 @@ '(("align" ("top") ("middle") ("bottom") ("left") ("right") ("center")) ("clear" ("left") ("right") ("center") ("all") ("none")) ("lang" ("ja") ("en") ("kr") ("ch") ("fr")) - ("src" . file) ("file" . file) + ("src" . file) ("file" . file) ("poster" . file) ("background" . file) ("class file name" . file) ("data" . file) ("method" ("POST") ("GET")) @@ -1175,7 +1183,7 @@ ("image/jpeg") ("image/gif") ("image/tiff") ("image/png") ("video/mpeg")) "Alist of content-types") -(defun yahtml-read-parameter (par &optional default alist) +(defun yahtml-read-parameter (par &optional default alist predicate) (let* ((alist (cdr-safe (assoc (downcase par) (or alist yahtml-parameters-completion-alist)))) @@ -1184,7 +1192,7 @@ (cond ((eq alist 'file) (let ((insert-default-directory)) - (read-file-name prompt "" default nil ""))) + (read-file-name prompt "" default nil "" predicate))) ((eq alist 'command) (if (fboundp 'read-shell-command) (read-shell-command prompt) @@ -1196,6 +1204,17 @@ (completing-read-with-history prompt alist nil nil default)) (t (read-string-with-history prompt default))))) + +(defun yahtml-read-file-name-regexp + (prompt regexp &optional dir default-filename mustmatch initial) + (let ((pred + (function + (lambda (f) + (or (file-name-directory f) + (string-match regexp f))))) + (insert-default-directory nil)) + (read-file-name prompt dir default-filename mustmatch initial pred))) + (defun yahtml-make-optional-argument (opt arg) "Make optional argument string." @@ -1416,9 +1435,15 @@ (defun yahtml:select () "Add-in function for `select' input format" - (setq yahtml-last-single-cmd "option") + (setq yahtml-last-single-cmd "option" ;;<- it's old + yahtml-last-typeface-cmd "option") (concat " " (if yahtml-prefer-upcase-attributes "NAME" "name") "=\"" (read-string-with-history "name: ") "\"")) +(defun yahtml:label () + "Add-in function for `<label>'" + (yahtml-make-optional-argument + "for" + (YaTeX-completing-read-or-skip "for=" (yahtml-collect-ids) nil t))) (defun yahtml:ol () "Add-in function for <ol>" @@ -1447,22 +1472,31 @@ (defun yahtml:input () "Add-in function for `input' form" - (let ((size "") name type value checked (maxlength "") + (let ((size "") name type value id (maxlength "") (l yahtml-prefer-upcase-attributes)) (setq name (read-string-with-history "name: ") type (YaTeX-completing-read-or-skip "type (default=text): " yahtml-input-types nil t) - value (YaTeX-read-string-or-skip "value: ")) - (if (string-match "text\\|password\\|^$" type) + value (YaTeX-read-string-or-skip "value: ") + id (YaTeX-read-string-or-skip "id: ")) + (if (string-match "text\\|password\\|^$" typxe) (setq size (YaTeX-read-string-or-skip "size: ") maxlength (YaTeX-read-string-or-skip "maxlength: "))) (concat (if l "NAME" "name") "=\"" name "\"" (yahtml-make-optional-argument "type" type) (yahtml-make-optional-argument "value" value) + (yahtml-make-optional-argument "id" id) (yahtml-make-optional-argument "size" size) (yahtml-make-optional-argument "maxlength" maxlength)))) +(defun yahtml:datalist () + "Add-in function for `datalist' form" + (setq yahtml-last-typeface-cmd "option") + (let ((ids (yahtml-collect-ids))) + (yahtml-make-optional-argument + "id" (YaTeX-completing-read-or-skip "id: " ids nil t)))) + (defun yahtml:textarea () "Add-in function for `textarea'" (interactive) @@ -1479,8 +1513,9 @@ (defun yahtml:table () "Add-in function for `table'" (let ((b (read-string-with-history "border=")) - (a (yahtml-read-parameter - "align" nil '(("align" ("right")("center")))))) + (a (if yahtml-html4-strict "" + (yahtml-read-parameter + "align" nil '(("align" ("right")("center"))))))) (if yahtml-html4-strict (yahtml-make-optional-argument "style" @@ -1758,6 +1793,38 @@ (format "cmd=\"%s\"--" (yahtml-read-parameter "cmd" "" '(("cmd" . command))))) +(defun yahtml:media-read-options (&optional opts-alist) + (let*((delim " ") + (minibuffer-completion-table + (or opts-alist '(("autoplay") ("controls") ("loop") ("preload")))) + (quotekey (substitute-command-keys "\\[quoted-insert]"))) + (read-from-minibuffer-with-history + (format "Media Opts(`%s SPC' for more options): " quotekey) + "controls" YaTeX-minibuffer-completion-map))) + +(defun yahtml:audio () + ;preload autoplay loop controls: `src' be specified via `source' + (yahtml:media-read-options)) + +(defun yahtml:video () + ;`src' be specified via `source' + (let ((poster (yahtml-make-optional-argument + "poster" + (yahtml-read-file-name-regexp + "Poster: " "\\.\\(gif\\|png\\|jpg\\|w?bmp\\|pict\\|tif\\)" + ""))) + (opts (yahtml:media-read-options))) + (concat poster (if (string< "" opts) (concat " " opts))))) + +(defvar yahtml-media-file-regexp + "\\.\\(mp[0-9]\\|wav\\|og[gv]\\|opus\\|aac\\)" + "*Default filename regexp of media files.") + +(defun yahtml:source () + ;; source element must have src attribute + (format "src=\"%s\"" (yahtml-read-file-name-regexp + "source: " yahtml-media-file-regexp "" "" nil ""))) + ;;; ---------- Jump ---------- (defun yahtml-on-href-p () "Check if point is on href clause." @@ -2836,6 +2903,11 @@ (fset 'yahtml-intelligent-newline-ol 'yahtml-intelligent-newline-ul) +(defun yahtml-intelligent-newline-datalist () + (interactive) + (yahtml-insert-form "option") + (save-excursion (yahtml-insert-form "/option"))) + (defun yahtml-intelligent-newline-dl () (interactive) (let ((case-fold-search t)) @@ -2960,6 +3032,22 @@ (goto-char (+ 8 cp)) (yahtml-indent-line))))))) +(defun yahtml-intelligent-newline-audio () + (let (b e) + (if (save-excursion + (goto-char (setq b (get 'YaTeX-inner-environment 'point))) + (forward-list 1) + (setq e (point)) + (catch 'src + (while (re-search-forward "\\s src\\>" e t) + (skip-chars-forward " \t\n") + (and (looking-at "=") (throw 'src t))))) + ;; if src= attribute found, do nothing + (setq yahtml-last-begend "p") + (yahtml-insert-single "source") + ))) +(fset 'yahtml-intelligent-newline-video 'yahtml-intelligent-newline-audio) + ;;; ---------- Marking ---------- (defun yahtml-mark-begend () "Mark current tag" @@ -2975,18 +3063,19 @@ (if (eolp) (forward-char 1))) ;;; ---------- complete marks ---------- -(defun yahtml-complete-mark () - "Complete >, <, &ersand, and "e." +(defun yahtml-char-entity-ref () + "Complete >, <, &, and "." (interactive) (message "1:< 2:> 3:& 4:\" 5:' 6:nbsp") - (let ((c (read-char))) - (setq c (if (or (< c ?0) (> c ?7)) - (string-match (regexp-quote (char-to-string c)) "<>&\"") + (let ((c (read-char)) d) + (setq d (if (or (< c ?0) (> c ?7)) + (string-match (regexp-quote (char-to-string c)) "<>&\"' ") (- c ?1))) - (if (or (< c 0) (> c 6)) - nil + (cond + ((null d) (insert (format "&#x%x;" c))) + ((and (>= d 0) (<= d 6)) (insert (format "&%s;" - (nth c '("lt" "gt" "amp" "quot" "apos" "nbsp"))))))) + (nth d '("lt" "gt" "amp" "quot" "apos" "nbsp")))))))) ;;; ---------- jump to error line ----------
--- a/yatex.el Sun Jul 12 14:21:20 2015 +0900 +++ b/yatex.el Thu Jan 05 20:45:19 2017 +0900 @@ -1,6 +1,6 @@ ;;; yatex.el --- Yet Another tex-mode for emacs //野鳥// -*- coding: sjis -*- -;;; (c)1991-2015 by HIROSE Yuuji.[yuuji@yatex.org] -;;; Last modified Wed Jul 8 13:41:17 2015 on duke +;;; (c)1991-2017 by HIROSE Yuuji.[yuuji@yatex.org] +;;; Last modified Thu Jan 5 17:45:40 2017 on firestorm ;;; $Id$ ;;; The latest version of this software is always available at; ;;; http://www.yatex.org/ @@ -8,7 +8,7 @@ ;;; Code: (require 'comment) (require 'yatexlib) -(defconst YaTeX-revision-number "1.78.9" +(defconst YaTeX-revision-number "1.79" "Revision number of running yatex.el") ;---------- Local variables ---------- @@ -283,7 +283,7 @@ ("footnote") ("footnotetext") ("index") ("hspace*") ("vspace*") ("bibliography") ("bibitem") ("cite") ("input") ("include") ("includeonly") ("mbox") ("hbox") ("caption") - ("arabic") + ("arabic") ("cetering") ("uline") ("newcounter") ("newlength") ("setlength" 2) ("addtolength" 2) ("settowidth" 2) ("setcounter" 2) ("addtocounter" 2) ("stepcounter" 2) @@ -299,13 +299,15 @@ ("frac" 2) ("sqrt") ("mathrm") ("mathbf") ("mathit") ;;cleveref ("cref") ("crefrange") ("cpageref") ("labelcref") ("labelcpageref") + ;; beamer + ("frametitle") ("framesubtitle") ) (if YaTeX-use-LaTeX2e '(("documentclass") ("usepackage") ("textbf") ("textgt") ("textit") ("textmc") ("textmd") ("textnormal") ("textrm") ("textsc") ("textsf") ("textsl") ("texttt") ("textup") ("mathbf") ("mathcal") ("mathit") ("mathnormal") ("mathrm") - ("mathsf") ("mathtt") + ("mathsf") ("mathtt") ("text") ("textcircled") ("scalebox" 1) ;is faking of argument position ("rotatebox" 2) ("resizebox" 3) ("reflectbox") @@ -359,6 +361,7 @@ ("minipage") ("supertabular") ("wrapfigure") ("wraptable") + ("frame") ("block") ("example") ("columns") ("column") ;beamer ) (if YaTeX-use-LaTeX2e '(("comment") ;defined in version @@ -410,6 +413,7 @@ ("linebreak") ("pagebreak") ("noindent") ("indent") ("left") ("right") ("dots") ("smallskip") ("medskip") ("bigskip") ("displaystyle") + ("onslide") ("pause") ;beamer ) (if YaTeX-greek-by-maketitle-completion '(("alpha") ("beta") ("gamma") ("delta") ("epsilon")
--- a/yatex.new Sun Jul 12 14:21:20 2015 +0900 +++ b/yatex.new Thu Jan 05 20:45:19 2017 +0900 @@ -12,8 +12,9 @@ タイプセットでPDF出力がありそうなときは次回previewをPDFヴューアに。 === yahtml === 領域活性時に呼び出す補完は領域括りになるようにした。 - ... - + audio, video, label要素対応 + datalistでidを補完対象に + 文字実体参照補完([prefix] a)でタイプした文字を入力できるようにした。 1.78 Drag&Dropサポートを追加。 tabular環境内で2連続以上Tabで、1カラム進む機能を追加。
--- a/yatex19.el Sun Jul 12 14:21:20 2015 +0900 +++ b/yatex19.el Thu Jan 05 20:45:19 2017 +0900 @@ -1,6 +1,6 @@ ;;; yatex19.el -- YaTeX facilities for Emacs 19 or later -*- coding: sjis -*- -;;; (c)1994-2015 by HIROSE Yuuji.[yuuji@yatex.org] -;;; Last modified Fri Jan 16 15:03:58 2015 on firestorm +;;; (c)1994-2017 by HIROSE Yuuji.[yuuji@yatex.org] +;;; Last modified Thu Jan 5 17:45:46 2017 on firestorm ;;; $Id$ ;;; Code:
--- a/yatex23.el Sun Jul 12 14:21:20 2015 +0900 +++ b/yatex23.el Thu Jan 05 20:45:19 2017 +0900 @@ -1,8 +1,9 @@ ;;; yatex23.el --- YaTeX facilities for Emacs 23 or later -*- coding: sjis -*- -;;; (c)2014-2015 by HIROSE Yuuji.[yuuji@yatex.org] -;;; Last modified Sun Jan 18 21:12:27 2015 on firestorm +;;; (c)2014-2017 by HIROSE Yuuji.[yuuji@yatex.org] +;;; Last modified Thu Jan 5 17:45:48 2017 on firestorm ;;; $Id$ +(require 'yatex19) ;;; Code: (defvar YaTeX-dnd-auto-figure "figure" "*If set, include dropped \\includegraphcs{} into that environment.
--- a/yatexadd.el Sun Jul 12 14:21:20 2015 +0900 +++ b/yatexadd.el Thu Jan 05 20:45:19 2017 +0900 @@ -1,6 +1,6 @@ ;;; yatexadd.el --- YaTeX add-in functions -*- coding: sjis -*- -;;; (c)1991-2015 by HIROSE Yuuji.[yuuji@yatex.org] -;;; Last modified Wed Jul 8 09:15:15 2015 on firestorm +;;; (c)1991-2017 by HIROSE Yuuji.[yuuji@yatex.org] +;;; Last modified Thu Jan 5 17:45:50 2017 on firestorm ;;; $Id$ ;;; Code: @@ -2105,6 +2105,85 @@ ((memq c '(?c ?C)) (setq left "{\\scriptsize " right "}"))) (format "%s%s%s" left char right))))) +;;; -------------------- beamer stuff -------------------- +(defvar YaTeX:frame-option-alist-default + '(("plain") ("containsverbatim") ("shrink") ("squeeze") + ("allowframebreaks") ("label="))) +(defvar YaTeX:frame-option-alist-private nil + "*Alist for completion list of the argument for `frame' environemnt") +(defvar YaTeX:frame-option-alist + (append YaTeX:frame-option-alist-private YaTeX:frame-option-alist-default)) + +(defun YaTeX:frame () + (let*((minibuffer-local-completion-map YaTeX-minibuffer-completion-map) + (delim ",") + (opt (YaTeX-completing-read-or-skip + "Frame option: " YaTeX:frame-option-alist)) + (title (YaTeX-read-string-or-skip "Title: ")) + (subtitle (YaTeX-read-string-or-skip "Subtitle: "))) + (setq YaTeX-env-name "columns") + (concat + (if (string< "" opt) (concat "[" opt "]")) + (if (string< "" title) (concat "{" title "}")) + (if (string< "" subtitle) (concat "{" subtitle "}"))))) + +(defun YaTeX:column-read-width () + "Completing function for column environment/macro of Beamer" + (let ((md (match-data)) (colsinf (YaTeX-quick-in-environment-p "columns")) + (totalw (float 1)) restw (ww "\\textwidth") defw cw) + (unwind-protect + (progn + (if (save-excursion + (YaTeX-re-search-active-backward + "totalwidth=\\([.0-9]+\\)\\(\\\\.*width\\)" + YaTeX-comment-prefix (cdr colsinf) t)) + (setq totalw (float (string-to-number (YaTeX-match-string 1))) + ww (YaTeX-match-string 2))) + (setq restw totalw) + (save-excursion + (while (YaTeX-re-search-active-backward + (concat + "\\\\begin{column}{\\([.0-9]+\\)\\(\\\\.*width\\)}" + "\\|" + "\\\\column{\\([.0-9]+\\)\\(\\\\.*width\\)}") + YaTeX-comment-prefix + (cdr colsinf) t) + (setq restw (- restw (string-to-number + (or (YaTeX-match-string 1) + (YaTeX-match-string 3))))))) + (setq defw (format "%.2f%s" + (if (= totalw restw) (/ totalw 2) restw) + (or (YaTeX-match-string 2) + (YaTeX-match-string 4) + ww)) + cw (YaTeX:read-length + (format "Column width(default: %s): " defw))) + (if (string= "" cw) (setq cw defw)) + (prog1 + cw + (setq YaTeX-section-name "column"))) + (store-match-data md)))) + +(defun YaTeX:column () + (if (eq YaTeX-current-completion-type 'begin) + (concat "{" (YaTeX:column-read-width) "}"))) +(defun YaTeX::column (argp) + (cond + ((= argp 1) (YaTeX:column-read-width)))) +(defvar YaTeX:columns-option-alist + '(("t") ("T") ("b") ("c") ("onlytextwidth") ("totalwidth=0.9\\textwidth")) + "*Default option alist for completing columns environment of Beamer") + +(defun YaTeX:columns () + (setq YaTeX-section-name "column" + YaTeX-env-name "column") + (let*((minibuffer-local-completion-map YaTeX-minibuffer-completion-map) + (delim ",=") + (tbl (append YaTeX:columns-option-alist)) ;XX + (opt (YaTeX-completing-read-or-skip "columns option: " tbl))) + (if (string< "" opt) + (concat "[" opt "]")))) + ;;; -------------------- math-mode stuff -------------------- (defun YaTeX::tilde (&optional pos) "For accent macros in mathmode"
--- a/yatexenv.el Sun Jul 12 14:21:20 2015 +0900 +++ b/yatexenv.el Thu Jan 05 20:45:19 2017 +0900 @@ -1,6 +1,6 @@ ;;; yatexenv.el --- YaTeX environment-specific functions -;;; (c) 1994-2013 by HIROSE Yuuji.[yuuji@yatex.org] -;;; Last modified Mon Dec 22 12:49:03 2014 on firestorm +;;; (c) 1994-2017 by HIROSE Yuuji.[yuuji@yatex.org] +;;; Last modified Thu Jan 5 17:45:53 2017 on firestorm ;;; $Id$ ;;; Code:
--- a/yatexlib.el Sun Jul 12 14:21:20 2015 +0900 +++ b/yatexlib.el Thu Jan 05 20:45:19 2017 +0900 @@ -1,7 +1,7 @@ ;;; yatexlib.el --- YaTeX and yahtml common libraries -*- coding: sjis -*- ;;; -;;; (c)1994-2015 by HIROSE Yuuji.[yuuji@yatex.org] -;;; Last modified Fri Jan 16 10:32:31 2015 on firestorm +;;; (c)1994-2017 by HIROSE Yuuji.[yuuji@yatex.org] +;;; Last modified Thu Jan 5 17:46:13 2017 on firestorm ;;; $Id$ ;;; Code:
--- a/yatexmth.el Sun Jul 12 14:21:20 2015 +0900 +++ b/yatexmth.el Thu Jan 05 20:45:19 2017 +0900 @@ -1,7 +1,7 @@ ;;; yatexmth.el --- YaTeX math-mode-specific functions -*- coding: sjis -*- ;;; -;;; (c)1993-2015 by HIROSE Yuuji [yuuji@yatex.org] -;;; Last modified Sun Jul 12 10:02:36 2015 on firestorm +;;; (c)1993-2017 by HIROSE Yuuji [yuuji@yatex.org] +;;; Last modified Thu Jan 5 17:46:22 2017 on firestorm ;;; $Id$ ;;; Commentary:
--- a/yatexpkg.el Sun Jul 12 14:21:20 2015 +0900 +++ b/yatexpkg.el Thu Jan 05 20:45:19 2017 +0900 @@ -1,7 +1,7 @@ ;;; yatexpkg.el --- YaTeX package manager -*- coding: sjis -*- ;;; -;;; (c)2003-2015 by HIROSE, Yuuji [yuuji@yatex.org] -;;; Last modified Fri Feb 13 22:45:46 2015 on firestorm +;;; (c)2003-2017 by HIROSE, Yuuji [yuuji@yatex.org] +;;; Last modified Thu Jan 5 17:46:30 2017 on firestorm ;;; $Id$ ;;; Code: @@ -27,6 +27,7 @@ ("alltt" (env "alltt")) ("misc" (section "verbfile" "listing")) + ("verbatim" (section "verbatiminput")) ("eclbkbox" (env "breakbox")) ("supertabular" (env "supertabular")) ("amsmath" (env . YaTeX-package-ams-envs)
--- a/yatexprc.el Sun Jul 12 14:21:20 2015 +0900 +++ b/yatexprc.el Thu Jan 05 20:45:19 2017 +0900 @@ -1,7 +1,7 @@ ;;; yatexprc.el --- YaTeX process handler -*- coding: sjis -*- ;;; -;;; (c)1993-2015 by HIROSE Yuuji.[yuuji@yatex.org] -;;; Last modified Fri Feb 13 08:07:20 2015 on firestorm +;;; (c)1993-2017 by HIROSE Yuuji.[yuuji@yatex.org] +;;; Last modified Thu Jan 5 17:46:36 2017 on firestorm ;;; $Id$ ;;; Code: @@ -617,6 +617,7 @@ 'YaTeX-typeset-environment-by-builtin for using yatex-builtin.") (defun YaTeX-typeset-environment-1 () + (require 'yatex23) (let*((math (YaTeX-in-math-mode-p)) (dpi (or (YaTeX-get-builtin "IMAGEDPI") (if math "300" "200"))) (opoint (point)) @@ -1068,7 +1069,8 @@ (save-excursion (YaTeX-visit-main t) (buffer-file-name)))) (pdir (file-name-directory pf)) (bnr (substring pf 0 (string-match "\\....$" pf))) - (cf (file-relative-name (buffer-file-name) pdir)) + ;(cf (file-relative-name (buffer-file-name) pdir)) + (cf (buffer-file-name)) ;2016-01-08 (buffer (get-buffer-create " *preview-jump-line*")) (line (count-lines (point-min) (point-end-of-line))) (previewer (YaTeX-preview-default-previewer))
