quantum fluctuation

いばらきサッカーフェスティバル2012 放送席下

2012-02-25T13:59:00.001+09:00

Tokyo Town Matrix

2012-02-24T22:08:00.000+09:00

b78bfaf9.jpg (820×700)

Andy (No.10588) ゲット

2012-01-28T13:58:00.001+09:00

やっとできた３足目(￣▽￣)ｖ

銀座パラフレーズのカニクリームパスタ

2012-01-28T13:00:00.001+09:00

思ったよか白い。

パラフレーズ
http://r.tabelog.com/tokyo/A1301/A130101/13032728/

ネクタイ買ってもらっちった☆

2012-01-16T08:20:00.001+09:00

永谷園の生姜チャイ

2012-01-11T23:49:00.001+09:00

最近、見なくなったけど、あまり流行ってないのかなあ(´・ω・｀)

久びさに来たマデラ箱

2012-01-10T23:16:00.001+09:00

生ハムぢゃなくて生のハムですっ(≧▽≦)ゞ

2011年12月の読書メーター

2012-01-09T23:40:00.001+09:00

読んだ本の数：7冊
読んだページ数：1505ページ
ナイス数：2ナイス

▼12月に読んだ本一覧
http://book.akahoshitakuya.com/u/125741/matome?invite_id=125741

eshell の PATH と wget がよく分からない・・・。

2012-01-05T11:16:00.001+09:00

先日のつづき。

@rubikitch さんメルマガ（サンプル版）の設定の手順でちょっとできなかったのでメモ

Emacsの鬼るびきちのココだけの話
http://www.mag2.com/m/0001373131.html

auto-install をインストールし、init.el を編集して起動すると

-------------------------------------------------------------------------------------
Warning (initialization): An error occurred while loading `c:/home/.emacs.d/init.el':

File error: Searching for program, no such file or directory, wget

To ensure normal operation, you should investigate and remove the
cause of the error in your initialization file. Start Emacs with
the `--debug-init' option to view a complete error backtrace.
-------------------------------------------------------------------------------------

といわれる。

wget が無いからだよねってことで、

http://users.ugent.be/~bpuype/wget/

から拾ってきた。wget って、64bit版は無いんかなぁ？

/usr/local/bin/

に格納して、init.el に以下を追記。

------------------------------------------
;; 実行パスの追加
(add-to-list 'exec-path "/usr/local/bin")
------------------------------------------

これで正常に起動するようにはなった（先のエラーは無くなった）。

けど、試しに、eshell で wget を打つと

-----------------------------------------
Welcome to the Emacs shell

c:/emacs-23.3/bin $ wget
wget: command not found
c:/emacs-23.3/bin $ which wget
which: no wget in (C:\Program Files\Common Files\Microsoft Shared\Windows Live;C:\Program Files (x86)\Common Files\Microsoft Shared\Windows Live;C:\Windows\system32;C:\Windows;C:\Windows\System32\Wbem;C:\Windows\System32\WindowsPowerShell\v1.0\;C:\Program Files (x86)\NTRU Cryptosystems\NTRU TCG Software Stack\bin\;C:\Program Files\NTRU Cryptosystems\NTRU TCG Software Stack\bin\;C:\Program Files\Dell\Dell Data Protection\Access\Advanced\Wave\Gemalto\Access Client\v5\;C:\Program Files (x86)\Windows Live\Shared;C:\Program Files (x86)\Git\cmd;c:\w32tex\bin)

-----------------------------------------

あれー、なんでかなぁ、PATH しか見てない。

eshell は eshell-path-env を見ているからとのことで、init.el に

------------------------------------------
;; eshell 用のものを追加
(setq eshell-path-env (concat "/usr/local/bin:" (getenv "PATH")))
------------------------------------------

を追加したけど、上記と同じ・・・なんでー？

仕方ないので、環境変数の PATH に

c:\usr\local\bin

を追加して、以下は削除。なんだかなー。

------------------------------------------
;; 実行パスの追加
(add-to-list 'exec-path "/usr/local/bin")
;; eshell 用のものを追加
(setq eshell-path-env (concat "/usr/local/bin:" (getenv "PATH")))
------------------------------------------

気を取り直して、C-x C-f ~/.wgetrc で

http_proxy=<address>:<port>

を設定して、保存。

M-x eshell で

-------------------------------------------------------------------------------------
Welcome to the Emacs shell

c:/emacs-23.3/bin $ cd ~
~ $ rm -rf ~/.emacs.d/*
~ $ mkdir -p ~/.emacs.d/auto-install
~ $ cd ~/.emacs.d/auto-install/
~/.emacs.d/auto-install $ wget http://www.emacswiki.org/emacs/download/auto-install.el
--2012-01-05 10:37:20-- http://www.emacswiki.org/emacs/download/auto-install.el
Connecting to <address>:<port>... connected.
Proxy request sent, awaiting response... 200 OK
Length: unspecified [text/plain]
Saving to: `auto-install.el'

0K .......... .......... .......... .......... .......... 1.27M
50K ...... 13.7M=0.04s

2012-01-05 10:37:20 (1.43 MB/s) - `auto-install.el' saved [58346]
-------------------------------------------------------------------------------------

M-x byte-compile-file
~/.emacs.d/auto-install/auto-install.el

でバイトコンパイル。

init.el は以下のように記載

-------------------------------------------------------------------------------------
(add-to-list 'load-path "~/.emacs.d/auto-install/")
(require 'auto-install)
(auto-install-update-emacswiki-package-name t)
(auto-install-compatibility-setup)
(setq ediff-window-setup-function 'ediff-setup-windows-plain)
-------------------------------------------------------------------------------------

続いて、他のもインストールしてしまう。

M-x install-elisp-from-emacswiki open-junk-file.el C-c C-c
M-x install-elisp-from-emacswiki lispxmp.el C-c C-c
M-x install-elisp http://mumble.net/~campbell/emacs/paredit.el C-c C-c
M-x install-elisp-from-emacswiki auto-async-byte-compile.el C-c C-c

で、きれいに入った。最終的な init.el は以下の通り。

-------------------------------------------------------------------------------------

(custom-set-variables
;; custom-set-variables was added by Custom.
;; If you edit it by hand, you could mess it up, so be careful.
;; Your init file should contain only one such instance.
;; If there is more than one, they won't work right.
'(show-paren-mode t))
(custom-set-faces
;; custom-set-faces was added by Custom.
;; If you edit it by hand, you could mess it up, so be careful.
;; Your init file should contain only one such instance.
;; If there is more than one, they won't work right.
'(default ((t (:inherit nil :stipple nil :background "SystemWindow" :foreground "SystemWindowText" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 98 :width normal :foundry "outline" :family "メイリオ")))))

;;; auto-install.elの設定
;; ~/.emacs.d/auto-install以下にauto-install.elでダウンロードされたファイルを保存する。
(add-to-list 'load-path "~/.emacs.d/auto-install/")
(require 'auto-install)

;; EmacsWikiのページ名データベースを得る(補完用)。
(auto-install-update-emacswiki-package-name t)
;; auto-install.elがinstall-elisp.el互換になる。
(auto-install-compatibility-setup)
; ediffが新しいフレームを作らないようにする
(setq ediff-window-setup-function 'ediff-setup-windows-plain)

;;;試行錯誤用ファイルを開くための設定
(require 'open-junk-file)
;; C-x C-zで試行錯誤ファイルを開く
(global-set-key (kbd "C-x C-z") 'open-junk-file)
;;;式の評価結果を注釈するための設定
(require 'lispxmp)
;; emacs-lisp-modeでC-c C-dを押すと注釈される
;; C-c C-dで「; =>」のついた行の式の値を注釈する。
(define-key emacs-lisp-mode-map (kbd "C-c C-d") 'lispxmp)

;;;括弧の対応を保持して編集する設定
(require 'paredit)
;; emacs-lisp-mode、lisp-interaction-mode(*scratch*)、
;; lisp-mode、ielm-mode(シェル的elisp実行環境)で
;; paredit.elを有効にする。
(add-hook 'emacs-lisp-mode-hook 'enable-paredit-mode)
(add-hook 'lisp-interaction-mode-hook 'enable-paredit-mode)
(add-hook 'lisp-mode-hook 'enable-paredit-mode)
(add-hook 'ielm-mode-hook 'enable-paredit-mode)
;; ファイルが更新されたら自動でバイトコンパイルをする。
(require 'auto-async-byte-compile)
;;自動バイトコンパイルを無効にするファイル名の正規表現
(setq auto-async-byte-compile-exclude-files-regexp "/junk/")
;; emacs-lisp-modeとlisp-interaction-modeで、
;; エコーエリアに関数名、変数名のドキュメントを
;; 表示する。(eldoc)
(add-hook 'emacs-lisp-mode-hook 'enable-auto-async-byte-compile-mode)
(add-hook 'emacs-lisp-mode-hook 'turn-on-eldoc-mode)
(add-hook 'lisp-interaction-mode-hook 'turn-on-eldoc-mode)
(add-hook 'ielm-mode-hook 'turn-on-eldoc-mode)
(setq eldoc-idle-delay 0.2) ;すぐに表示したい
(setq eldoc-minor-mode-string "") ;モードラインにElDocと表示しない
;;釣り合いのとれる括弧をハイライトする
(show-paren-mode 1)
;;改行と同時にインデントも行う
(global-set-key "\C-m" 'newline-and-indent)
;; find-functionをキー割り当てする
;; ?C-x Vをfind-variableに割り当て。
;; ?変数定義を開く。
;; ?C-x Kをfind-function-on-keyに割り当て。
;; ?キーに割り当てられているコマンドの定義を開く。
(find-function-setup-keys)
-------------------------------------------------------------------------------------

本家 emacs と msysgit を Win7 64 に入れる

2011-12-28T18:10:00.002+09:00

るびきちさんに、gnupack 以外の emacs の使い方が分からないと言ったら、
「本家EmacsのWindowsバイナリを展開するだけで、Emacsは普通に動くよ」って
教えてもらったので、動かしてみるテスト。

http://ftp.gnu.org/pub/gnu/emacs/windows/

にアクセス。

http://ftp.gnu.org/pub/gnu/emacs/windows/emacs-23.3-bin-i386.zip

をダウンロード。Windows7 64bit なんだが、これでいいのだろうか。

C:\emacs-23.3 に展開。

C:\emacs-23.3\bin\runemacs.exe

を実行。起動した。

C-x RET l

で、Japanese と入力。

C-h I

で、japanese と入力。なんか変なメッセージが出てきた。使い方なんだろう。

-------------------------------------------------------------------------
Input method: japanese (mode line indicator:Aあ)

Japanese input method by Roman transliteration and Kana-Kanji conversion.

When you use this input method, text entry proceeds in two stages:
Roman-Kana transliteration and Kana-Kanji conversion. When you start
to enter text, you are in the first stage, Roman-Kana transliteration.
Type SPC to proceed to the next stage, Kana-Kanji conversion.

:: Roman-Kana transliteration ::

You can input any Hiragana character as a sequence of lower-case
letters, Japanese punctuation characters by typing punctuation keys,
Japanese symbols by typing `z' followed by another key. See below for
a list of all available sequences. The characters you input are
underlined.

In addition, the following keys provide special effects:

K    Change Hiragana to Katakana or Katakana to Hiragana.
qq    Toggle between this input method and the input method `japanese-ascii'.
qz    Shift to the input method `japanese-zenkaku'.
    Typing "qh" will put you back to this input method.
RET    Accept the current character sequence.
SPC    Proceed to the next stage, Kana-Kanji conversion.

The input method `japanese-ascii' is used to enter ASCII characters.
This is almost the same as turning off the input method. The only
difference is that typing `qq' will put you back into the Japanese
input method.

The input method `japanese-zenkaku' is used to enter full width
JISX0208 characters corresponding to typed ASCII characters.

List of the all key sequences for Roman-Kana transliteration is shown
at the tail.

:: Kana-Kanji conversion ::

You can convert the current Japanese characters (underlined) to
Kana-Kanji mixed text. In this stage, the converted text is divided
into two parts, the current phrase (highlighted) and the remaining
input (underlined). The following commands can be used on the
current phrase.

SPC, C-n    kkc-next
    Show the next candidate for the current phrase.
    If successively typed `kkc-show-conversion-list-count' times,
    conversion candidates are shown in the echo area.
C-p        kkc-prev
    Show the previous candidate for the current phrase.
    If successively typed `kkc-show-conversion-list-count' times,
    conversion candidates are shown in the echo area.
l        kkc-show-conversion-list-or-next-group
    Show at most 10 candidates for the current phrase in echo area.
    If typed repeatedly, show the next 10 candidates.
L        kkc-show-conversion-list-or-prev-group
    Show at most 10 candidates for the current phrase in echo area.
    If typed repeatedly, show the previous 10 candidates.
0..9        kkc-select-from-list
    Select a candidate corresponding to the typed number.
H        kkc-hiragana
    Convert the current phrase to Hiragana
K        kkc-katakana
    Convert the current phrase to Katakana
C-o        kkc-longer
    Extend the current phrase; pull in the first character of
    the remaining input.
C-i        kkc-shorter
    Contract the current phrase; drop its last character
    back into the remaining input.
C-f        kkc-next-phrase
    Accept the current phrase. If there remains input, select
    the first phrase as the current one, and show the first
    candidate for the conversion.
DEL, C-c    kkc-cancel
    Cancel the conversion, shift back to the Roman-Kana
    transliteration.
return        kkc-terminate
    Accept the whole conversion.
C-SPC, C-@    kkc-first-char-only
    Accept the first character of the current conversion,
    delete the remaining input.
C-h        kkc-help
    List these key bindings.

KEY SEQUENCE
------------
You can input characters by the following key sequences:
key char [type a key sequence to insert the corresponding character]
--- ---- --- ---- --- ---- --- ---- --- ---- --- ---- --- ---- --- ----
!   ！    e   え    ke け   tu つ   z4    □   zg    ‐   gye ぎぇ sha しゃ
"   ”    i   い    ki き   va ヴぁ z5    ◇   zh    ←   gyo ぎょ she しぇ
#   ＃    o   お    ko こ   ve ヴぇ z6    ☆   zi    じ   gyu ぎゅ shi し
$   ＄    u   う    ku く   vi ヴぃ z7    ◎   zj    ↓   hya ひゃ sho しょ
%   ％    {   ｛    la ら   vo ヴぉ z8    ¢   zk    ↑   hye ひぇ shu しゅ
&   ＆    |   ｜    le れ   vu ヴ   z9    ♂   zl    →   hyo ひょ sya しゃ
'   ’    }   ｝    li り   wa わ   z:    ゜   zm    ″   hyu ひゅ sye しぇ
(   （    ~   ￣    lo ろ   we ゑ   z;    ゛   zn    ′   jya じゃ syo しょ
)   ）    ba ば    lu る   wi ゐ   z<    ≦   zo    ぞ   jye じぇ syu しゅ
*   ＊    be べ    ma ま   wo を   z=    ≠   zp    〒   jyo じょ tsa つぁ
+   ＋    bi び    me め   wu う   z>    ≧   zq    《   jyu じゅ tse つぇ
,   、    bo ぼ    mi み   xa ぁ   z?    ∞   zr    々   kwa くゎ tsi つぃ
-   ー    bu ぶ    mo も   xe ぇ   z@    ▼   zs    ヽ   kwe くぇ tso つぉ
.   。    da だ    mu む   xi ぃ   zB    ←   zt    〆   kwi くぃ tsu つ
/   ／    de で    n' ん   xo ぉ   zC    ℃   zu    ず   kwo くぉ tya ちゃ
0   ０    di ぢ    na な   xu ぅ   zD    ゞ   zv    ※   kya きゃ tye ちぇ
1   １    do ど    ne ね   ya や   zF    →   zw    》   kye きぇ tyi てぃ
2   ２    du づ    ni に   ye いぇ zG    —   z{    〔   kyo きょ tyo ちょ
3   ３    fa ふぁ no の   yo よ   zM    〓   z|    ‖   kyu きゅ tyu ちゅ
4   ４    fe ふぇ nu ぬ   yu ゆ   zN    ↓   z}    〕   lya りゃ xka ヵ
5   ５    fi ふぃ pa ぱ   z! ●   zP    ↑   z~    ¨   lye りぇ xke ヶ
6   ６    fo ふぉ pe ぺ   z" “   zQ    〈   bya びゃ lyo りょ xtu っ
7   ７    fu ふ    pi ぴ   z# ▲   zR    仝   bye びぇ lyu りゅ xwa ゎ
8   ８    ga が    po ぽ   z$ ■   zS    ヾ   byo びょ mya みゃ xwe うぇ
9   ９    ge げ    pu ぷ   z% ◆   zT    §   byu びゅ mye みぇ xwi うぃ
:   ：    gi ぎ    ra ら   z& £   zV    ÷   cha ちゃ myo みょ xwo うぉ
;   ；    go ご    re れ   z' ‘   zW    〉   che ちぇ myu みゅ xya ゃ
<   ＜    gu ぐ    ri り   z( 【   z[    『   chi ち   nya にゃ xyo ょ
=   ＝    ha は    ro ろ   z) 】   z\    ＼   cho ちょ nye にぇ xyu ゅ
>   ＞    he へ    ru る   z* ×   z]    』   chu ちゅ nyo にょ zya じゃ
?   ？    hi ひ    sa さ   z+ ±   z^    ★   dye でぇ nyu にゅ zye じぇ
@   ＠    ho ほ    se せ   z, ‥   z_    ∴   dyi でぃ pya ぴゃ zyo じょ
[   「    hu ふ    si し   z- ～   z`    ´   dyo どぉ pye ぴぇ zyu じゅ
\   ￥    ja じゃ so そ   z. …   za    ざ   dyu どぅ pyo ぴょ
]   」    je じぇ su す   z/ ・   zb    °   gwa ぐゎ pyu ぴゅ
^   ＾    ji じ    ta た   z0 ♀   zc    〇   gwe ぐぇ rya りゃ
_   ＿    jo じょ te て   z1 ○   zd    ゝ   gwi ぐぃ rye りぇ
`   ｀    ju じゅ ti ち   z2 ▽   ze    ぜ   gwo ぐぉ ryo りょ
a   あ    ka か    to と   z3 △   zf    〃   gya ぎゃ ryu りゅ

KEY BINDINGS FOR TRANSLATION
----------------------------
key             binding
---             -------

C-@        quail-select-current
C-h        quail-translation-help
TAB        quail-completion
C-SPC        quail-select-current
<kp-enter>    quail-select-current
<mouse-2>    quail-mouse-choose-completion
<tab>        quail-completion

KEY BINDINGS FOR CONVERSION
---------------------------
key             binding
---             -------

C-a        quail-conversion-beginning-of-region
C-b        quail-conversion-backward-char
C-d        quail-conversion-delete-char
C-e        quail-conversion-end-of-region
C-f        quail-conversion-forward-char
C-h        quail-translation-help
C-k        quail-conversion-delete-tail
RET        quail-no-conversion
SPC        quail-japanese-kanji-kkc
K        quail-japanese-toggle-kana
DEL        quail-conversion-backward-delete-char
<backspace>    quail-conversion-backward-delete-char
<delete>    quail-conversion-backward-delete-char
<return>    quail-no-conversion

-------------------------------------------------------------------------

C-x b で *scratch* として、C-\ で日本語入力切り替え。
できた。

るびきちさんは、cygwin ではなく、msysgit というものを使っているとのことな
ので、これを入れてみる。これを入れるだけで、unix 的な環境が作れるらしい。

http://code.google.com/p/msysgit/

にアクセスして、Git-1.7.8-preview20111206.exe をダウンロードして、実行。

C:\Program Files (x86)\Git

だなぁ。32bitか。。。

どのタイプでインストールすればいいかわからねー・・・（汗
とりあえず、

Run Git from the Windows Command Prompt

にしよう。なんか、赤字で exe 上書きとか言われているのは怖い。。。

次はもっと分からない。改行コードの話らしい。

Checkout Windows-style, commit Unix-style line endings

にしてみた。Finish!

ここで、cmd で ls と打ったが反応しない。Git bash ってのがデスクトップに
できているから、これで、ls が効くみたい。

PATH 通しておこうかとチェックしたら、勝手にシステム環境変数に定義されている。

したがって、マシンを再起動。

これで、cmd で ls としたが、これでもきかない。そもそも、PATH が通ってる
とこが違った。あうあう。

eshell でどうやって使うんだろう。やっぱり、cmd コマンドを上書きしてしまった
方が良かったかなぁ。うーん。とりあえず、先に進もう。

環境変数 HOME を設定

HOME=c:\home

で、とりあえずチュートリアルやら、文字やら打つと、伸ばす棒（あーんの、
「－」）が文字化け（いわゆる豆腐状態）。

フォントの設定が悪いんだろうということで、コマンドは分からないから、GUIで設定

Options -> Set Defalt Font で、メイリオの、サイズ 12 、文字セットを日本語に。

なんかウィンドウがおっきくなりすぎたが。

Options -> Save Options

を選択すると、勝手に .emacs に書き込まれるみたい。

C-x C-f で、~/.emacs を開くと

---------------------------------------------------------------------------
(custom-set-variables
;; custom-set-variables was added by Custom.
;; If you edit it by hand, you could mess it up, so be careful.
;; Your init file should contain only one such instance.
;; If there is more than one, they won't work right.
)
(custom-set-faces
;; custom-set-faces was added by Custom.
;; If you edit it by hand, you could mess it up, so be careful.
;; Your init file should contain only one such instance.
;; If there is more than one, they won't work right.
'(default ((t (:inherit nil :stipple nil :background "SystemWindow" :foreground "SystemWindowText" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 120 :width normal :foundry "outline" :family #("メイリオ" 0 4 (charset cp932-2-byte)))))))
---------------------------------------------------------------------------

こんな感じ。init.el じゃないんだ（汗）

M-x eshell

---------------------------------------------------------------------------
Welcome to the Emacs shell

c:/emacs-23.3/bin $ cd ~
~ $ cp .emacs ~/.emacs.d/
~ $ mv ~/.emacs.d/.emacs ~/.emacs.d/init.el
---------------------------------------------------------------------------

として、emacs を再起動してみたら、ちゃんと読んでるみたい。これでいいや。

M-x eshell

---------------------------------------------------------------------------
Welcome to the Emacs shell

c:/emacs-23.3/bin $ cd ~
~ $ rm -rf .emacs
---------------------------------------------------------------------------

とりあえず、ここまで。

- git の使い方が分からない。
- wget とかどうやっていれるんだろう。
- git と eshell の連携が不明。普通に、path 通せばいいんかな。

W32TEX を Windows 7 64bit にいれてみた

2011-12-21T19:22:00.001+09:00

URL リストをとっておいて、

M-x eshell
cd ~/tmp
wget -i w32tex
mkdir c:\w32tex
mv texinst2011.zip c:\w32tex
unzip texinst2011.zip
./texinst2011.exe ~/tmp

gnupack on Windows7 64bit

2011-12-21T18:46:00.000+09:00

-*- mode: org; coding: cp932-dos -*-

* はじめに

gnupack 7.02 が出たので、Windows 7 64bit に入れる

* システムの概要

Microsoft Windows 7 Professional
6.1.7601 Service Pack 1 ビルド 7601
Intel(R) Xeon(R) CPU W3530 @ 2.80GHz
合計物理メモリ    6.00 GB

* インストール手順および設定

gnupack 本体、bashの設定、emacs の設定をする。vim の設定はしない。使わないから。

** gnupack

まずは本体のインストール

*** install

1. gnupack gnupack_devel-7.02.exe を以下からダウンロードする

http://sourceforge.jp/projects/gnupack/releases/?package_id=10360

2. [gnupack_devel-7.02.exe] を実行

3. [解凍先] を [C:\gnupack\] にして、右クリックメニュー[管理者として実行] をクリック

4. c:\gnupack を右クリックし、[セキュリティ]>[編集]を選択

5. 使用したいユーザーを登録し、フルコントロール権限を与える

これをやらないと、以下の異常終了が発生する

-------------------------------------------------------------

ログの名前:         Application
ソース:           Application Error
日付:            2011/12/20 14:12:00
イベント ID:       1000
タスクのカテゴリ:      (100)
レベル:           エラー
キーワード:         クラシック
ユーザー:          N/A
コンピューター:       hostname
説明:
障害が発生しているアプリケーション名: emacs.exe、バージョン: 1.2.3.4、タイムスタンプ: 0x4e7bfce7
障害が発生しているモジュール名: ntdll.dll、バージョン: 6.1.7601.17514、タイムスタンプ: 0x4ce7ba58
例外コード: 0xc0000374
障害オフセット: 0x000ce653
障害が発生しているプロセス ID: 0x16c0
障害が発生しているアプリケーションの開始時刻: 0x01ccbed5e61db755
障害が発生しているアプリケーションパス: C:\gnupack\gnupack_devel-7.02\emacs.exe
障害が発生しているモジュールパス: C:\Windows\SysWOW64\ntdll.dll
レポート ID: 24dc0055-2ac9-11e1-aa7d-d067e5ea3430
イベント XML:
<Event xmlns="http://schemas.microsoft.com/win/2004/08/events/event">
<System>
    <Provider Name="Application Error" />
    <EventID Qualifiers="0">1000</EventID>
    <Level>2</Level>
    <Task>100</Task>
    <Keywords>0x80000000000000</Keywords>
    <TimeCreated SystemTime="2011-12-20T05:12:00.000000000Z" />
    <EventRecordID>3373</EventRecordID>
    <Channel>Application</Channel>
    <Computer><hostname></Computer>
    <Security />
</System>
<EventData>
    <Data>emacs.exe</Data>
    <Data>1.2.3.4</Data>
    <Data>4e7bfce7</Data>
    <Data>ntdll.dll</Data>
    <Data>6.1.7601.17514</Data>
    <Data>4ce7ba58</Data>
    <Data>c0000374</Data>
    <Data>000ce653</Data>
    <Data>16c0</Data>
    <Data>01ccbed5e61db755</Data>
    <Data>C:\gnupack\gnupack_devel-7.02\emacs.exe</Data>
    <Data>C:\Windows\SysWOW64\ntdll.dll</Data>
    <Data>24dc0055-2ac9-11e1-aa7d-d067e5ea3430</Data>
</EventData>
</Event>

-------------------------------------------------------------

6. 以下の exe を起動して、それぞれ起動確認

C:\gnupack\gnupack_devel-7.02\bash.exe
C:\gnupack\gnupack_devel-7.02\emacs.exe
C:\gnupack\gnupack_devel-7.02\gvim.exe

** config.ini の設定

1. C-x C-f で、 c:\gnupack\gnupack_devel-7.02\config.ini を開く

2. 以下のように修正

*** c:/gnupack/gnupack_devel-7.02/config.ini.orig    2011-12-20 14:28:02.176440500 +0900
--- c:/gnupack/gnupack_devel-7.02/config.ini    2011-12-20 14:34:51.346840500 +0900
***************
*** 32,37 ****
--- 32,46 ----
     ;http_proxy     = http://proxy.example.co.jp:8080
     ;ftp_proxy<     = ftp://proxy.example.co.jp:8080

+     http_proxy       = http://<user>:<pass>@<address>:<port>
+     PATH           = %EMACS_DIR%\bin;%INST_DIR%\app\vim;%INST_DIR%\app\script
+     PATH           = %PATH%;%INST_DIR%\app\mingw\tdm\bin;%_local_%\bin;%CYGWIN_DIR%\bin
+     PATH           = %PATH%;%windir%\system32;%windir%;%windir%\system32\Wbem
+     PATH           = %PATH%;C:\Program Files\ANSYS Inc\v130\ansys\bin\intel
+     PATH           = %PATH%;C:\usr\local\share\InnoSetup5
+     PATH           = %PATH%;C:\w32tex\bin;C:\gs\gs7.07\bin;C:\gs\gs7.07\lib
+     PATH           = %PATH%;%INST_DIR%\launcher
+
[UnSetEnv]
      _font_         =
      _local_        =
***************
*** 59,74 ****
      windowSize     = 91,27
      position       = 70,27
      fontName       = %_font_%
!     fontSize       = 12
      title          = bash
      icon           = %INST_DIR%\app\icon\mintty.ico

[Emacs]
!    ;foreground     = white
!    ;background     = black
!     geometry       = 91x31+70+28
      fontName       = %_font_%
!     fontSize       = 12

      ; see also http://gnupack.sourceforge.jp/docs/latest/UsersGuide_technical_info.html#_color_theme
      colorTheme     = simple-1
--- 68,83 ----
      windowSize     = 91,27
      position       = 70,27
      fontName       = %_font_%
!     fontSize       = 14
      title          = bash
      icon           = %INST_DIR%\app\icon\mintty.ico

[Emacs]
!     foreground     = white
!     background     = black
!     geometry       = 120x50+70+10
      fontName       = %_font_%
!     fontSize       = 14

      ; see also http://gnupack.sourceforge.jp/docs/latest/UsersGuide_technical_info.html#_color_theme
      colorTheme     = simple-1

** mintty (bash)

bash で install したもの

*** w3m

apt-cyg install w3m

*** ruby

apt-cyg install ruby subversion-ruby

ruby -v

*** emacs-w3m
**** ファイルの入手について

     CVS は HTTP Port でないため、 Proxy CVS 用に Proxy の設定をしなけれ
     ばならないが、よく分からない。

     HTTP Proxy だけ与えられているので、トンネルする方法もあるようだが、
     そんなことはできるだけやりたくない。

     しかたないので、 proxy が不要な環境で、 emacs-w3m のファイルをとって
     くる。 bash での手順は以下のとおり。

     apt-cyg install cvs autoconf
     wget http://emacs-w3m.namazu.org/emacs-w3m-1.4.4.tar.gz
     cvs -d :pserver:anonymous@cvs.namazu.org:/storage/cvsroot login
     CVS password: [RET]
     cvs -d :pserver:anonymous@cvs.namazu.org:/storage/cvsroot co emacs-w3m
     tar zxf emacs-w3m-1.4.4.tar.gz
     cp -r emacs-w3m-1.4.4 emacs-w3m-cvs
     \cp -f emacs-w3m/* emacs-w3m-cvs

     上記できた emacs-w3m-cvs フォルダの中身をとっておけば OK 。

**** インストール手順

apt-cyg install cvs autoconf
cd emacs-w3m-cvs
./configure --with-emacs=/app/emacs/emacs/bin/emacs --with-lispdir=/app/emacs/site-lisp/w3m --with-icondir=/app/emacs/emacs/etc/w3m
make
make install

*** aspell

    apt-cyg install aspell aspell-en

*** git

    apt-cyg install git

** NTemacs
*** 個人的な設定

;; ------------------------------------------------------------------------
;; @ 個人的な初期設定

;; デフォルトの文字コード指定
(set-default-coding-systems 'cp932-dos)

; 区切り文字に全角スペースや、・を含める
(setq paragraph-start '"^\$[ 　・○<\t\n\f]\\|(?[0-9a-zA-Z]+)\$")

;; startup directory
(setq default-directory "~/")

;; ファイルのカーソル内の位置を記憶
(setq-default save-place t)

;; ガベッジコレクション閾値を 40MB に
;; (setq gc-cons-threshold 524288000)

;; ログの記録行数を増やす
(setq message-log-max 10000)

;; undo をいっぱい
(setq undo-limit 100000)
(setq undo-strong-limit 130000)

;; キーストロークの表示速度を上げる
(setq echo-keystrokes 0.1)

;; でかいファイルも普通に開く（デフォルトは10MB）
(setq large-file-warning-threshold (* 50 1024 1024)) ;50MB

;; いちいち yes とか無理だから y にする
(defalias 'yes-or-no-p 'y-or-n-p)

;; BS や Delete キーでリージョン内の文字を削除
(delete-selection-mode 1)

;; TAB を bacspace で消すとき、半角スペースとして消さないで、tabのまま消す
(global-set-key [backspace] 'backward-delete-char)

;; 前回編集していた場所を記憶し，ファイルを開いた時にそこへカーソルを移動
(require 'saveplace)
(setq-default save-place t)

;; 矩形選択とか便利な cua-mode
(cua-mode t)
(setq cua-enable-cua-keys nil) ;;C-xでkill-regionとかになって変な感じになるので。

;; @ クリップボード転送ができないことがある。
(cond (window-system (setq x-select-enable-clipboard t)))

;; kill-ring はテキスト属性（色情報など）を保存しなくていい
(defadvice kill-new (around my-kill-ring-disable-text-property activate)
(let ((new (ad-get-arg 0)))
    (set-text-properties 0 (length new) nil new)
    ad-do-it))

;; 初期画面をいきなりbuffer-menuにする
(buffer-menu)

; キー入力中にマウスポインタを右上隅へ移動
(mouse-avoidance-mode 'banish)

;; @ 括弧の対応表示
(setq blink-matching-paren t)
(show-paren-mode t)
(setq paren-sexp-mode t)
(set-face-background 'show-paren-match "royalBlue1")

;; 対応する括弧に移動のキーバインドを C-{ と C-} に変更 (C-M-f/p相当)
(global-set-key [?\C-{] 'backward-list)
(global-set-key [?\C-}] 'forward-list)

;; タブ, 全角スペースを色つき表示する (色名は M-x list-color-displayで調べる)
;; http://homepage1.nifty.com/blankspace/emacs/color.html
(defface my-face-b-1 '((t (:background "red4"))) nil)                           ;全角スペースの色
(defface my-face-b-2 '((t (:background "gray6"))) nil)                          ;タブの色
(defface my-face-u-1 '((t (:foreground "MediumPurple4" :underline t))) nil)     ; 無駄な半角スペースの色
(defvar my-face-b-1 'my-face-b-1)
(defvar my-face-b-2 'my-face-b-2)
(defvar my-face-u-1 'my-face-u-1)
(defadvice font-lock-mode (before my-font-lock-mode ())
(font-lock-add-keywords
   major-mode
   '(("\t" 0 my-face-b-2 append)
     ("　" 0 my-face-b-1 append)
     ("[ \t]+$" 0 my-face-u-1 append)
     )))
(ad-enable-advice 'font-lock-mode 'before 'my-font-lock-mode)
(ad-activate 'font-lock-mode)

;;; フレームサイズをトグルで切り替え
;; http://www.bookshelf.jp/soft/meadow_30.html#SEC416
;; 現在のフレームサイズを調べる方法
;; *scratch*バッファを開き，(frame-width), (frame-height) と書き，C-jする

(setq my-frame-max-flag nil)

(defun my-toggle-frame-size ()
(interactive)
(if my-frame-max-flag
      (progn
        (setq my-frame-max-flag nil)
        (if (functionp 'w32-restore-frame)
            (w32-restore-frame)
          (set-frame-configuration my-last-frame-conf)
          (message "not MAX.") (sit-for 2)
          ))
    (setq my-frame-max-flag t)
    (if (functionp 'w32-maximize-frame)
        (w32-maximize-frame)
      (setq my-last-frame-conf (current-frame-configuration))
      (set-frame-position (selected-frame) 0 0)
      ;; フレーム最大化時に (frame-height) で得た値
      (set-frame-height (selected-frame) 53) ; ここがうまく効かない
      ;; フレーム最大化時に (frame-width) で得た値
      (set-frame-width (selected-frame) 173)
      (message "to MAX.") (sit-for 2)
    )))

(add-hook 'ediff-before-setup-hook 'my-toggle-frame-size) ; ediff 立ち上げ時に、画面を最大化
(add-hook 'ediff-quit-hook 'my-toggle-frame-size) ; ediff 終了時に、画面を元に戻す
(global-set-key [f11] 'my-toggle-frame-size)    ; f11 に割り当て

;; @ 定型文の挿入 my-template-select
;; http://www.bookshelf.jp/soft/meadow_37.html#SEC554

(defvar my-template-text-file "~/.template")
(defvar my-template-buffer nil)
(defvar my-template-point nil)

(defun my-template-insert ()
(interactive)
(let (content)
    (when (setq
           content
           (get-text-property (point) :content))
      (save-excursion
        (set-buffer my-template-buffer)
        (save-excursion
          (goto-char my-template-point)
          (insert content))))))

(defun my-template-select ()
(interactive)
(let ((buffer
         (get-buffer-create "*select template*"))
        templates begin template-map text)
    (setq my-template-buffer (current-buffer)
          my-template-point (point))
    (unless (file-readable-p my-template-text-file)
      (error "Couldn't read template file: %s"))
    (with-temp-buffer
      (insert-file-contents my-template-text-file)
      (goto-char (point-min))
      (while (re-search-forward "^\\*\$.*\$$" nil t)
        (when begin
          (setq templates
                (cons
                 (cons
                  (car templates)
                  (buffer-substring
                   begin (1- (match-beginning 0))))
                 (cdr templates))))
        (setq templates (cons (match-string 1) templates))
        (setq begin (1+ (match-end 0))))
      (when begin
        (setq templates
              (cons
               (cons
                (car templates)
                (buffer-substring begin (point-max)))
               (cdr templates)))))
    (pop-to-buffer buffer)
    (setq buffer-read-only nil
          major-mode       'template-select-mode
          mode-name        "Select Template"
          template-map     (make-keymap))
    (suppress-keymap template-map)
    (define-key template-map " "    'my-template-insert)
    (define-key template-map "\C-m" 'my-template-insert)
    (define-key template-map "n"    'next-line)
    (define-key template-map "p"    'previous-line)
    (define-key template-map "q"    'kill-buffer-and-window)
    (use-local-map template-map)
    (buffer-disable-undo)
    (delete-region (point-min) (point-max))
    (dolist (tt templates)
      (setq text (concat (car tt) "\n"))
      (put-text-property
       0 (length text) :content (cdr tt) text)
      (insert text)
      (goto-char (point-min)))
    (delete-region (1- (point-max)) (point-max))
    (setq buffer-read-only t)
    (set-buffer-modified-p nil)))

;; iserarchで日本語を使う
;; (defun w32-isearch-update ()
;;   (interactive)
;;   (isearch-update))
;; (define-key isearch-mode-map [compend] 'w32-isearch-update)
;; (define-key isearch-mode-map [kanji] 'isearch-toggle-input-method)

;; (add-hook 'isearch-mode-hook
;;           (lambda () (setq w32-ime-composition-window (minibuffer-window))))
;; (add-hook 'isearch-mode-end-hook
;;           (lambda () (setq w32-ime-composition-window nil)))

;;ispell が無いから、 aspell を使う
(setq-default ispell-program-name "aspell")
(eval-after-load "ispell"
'(add-to-list 'ispell-skip-region-alist '("[^\000-\377]+")))

*** auto-install.el

自動で el をダウンロード、インストールするやつ

**** download

M-x eshell
mkdir -p ~/.emacs.d/auto-install
cd ~/.emacs.d/auto-install
wget http://www.emacswiki.org/emacs/download/auto-install.el
M-x byte-compile-file
auto-install.el

**** init.el (.emacs,emacs.el)

;; ------------------------------------------------------------------------
;; @ auto-install.el

;; ロードパスの追加
(add-to-list 'load-path
             "~\\.emacs.d\\auto-install")
(require 'auto-install)
(setq auto-install-directory "~\\.emacs.d\\auto-install")
;; 起動時に EmacsWiki のページ名を補完候補に加えない
(auto-install-update-emacswiki-package-name t)
;; install-elisp.el 互換モードにする
(auto-install-compatibility-setup)
;; ediff 関連のバッファを 1 つのフレームにまとめる
(setq ediff-window-setup-function 'ediff-setup-windows-plain)
(put 'downcase-region 'disabled nil)

*** recentf.el

最近使ったファイルリストを表示するやつ

**** download

M-x install-elisp-from-emacswiki
recentf-ext.el
C-c C-c
C-x k
[RET]

**** init.el (.emacs,emacs.el)

;; ------------------------------------------------------------------------
;; @ 最近使ったファイルを開く recentf-ext.el

;; 最近のファイルを 3000 個保存する
(setq recentf-max-saved-items 3000)
;; 読み込み
(require 'recentf-ext)

*** open-junk-file.el

使い捨てのファイルをサクサクつくる

**** download

M-x install-elisp-from-emacswiki
open-junk-file.el
C-c C-c
C-x k
[RET]

**** init.el (.emacs,emacs.el)

;; ------------------------------------------------------------------------
;; @ 使い捨てのファイルを開く open-junk-file.el

;; 読み込み
(require 'open-junk-file)

;; ファイル名およびファイル場所の指定
(setq open-junk-file-format "~/junk/%Y-%m-%d-%H%M%S.")

*** anything.el

便利なんだって。使い方、まだ、よくわかんない。

**** download

M-x auto-install-batch
anything
C-c C-c を連打

anything-matich-plugin.el でエラー

-------------------------------------------------------

Compiling file c:/gnupack/gnupack_devel-7.02/home/.emacs.d/auto-install/anything-config.el at Tue Dec 20 15:23:04 2011
anything-config.el:740:1:Error: Cannot open load file: anything-match-plugin
-------------------------------------------------------

だが、もう一度、C-c としたらつづいた。

さらに、anything-migemo.el で、*文字コードエラー*

---------------------------------------------------------------------
These default coding systems were tried to encode text
in the buffer `anything-migemo.el':
(undecided-unix (5157 . 35660) (5158 . 65381) (5159 . 35675) (5160
   . 65388) (5161 . 38577) (5162 . 27115) (5163 . 4194181) (5164
   . 65381) (5165 . 34569) (5166 . 4194203) (5219 . 35660)) (utf-8-unix
     (5163 . 4194181) (5166 . 4194203) (5225 . 4194181) (5228 . 4194203)
     (5281 . 4194181) (5284 . 4194203) (7386 . 4194206) (7529 . 4194206)
     (7669 . 4194206) (8168 . 4194206) (8313 . 4194206))
However, each of them encountered characters it couldn't encode:
undecided-unix cannot encode these: 譌･譛ｬ隱槫   ･蜉   ...
utf-8-unix cannot encode these:                     ...

lick on a character (or switch to this window by `C-x o'
nd select the characters by RET) to jump to the place it appears,
here `C-u C-x =' will give information about it.

elect one of the safe coding systems listed below,
r cancel the writing with C-g and edit the buffer
o remove or modify the problematic characters,
r specify any other coding system (and risk losing
he problematic characters).

raw-text emacs-mule no-conversion
---------------------------------------------------------------------

が出るが euc-jp とかしてたら、とりあえず大丈夫っぽいんで、続けて
C-c C-c を連打し、C-x k を連打。

M-x eshell
cd ~/.emacs.d/auto-install/
rm -rf anything-migemo.*
rm -rf anything-match-plugin.*
wget http://www.emacswiki.org/emacs/download/anything-match-plugin.el
wget http://www.emacswiki.org/emacs/download/anything-migemo.el
M-x byte-compile-file
~/.emacs.d/auto-install/anything-migemo.el

でいいけど、

M-x byte-compile-file
~/.emacs.d/auto-install/anything-match-plugin.el

とすると、cl がみつからない・・・ってんなわけないと思うんだが。
現状回避不能なため、el のまま。

----------------------------------------------------------------------
Compiling file c:/gnupack/gnupack_devel-7.02/home/.emacs.d/auto-install/anything-match-plugin.el at Tue Dec 20 15:56:28 2011
anything-match-plugin.el:155:1:Warning: cl package required at runtime
----------------------------------------------------------------------

**** init.el (.emacs,emacs.el)

;; ------------------------------------------------------------------------
;; @ anything
(require 'anything-startup)

*** aspell (ispell)
**** init.el (.emacs, emacs.el)

;; ------------------------------------------------------------------------
;; @ ispell が無いから、 aspell を使う

(setq-default ispell-program-name "aspell")
(eval-after-load "ispell"
'(add-to-list 'ispell-skip-region-alist '("[^\000-\377]+")))

**** .aspell.conf

C-x C-f ~/.aspell.conf を作って

lang en_US

とする

*** emacs-w3m
**** init.el (.emacs, emacs.el)

;; ------------------------------------------------------------------------
;; @ w3m-emacs
(require 'w3m-load)
(setq w3m-use-cookies t)
(setq w3m-home-page "www.google.co.jp")

*** bat-mode.el
**** download

M-x eshell
mkdir -p ~/.emacs.d/bat-mode
cd ~/.emacs.d/bat-mode
wget http://ftp.gnu.org/old-gnu/emacs/windows/contrib/bat-mode.el
M-x byte-complie-file [RET]
bat-mode.el [RET]

**** init.el (.emacs, emacs.el)

;; ------------------------------------------------------------------------
;; @ windows batch-mode
;; ロードパスの追加
(add-to-list 'load-path
             "~\\.emacs.d\\bat-mode")
(add-to-list 'auto-mode-alist '("\\.bat\\'" . bat-mode))
(autoload 'bat-mode "bat-mode"
      "DOS and Windows BAT files" t)

*** tail.el
**** download

M-x install-elisp-from-emacswiki
tail.el
C-c
C-x k
[RET]

**** init.el (.emacs, emacs.el)

;; ------------------------------------------------------------------------
;; @ emacs で tail を動かす

(require 'tail)
(setq tail-volatile nil)                ;前の記載を消さない
(setq tail-hide-delay 100000)           ;隠すまで 100000sec
(setq tail-max-size 15)                 ;Window のサイズ

**** jtail.bat

以下のような jatail.bat を作っておき、 PATH の通ったところに置いてお
いたほうが良い。 eshell も bash も出力が ja_JP.cp932 になっているか
ら。

tail -f %1 | nkf -u -s

*** auto-complete.el
**** download

auto-install だとうまくいかないので、注意。

M-x eshell
cd ~/tmp
wget http://cx4a.org/pub/auto-complete/auto-complete-1.3.1.zip
unzip auto-complete-1.3.1.zip
mv auto-complete-1.3.1 ~/.emacs.d/

**** init.el (.emacs, emacs.el)

7.8 のようなダサい書き方やめたいけど、分からない。

;; ------------------------------------------------------------------------
;; @ 入力補完支援 auto-complete.el

;; ロードパスの追加
(add-to-list 'load-path
             "~\\.emacs.d\\auto-complete-1.3.1")
(require 'auto-complete)

;; 3.2. インストールスクリプト
;; http://cx4a.org/software/auto-complete/manual.ja.html
(add-to-list 'ac-dictionary-directories "~//.emacs.d//auto-complete-1.3.1//dict")
(require 'auto-complete-config)
(ac-config-default)

;; 7.4. TAB で補完を完了する（ RET は使わない）
;; http://cx4a.org/software/auto-complete/manual.ja.html
(define-key ac-completing-map "\t" 'ac-complete)
(define-key ac-completing-map "\r" nil)

;; 7.8. 特定のモードで自動で auto-complete-mode を有効にする
;; http://cx4a.org/software/auto-complete/manual.ja.html
(add-to-list 'ac-modes 'org-mode) ;; org-mode になったら、 auto-complete をスタートさせる
(add-to-list 'ac-modes 'text-mode)
(add-to-list 'ac-modes 'ruby-mode)
(add-to-list 'ac-modes 'pyhon-mode)
(add-to-list 'ac-modes 'ansys-mode)

*** ansys-mode.el
**** download

M-x eshell
mkdir ~/tmp/ansys-mode
cd ~/tmp/ansys-mode
wget http://ansys-mode.googlecode.com/files/ansys-mode-13.0.1.tgz
tar zxvf ansys-mode-13.0.1.tgz
mv ~/tmp/ansys-mode/ ~/.emacs.d/

**** anshelp130.bat

C-x C-f
~/.emacs.d/ansys-mode/anshelp130.bat

start hh "c:\Program Files\ANSYS Inc\v130\commonfiles\help\ja\ansys130.chm"

C-x C-s

**** dict/ansys-mode (dynprompt)

ぜったい、もっと簡単な方法ある気がするから、誰か教えてほしい。

C-x C-f
C:/Program Files/ANSYS Inc/v130/ansys/docu/dynaprompt130.ans
C-x C-w
~/.emacs.d/auto-complete-1.3.1/dict/ansys-mode
C-x h C-x r t |
M-x replace-string , [RET] | [RET]
M-x org-mode
TAB
M-S-<left> を連打
M-x replace-string |[space] [RET] [RET]
M-<
M-x replace-string | [RET] [RET]
C-h
M-x delete-trailing-whitespace
C-x C-s

**** init.el (.emacs, emacs.el)

;; ------------------------------------------------------------------------
;; @ ansys-mode の設定

;; ロードパスの追加
(add-to-list 'load-path
         "~\\.emacs.d\\ansys-mode")

;; 拡張子によって ansys-mode に
(add-to-list 'auto-mode-alist '("\\.mac\\'" . ansys-mode))
(add-to-list 'auto-mode-alist '("\\.dat\\'" . ansys-mode))
(add-to-list 'auto-mode-alist '("\\.inp\\'" . ansys-mode))
(autoload 'ansys-mode "ansys-mode" nil t)

;; ansys-mode の時は、アウトラインマイナーモードに
(add-hook 'ansys-mode-hook
          '(lambda ()
             (outline-minor-mode 1)
             ))

;; chm ヘルプを起動する
(custom-set-variables
'(ansys-help-program "~\\.emacs.d\\ansys-mode\\anshelp130.bat"))

*** text-translator.el
**** download

auto-install-bathch だと、 var.el が無いだの、 var.el は文字化けするだので、
正常にインストールできないので注意

M-x eshell
mkdir -p ~/.emacs.d/text-translator
cd ~/.emacs.d/text-translator
wget http://www.emacswiki.org/emacs/download/text-translator.el
wget http://www.emacswiki.org/emacs/download/text-translator-vars.el
wget http://www.emacswiki.org/emacs/download/text-translator-load.el

**** init.el (.emacs, emacs.el)

;; ------------------------------------------------------------------------
;; Emacs でテキスト翻訳をする elisp
;; http://quantumfluctuation.blogspot.com/2011/05/text-translatorel_22.html

;; ロードパスの追加
(add-to-list 'load-path "~\\.emacs.d\\text-translator")
(require 'text-translator)
(setq text-translator-auto-selection-func
      'text-translator-translate-by-auto-selection-enja)
;; 自動選択に使用する関数を設定
(setq text-translator-auto-selection-func
      'text-translator-translate-by-auto-selection-enja)
;; グローバルキーを設定
(global-set-key "\C-xt" 'text-translator-translate-by-auto-selection)

;; ;; if you are setting environment variables HTTP_PROXY,
;; ;; you have not to set this.
(setq text-translator-proxy-server "<proxy-address>")
(setq text-translator-proxy-port   <portnum>)

*** yatex
**** download

wget http://www.yatex.org/yatex1.74.tar.gz

**** install

tar xzvf yatex1.74.tar.gz
cd yatex1.74/
C-x C-f makefile
C-x C-q

で以下のように編集

====== ここから =====

*** c:/gnupack/gnupack_devel-7.02/home/.emacs.d/yatex1.74/makefile.orig    2011-12-21 17:41:34.404481100 +0900
--- c:/gnupack/gnupack_devel-7.02/home/.emacs.d/yatex1.74/makefile    2011-12-21 17:39:59.512481100 +0900
***************
*** 3,13 ****
   #

   # 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}
--- 3,13 ----
   #

   # Edit these variables to be suitable for your site
! PREFIX    = c:/gnupack/gnupack_devel-7.02/app/emacs/emacs/

   ## mule2
! # EMACS    = mule
! # EMACSDIR= ${PREFIX}/lib/${EMACS}
   ## emacs20
   #EMACS    = emacs
   #EMACSDIR= ${PREFIX}/share/${EMACS}
***************
*** 21,26 ****
--- 21,30 ----
   #EMACS    = /Applications/Emacs.app/Contents/MacOS/Emacs
   #PREFIX    = /Applications/Emacs.app/Contents/Resources
   #EMACSDIR = ${PREFIX}
+ ## NTemacs23.3
+ EMACS    = emacs
+ EMACSDIR = c:/gnupack/gnupack_devel-7.02/app/emacs/emacs/
+

   LISPDIR    = ${EMACSDIR}/site-lisp/yatex
   # LISPDIR    = ${EMACSDIR}/site-packages/lisp/yatex
***************
*** 35,41 ****

   # Comment out below if you are using Emacs Windows(meadow, etc)
! GEO    = -geometry 80x20+0+0

   ###################
   # Do not edit below
--- 39,45 ----

   # Comment out below if you are using Emacs Windows(meadow, etc)
! # GEO    = -geometry 80x20+0+0

   ###################
   # Do not edit below

====== ここまで =====

eshell に戻って

export DISPLAY=":0.0"
make install

としてインストール

C-x C-f
c:/gnupack_devel-7.00/app/emacs/emacs/info/dir

として、以下のように編集

===== ここから =====

*** c:/gnupack/gnupack_devel-7.02/app/emacs/emacs/info/dir.orig    2011-12-21 17:47:25.223281100 +0900
--- c:/gnupack/gnupack_devel-7.02/app/emacs/emacs/info/dir    2011-12-21 17:47:55.096081100 +0900
***************
*** 94,96 ****
--- 94,101 ----
   * Widget: (widget).             The "widget" package used by the Emacs
                                     Customization facility.
   * SMTP: (smtpmail).             Emacs library for sending mail via SMTP.
+
+ * YaTeX: (yatexj). Yet Another tex-mode for Emacs. (Japanese).
+ * YaTeX-e: (yatexe). Yet Another tex-mode for Emacs. (English).
+ * yahtml: (yahtmlj). Yet Another HTML-mode for Emacs. (Japanese).
+ * yahtml-e: (yahtmle). Yet Another HTML-mode for Emacs. (English).

===== ここまで =====

**** init.el

C-x C-f
~/.emacs.d/init.el

として、以下を追記

;; ------------------------------------------------------------------------
;; @ yatex

(setq load-path
      (cons "c:/gnupack/gnupack_devel-7.02/app/emacs/emacs/site-lisp/yatex" load-path))
(setq auto-mode-alist
(cons (cons "\\.tex$" 'yatex-mode) auto-mode-alist))
(autoload 'yatex-mode "yatex" "Yet Another LaTeX mode" t)
(setq tex-command "c:/w32tex/bin/platex")
(setq dvi2-command "C:/w32tex/dviout/dviout")

(setq YaTeX-use-LaTeX2e t)
(setq YaTeX-use-AMS-LaTeX t)

(setq
YaTeX-math-sign-alist-private
'(
   ("q"         "Q"          "(Q)")
   ("z"         "Z"          "ZZ")
   ("t""text""text")
   ("qu"        "quad"         "__")
   ("qq"        "qquad"         "____")
   ("ls"        "varlimsup"     "___\nlim")
   ("li"        "varliminf"     "lim\n---")
   ("il"        "varinjlim"     "lim\n-->")
   ("pl"        "varprojlim"    "lim\n<--")
   ("st"        "text{ s.t. }" "s.t.")
   ("bigop"     "bigoplus"      "_\n(+)~")
   ("bigot"     "bigotimes"     "_\n(x)\n ~")
   ))

; dviからpdfを作成する%sはファイル名
(setq dviprint-command-format "C:/w32tex/bin/dvipdfmx %s")

* 現状の問題点

- (set-frame-height (selected-frame) 53) が効かない
- auto-install で文字化け起こるの何とかならないかなぁ。
- eddif-buffers で config.ini を比較すると改行コードが ^M になっちゃう
- (set-frame-height (selected-frame) 40) がうまく効かない
- org-mode が変。たくさんかくと org-mode でカーソル移動が遅くなる、カクカク動く。
- anything.el は履歴保存してくれないのかな。デフォルトの設定じゃ駄目なのかしらん。
- w3m で shift 選択できない。同様に、 org-mode でもできない。
- org-mode が auto-complete とかぶる。 auto-complete のキーバインドを強制上書きしても org-mode に聞かない。うざい。
- ansys-mode のカスタマイズ方法が不明。 unix/linux のみ対応を windows 対応にしたいけど、 elisp とか分からない。

池袋池たこのたこ焼き

2011-12-10T21:24:00.001+09:00

家の前にで来たあ(￣▽￣)
関係ないけど、なんで東京で明石焼き流行らないんだろ。ちゃんとした明石焼き屋さんって一店しかしらない

J1 第34節マリノス戦アウェイゴール裏

2011-12-03T15:10:00.001+09:00

一ノ関の三大蔵元飲み比べセット

2011-11-30T18:49:00.001+09:00

山利喜新館のモツ煮

2011-11-23T19:00:00.001+09:00

見た目とは違いアッサリでした。そして、これよりも超美味しかったのは秋限定のキノコ汁

ワインバーセバス秋刀魚のコンフィ

2011-11-23T17:34:00.001+09:00

月島スペインクラブの前菜盛り合わせ三品

2011-11-23T17:33:00.001+09:00

J1 32節 vs大宮アウェイゴール裏

2011-11-19T16:07:00.001+09:00

雨が雨が(T_T)

第91回天皇杯3回戦鹿島vs富山ゴール裏

2011-11-16T18:36:00.001+09:00

鹿島食肉事業共同組合モツ煮

2011-11-16T18:05:00.001+09:00

違うモノ食べようかなあって思ってたが、またしても、いつもどおりココのになってしまった

LOUIS VUITTON HOLIDAY 2011

2011-11-14T21:56:00.001+09:00

なんだろかコレ。ホリデイシーズンて冬休みかしら。ジャケかわいい。中身みたけど、ようわからんかた(-.-;)

ボウモア Perfume

2011-11-06T16:46:00.001+09:00

ヤマザキナビスコカップ 2011 アウェイゴール裏

2011-10-29T12:40:00.001+09:00

あと20分で始まる

Marmalade.el で Cannot open load file: furl

2011-10-19T23:19:00.005+09:00

M-x list-package
で、Marmalade.el を探し、i,x としたが、以下のエラー

furl はちゃんとダウンロードされているっぽいが、なんでだろうか。
普通にロードパスがとおってないだけのような感じもするけど、
そのあたりは空気呼んでくれないんだろうか。。。

--------------------------------------------------------------------------------
Warning: reference to free variable `org-directory'
Leaving directory `c:/gnupack_devel-7.00/home/.emacs.d/vendor/elpa/furl-0.0.2'

Compiling file
c:/gnupack_devel-7.00/home/.emacs.d/vendor/elpa/furl-0.0.2/furl-pkg.el
at Tue Oct 18 22:48:16 2011 Entering directory

`c:/gnupack_devel-7.00/home/.emacs.d/vendor/elpa/furl-0.0.2/'

Compiling file
c:/gnupack_devel-7.00/home/.emacs.d/vendor/elpa/furl-0.0.2/furl.el at
Tue Oct 18 22:48:16 2011

In furl--wrap-request:
furl.el:149:30:Warning: Function `gensym' from cl package called at runtime

Compiling no file at Tue Oct 18 22:48:17 2011
Leaving directory `c:/gnupack_devel-7.00/home/.emacs.d/vendor/elpa/marmalade-0.0.4'

Compiling file
c:/gnupack_devel-7.00/home/.emacs.d/vendor/elpa/marmalade-0.0.4/marmalade-pkg.el
at Tue Oct 18 22:48:17 2011 Entering directory
`c:/gnupack_devel-7.00/home/.emacs.d/vendor/elpa/marmalade-0.0.4/'

Compiling file
c:/gnupack_devel-7.00/home/.emacs.d/vendor/elpa/marmalade-0.0.4/marmalade.el
at Tue Oct 18 22:48:17 2011 marmalade.el:39:1:Error: Cannot open load
file: furl
--------------------------------------------------------------------------------

Emacs24 に搭載されるらしいパッケージ管理 package.el を入れててみる

2011-10-19T23:17:00.000+09:00

mkdir -p ~/emacs.d/package
cd ~/emacs.d/package
wget http://repo.or.cz/w/emacs.git/blob_plain/1a0a666f941c99882093d7bd08ced15033bc3f0c:/lisp/emacs-lisp/package.el

;; ------------------------------------------------------------------------
;; @ package.el

(add-to-list 'load-path "~\\.emacs.d\\package")
(require 'package)

;;リポジトリにMarmaladeを追加
(add-to-list 'package-archives '("marmalade" . "http://marmalade-repo.org/packages/"))

;;インストールするディレクトリを指定
(setq package-user-dir (concat user-emacs-directory "vendor/elpa"))

;;インストールしたパッケージにロードパスを通してロードする
(package-initialize)

でインストールできたっぽいけど、文字化けたくさんで、たとえば、d,x でアンインストールしようと
しても、

--------------------------------------------------------------------------------
Delete package `marmalade-0.0.4'? (y or n) condition-case: Wrong type
argument: stringp, #[(directory &optional recursive) "文字化けたくさん"
[directory handler recursive delete-by-moving-to-trash
directory-files-no-dot-files-regexp directory-file-name
expand-file-name find-file-name-handler delete-directory
directory-files ...] 7 774834 (let ((dir (expand-file-name
(read-file-name "Delete directory: " default-directory
default-directory nil nil)))) (list dir (if (directory-files dir nil
directory-files-no-dot-files-regexp) (y-or-n-p (format "Directory `%s'
is not empty, really delete? " dir)) nil)))] Quit
--------------------------------------------------------------------------------

といわれてしまい、なんだかなー。文字コードわからない。

試合前とモツ煮

2011-10-12T21:15:00.001+09:00

最近のつぶやきまとめ

2011-09-29T23:53:00.001+09:00

Thu, Sep 29

23:24 スイス、３４年目標に脱原発…段階的に５基廃止 : 国際 : YOMIURI ONLINE（読売新聞） http://t.co/LrYEUPE6 via @yomiuri_online
23:19 2011年09月29日を普通に過ごした。 http://t.co/fdXdm9fG #30thou
23:14 @clothoid gdi++ で cygstart するとフォントが変: gnupack で gdi++ の設定をしておき、eshell とかで cygstart より、何かア ... http://t.co/c1K59ezM #blogger_update
23:00 帰宅すた。右腰があ。
21:06 @twtr_horisan あるあるwww あれどういう仕組みか不明(´Д｀) [in reply to twtr_horisan]
21:01 星占い最下位だけあって間違えまくった(´Д｀)明日はとにかく折れることらしい(-.-;)
12:33 2011年09月28日を無駄に過ごした。 http://t.co/fdXdm9fG #30thou
08:43 I'm at 富士ソフト秋葉原ビル (神田練塀町3, 千代田区) http://t.co/6N4EOn8w
08:35 RT @kbl_30: ――ここに〇〇の分類が完成した．とか言ってみたい
08:29 RT @hilopon17: 田代の顔www “@eurofootball: ブラジルで人気沸騰？鹿島FWコンビのラップ芸 http://t.co/hDOW0FRu”
08:28 RT @publickey: ブログ書きました： Kindle Fire搭載のブラウザ「Amazon Silk」は、クラウドとデバイスで分散処理を行う革新的なブラウザ http://t.co/t5Zdq0UH
01:28 @clothoid は10734日生きた。人生あと19266日しかない。今日は有意義だったか？ #30thou http://t.co/fdXdm9fG

Wed, Sep 28

21:16 【評論なんかこわくない/沢部ひとみ】を読んだ本に追加 →http://t.co/7Rs8ZfXC #bookmeter
21:15 【フライパン1本でできるお手軽フレンチ/ダニエル・マルタン】を読んだ本に追加 →http://t.co/txIHbML7 #bookmeter
21:13 足し算だけして、引き算知らないみたな世界。でも、足し算だけしてれば遠くにいけるか。俺みたいに愛掛けても、ずっと原点をぐるぐる回るだけだし（（￣ー+￣）どや）Facebookの新機能から読み解くソーシャルの未来 http://t.co/pMZK6vNi
20:57 明日星占い最下位か(-.-;)
20:22 Blogger+の新しい+Dynamic+Views+を使用するには http://t.co/VALQiue0
18:25 ガラケーでも check-in ok？ (@ JR 秋葉原駅 (Akihabara Sta.) w/ 5 others) http://t.co/lBngCIaa
18:25 I just unlocked the "Newbie" badge on @foursquare! http://t.co/zyHArI6f
06:43 今から30minだけ寝る！
05:16 RT @ronbuntter: こんな論文どうですか？朝食からみた大学生の食行動(五島淑子ほか),2003 http://t.co/krq57cqv 大学生の朝食の実態を把握する…
05:03 発毛にスイッチ入れる物質を発見…米チーム : 科学 : YOMIURI ONLINE（読売新聞） http://t.co/RWMqN9jR via @yomiuri_online
04:59 日本にいても英語が話せるようになる時代、ほとんどお金をかけずに英語を学ぶ方法 - NAVER まとめ http://t.co/tFadlCTv
04:59 所得増税１３年から、相続税は除外…最終案 : 政治 : YOMIURI ONLINE（読売新聞） http://t.co/BSmjdpec via @yomiuri_online
04:58 Amazon.co.jp、仙台にコールセンター　最大1000人雇用 - ITmedia ニュース http://t.co/8zDrHaMx
04:58 値上げで禁煙、成功４割　３人に１人挑戦したが… - 47NEWS（よんななニュース） http://t.co/sLr9RdCG
04:53 2011年09月27日を無駄に過ごした。 http://t.co/fdXdm9fG #30thou
04:37 @sapotajp 5368 薬は飲みましたが夜中の咳は変わらず(-.-;)
04:37 夜中になると咳ってのは何なんだろ(T_T)喘息でファイナル答え？なんかな(-.-;)ツラいわ。
00:59 @clothoid は10733日生きた。人生あと19267日しかない。今日は有意義だったか？ #30thou http://t.co/fdXdm9fG

Tue, Sep 27

20:13 RT @spain_jp: たった30分で完成。初めてのWindows Phone 7.5アプリ開発: このときにサポートされていた言語は、英語、ドイツ語、フランス語、スペイン語、イタリア語のわずか5言語のみである。ただし、OSの内部は最初からきちんと... http:/ ...
20:11 RT @spain_jp: バルセロナで最後の闘牛、来年1月から禁止: (c)AFP/LLUIS GENE 【9月26日 AFP】スペイン・カタルーニャ（Catalonia）自治州のバルセロナ（Barcelona）にあるモヌメンタル（Monumenta... http:/ ...
19:41 emacs でツリー型のファイルブラウザ emacs-nav を利用する手順: M-x eshell cd ~/.emacs.d/ svn checkout http://t.co/wtMUhbGf http://t.co/GfspAwe1
19:34 subvertion svn のインストールと proxy 設定: apt-cyg install subversion 嘘でいいから一回起動して、初期設定ファイルを作っておく svn checkout http://em... http://t.co/rTumCgX9
19:33 w3m-emacs で、現在見ているページをデフォルトのブラウザで開く方法: w3m で観ている画面のまま M で、URLがでるから、そのまま[RET]。これだけだった。知らんかった。 http://t.co/tJ8t8W0M
05:41 無理だ
05:25 咳で寝れない→病院で言う→これ以上強い薬は出せない→咳で寝れない、の無限ループな気がしてきた。あ、ハルシオンって方向を言い忘れたわ(´Д｀)
05:20 Google先生まだ13歳だったのか。最近、イクナイから、もう年取ってしまったのかと思った(´Д｀)
05:18 RT @nkmz2: ぎゃあああああああああああああああああ　“らんま1／2実写ドラマ化！12月に日本テレビ系列で放送決定！天道あかね役：新垣結衣、早乙女乱馬役：賀来賢人、早乙女らんま役：夏菜　http://t.co/Djem8Wwf”　らんま1/2 http://t.c ...
04:55 久しぶりに連絡来たと思ったら、向こう頭痛、こっち風邪。てか、この風邪で幾つ予定飛ばしたんだろうか。悲しい。治ったら再設定お願いします。もう五時かあ。こっから寝ることにチャレンジする。もう冬だ。寒い。冬眠だ。
04:41 RT @Aso_Yudamari: 院生のときに行った女性教師との合コンの冒頭、相手方から、あなた何学科なの？と聞かれたので、正直に「地球惑星物理学専攻だよ」と答えたら「何それ、ウルトラ警備隊？（笑）」って和んだ。本当にありがとうございました。
04:23 @sapotajp 5368 薬は飲みましたよ(-.-;)
04:09 RT @lifehackerjapan: 最新記事：ストリームをチェックするだけで情報通に！～情報収集を効率化する『ONETOPI』 http://t.co/eutrix2P #lh_jp
04:08 RT @wired_jp: 【画像ギャラリー】世界で最も高価な携帯電話たち / ダイヤモンドで全面を飾られた価格1億5000万円の携帯電話や、イギリスの片田舎にある工場で手作りされている価格3700万円の携帯電話など http://t.co/oDGgISQE #wired_jp
04:07 2011年09月26日を普通に過ごした。 http://t.co/fdXdm9fG #30thou
04:03 アリバイ会社、初摘発　勤務先偽り詐欺に加担した疑い http://t.co/e1ie3EXK
04:03 これから株を始めたい人がチェックすべきサイト５選 | nanapi [ナナピ] http://t.co/XHqZudZ2 via @nanapi
04:01 Sakura Financial News | 2702 - 日本マクドナルドホールディングス株式会社 - http://t.co/ZD8Kh5ua
03:59 KDDI田中社長、iPhone発売は「ノーコメント」 - ITmedia ニュース http://t.co/xK0BwBjx
03:58 JR総武線の手すりがライトセーバーになってる…！ - NAVER まとめ http://t.co/2hbMFwot
03:34 咳の時間です(-.-;)
01:23 @clothoid は10732日生きた。人生あと19268日しかない。今日は有意義だったか？ #30thou http://t.co/fdXdm9fG

Mon, Sep 26

21:14 1m も寝てないのに、今日、俺、全然よゆぅとかブっこいてたけど、横になったらソッコーで鳩に瞼へのられたから、風邪で軽く息苦しい中オフる
21:08 @mituo40 達成おめです [in reply to mituo40]
20:15 .@twinavi のツリーにプロフィールとキーワード［海外旅行］［物理...を登録してみたよ！ http://t.co/8jo3HJE4 #tree_twinavi
19:38 Dear 彩音（あやね）の CM みて、こわいって思ってしまった・・・・Google Japan Blog: 「あなたのウェブを、はじめよう」 Google Chrome の新キャンペーンが始まりました。 http://t.co/217ykdBu
09:17 (-.-;)
09:07 やばすぎるので、とりあえず、仕事休んで病院いてきます(-.-;)
05:28 やべー。咳(>_<)
03:14 ジャングルぐるぐるぐるぐるぐるぐる
03:12 贈り物。
03:10 ちょっと、ちょっとちょっと。
02:51 RT @achanka1z: RT @ANTINIST: 前々からご要望の多かった鹿島サポーターの定番アイテムが限定３０枚という極少量生産で受注開始です！ http://t.co/s5VH0WOl　欲しいな☆　かッこいいわ～　※勝手に文章変えてすいません…
02:50 RT @H_H: 「東大生は云々」という類のことを言う人たちをまとめて数理の一室に閉じ込めて、彼らが "for all" と "there exists" の正しい使い方を理解するまでひたすらセミナーし続けたいという欲求に駆られている
02:47 RT @kis: 「目の前にあるソースコードのコピーではなく、数学からアイディアを借りましょう」勉強しないと「プログラム意味論 << Cruel to be kind」http://t.co/YvXQwDAe
02:46 RT @hitodetan: 白紙の履歴書？そんなのこれから何色にだって染められるじゃん！型にはまるのはもうやめよ？好きな色のペンで自由に用紙いっぱいに書き込んじゃお！それやると多分落ちるけど
02:40 RT @footballlooove5: 来週のGETSportsは岩政の大ちゃん出るぉ（＾∇＾）
02:31 Zeppなんていつぶりだろか。ってか、Zeppスってタンディングぢゃなかたっけ(-.-;)スタンディングだと場所確保的に全く間に合わない気がしてきたぞ(-.-;)
02:28 9.29 Zepp Tokyo は 9mm さんな気がする
02:18 木曜日Zepp集合って何のライブだろうか(-.-;)
02:11 @sapotajp 5368 今日もちゃんと薬のみましたが、副作用で胃腸が崩壊ぎみです
02:10 いつものように呟いとこう。もぅ眠れない。無理。咳とか。無理。りむ。むり。ぬ。
02:07 (>_<) Twitter places / Facebook check-in / foursquare / Gowwalla / loca-touch /
01:41 夜になると咳が止まらないのは持病の仕様ですから眠れないのは仕方無いような気がしてきたけど仕事どうしよ(-.-;)
01:28 2011年09月25日を無駄に過ごした。 http://t.co/fdXdm9fG #30thou
01:26 I'm taking a trip to Rome and Sao Paulo starting Jan 02. Leave me comments or tips! http://t.co/TpIowVgN @gtrot
01:11 @clothoid は10731日生きた。人生あと19269日しかない。今日は有意義だったか？ #30thou http://t.co/fdXdm9fG
00:18 東京電力創業60年で初の希望退職募集へ | YUCASEE MEDIA（ゆかしメディア） | 最上級を刺激する総合情報サイト | 1 http://t.co/0qdj4lCO via @yucaseemedia
00:17 材料強度学-破壊解析の理論コース http://t.co/oYSgocSY
00:14 技術者Web学習 http://goo.gl/LRkg
00:11 100年以上前に発禁となったマーク・トウェインの小説「イヴの日記」、図書館の本棚に(AP) - エキサイトニュース http://t.co/blaOlzGn
00:11 東芝の“声で動くエアコン”は訛りも認識する――音声機能の体験会を実施 - 家電Watch http://t.co/64Lzy7SH via @kaden_watch
00:11 年収200万以下ってのが典型的にはどういう人か知らない人はまさかいないよね？ - 常夏島日記 (id:potato_gnocchi / @potato_gnocchi) http://t.co/lxwkXsqg
00:10 年収１００万円以下のパートがどういう人か分かっていて書かない人たち - 常夏島日記 (id:potato_gnocchi / @potato_gnocchi) http://t.co/TRtcfGeB
00:08 刑務所に入るか、教会に通うか……(AP) - エキサイトニュース http://t.co/WudAi0yw
00:07 時事ドットコム：復興増税、たばこ含め検討を＝民主岡田氏 http://t.co/KVUU4JZt

Sun, Sep 25

23:46 なんかB'z流れてた(≧ε≦)
23:26 ママ頭良すぎ(-.-;) #フライトプラン
23:17 けいじさん雑魚すぎる(´Д｀) #フライトプラン
23:09 ママ怖い(´Д｀) #フライトプラン
22:21 @Luka_pic29 そうであることを祈ります！(´Д｀) [in reply to Luka_pic29]
22:21 フライトプラン？見よう
22:07 なんだろう？二三日続いてる堕ちそうで堕ちないこの感じ。まあいいか。順調？(謎
21:50 RT @flyeagle: ギーク向け料理本 / “O'Reilly Japan - Cooking for Geeks” http://t.co/1Ev9rIKH
21:49 RT @46tafabregas: お客様はわがままです。
21:48 RT @flyeagle: 一番の問題は、旅好きな人と、ちょこっと旅に行く人の頻度が違いすぎることだと思っている。前者に合わせるか、後者に合わせるか。というところ。 / “気になっていた旅行系WEBサービスを比較してみた【鈴木まなみ】 : TechWave” http:/ ...
21:41 RT @tenapi: 順序数の計算難しい。不可算基数の下にイプシロン数が非有界にあることの選択公理を使わない証明を考えにゃならん。キューネン本では選択公理をうっかり使っている。これを修正しないとVIの[1]の解答が書けん。
21:38 RT @fox_1020: #RTしあってフォロワーさん増やそうよ
21:38 RT @kazumon12: 真矢みきカッケーです！笑 @mochaniira “@mayamiki_bot: 人間は、挫折の数だけ成長できる。あきらめないで。 http://t.co/a8ZJPHH7”
19:36 やはり三連休動かなくても風邪治らない(-.-;)
18:53 ちゃんとしたフォーム習っても50mが8秒台って遅すぎぢゃね(-.-;) #テレ朝
18:43 なんか腰痛いよ(-.-;)
18:24 なんか寒いよ(-.-;)
17:08 RT @KazuyaKoyama: ブログを更新しました。『今日のタップ案内。』http://t.co/urHSjJwL
15:40 なんか眠いよ(-.-;)
15:39 なんか息苦しい(-.-;)
15:35 RT @lifehackerjapan: 最新記事：脂肪を分解するパワフル酵素！タイ料理のビューティーフード青パパイヤ「ソムタム」 #mylohas http://t.co/REjLgfq8 #lh_jp
15:34 RT @choiyaki: 院生のときの黒板メモの写真。今みても暗号でしかない http://t.co/8XIcRrVU
15:20 海外にいくときは定額データ通信ができる『MiFi』がやっぱり便利！ http://t.co/mHsgh6UF via @taguchi
15:19 脳内イメージを映像として再構築することに成功・・・だと？！ http://t.co/3r6rSHEW via @taguchi
15:18 SEOに役立つ記事の倉庫 by @suganeseo http://t.co/3AalTIoG
15:18 Googleが教えるブログでやるべき12の事 by @suganeseo http://t.co/kleDPNe6
15:17 Googleが教えるSEOでやってはいけない30の事 by @suganeseo http://t.co/G0fkKZUP
15:12 え、そんなことにも使えるの？という意外なアイテムまとめ http://t.co/dJwxu2J6 via @taguchi
15:10 これは知っておきたい！乗り物酔いを防ぐ方法 http://t.co/Qyrsd6jO
15:10 収入以外の雑収入があるなら確定申告したほうが良いと思うよ - 煩悩是道場 (id:ululun / @ululun) http://t.co/VnCgLxeY
15:09 括弧の中に読点を打つ人がすげー気になる。。。。ニホンゴノカキカタ Harmonia!! - http://t.co/hOcq5M8y
15:02 Ｋの足跡（Traces of K）: 天才歌姫登場！？ http://t.co/jJ0GRk8m
13:42 なんかオカシイ(-.-;)
13:11 RT @lifehackerjapan: 最新記事：まとめ：Greed is good？お金に働いてもらうためのライフハック10選 http://t.co/uSOXF1aI #lh_jp
13:11 RT @wired_jp: 【先月の記事より】ランニングで脳が若返る！　新しい神経細胞をつくる因子のメカニズムを解明。 http://t.co/M991DYGd #wired_jp
13:11 RT @lifehackerjapan: 最新記事：コットンで磨けば10歳若返る!? 超簡単な1分美肌ケア http://t.co/NS4KkfAA #lh_jp
13:10 RT @wired_jp: 【1998年の記事より】Javaを真の脅威と見ていたゲイツ会長 / 公開された文書によって、ゲイツ会長がJavaは強烈な脅威であると認めていたことが明らかに http://t.co/QM4dtwwr #wired_jp
13:07 nu
12:27 RT @kuminchuu: 【世界の山ちゃん】の手羽先は、タイ産。【とんかつ和幸】の豚肉はカナダ産。【とんかつ「さぼてん」】の豚肉はメキシコ、カナダ、アメリカ産、スペイン産。国産はなし。 #okfood #目指せ0ベクレルの食卓 #放射能 #汚染 #被曝
12:24 RT @akeyTurnX: 去年の東大合格発表の時、赤門で「やったーーー！！！！受かったーーーー！！！！！！」って喜んでた。サークル勧誘がすごかった。あまりのすごさに僕は東大を受験すらしてない私立大学3年生という事を自白した。東大生は目が変わりゴミを見るような目に変わり ...
12:23 RT @2_DATE: PCメール拒否されてない限りは、キャリアメールとかいらんよね今や。Gmailとかの方が何かと使い勝手いいし。今回をいい機会と考えて、キャリアメール使うのやめようかな。 #IS12T
12:21 @cariocaaa08 ブランチごはんですね(￣▽￣)ｖ [in reply to cariocaaa08]
12:19 RT @Kiriyama_George: 善行するとモラルが緩むことについて（カナダの研究結果） http://t.co/3CiAwVff
03:36 そもそも、ブラジル一国でいいのかと。イグアスの滝とアマゾン川でいいのかと。ボリビアっといた方がいいんかな。てか、カーニバルは二月、三月らしいし
03:34 つうか、Facebookにツイート流れないな。まあいっか(-.-;)
03:33 ああ、でも、そうなるとヨーロッパ経由確定みたいな感じになるのか。
03:32 年明けソッコーって、ちょっと高いんだよな、航空券。取り寄せ航空券狙おうかなあ。スイスフランどうなってたっけ(-.-;)
03:31 となると、ヤッパ年末年始あたり。鹿島が天皇杯どんだけやるかにもよるか。高校選手権は諦めて年明け出発
03:30 そうすると、オルセーGWになるなあ。むしろ、二月にガッツリ冬休みがいいだろうか(-.-;)ってか、オルセーは着実に進んでるんだろうか。どうせ遅れるんだろ、ぐらいに考えてた方がいい気がする
03:28 ローマ経由かアメリカ経由だな。つか、オルセー建て変わったらソッコー行かないと30になっちゃう(-.-;)
03:27 ロンドンさむそうだなあ。ロンドンからだと12時間かかるし。やはりローマ経由か(-.-;)
03:27 そうすると、両方直行便あるのはローマかロンドンかなあ。
03:26 だいたい、オルセーが二月ぐらい(？)なんだよね。だから、フランス経由は消える。
03:25 アメリカ経由の方が圧倒的に安いなあ。ヨーロッパ経由がいいんだけどどうしよう。
03:24 ビザ申請しようかなあ。てか、最近、チリの方が気になるなあ。海のモノ沢山だし。
03:17 世界一ごはん頭から離れなすぎて YouTubeで流してみた。早く頭から離さないと、堕ちるぞ、この歌詞(-.-;)勘弁してくれ(´Д｀)
03:00 世界一ごはんママの作ったごはんが頭からハナレナイ(´Д｀)
02:36 メッシのスペイン語全くワカラナイ(-.-;)
02:28 @sapotajp 5368 今日もちゃんと薬飲みました
02:27 あー、かぜかぜ。寝れない治らない
02:16 emacs で C# mode: M-x auto-install-from-emacs wiki csharp-mode C-c で以下のエラー Compiling file c:/gnupack_devel-6.02/... http://t.co/ZjnmX7Cy
01:35 RT @gigazine: 【速報】KDDIの2011年秋冬モデル、公式ページからラインナップ情報が流出 http://t.co/71jCoQS4
01:22 週間目標を登録しました。"風邪を治す" http://t.co/fdXdm9fG #30thou
01:18 2011年09月24日を無駄に過ごした。"今日も風邪" http://t.co/fdXdm9fG #30thou
01:08 @clothoid は10730日生きた。人生あと19270日しかない。今日は有意義だったか？ #30thou http://t.co/fdXdm9fG
00:45 RT @knyokoyama: やっとの思いで、｢Riemannゼータ函数と函数等式III（Selbergから量子カオスへ）、IV（H=xp モデルとLandauレベル」:http://t.co/WRjP7Utw http://t.co/RySY5gb1　英語版を作った。 ...
00:38 RT @with_kashima: ヤナギ初ゴールおめでとう♪ 中澤に競り勝って決めた、ヤナギの魅力が詰まったビューティフルゴールでした！しかし、角田は本当に良い選手ですね(^-^)/ 今シーズンの充実ぶりは目を引きます！ #antlers #vegalta
00:38 RT @gokuusoccer: 内田のアシスト動画はこちら http://t.co/zqKqQh2e #jfa2011 #daihyo #j_toku #antlers
00:36 スポーツナビ | サッカー｜Jリーグ｜ニュース｜仙台移籍後、初ゴールの柳沢「遅すぎたけど、スタートを切れた」 - http://t.co/sBg1BOWX
00:36 スポーツナビ | サッカー｜ニュース｜Ｗ杯・日韓大会で誤審により資格はく奪の元主審、麻薬密輸の容疑で収監 - http://t.co/UeXDXtYz
00:36 ＪＲ中央線快速、誤って駅通過　運転士「考え事を…」 http://t.co/3aJ1Or7W
00:36 誰にも言えない不安や愚痴を吐き出すトピ : 生活・身近な話題 : 発言小町 : 大手小町 : YOMIURI ONLINE（読売新聞） http://t.co/gxkPpmDM via @kuraget
00:35 簡単に月３０万以上稼げる方法あるけど知りたい？ http://t.co/sS57isw6
00:31 年収２００万円以下１０００万人超 - http://t.co/kudXogb7
00:30 スポーツナビ | サッカー｜ニュース｜バルセロナのメッシとピケ、ジョークでコーチングスタッフのバイクを燃やす - http://t.co/F5LBDTwE
00:30 現代物理学への挑戦…光より速いニュートリノ : 科学 : YOMIURI ONLINE（読売新聞） http://t.co/iLmrIhqi via @yomiuri_online
00:01 ヤッパ治らん(T_T)咳止まらんのだけでもなんとかして(´Д｀)

Sat, Sep 24

23:19 明日風邪が治る気がする。そういう気がする事にしたい。だって、月曜日から仕事な感じがするから。てか、また咳止まらん(´Д｀)
21:33 @akitamami おつかれさまですー [in reply to akitamami]
21:26 八ツ目やにしむらにエアタッチ！ http://t.co/TC61HuMw
21:24 やげん堀にエアタッチ！ http://t.co/E71HS95S
21:24 ラベイユ本店にエアタッチ！ http://t.co/fUaFuAE1
21:23 チーズ専門店アルパージュにエアタッチ！ http://t.co/gWhT1odg
21:21 ダダチャにエアタッチ！ http://t.co/ROaG7MLZ
21:20 L'epice et epiceにエアタッチ！ http://t.co/3wHGwbKE
21:16 笹巻きけぬきすし総本店にエアタッチ！ http://t.co/WcxxOxge
21:15 神茂本店にエアタッチ！ http://t.co/MMRSBUxY
21:14 京粕漬魚久銀座店にエアタッチ！ http://t.co/0DXkt7HU
21:08 クリスチャン・コンスタン　パリ銀座店にエアタッチ！ http://t.co/J2HoVKw9
21:08 フレデリック・カッセル銀座三越にエアタッチ！ http://t.co/fqLnMyN0
21:07 カカオサンパカ　丸の内本店にエアタッチ！ http://t.co/WlUbIr2s
21:06 トイスチャーにエアタッチ！ http://t.co/aAjBMnZY
21:03 レダラッハにエアタッチ！ http://t.co/4svKRzVF
21:02 リンツショップ銀座店にエアタッチ！ http://t.co/P7t71Spv
20:58 NoKA CHOCOLATE 東京ミッドタウン店にエアタッチ！ http://t.co/LiqbvczT
20:10 RT @imasa2188: 恐るべし、浦和戦！！ RT @kmkmken: TLで多くのバスがまだ潮来インター乗れてない。。
19:03 RT @nakayoshix: web2pyは確かに変態度高いですが、作者には明確なポリシーがあっての変態FWなので、私は別に良いと思っています。
18:32 鹿スタ暴動騒動か(-.-;)#antlers #アントラーズ #鹿島アントラーズ
18:30 RT @macha_27: オリヴェイラご立腹（笑）　野々さん「審判の話すると怒られるから」とぶっちゃけてるし。でも審判の話をすると怒られるという構造自体がJリーグのレフェリングのレベルの低さを象徴してると思う。
18:23 スカパーはオリベに審判の話をさせないようにしたいのか。意外だ。Ｊリーグだけ異様に審判へのバッシングが無いのは逆に問題だと思うんだが。メディアに圧力かけられてんぢゃないか(-.-;)それにしても野々村嫌いだ。#antlers #アントラーズ #鹿島アントラーズ
18:09 中央線快速が誤って駅通過ってどんだけ(´Д｀)
17:59 本山えらいなあ。めっさ励まして #antlers #アントラーズ #鹿島アントラーズ
17:54 スコアレス(´Д｀)なんか、やっぱ今年考え直さないとダメな年だよね(-.-;)。 #antlers #アントラーズ #鹿島アントラーズ
17:46 もう一回見たいですね→凄いキック力で→いや、引っ張られてたとこの件が爆笑 #antlers #アントラーズ #鹿島アントラーズ
17:32 イバきたああ。前々節からオリベと完全気が合うな。 #antlers #アントラーズ #鹿島アントラーズ
17:28 だー。イバ出そう。どこかワカラナイが、なんかイバの元気が欲しい #antlers #アントラーズ #鹿島アントラーズ
17:24 うむう。しんぞー、青木は良さげだが。 #antlers #アントラーズ #鹿島アントラーズ
17:20 誓志、パスばっか狙うな。前空いてるなら、ドリブルもあるんだぞ！がんがれ。 #antlers #アントラーズ #鹿島アントラーズ
17:11 くだらないミスやめて、ガッツリ集中して、サクッと、やっつけちゃって下さい #antlers #アントラーズ #鹿島アントラーズ
16:32 たしろー。ちゃんとやれ。 #antlers #アントラーズ #鹿島アントラーズ
16:25 前の方、遠藤一人で守備してんぢゃないか(-.-;) #antlers #アントラーズ #鹿島アントラーズ
16:22 今日、なんかフワフワしてんなあ。俺の熱のせいかな(T_T)。田代、誓志がいくないし。 #antlers #アントラーズ #鹿島アントラーズ
16:17 首の曲がり方がグロすぎた(-.-;) #antlers #アントラーズ #鹿島アントラーズ
16:17 あれ、くびダイジョブか(-.-;) #antlers #アントラーズ #鹿島アントラーズ

gdi++ 経由で cygstart すると、そのアプリのフォントが変

2011-09-29T23:14:00.001+09:00

gnupack で gdi++ の設定をしておき、eshell とかで cygstart より、何かア
プリケーションを立ち上げると、そのアプリが gdi++ 経由で起動するらしく、
ツールバーとかのフォントが変になる。とりあえず、gdi++ を off にしたが、
gnupack のインストール方法に書いてあるように、Windows XP のアンチエイリ
アスの効きが悪い。原因はよく分からないが、Migu 1M フォントのせいだと思
う。メイリオ改に変更したら、比較的良いアンチエイリアスを得られたように
思うので、それでしばらく対応する。

gnupack にメイリオ改の手順は以下
http://quantumfluctuation.blogspot.com/2011/05/emacs-shell-cmd-cmd-cygwin-diff-patch.html

どうしたものか。

emacs でツリー型のファイルブラウザ emacs-nav を利用する手順

2011-09-27T19:41:00.000+09:00

M-x eshell
cd ~/.emacs.d/
svn checkout http://emacs-nav.googlecode.com/svn/trunk/ emacs-nav

init.el

---
;; ------------------------------------------------------------------------
;; @ emacs-nav

(add-to-list 'load-path "~\\.emacs.d\\emacs-nav")
(require 'nav)
(setq nav-split-window-direction 'vertical) ;; 分割したフレームを垂直に並べる
(global-set-key "\C-x\C-d" 'nav-toggle) ;; C-x C-d で nav をトグル

subvertion svn のインストールと proxy 設定

2011-09-27T19:34:00.000+09:00

apt-cyg install subversion

嘘でいいから一回起動して、初期設定ファイルを作っておく

svn checkout http://emacs-nav.googlecode.com/svn/trunk/ emacs-nav

---
svn: OPTIONS of 'http://emacs-nav.googlecode.com/svn/trunk': could not
connect to server (http://emacs-nav.googlecode.com)
---

で、

emacs ~/.subversion/servers

と開き、以下のように変更

*** c:/gnupack_devel-7.00/home/.subversion/servers.orig 2011-09-27 11:15:13.124323100 +0900
--- c:/gnupack_devel-7.00/home/.subversion/servers 2011-09-27 11:18:49.022282300 +0900
***************
*** 141,148 ****
### due to SSL.
[global]
# http-proxy-exceptions = *.exception.com, www.internal-site.org
! # http-proxy-host = defaultproxy.whatever.com
! # http-proxy-port = 7000
# http-proxy-username = defaultusername
# http-proxy-password = defaultpassword
# http-compression = no
--- 141,148 ----
### due to SSL.
[global]
# http-proxy-exceptions = *.exception.com, www.internal-site.org
! http-proxy-host = server-address
! http-proxy-port = portnum
# http-proxy-username = defaultusername
# http-proxy-password = defaultpassword
# http-compression = no

なお、http の前のスペースも消さないと正常に動作しないので注意が必要、以
下のようなエラーが出て一瞬はまった

---
svn: /home/.subversion/servers:144: Option expected
---

w3m-emacs で、現在見ているページをデフォルトのブラウザで開く方法

2011-09-27T19:33:00.002+09:00

w3m で観ている画面のまま

M

で、URLがでるから、そのまま[RET]。

これだけだった。知らんかった。

emacs で C# mode

2011-09-16T19:57:00.000+09:00

M-x auto-install-from-emacs wiki
csharp-mode
C-c

で以下のエラー

Compiling file c:/gnupack_devel-6.02/home/.emacs.d/auto-install/csharp-mode.el at Fri Sep 16 09:39:10 2011
Entering directory `c:/gnupack_devel-6.02/home/.emacs.d/auto-install/'
csharp-mode.el:2028:1:Error: Symbol's value as variable is void: csharp-enum-decl-re

よく分からないので放置

;; ------------------------------------------------------------------------
;; @ csharp-mode
(require 'csharp-mode)

;; Cモード共通フック
(add-hook 'csharp-mode-hook
          '(lambda()
             (setq comment-column 40)
             (setq c-basic-offset 4)
             (font-lock-add-magic-number)
             ;; オフセットの調整
             (c-set-offset 'substatement-open 0)
             (c-set-offset 'case-label '+)
             (c-set-offset 'arglist-intro '+)
             (c-set-offset 'arglist-close 0)
             )
          )

install gnupack 7.00 on win32

2011-09-09T21:33:00.000+09:00

-*- mode: org; coding: cp932-dos -*-

* はじめに

gnupack 7.00 が出たので、Windows XP 32bit に入れる

* システムの概要

- OS 名 :: Microsoft Windows XP Professional
- バージョン :: 5.1.2600 Service Pack 3 ビルド 2600
- OS 製造元 :: Microsoft Corporation
- システム名 :: <machine-name>
- システム製造元 :: Dell Inc.
- システムモデル :: OptiPlex 780
- システムの種類 :: X86-ベース PC
- プロセッサ :: x86 Family 6 Model 23 Stepping 10 GenuineIntel ~3158 Mhz
- BIOS バージョン/ 日付 :: Dell Inc. A08, 2011/01/21
- SMBIOS バージョン :: 2.5
- Windows ディレクトリ :: C:\WINDOWS
- システムディレクトリ :: C:\WINDOWS\system32
- ブートデバイス :: \Device\HarddiskVolume1
- ロケール :: 日本
- ハードウェアアブストラクションレイヤバージョン = "5.1.2600.5512 (xpsp.080413-2111)"
- ユーザー名 :: <domain>\<username>
- タイムゾーン :: 東京 (標準時)
- 合計物理メモリ :: 4,096.00 MB
- 利用可能な物理メモリ :: 2.51 GB
- 合計仮想メモリ :: 2.00 GB
- 利用可能な仮想メモリ :: 1.95 GB
- ページファイルの空き容量 :: 5.30 GB
- ページファイル :: C:\pagefile.sys

* インストール手順および設定

gnupack 本体、gdi++、bashの設定、emacs の設定をする。vim の設定はしない。使わないから。

** gnupack

まずは本体のインストール

*** install

1. gnupack gnupack_devel-7.00.exe を以下からダウンロードする

http://sourceforge.jp/projects/gnupack/releases/?package_id=10360

2. [gnupack_devel-7.00.exe] を実行

3. [解凍先] を [C:\] にして、 [実行] をクリック

4. 以下の exe を起動して、それぞれ起動確認

C:\gnupack_devel-7.02\bash.exe
C:\gnupack_devel-7.02\emacs.exe
C:\gnupack_devel-7.02\gvim.exe

** gdi++

今回は gdi++ を入れよう

*** install

1. gdi0789 実験版を以下のバイナリよりダウンロードする
http://www18.atwiki.jp/gdiplus2/pages/15.html

2. gdi0869.7z (freetype.dll) をダウンロードする

http://www18.atwiki.jp/gdiplus2/pages/35.html

3. lha-1.14i-ac20050924p1.tar.gz (LHa for UNIX) をダウンロードする
http://lha.sourceforge.jp/

3. 手順1.2 を解凍

M-x shell

tar zxvf lha-1.14i-ac20050924p1.tar.gz
cd lha-1.14i-ac2005092p1/
./configure CFLAGS="-isystem /usr/local/include"
make
make install

apt-cyg install p7zip

lha gdi0789.lzh
7za x gdi0869.7z
mkdir -p c:/gnupack_devel-7.00/app/gdi++
mv * c:/gnupack_devel-7.00/app/gdi++/
exit
C-x k [RET]

4. gdi++.ini の編集

C-x C-f C:\gnupack_devel-7.00\app\gdi++\gdi++.ini

以下のように編集

=== c:/gnupack_devel-7.00/app/gdi++/gdi++.ini.orig    2011-09-09 11:58:22.810927800 +0900
+++ c:/gnupack_devel-7.00/app/gdi++/gdi++.ini    2011-09-09 11:58:02.482542600 +0900
===============
=== 1,7 ====
[General]
! AlternativeFile=.\ini\3.ini
!
! [GdiTray]
! MultiINISelector=1
! RedrawDelay=50
! CoolMenu=1
--- 1,15 ----
[General]
!   HookChildProcesses=1
!   HintingMode=2
!   AntiAliasMode=2
!   TextTuning=0
!   TextTuningR=1
!   TextTuningG=1
!   TextTuningB=1
!   NormalWeight=40
!   BoldWeight=32
!   ItalicSlant=32
!   EnableKerning=0
!   MaxHeight=128
!   LcdFilter=2
!   LoadOnDemand=1

** config.ini の設定
1. C-x C-f で、 c:\gnupack_devel-6.02\config.ini を開く

2. 以下のように修正

=== c:/gnupack_devel-7.00/config.ini.orig    2011-09-09 14:19:28.560237500 +0900
--- c:/gnupack_devel-7.00/config.ini    2011-09-09 14:21:36.060237500 +0900
===============
=== 25,36 ====
      GS_DLL         = %INST_DIR%\app\gs\bin\gsdll32.dll
      PATH           = %PATH%;%INST_DIR%\app\gs\bin;%INST_DIR%\app\gs\lib

[UnSetEnv]
      _font_         =
      _local_        =

[App]
!    ;Gdi            = %INST_DIR%\app\gdi++\gdi++.exe
      Bash           = %CYGWIN_DIR%\bin\bash.exe
      Shell          = %CYGWIN_DIR%\bin\bash.exe
      Mintty         = %CYGWIN_DIR%\bin\mintty.exe
--- 25,45 ----
      GS_DLL         = %INST_DIR%\app\gs\bin\gsdll32.dll
      PATH           = %PATH%;%INST_DIR%\app\gs\bin;%INST_DIR%\app\gs\lib

+     http_proxy       = http://<usrname>:<passwd>@<address>:<port>/
+     PATH           = %EMACS_DIR%\bin;%INST_DIR%\app\vim;%INST_DIR%\app\script
+     PATH           = %PATH%;%INST_DIR%\app\mingw\tdm\bin;%_local_%\bin;%CYGWIN_DIR%\bin
+     PATH           = %PATH%;%windir%\system32;%windir%;%windir%\system32\Wbem
+     PATH           = %PATH%;C:\Program Files\ANSYS Inc\v130\ansys\bin\intel
+     PATH           = %PATH%;C:\usr\local\share\InnoSetup5
+     PATH       = %PATH%;C:\w32tex\bin;C:\gs\gs7.07\bin;C:\gs\gs7.07\lib
+
+
[UnSetEnv]
      _font_         =
      _local_        =

[App]
!     Gdi            = %INST_DIR%\app\gdi++\gdi++.exe
      Bash           = %CYGWIN_DIR%\bin\bash.exe
      Shell          = %CYGWIN_DIR%\bin\bash.exe
      Mintty         = %CYGWIN_DIR%\bin\mintty.exe
===============
=== 58,64 ====
[Emacs]
      foreground     = white
      background     = black
!     geometry       = 91x31+70+28
      fontName       = %_font_%
      fontSize       = 12

--- 67,73 ----
[Emacs]
      foreground     = white
      background     = black
!     geometry       = 120x60+70+25
      fontName       = %_font_%
      fontSize       = 12

** wget の proxy 設定

http_proxy の設定で、<username>と<password>を設定していると、 wget が
正常に動作しない模様。 wget の設定もやっておく。

1. emacs を起動

2. C-x C-f で ~/.wgetrc を作成し、以下を記載

   http_proxy=<proxyadress>:<port>

** mintty
bash 起動して設定したもの
*** w3m

apt-cyg install w3m

*** ruby

bash を起動して、 apt-cyg install ruby subversion-ruby とするだけで、
関連のものも自動でインストールされる（サブバージョンはバージョン管
理のもの）。

念のため

ruby -v

*** python

    1. パッケージ群のインストール

       過去にパッケージ不足とかでできなかったことがあるため、

       apt-cyg find python

       で出てきたものをすべてインストールする。内容は良く分からない。

       apt-cyg install libboost_python1.43 postgresql-plpython python python-brlapi python-cairo python-crypto python-doc python-feedparser python-gamin python-gdata python-gobject2.0 python-gobject2.0-devel python-gsf python-gtk2.0 python-gtk2.0-demo python-gtk2.0-devel python-lcms python-libproxy python-libxml2 python-libxslt python-ming python-numpy python-paramiko python-pygtk python-pyrex python-test python-tkinter python-xdg subversion-python

    2. easy_install, setuptools, pyflakes のインストール

       setuptools とかいうのが良く出てくるのと、 pyflkes （チェッカ）を使
       いたいので、 bash で以下のようにインストール

       wget http://peak.telecommunity.com/dist/ez_setup.py
       python ez_setup.py
       wget http://pypi.python.org/packages/2.6/s/setuptools/setuptools-0.6c11-py2.6.egg#md5=bfa92100bd772d5a213eedd356d64086
       sh setuptools-0.6c11-py2.6.egg
       easy_install pyflakes

     3. 確認

        python と pyflakes の確認を行う。

        ~/tmp/sample.py

        を

        print "hoge"

        とつくって、 bash で

        python sample.py

        として、 hoge の表示を確認し、さらに、 sample.py を

        print "hello

        として、 bash で

        sample.py:1: EOL while scanning string literal
        print "hoge
                   ^

        といってくれれば成功

     3. pyflakes のバッチファイルを作成

        ウィンドウズで使うため（というか、 emacs で使うため）に、以下のバッ
        チファイルを作成しておく。

        1) emacs を起動

        2) C-x C-f で pyflakes.bat を以下に作成

          c:/gnupack_devel-6.02/app/cygwin/cygwin/bin

        3) 以下のように記載し、 C-x RET f shift-jis-dos として、 C-x C-s

          @echo off
          c:\gnupack_devel-7.00\app\cygwin\cygwin\bin\python /usr/bin/pyflakes %*

      4. pyflakes.bat の確認

        cmd を起動して

        c:\gnupack_devel-7.00\app\cygwin\cygwin\bin\pyflakes sample.py

        をして、指摘してくれれば OK。なんか最初やったら、warning 出た気がする・・・。

*** emacs-w3m
**** ファイルの入手について

     CVS は HTTP Port でないため、 Proxy CVS 用に Proxy の設定をしなけれ
     ばならないが、よく分からない。

     HTTP Proxy だけ与えられているので、トンネルする方法もあるようだが、
     そんなことはできるだけやりたくない。

     しかたないので、 proxy が不要な環境で、 emacs-w3m のファイルをとって
     くる。 bash での手順は以下のとおり。

     apt-cyg install cvs autoconf
     wget http://emacs-w3m.namazu.org/emacs-w3m-1.4.4.tar.gz
     cvs -d :pserver:anonymous@cvs.namazu.org:/storage/cvsroot login
     CVS password: [RET]
     cvs -d :pserver:anonymous@cvs.namazu.org:/storage/cvsroot co emacs-w3m
     tar zxf emacs-w3m-1.4.4.tar.gz
     cp -r emacs-w3m-1.4.4 emacs-w3m-cvs
     \cp -f emacs-w3m/* emacs-w3m-cvs

     上記できた emacs-w3m-cvs フォルダの中身をとっておけば OK 。

**** インストール手順

apt-cyg install cvs autoconf
cd emacs-w3m-cvs
./configure --with-emacs=/app/emacs/emacs/bin/emacs --with-lispdir=/app/emacs/site-lisp/w3m --with-icondir=/app/emacs/emacs/etc/w3m
make
make install

*** aspell

    apt-cyg install aspell aspell-en

*** git

    bash で

    apt-cyg install git
** NTemacs
*** auto-install.el

自動で el をダウンロード、インストールするやつ

**** download

M-x eshell
mkdir -p ~/.emacs.d/auto-install
cd ~/.emacs.d/auto-install
wget http://www.emacswiki.org/emacs/download/auto-install.el
M-x byte-compile-file auto-install.el

**** init.el (.emacs,emacs.el)

;; ------------------------------------------------------------------------
;; @ auto-install.el

;; ロードパスの追加
(add-to-list 'load-path
             "~\\.emacs.d\\auto-install")
(require 'auto-install)
(setq auto-install-directory "~\\.emacs.d\\auto-install")
;; 起動時に EmacsWiki のページ名を補完候補に加えない
(auto-install-update-emacswiki-package-name t)
;; install-elisp.el 互換モードにする
(auto-install-compatibility-setup)
;; ediff 関連のバッファを 1 つのフレームにまとめる
(setq ediff-window-setup-function 'ediff-setup-windows-plain)
(put 'downcase-region 'disabled nil)

*** recentf.el

最近使ったファイルリストを表示するやつ

**** download

M-x install-elisp-from-emacswiki
recentf-ext.el
C-c C-c
C-x k [RET]

**** init.el (.emacs,emacs.el)

;; ------------------------------------------------------------------------
;; @ 最近使ったファイルを開く recentf-ext.el

;; 最近のファイルを 3000 個保存する
(setq recentf-max-saved-items 3000)
;; 読み込み
(require 'recentf-ext)

*** open-junk-file.el

使い捨てのファイルをサクサクつくる

**** download

M-x install-elisp-from-emacswiki
open-junk-file.el
C-c C-c
C-x k [RET]

**** init.el (.emacs,emacs.el)

;; ------------------------------------------------------------------------
;; @ 使い捨てのファイルを開く open-junk-file.el

;; 読み込み
(require 'open-junk-file)

;; ファイル名およびファイル場所の指定
(setq open-junk-file-format "~/junk/%Y-%m-%d-%H%M%S.")

*** anything.el

便利なんだって。使い方、まだ、よくわかんない。

**** download

M-x auto-install-batch
anything
C-c C-c を連打

anything-migemo.el で、*文字コードエラー*

---------------------------------------------------------------------
These default coding systems were tried to encode text
in the buffer `anything-migemo.el':
(undecided-unix (5157 . 35660) (5158 . 65381) (5159 . 35675) (5160
   . 65388) (5161 . 38577) (5162 . 27115) (5163 . 4194181) (5164
   . 65381) (5165 . 34569) (5166 . 4194203) (5219 . 35660)) (utf-8-unix
     (5163 . 4194181) (5166 . 4194203) (5225 . 4194181) (5228 . 4194203)
     (5281 . 4194181) (5284 . 4194203) (7386 . 4194206) (7529 . 4194206)
     (7669 . 4194206) (8168 . 4194206) (8313 . 4194206))
However, each of them encountered characters it couldn't encode:
undecided-unix cannot encode these: 譌･譛ｬ隱槫   ･蜉   ...
utf-8-unix cannot encode these:                     ...

lick on a character (or switch to this window by `C-x o'
nd select the characters by RET) to jump to the place it appears,
here `C-u C-x =' will give information about it.

elect one of the safe coding systems listed below,
r cancel the writing with C-g and edit the buffer
o remove or modify the problematic characters,
r specify any other coding system (and risk losing
he problematic characters).

raw-text emacs-mule no-conversion
---------------------------------------------------------------------

が出るが euc-jp とかしてたら、とりあえず大丈夫っぽいんで、続けて
C-c C-c を連打し、C-x k を連打。ここ、どうにかならないのかなぁ。

念のため

M-x eshell
cd auto-install/
rm -rf anything-migemo.*
wget http://www.emacswiki.org/emacs/download/anything-migemo.el
M-x byte-compile-file
~/.emacs.d/auto-install/anything-migemo.el

**** init.el (.emacs,emacs.el)

;; ------------------------------------------------------------------------
;; @ anything
(require 'anything-startup)

*** aspell (ispell)
**** init.el (.emacs, emacs.el)

;; ------------------------------------------------------------------------
;; @ ispell が無いから、 aspell を使う

(setq-default ispell-program-name "aspell")
(eval-after-load "ispell"
'(add-to-list 'ispell-skip-region-alist '("[^\000-\377]+")))

**** .aspell.conf

C-x C-f ~/.aspell.conf を作って

lang en_US

とする

*** emacs-w3m
**** init.el (.emacs, emacs.el)

;; ------------------------------------------------------------------------
;; @ w3m-emacs
(require 'w3m-load)
(setq w3m-use-cookies t)
(setq w3m-home-page "www.google.co.jp")

*** bat-mode.el
**** download

M-x eshell
mkdir -p ~/.emacs.d/bat-mode
cd ~/.emacs.d/bat-mode
wget http://ftp.gnu.org/old-gnu/emacs/windows/contrib/bat-mode.el
M-x byte-complie-file bat-mode.el [RET]

**** init.el (.emacs, emacs.el)

;; ------------------------------------------------------------------------
;; @ windows batch-mode
(setq auto-mode-alist
       (append
        (list (cons "file://.[bB][aA][tT]$/" 'bat-mode))
        ;; For DOS init files
        (list (cons "CONFIG\\."   'bat-mode))
        (list (cons "AUTOEXEC\\." 'bat-mode))
        auto-mode-alist))
(autoload 'bat-mode "bat-mode"
      "DOS and Windows BAT files" t)

*** tail.el
**** download

M-x install-elisp-from-emacswiki
tail.el
C-c

**** init.el (.emacs, emacs.el)

;; ------------------------------------------------------------------------
;; @ emacs で tail を動かす

(require 'tail)
(setq tail-volatile nil)                ;前の記載を消さない
(setq tail-hide-delay 100000)           ;隠すまで 100000sec
(setq tail-max-size 15)                 ;Window のサイズ

**** jtail.bat

以下のような jatail.bat を作っておき、 PATH の通ったところに置いてお
いたほうが良い。 eshell も bash も出力が ja_JP.cp932 になっているか
ら。

tail -f %1 | nkf -u -s

*** auto-complete.el
**** download

auto-install だとうまくいかないので、注意。

M-x eshell
cd ~/tmp
wget http://cx4a.org/pub/auto-complete/auto-complete-1.3.1.zip
unzip auto-complete-1.3.1.zip
mv auto-complete-1.3.1 ~/.emacs.d/

**** init.el (.emacs, emacs.el)

7.8 のようなダサい書き方やめたいけど、分からない。

;; ------------------------------------------------------------------------
;; @ 入力補完支援 auto-complete.el

;; ロードパスの追加
(add-to-list 'load-path
             "~\\.emacs.d\\auto-complete-1.3.1")
(require 'auto-complete)

;; 3.2. インストールスクリプト
;; http://cx4a.org/software/auto-complete/manual.ja.html
(add-to-list 'ac-dictionary-directories "~//.emacs.d//auto-complete-1.3.1//dict")
(require 'auto-complete-config)
(ac-config-default)

;; 7.4. TAB で補完を完了する（ RET は使わない）
;; http://cx4a.org/software/auto-complete/manual.ja.html
(define-key ac-completing-map "\t" 'ac-complete)
(define-key ac-completing-map "\r" nil)

;; 7.8. 特定のモードで自動で auto-complete-mode を有効にする
;; http://cx4a.org/software/auto-complete/manual.ja.html
(add-to-list 'ac-modes 'org-mode) ;; org-mode になったら、 auto-complete をスタートさせる
(add-to-list 'ac-modes 'text-mode)
(add-to-list 'ac-modes 'ruby-mode)
(add-to-list 'ac-modes 'pyhon-mode)
(add-to-list 'ac-modes 'ansys-mode)

*** ansys-mode.el
**** download

M-x eshell
mkdir ~/tmp/ansys-mode
cd ~/tmp/ansys-mode
wget http://ansys-mode.googlecode.com/files/ansys-mode-13.0.1.tgz
tar zxvf ansys-mode-13.0.1.tgz
mv ~/tmp/ansys-mode/ ~/.emacs.d/

**** anshelp130.bat

C-x C-f
~/.emacs.d/ansys-mode/anshelp130.bat

start hh "c:\Program Files\ANSYS Inc\v130\commonfiles\help\ja\ansys130.chm"

C-x C-s

**** dict/ansys-mode (dynprompt)

ぜったい、もっと簡単な方法ある気がするから、誰か教えてほしい。

C-x C-f
C:/Program Files/ANSYS Inc/v130/ansys/docu/dynaprompt130.ans
C-x C-w
~/.emacs.d/auto-complete-1.3.1/dict/ansys-mode
C-h C-x r t |
M-x replace-string , [RET] | [RET]
M-x org-mode
TAB
M-S-<left> を連打
M-x replace-string |[space] [RET] [RET]
M-<
M-x replace-string | [RET] [RET]
C-h
M-x delete-trailing-whitespace
C-x C-s

**** init.el (.emacs, emacs.el)

;; ------------------------------------------------------------------------
;; @ ansys-mode の設定

;; ロードパスの追加
(add-to-list 'load-path
         "~\\.emacs.d\\ansys-mode")

;; 拡張子によって ansys-mode に
(add-to-list 'auto-mode-alist '("\\.mac\\'" . ansys-mode))
(add-to-list 'auto-mode-alist '("\\.dat\\'" . ansys-mode))
(add-to-list 'auto-mode-alist '("\\.inp\\'" . ansys-mode))
(autoload 'ansys-mode "ansys-mode" nil t)

;; ansys-mode の時は、アウトラインマイナーモードに
(add-hook 'ansys-mode-hook
          '(lambda ()
             (outline-minor-mode 1)
             ))

;; chm ヘルプを起動する
(custom-set-variables
'(ansys-help-program "~\\.emacs.d\\ansys-mode\\anshelp130.bat"))

*** zlc.el

    zlc ってなんだろ。 TAB で便利。

**** dowonload

auto-install だとうまくいかないので、注意

M-x eshell
cd ~/.emacs.d/
mkdir zlc
M-x w3m-goto-url-new-session
http://github.com/mooz/emacs-zlc/raw/master/zlc.el
C-x C-h
M-w
C-x C-f
~/.emacs.d/zlc/zlc.el
C-y
C-x C-s

**** init.el

;; ------------------------------------------------------------------------
;; @ zlc.el
(add-to-list 'load-path "~\\.emacs.d\\zlc")
(require 'zlc)
;; (setq zlc-select-completion-immediately t)
(let ((map minibuffer-local-map))
;;; like menu select
(define-key map (kbd "<down>") 'zlc-select-next-vertical)
(define-key map (kbd "<up>")    'zlc-select-previous-vertical)
(define-key map (kbd "<right>") 'zlc-select-next)
(define-key map (kbd "<left>") 'zlc-select-previous)
;;; reset selection
(define-key map (kbd "C-c") 'zlc-reset)
)

*** text-translator.el
**** download

auto-install-bathch だと、 var.el が無いだの、 var.el は文字化けするだので、
正常にインストールできないので注意

M-x eshell
mkdir -p ~/.emacs.d/text-translator
cd ~/.emacs.d/text-translator
wget http://www.emacswiki.org/emacs/download/text-translator.el
wget http://www.emacswiki.org/emacs/download/text-translator-vars.el
wget http://www.emacswiki.org/emacs/download/text-translator-load.el

**** init.el (.emacs, emacs.el)

;; ------------------------------------------------------------------------
;; Emacs でテキスト翻訳をする elisp
;; http://quantumfluctuation.blogspot.com/2011/05/text-translatorel_22.html

;; ロードパスの追加
(add-to-list 'load-path "~\\.emacs.d\\text-translator")
(require 'text-translator)
(setq text-translator-auto-selection-func
      'text-translator-translate-by-auto-selection-enja)
;; 自動選択に使用する関数を設定
(setq text-translator-auto-selection-func
      'text-translator-translate-by-auto-selection-enja)
;; グローバルキーを設定
(global-set-key "\C-xt" 'text-translator-translate-by-auto-selection)

;; ;; if you are setting environment variables HTTP_PROXY,
;; ;; you have not to set this.
(setq text-translator-proxy-server "<proxy-address>")
(setq text-translator-proxy-port   <portnum>)

*** iss-mode.el (Inno Setup mode)
**** download

M-x eshell
mkdir -p ~/.emacs.d/iss-mode
cd ~/.emacs.d/iss-mode
wget http://www.xsteve.at/prg/emacs/iss-mode.el

**** init.el

;; @ Inno Setup iss-mode
(add-to-list 'load-path "~/.emacs.d/iss-mode")
(require 'iss-mode)
(autoload 'iss-mode "iss-mode" "Innosetup Script Mode" t)
(setq auto-mode-alist (append '(("\\.iss$" . iss-mode)) auto-mode-alist))
(setq iss-compiler-path "C:/usr/local/share/InnoSetup5/")
(add-hook 'iss-mode-hook 'xsteve-iss-mode-init)
;; 以下はなんか動かない
(defun xsteve-iss-mode-init ()
     (interactive)
     (define-key iss-mode-map [f6] 'iss-compile)
     (define-key iss-mode-map [(meta f6)] 'iss-run-installer))

*** yatex
**** download

wget http://www.yatex.org/yatex1.74.tar.gz

**** install

tar xzvf yatex1.74.tar.gz
cd yatex1.74/
C-x C-f makefile
C-x C-q

で以下のように編集

^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
=== c:/gnupack_devel-6.02/home/tmp/yatex1.74/mekefile.orig    2011-07-12 13:10:20.249481300 +0900
--- c:/gnupack_devel-6.02/home/tmp/yatex1.74/makefile    2011-07-12 13:43:06.550439000 +0900
===============
=== 3,16 ====
#

# 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}
## XEmacs
#EMACS    = xemacs
#EMACSDIR= ${PREFIX}/lib/${EMACS}
--- 3,16 ----
#

# Edit these variables to be suitable for your site
! PREFIX    = C:/gnupack_devel-7.00/app/emacs/emacs

## mule2
! # EMACS    = mule
! # EMACSDIR= ${PREFIX}/lib/${EMACS}
## emacs20
! # EMACS    = emacs
! # EMACSDIR= ${PREFIX}/share/${EMACS}
## XEmacs
#EMACS    = xemacs
#EMACSDIR= ${PREFIX}/lib/${EMACS}
===============
=== 21,26 ====
--- 21,30 ----
#EMACS    = /Applications/Emacs.app/Contents/MacOS/Emacs
#PREFIX    = /Applications/Emacs.app/Contents/Resources
#EMACSDIR = ${PREFIX}
+ ## NTemacs23.3
+ EMACS    = emacs
+ EMACSDIR= c:/gnupack_devel-7.00/app/emacs/emacs
+

LISPDIR    = ${EMACSDIR}/site-lisp/yatex
# LISPDIR    = ${EMACSDIR}/site-packages/lisp/yatex
===============
=== 35,41 ====

# Comment out below if you are using Emacs Windows(meadow, etc)
! GEO    = -geometry 80x20+0+0

###################
# Do not edit below
--- 39,45 ----

# Comment out below if you are using Emacs Windows(meadow, etc)
! # GEO    = -geometry 80x20+0+0

###################
# Do not edit below

^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

eshell に戻って

export DISPLAY=":0.0"
make install

としてインストール

C-x C-f
c:/gnupack_devel-7.00/app/emacs/emacs/info/dir

として、以下のように編集

^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

=== c:/gnupack_devel-6.02/app/emacs/emacs/info/dir.orig    2011-07-12 13:50:54.602247800 +0900
--- c:/gnupack_devel-6.02/app/emacs/emacs/info/dir    2011-07-12 13:48:52.566308200 +0900
===============
=== 95,97 ====
--- 95,101 ----
                                    Customization facility.
* SMTP: (smtpmail).             Emacs library for sending mail via SMTP.

+ * YaTeX: (yatexj). Yet Another tex-mode for Emacs. (Japanese).
+ * YaTeX-e: (yatexe). Yet Another tex-mode for Emacs. (English).
+ * yahtml: (yahtmlj). Yet Another HTML-mode for Emacs. (Japanese).
+ * yahtml-e: (yahtmle). Yet Another HTML-mode for Emacs. (English).

^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

C-x C-f
~/.emacs.d/init.el

として、以下を追記

;; ------------------------------------------------------------------------
;; @ yatex

(setq load-path (cons "C:/gnupack_devel-6.02/app/emacs/emacs/site-lisp/yatex" load-path))
(setq auto-mode-alist
(cons (cons "\\.tex$" 'yatex-mode) auto-mode-alist))
(autoload 'yatex-mode "yatex" "Yet Another LaTeX mode" t)
(setq tex-command "c:/w32tex/bin/platex")
(setq dvi2-command "C:/w32tex/dviout/dviout")

(setq YaTeX-use-LaTeX2e t)
(setq YaTeX-use-AMS-LaTeX t)

(setq
YaTeX-math-sign-alist-private
'(
   ("q"         "Q"          "(Q)")
   ("z"         "Z"          "ZZ")
   ("t""text""text")
   ("qu"        "quad"         "__")
   ("qq"        "qquad"         "____")
   ("ls"        "varlimsup"     "___\nlim")
   ("li"        "varliminf"     "lim\n---")
   ("il"        "varinjlim"     "lim\n-->")
   ("pl"        "varprojlim"    "lim\n<--")
   ("st"        "text{ s.t. }" "s.t.")
   ("bigop"     "bigoplus"      "_\n(+)~")
   ("bigot"     "bigotimes"     "_\n(x)\n ~")
   ))

; dviからpdfを作成する%sはファイル名
(setq dviprint-command-format "C:/w32tex/bin/dvipdfmx %s")

* 現状の問題点

- iss-mode をバイトコンパイルすると以下の警告

Compiling file c:/gnupack_devel-7.00/home/.emacs.d/iss-mode/iss-mode.el at Fri Sep 09 15:52:41 2011

In iss-mode:
iss-mode.el:138:30:Warning: assignment to free variable
    `compilation-file-regexp-alist'

- zlc をバイトコンパイルすると以下の警告

Compiling file c:/gnupack_devel-7.00/home/.emacs.d/zlc/zlc.el at Fri Sep 09 15:46:34 2011
Entering directory `c:/gnupack_devel-7.00/home/.emacs.d/zlc/'
zlc.el:54:1:Warning: defface for `zlc-selected-completion-face' fails to
    specify containing group

- text-translator.el をバイトコンパイルすると以下のエラー

Compiling file c:/gnupack_devel-7.00/home/.emacs.d/text-translator/text-translator.el at Fri Sep 09 15:49:41 2011
text-translator.el:32:1:Error: Cannot open load file: text-translator-vars

- auto-install で文字化け起こるの何とかならないかなぁ。
- eddif-buffers で config.ini を比較すると改行コードが ^M になっちゃう
- (set-frame-height (selected-frame) 40) がうまく効かない
- org-mode が変。たくさんかくと org-mode でカーソル移動が遅くなる、カクカク動く。
- anything.el は履歴保存してくれないのかな。デフォルトの設定じゃ駄目なのかしらん。
- w3m で shift 選択できない。どうように、 org-mode でもできない。
- org-mode が auto-complete とかぶる。 auto-complete のキーバインドを強制上書きしても org-mode に聞かない。うざい。
- ansys-mode のカスタマイズ方法が不明。 unix/linux のみ対応を windows 対応にしたいけど、 elisp とか分からない。

* init.el 全体の晒し

; -*- Mode: Emacs-Lisp ; Coding: utf-8 -*-

;; ------------------------------------------------------------------------
;; @ coding system

   ;; 日本語入力のための設定
   (set-keyboard-coding-system 'cp932)

   (prefer-coding-system 'utf-8-dos)
   (set-file-name-coding-system 'cp932)
   (setq default-process-coding-system '(cp932 . cp932))

;; ------------------------------------------------------------------------
;; @ ime

   ;; 標準IMEの設定
   (setq default-input-method "W32-IME")

   ;; IME状態のモードライン表示
   (setq-default w32-ime-mode-line-state-indicator "[Aa]")
   (setq w32-ime-mode-line-state-indicator-list '("[Aa]" "[あ]" "[Aa]"))

   ;; IMEの初期化
   (w32-ime-initialize)

   ;; IME OFF時の初期カーソルカラー
   (set-cursor-color "red")

   ;; IME ON/OFF時のカーソルカラー
   (add-hook 'input-method-activate-hook
             (lambda() (set-cursor-color "green")))
   (add-hook 'input-method-inactivate-hook
             (lambda() (set-cursor-color "red")))

   ;; バッファ切り替え時にIME状態を引き継ぐ
   (setq w32-ime-buffer-switch-p nil)

;; ------------------------------------------------------------------------
;; @ encode

   ;; 機種依存文字
   (require 'cp5022x)
   (define-coding-system-alias 'euc-jp 'cp51932)

   ;; decode-translation-table の設定
   (coding-system-put 'euc-jp :decode-translation-table
              (get 'japanese-ucs-jis-to-cp932-map 'translation-table))
   (coding-system-put 'iso-2022-jp :decode-translation-table
              (get 'japanese-ucs-jis-to-cp932-map 'translation-table))
   (coding-system-put 'utf-8 :decode-translation-table
              (get 'japanese-ucs-jis-to-cp932-map 'translation-table))

   ;; encode-translation-table の設定
   (coding-system-put 'euc-jp :encode-translation-table
              (get 'japanese-ucs-cp932-to-jis-map 'translation-table))
   (coding-system-put 'iso-2022-jp :encode-translation-table
              (get 'japanese-ucs-cp932-to-jis-map 'translation-table))
   (coding-system-put 'cp932 :encode-translation-table
              (get 'japanese-ucs-jis-to-cp932-map 'translation-table))
   (coding-system-put 'utf-8 :encode-translation-table
              (get 'japanese-ucs-jis-to-cp932-map 'translation-table))

   ;; charset と coding-system の優先度設定
   (set-charset-priority 'ascii 'japanese-jisx0208 'latin-jisx0201
             'katakana-jisx0201 'iso-8859-1 'cp1252 'unicode)
   (set-coding-system-priority 'utf-8 'euc-jp 'iso-2022-jp 'cp932)

   ;; PuTTY 用の terminal-coding-system の設定
   (apply 'define-coding-system 'utf-8-for-putty
      "UTF-8 (translate jis to cp932)"
      :encode-translation-table
      (get 'japanese-ucs-jis-to-cp932-map 'translation-table)
      (coding-system-plist 'utf-8))
   (set-terminal-coding-system 'utf-8-for-putty)

   ;; East Asian Ambiguous
   (defun set-east-asian-ambiguous-width (width)
     (while (char-table-parent char-width-table)
       (setq char-width-table (char-table-parent char-width-table)))
     (let ((table (make-char-table nil)))
       (dolist (range
            '(#x00A1 #x00A4 (#x00A7 . #x00A8) #x00AA (#x00AD . #x00AE)
             (#x00B0 . #x00B4) (#x00B6 . #x00BA) (#x00BC . #x00BF)
             #x00C6 #x00D0 (#x00D7 . #x00D8) (#x00DE . #x00E1) #x00E6
             (#x00E8 . #x00EA) (#x00EC . #x00ED) #x00F0
             (#x00F2 . #x00F3) (#x00F7 . #x00FA) #x00FC #x00FE
             #x0101 #x0111 #x0113 #x011B (#x0126 . #x0127) #x012B
             (#x0131 . #x0133) #x0138 (#x013F . #x0142) #x0144
             (#x0148 . #x014B) #x014D (#x0152 . #x0153)
             (#x0166 . #x0167) #x016B #x01CE #x01D0 #x01D2 #x01D4
             #x01D6 #x01D8 #x01DA #x01DC #x0251 #x0261 #x02C4 #x02C7
             (#x02C9 . #x02CB) #x02CD #x02D0 (#x02D8 . #x02DB) #x02DD
             #x02DF (#x0300 . #x036F) (#x0391 . #x03A9)
             (#x03B1 . #x03C1) (#x03C3 . #x03C9) #x0401
             (#x0410 . #x044F) #x0451 #x2010 (#x2013 . #x2016)
             (#x2018 . #x2019) (#x201C . #x201D) (#x2020 . #x2022)
             (#x2024 . #x2027) #x2030 (#x2032 . #x2033) #x2035 #x203B
             #x203E #x2074 #x207F (#x2081 . #x2084) #x20AC #x2103
             #x2105 #x2109 #x2113 #x2116 (#x2121 . #x2122) #x2126
             #x212B (#x2153 . #x2154) (#x215B . #x215E)
             (#x2160 . #x216B) (#x2170 . #x2179) (#x2190 . #x2199)
             (#x21B8 . #x21B9) #x21D2 #x21D4 #x21E7 #x2200
             (#x2202 . #x2203) (#x2207 . #x2208) #x220B #x220F #x2211
             #x2215 #x221A (#x221D . #x2220) #x2223 #x2225
             (#x2227 . #x222C) #x222E (#x2234 . #x2237)
             (#x223C . #x223D) #x2248 #x224C #x2252 (#x2260 . #x2261)
             (#x2264 . #x2267) (#x226A . #x226B) (#x226E . #x226F)
             (#x2282 . #x2283) (#x2286 . #x2287) #x2295 #x2299 #x22A5
             #x22BF #x2312 (#x2460 . #x24E9) (#x24EB . #x254B)
             (#x2550 . #x2573) (#x2580 . #x258F) (#x2592 . #x2595)
             (#x25A0 . #x25A1) (#x25A3 . #x25A9) (#x25B2 . #x25B3)
             (#x25B6 . #x25B7) (#x25BC . #x25BD) (#x25C0 . #x25C1)
             (#x25C6 . #x25C8) #x25CB (#x25CE . #x25D1)
             (#x25E2 . #x25E5) #x25EF (#x2605 . #x2606) #x2609
             (#x260E . #x260F) (#x2614 . #x2615) #x261C #x261E #x2640
             #x2642 (#x2660 . #x2661) (#x2663 . #x2665)
             (#x2667 . #x266A) (#x266C . #x266D) #x266F #x273D
             (#x2776 . #x277F) (#xE000 . #xF8FF) (#xFE00 . #xFE0F)
             #xFFFD
             ))
     (set-char-table-range table range width))
       (optimize-char-table table)
       (set-char-table-parent table char-width-table)
       (setq char-width-table table)))
   (set-east-asian-ambiguous-width 2)

   ;; emacs-w3m
   (eval-after-load "w3m"
     '(when (coding-system-p 'cp51932)
        (add-to-list 'w3m-compatible-encoding-alist '(euc-jp . cp51932))))

   ;; Gnus
   (eval-after-load "mm-util"
     '(when (coding-system-p 'cp50220)
        (add-to-list 'mm-charset-override-alist '(iso-2022-jp . cp50220))))

   ;; SEMI (cf. http://d.hatena.ne.jp/kiwanami/20091103/1257243524)
   (eval-after-load "mcs-20"
     '(when (coding-system-p 'cp50220)
        (add-to-list 'mime-charset-coding-system-alist
             '(iso-2022-jp . cp50220))))

   ;; 全角チルダ/波ダッシュをWindowsスタイルにする
   (let ((table (make-translation-table-from-alist '((#x301c . #xff5e))) ))
     (mapc
      (lambda (coding-system)
        (coding-system-put coding-system :decode-translation-table table)
        (coding-system-put coding-system :encode-translation-table table)
        )
      '(utf-8 cp932 utf-16le)))

;; ------------------------------------------------------------------------
;; @ font

   ;; 標準フォントの設定
   ;; (set-default-font "M+2VM+IPAG circle-12")

   ;; IME変換時フォントの設定（テストバージョンのみ）
   ;; (setq w32-ime-font-face "MigMix 1M")
   ;; (setq w32-ime-font-height 22)

   ;; 固定等幅フォントの設定
   ;; (set-face-attribute 'fixed-pitch    nil :family "M+2VM+IPAG circle")

   ;; 可変幅フォントの設定
   ;; (set-face-attribute 'variable-pitch nil :family "M+2VM+IPAG circle")

;; ------------------------------------------------------------------------
;; @ frame

   ;; フレームタイトルの設定
   (setq frame-title-format "%b")

;; ------------------------------------------------------------------------
;; @ buffer

   ;; バッファ画面外文字の切り詰め表示
   (setq truncate-lines nil)

   ;; ウィンドウ縦分割時のバッファ画面外文字の切り詰め表示
   (setq truncate-partial-width-windows t)

   ;; 同一バッファ名にディレクトリ付与
   (require 'uniquify)
   (setq uniquify-buffer-name-style 'forward)
   (setq uniquify-buffer-name-style 'post-forward-angle-brackets)
   (setq uniquify-ignore-buffers-re "*[^*]+*")

;; ------------------------------------------------------------------------
;; @ fringe

   ;; バッファ中の行番号表示
   (global-linum-mode t)

   ;; 行番号のフォーマット
   (set-face-attribute 'linum nil :foreground "red" :height 0.8)
   (setq linum-format "%4d")

;; ------------------------------------------------------------------------
;; @ modeline

   ;; 行番号の表示
   (line-number-mode t)

   ;; 列番号の表示
   (column-number-mode t)

   ;; 時刻の表示
   (require 'time)
   (setq display-time-24hr-format t)
   (setq display-time-string-forms '(24-hours ":" minutes))
   (display-time-mode t)

   ;; cp932エンコード時の表示を「P」とする
   (coding-system-put 'cp932 :mnemonic ?P)
   (coding-system-put 'cp932-dos :mnemonic ?P)
   (coding-system-put 'cp932-unix :mnemonic ?P)
   (coding-system-put 'cp932-mac :mnemonic ?P)

;; ------------------------------------------------------------------------
;; @ cursor

   ;; カーソル点滅表示
   (blink-cursor-mode 0)

   ;; スクロール時のカーソル位置の維持
   (setq scroll-preserve-screen-position t)

   ;; スクロール行数（一行ごとのスクロール）
   (setq vertical-centering-font-regexp ".*")
   (setq scroll-conservatively 35)
   (setq scroll-margin 0)
   (setq scroll-step 1)

   ;; 画面スクロール時の重複行数
   (setq next-screen-context-lines 1)

;; ------------------------------------------------------------------------
;; @ default setting

   ;; 起動メッセージの非表示
   (setq inhibit-startup-message t)

   ;; スタートアップ時のエコー領域メッセージの非表示
   (setq inhibit-startup-echo-area-message -1)

;; ------------------------------------------------------------------------
;; @ image-library
   (setq image-library-alist
         '((xpm "libxpm.dll")
           (png "libpng14.dll")
           (jpeg "libjpeg.dll")
           (tiff "libtiff3.dll")
           (gif "libungif4.dll")
           (svg "librsvg-2-2.dll")
           (gdk-pixbuf "libgdk_pixbuf-2.0-0.dll")
           (glib "libglib-2.0-0.dll")
           (gobject "libgobject-2.0-0.dll"))
         )

;; ------------------------------------------------------------------------
;; @ backup

   ;; 変更ファイルのバックアップ
   (setq make-backup-files nil)

   ;; 変更ファイルの番号つきバックアップ
   (setq version-control nil)

   ;; 編集中ファイルのバックアップ
   (setq auto-save-list-file-name nil)
   (setq auto-save-list-file-prefix nil)

   ;; 編集中ファイルのバックアップ先
   (setq auto-save-file-name-transforms
         `((".*" ,temporary-file-directory t)))

   ;; 編集中ファイルのバックアップ間隔（秒）
   (setq auto-save-timeout 30)

   ;; 編集中ファイルのバックアップ間隔（打鍵）
   (setq auto-save-interval 500)

   ;; バックアップ世代数
   (setq kept-old-versions 1)
   (setq kept-new-versions 2)

   ;; 上書き時の警告表示
   ;- (setq trim-versions-without-asking nil)

   ;; 古いバックアップファイルの削除
   (setq delete-old-versions t)

;; ------------------------------------------------------------------------
;; @ key bind

   ;; 標準キーバインド変更
   (global-set-key "\C-z"          'scroll-down)

;; ------------------------------------------------------------------------
;; @ scroll

   ;; バッファの先頭までスクロールアップ
   (defadvice scroll-up (around scroll-up-around)
     (interactive)
     (let* ( (start_num (+ 1 (count-lines (point-min) (point))) ) )
       (goto-char (point-max))
       (let* ( (end_num (+ 1 (count-lines (point-min) (point))) ) )
         (goto-line start_num )
         (let* ( (limit_num (- (- end_num start_num) (window-height)) ))
           (if (< (- (- end_num start_num) (window-height)) 0)
               (goto-char (point-max))
             ad-do-it)) )) )
   (ad-activate 'scroll-up)

   ;; バッファの最後までスクロールダウン
   (defadvice scroll-down (around scroll-down-around)
     (interactive)
     (let* ( (start_num (+ 1 (count-lines (point-min) (point)))) )
       (if (< start_num (window-height))
           (goto-char (point-min))
         ad-do-it) ))
   (ad-activate 'scroll-down)

;; ------------------------------------------------------------------------
;; @ print

   (require 'cl)
   (defun listsubdir (basedir)
     (remove-if (lambda (x) (not (file-directory-p x)))
                (directory-files basedir t "^[^.]")))

   (setq ps-print-color-p t
         ps-lpr-command "gswin32c.exe"
         ps-multibyte-buffer 'non-latin-printer
         ps-lpr-switches '("-sDEVICE=mswinpr2" "-dNOPAUSE" "-dBATCH" "-dWINKANJI")
         printer-name nil
         ps-printer-name nil
         ps-printer-name-option nil
         ps-print-header nil          ; ヘッダの非表示
         )

;; ;; ------------------------------------------------------------------------
;; ;; @ hiwin-mode
;;    (require 'hiwin)

;;    ;; 非アクティブwindowの背景色（hiwin-modeの実行前に設定が必要）
;;    (setq hiwin-deactive-color "gray30")

;;    ;; hiwin-modeを有効にする
;;    (hiwin-mode)

;;    ;; kill-bufferで再描画されるようにする
;;    (defadvice kill-buffer
;;      (around kill-buffer-around activate)
;;      ad-do-it
;;      (if hiwin-ol (hiwin-draw-ol)))

;; ------------------------------------------------------------------------
;; @ tabbar
   (require 'cl)
   (require 'tabbar)

   ;; scratch buffer 以外をまとめてタブに表示する
   (setq tabbar-buffer-groups-function
         (lambda (b) (list "All Buffers")))
   (setq tabbar-buffer-list-function
         (lambda ()
           (remove-if
            (lambda(buffer)
              (unless (string-match (buffer-name buffer) "\$*scratch*\\|*Apropos*\\|*shell*\\|*eshell*\\|*Customize\$")
                (find (aref (buffer-name buffer) 0) " *"))
              )
            (buffer-list))))

   ;; tabbarを有効にする
   (tabbar-mode)

   ;; ボタンをシンプルにする
   (setq tabbar-home-button-enabled "")
   (setq tabbar-scroll-right-button-enabled "")
   (setq tabbar-scroll-left-button-enabled "")
   (setq tabbar-scroll-right-button-disabled "")
   (setq tabbar-scroll-left-button-disabled "")

   ;; Ctrl-Tab, Ctrl-Shift-Tab でタブを切り替える
   (dolist (func '(tabbar-mode tabbar-forward-tab tabbar-forward-group tabbar-backward-tab tabbar-backward-group))
     (autoload func "tabbar" "Tabs at the top of buffers and easy control-tab navigation"))
   (defmacro defun-prefix-alt (name on-no-prefix on-prefix &optional do-always)
     `(defun ,name (arg)
        (interactive "P")
        ,do-always
        (if (equal nil arg)
            ,on-no-prefix
          ,on-prefix)))
   (defun-prefix-alt shk-tabbar-next (tabbar-forward-tab) (tabbar-forward-group) (tabbar-mode 1))
   (defun-prefix-alt shk-tabbar-prev (tabbar-backward-tab) (tabbar-backward-group) (tabbar-mode 1))
   (global-set-key [(control tab)] 'shk-tabbar-next)
   (global-set-key [(control shift tab)] 'shk-tabbar-prev)

;; ------------------------------------------------------------------------
;; @ setup-cygwin
   (setq cygwin-mount-cygwin-bin-directory
         (concat (getenv "CYGWIN_DIR") "\\bin"))
   (require 'setup-cygwin)

;; ------------------------------------------------------------------------
;; @ shell
   (require 'shell)
   (setq explicit-shell-file-name "bash.exe")
   (setq shell-command-switch "-c")
   (setq shell-file-name "bash.exe")

   ;; (M-! and M-| and compile.el)
   (setq shell-file-name "bash.exe")
   (modify-coding-system-alist 'process ".*sh\\.exe" 'cp932)

   ;; shellモードの時の^M抑制
   (add-hook 'comint-output-filter-functions 'shell-strip-ctrl-m nil t)

   ;; shell-modeでの補完 (for drive letter)
   (setq shell-file-name-chars "~/A-Za-z0-9_^$!#%&{}@'`.,;()-")

   ;; エスケープシーケンス処理の設定
   (autoload 'ansi-color-for-comint-mode-on "ansi-color"
             "Set `ansi-color-for-comint-mode' to t." t)

   (setq shell-mode-hook
         (function
          (lambda ()

            ;; シェルモードの入出力文字コード
            (set-buffer-process-coding-system 'sjis-dos 'sjis-unix)
            (set-buffer-file-coding-system    'sjis-unix)
            )))

;; ------------------------------------------------------------------------
;; @ menu-tree
   ;; (setq menu-tree-coding-system 'utf-8)
   ;; (require 'menu-tree)

;; ------------------------------------------------------------------------
;; @ migemo/cmigemo
   (setq migemo-command (concat (getenv "INST_DIR")
                                "\\app\\cmigemo\\cmigemo"))
   (setq migemo-options '("-q" "--emacs"))
   (setq migemo-dictionary (concat (getenv "INST_DIR")
                                   "\\app\\cmigemo\\dict\\utf-8\\migemo-dict"))
   (setq migemo-user-dictionary nil)
   (setq migemo-regex-dictionary nil)
   (setq migemo-use-pattern-alist t)
   (setq migemo-use-frequent-pattern-alist t)
   (setq migemo-pattern-alist-length 1024)
   (setq migemo-coding-system 'utf-8-unix)
   (load-library "migemo")
   (migemo-init)

;; ------------------------------------------------------------------------
;; @ 個人的な初期設定

;; デフォルトの文字コード指定
(set-default-coding-systems 'cp932-dos)

; 区切り文字に全角スペースや、・を含める
(setq paragraph-start '"^\$[ 　・○<\t\n\f]\\|(?[0-9a-zA-Z]+)\$")

;; startup directory
(setq default-directory "~/")

;; ファイルのカーソル内の位置を記憶
(setq-default save-place t)

;; ガベッジコレクション閾値を 40MB に
;; (setq gc-cons-threshold 524288000)

;; ログの記録行数を増やす
(setq message-log-max 10000)

;; undo をいっぱい
(setq undo-limit 100000)
(setq undo-strong-limit 130000)

;; キーストロークの表示速度を上げる
(setq echo-keystrokes 0.1)

;; でかいファイルも普通に開く（デフォルトは10MB）
(setq large-file-warning-threshold (* 50 1024 1024)) ;50MB

;; いちいち yes とか無理だから y にする
(defalias 'yes-or-no-p 'y-or-n-p)

;; BS や Delete キーでリージョン内の文字を削除
(delete-selection-mode 1)

;; TAB を bacspace で消すとき、半角スペースとして消さないで、tabのまま消す
(global-set-key [backspace] 'backward-delete-char)

;; 前回編集していた場所を記憶し，ファイルを開いた時にそこへカーソルを移動
(require 'saveplace)
(setq-default save-place t)

;; 矩形選択とか便利な cua-mode
(cua-mode t)
(setq cua-enable-cua-keys nil) ;;C-xでkill-regionとかになって変な感じになるので。

;; @ クリップボード転送ができないことがある。
(cond (window-system (setq x-select-enable-clipboard t)))

;; kill-ring はテキスト属性（色情報など）を保存しなくていい
(defadvice kill-new (around my-kill-ring-disable-text-property activate)
(let ((new (ad-get-arg 0)))
    (set-text-properties 0 (length new) nil new)
    ad-do-it))

;; 初期画面をいきなりbuffer-menuにする
(buffer-menu)

; キー入力中にマウスポインタを右上隅へ移動
(mouse-avoidance-mode 'banish)

;; @ 括弧の対応表示
(setq blink-matching-paren t)
(show-paren-mode t)
(setq paren-sexp-mode t)
(set-face-background 'show-paren-match "royalBlue1")

;; 対応する括弧に移動のキーバインドを C-{ と C-} に変更 (C-M-f/p相当)
(global-set-key [?\C-{] 'backward-list)
(global-set-key [?\C-}] 'forward-list)

;; タブ, 全角スペースを色つき表示する (色名は M-x list-color-displayで調べる)
;; http://homepage1.nifty.com/blankspace/emacs/color.html
(defface my-face-b-1 '((t (:background "red4"))) nil)                           ;全角スペースの色
(defface my-face-b-2 '((t (:background "gray6"))) nil)                          ;タブの色
(defface my-face-u-1 '((t (:foreground "MediumPurple4" :underline t))) nil)     ; 無駄な半角スペースの色
(defvar my-face-b-1 'my-face-b-1)
(defvar my-face-b-2 'my-face-b-2)
(defvar my-face-u-1 'my-face-u-1)
(defadvice font-lock-mode (before my-font-lock-mode ())
(font-lock-add-keywords
   major-mode
   '(("\t" 0 my-face-b-2 append)
     ("　" 0 my-face-b-1 append)
     ("[ \t]+$" 0 my-face-u-1 append)
     )))
(ad-enable-advice 'font-lock-mode 'before 'my-font-lock-mode)
(ad-activate 'font-lock-mode)

;;; フレームサイズをトグルで切り替え
;; http://www.bookshelf.jp/soft/meadow_30.html#SEC416
;; 現在のフレームサイズを調べる方法
;; *scratch*バッファを開き，(frame-width), (frame-height) と書き，C-jする

(setq my-frame-max-flag nil)

(defun my-toggle-frame-size ()
(interactive)
(if my-frame-max-flag
      (progn
        (setq my-frame-max-flag nil)
        (if (functionp 'w32-restore-frame)
            (w32-restore-frame)
          (set-frame-configuration my-last-frame-conf)
          (message "not MAX.") (sit-for 2)
          ))
    (setq my-frame-max-flag t)
    (if (functionp 'w32-maximize-frame)
        (w32-maximize-frame)
      (setq my-last-frame-conf (current-frame-configuration))
      (set-frame-position (selected-frame) 0 0)
      ;; フレーム最大化時に (frame-height) で得た値
      (set-frame-height (selected-frame) 50) ; うまく効かない
      ;; フレーム最大化時に (frame-width) で得た値
      (set-frame-width (selected-frame) 195)
      (message "to MAX.") (sit-for 2)
    )))

(add-hook 'ediff-before-setup-hook 'my-toggle-frame-size) ; ediff 立ち上げ時に、画面を最大化
(add-hook 'ediff-quit-hook 'my-toggle-frame-size) ; ediff 終了時に、画面を元に戻す
(global-set-key [f11] 'my-toggle-frame-size)    ; f11 に割り当て

;; @ 定型文の挿入 my-template-select
;; http://www.bookshelf.jp/soft/meadow_37.html#SEC554

(defvar my-template-text-file "~/.template")
(defvar my-template-buffer nil)
(defvar my-template-point nil)

(defun my-template-insert ()
(interactive)
(let (content)
    (when (setq
           content
           (get-text-property (point) :content))
      (save-excursion
        (set-buffer my-template-buffer)
        (save-excursion
          (goto-char my-template-point)
          (insert content))))))

(defun my-template-select ()
(interactive)
(let ((buffer
         (get-buffer-create "*select template*"))
        templates begin template-map text)
    (setq my-template-buffer (current-buffer)
          my-template-point (point))
    (unless (file-readable-p my-template-text-file)
      (error "Couldn't read template file: %s"))
    (with-temp-buffer
      (insert-file-contents my-template-text-file)
      (goto-char (point-min))
      (while (re-search-forward "^\\*\$.*\$$" nil t)
        (when begin
          (setq templates
                (cons
                 (cons
                  (car templates)
                  (buffer-substring
                   begin (1- (match-beginning 0))))
                 (cdr templates))))
        (setq templates (cons (match-string 1) templates))
        (setq begin (1+ (match-end 0))))
      (when begin
        (setq templates
              (cons
               (cons
                (car templates)
                (buffer-substring begin (point-max)))
               (cdr templates)))))
    (pop-to-buffer buffer)
    (setq buffer-read-only nil
          major-mode       'template-select-mode
          mode-name        "Select Template"
          template-map     (make-keymap))
    (suppress-keymap template-map)
    (define-key template-map " "    'my-template-insert)
    (define-key template-map "\C-m" 'my-template-insert)
    (define-key template-map "n"    'next-line)
    (define-key template-map "p"    'previous-line)
    (define-key template-map "q"    'kill-buffer-and-window)
    (use-local-map template-map)
    (buffer-disable-undo)
    (delete-region (point-min) (point-max))
    (dolist (tt templates)
      (setq text (concat (car tt) "\n"))
      (put-text-property
       0 (length text) :content (cdr tt) text)
      (insert text)
      (goto-char (point-min)))
    (delete-region (1- (point-max)) (point-max))
    (setq buffer-read-only t)
    (set-buffer-modified-p nil)))

;; iserarchで日本語を使う
(defun w32-isearch-update ()
(interactive)
(isearch-update))
(define-key isearch-mode-map [compend] 'w32-isearch-update)
(define-key isearch-mode-map [kanji] 'isearch-toggle-input-method)

(add-hook 'isearch-mode-hook
          (lambda () (setq w32-ime-composition-window (minibuffer-window))))
(add-hook 'isearch-mode-end-hook
          (lambda () (setq w32-ime-composition-window nil)))

;;ispell が無いから、 aspell を使う
(setq-default ispell-program-name "aspell")
(eval-after-load "ispell"
'(add-to-list 'ispell-skip-region-alist '("[^\000-\377]+")))

;; ------------------------------------------------------------------------
;; @ auto-install.el

;; ロードパスの追加
(add-to-list 'load-path
             "~\\.emacs.d\\auto-install")
(require 'auto-install)
(setq auto-install-directory "~\\.emacs.d\\auto-install")
;; 起動時に EmacsWiki のページ名を補完候補に加えない
(auto-install-update-emacswiki-package-name t)
;; install-elisp.el 互換モードにする
(auto-install-compatibility-setup)
;; ediff 関連のバッファを 1 つのフレームにまとめる
(setq ediff-window-setup-function 'ediff-setup-windows-plain)
(put 'downcase-region 'disabled nil)

;; ------------------------------------------------------------------------
;; @ 最近使ったファイルを開く recentf-ext.el

;; 最近のファイルを 3000 個保存する
(setq recentf-max-saved-items 3000)
;; 読み込み
(require 'recentf-ext)

;; ------------------------------------------------------------------------
;; @ 使い捨てのファイルを開く open-junk-file.el

;; 読み込み
(require 'open-junk-file)

;; ファイル名およびファイル場所の指定
(setq open-junk-file-format "~/junk/%Y-%m-%d-%H%M%S.")

;; ------------------------------------------------------------------------
;; @ anything
(require 'anything-startup)

;; ------------------------------------------------------------------------
;; @ w3m-emacs
(require 'w3m-load)
(setq w3m-use-cookies t)
(setq w3m-home-page "www.google.co.jp")

;; ------------------------------------------------------------------------
;; @ windows batch-mode
(setq auto-mode-alist
       (append
        (list (cons "file://.[bB][aA][tT]$/" 'bat-mode))
        ;; For DOS init files
        (list (cons "CONFIG\\."   'bat-mode))
        (list (cons "AUTOEXEC\\." 'bat-mode))
        auto-mode-alist))
(autoload 'bat-mode "bat-mode"
      "DOS and Windows BAT files" t)

;; ------------------------------------------------------------------------
;; @ emacs で tail を動かす

(require 'tail)
(setq tail-volatile nil)                ;前の記載を消さない
(setq tail-hide-delay 100000)           ;隠すまで 100000sec
(setq tail-max-size 15)                 ;Window のサイズ

;; ------------------------------------------------------------------------
;; @ 入力補完支援 auto-complete.el

;; ロードパスの追加
(add-to-list 'load-path
             "~\\.emacs.d\\auto-complete-1.3.1")
(require 'auto-complete)

;; 3.2. インストールスクリプト
;; http://cx4a.org/software/auto-complete/manual.ja.html
(add-to-list 'ac-dictionary-directories "~//.emacs.d//auto-complete-1.3.1//dict")
(require 'auto-complete-config)
(ac-config-default)

;; 7.4. TAB で補完を完了する（ RET は使わない）
;; http://cx4a.org/software/auto-complete/manual.ja.html
(define-key ac-completing-map "\t" 'ac-complete)
(define-key ac-completing-map "\r" nil)

;; 7.8. 特定のモードで自動で auto-complete-mode を有効にする
;; http://cx4a.org/software/auto-complete/manual.ja.html
(add-to-list 'ac-modes 'org-mode) ;; org-mode になったら、 auto-complete をスタートさせる
(add-to-list 'ac-modes 'text-mode)
(add-to-list 'ac-modes 'ruby-mode)
(add-to-list 'ac-modes 'pyhon-mode)
(add-to-list 'ac-modes 'ansys-mode)

;; ------------------------------------------------------------------------
;; @ ansys-mode の設定

;; ロードパスの追加
(add-to-list 'load-path
         "~\\.emacs.d\\ansys-mode")

;; 拡張子によって ansys-mode に
(add-to-list 'auto-mode-alist '("\\.mac\\'" . ansys-mode))
(add-to-list 'auto-mode-alist '("\\.dat\\'" . ansys-mode))
(add-to-list 'auto-mode-alist '("\\.inp\\'" . ansys-mode))
(autoload 'ansys-mode "ansys-mode" nil t)

;; ansys-mode の時は、アウトラインマイナーモードに
(add-hook 'ansys-mode-hook
          '(lambda ()
             (outline-minor-mode 1)
             ))

;; chm ヘルプを起動する
(custom-set-variables
'(ansys-help-program "C:\\gnupack_devel-7.00\\home\\launcher\\anshelp130.bat"))

;; ------------------------------------------------------------------------
;; @ zlc.el
(add-to-list 'load-path "~\\.emacs.d\\zlc")
(require 'zlc)
;; (setq zlc-select-completion-immediately t)
(let ((map minibuffer-local-map))
;;; like menu select
(define-key map (kbd "<down>") 'zlc-select-next-vertical)
(define-key map (kbd "<up>")    'zlc-select-previous-vertical)
(define-key map (kbd "<right>") 'zlc-select-next)
(define-key map (kbd "<left>") 'zlc-select-previous)
;;; reset selection
(define-key map (kbd "C-c") 'zlc-reset)
)

;; ------------------------------------------------------------------------
;; Emacs でテキスト翻訳をする elisp
;; http://quantumfluctuation.blogspot.com/2011/05/text-translatorel_22.html

;; ロードパスの追加
(add-to-list 'load-path "~\\.emacs.d\\text-translator")
(require 'text-translator)
(setq text-translator-auto-selection-func
      'text-translator-translate-by-auto-selection-enja)
;; 自動選択に使用する関数を設定
(setq text-translator-auto-selection-func
      'text-translator-translate-by-auto-selection-enja)
;; グローバルキーを設定
(global-set-key "\C-xt" 'text-translator-translate-by-auto-selection)

;; ;; if you are setting environment variables HTTP_PROXY,
;; ;; you have not to set this.
(setq text-translator-proxy-server "<address>")
(setq text-translator-proxy-port   <port>)

;; @ Inno Setup iss-mode
(add-to-list 'load-path "~/.emacs.d/iss-mode")
(require 'iss-mode)
(autoload 'iss-mode "iss-mode" "Innosetup Script Mode" t)
(setq auto-mode-alist (append '(("\\.iss$" . iss-mode)) auto-mode-alist))
(setq iss-compiler-path "C:/usr/local/share/InnoSetup5/")
(add-hook 'iss-mode-hook 'xsteve-iss-mode-init)
;; 以下はなんか動かない
(defun xsteve-iss-mode-init ()
     (interactive)
     (define-key iss-mode-map [f6] 'iss-compile)
     (define-key iss-mode-map [(meta f6)] 'iss-run-installer))

;; ------------------------------------------------------------------------
;; @ yatex

(setq load-path (cons "C:/gnupack_devel-6.02/app/emacs/emacs/site-lisp/yatex" load-path))
(setq auto-mode-alist
(cons (cons "\\.tex$" 'yatex-mode) auto-mode-alist))
(autoload 'yatex-mode "yatex" "Yet Another LaTeX mode" t)
(setq tex-command "c:/w32tex/bin/platex")
(setq dvi2-command "C:/w32tex/dviout/dviout")

(setq YaTeX-use-LaTeX2e t)
(setq YaTeX-use-AMS-LaTeX t)

(setq
YaTeX-math-sign-alist-private
'(
   ("q"         "Q"          "(Q)")
   ("z"         "Z"          "ZZ")
   ("t""text""text")
   ("qu"        "quad"         "__")
   ("qq"        "qquad"         "____")
   ("ls"        "varlimsup"     "___\nlim")
   ("li"        "varliminf"     "lim\n---")
   ("il"        "varinjlim"     "lim\n-->")
   ("pl"        "varprojlim"    "lim\n<--")
   ("st"        "text{ s.t. }" "s.t.")
   ("bigop"     "bigoplus"      "_\n(+)~")
   ("bigot"     "bigotimes"     "_\n(x)\n ~")
   ))

; dviからpdfを作成する%sはファイル名
(setq dviprint-command-format "C:/w32tex/bin/dvipdfmx %s")

gnupack 6.02 on Windows 7 x64

2011-09-07T23:31:00.001+09:00

-*- mode: org; coding: utf-8 -*-

* はじめに

Cygwin と Emacs の環境がだいぶ固まってきたので、ここでひとつまとめて
おく-その2 Windows 7 64bit 編-。elisp のこととか良く分からないけど、
コピペだけで設定可能だった。指摘してくれるとうれしい。

v6.02 から以下は削除した。うまくいかない or つかわないから

- text-adjust.el
    ソースコードと混在させたテキストを使うときに逆に困る。変な半角
    あいてしまうし。このあたりの調整のしかたが不明

- google.el
    つかわない

- yspel.el
    つかわない・・・使いたいけどめんどい。自動でやってくれないか。

- flymake.el
    うまく動かない。

- sense-region.el
    cua-mode に移行

- migemo.el
    v7 からデフォルトで入っている

* システムの概要

以下のマシンに gnupack をつかって、 cygwin と NTemacs の環境を整える。

+ OS 名 :: Microsoft Windows 7 Professional
+ バージョン :: 6.1.7601 Service Pack 1 ビルド 7601
+ OS 製造元 :: Microsoft Corporation
+ システム名 :: <machine-name>
+ システム製造元 :: Dell Inc.
+ システムモデル :: Precision M4600
+ システムの種類 :: x64-ベース PC
+ プロセッサ :: Intel(R) Core(TM) i7-2720QM CPU @ 2.20GHz、2201 Mhz、4 個のコア、8 個のロジカルプロセッサ
+ BIOS バージョン/ 日付 :: Dell Inc. A04, 2011/06/17
+ SMBIOS バージョン :: 2.6
+ Windows ディレクトリ :: C:\WINDOWS
+ システムディレクトリ :: C:\WINDOWS\system32
+ ブートデバイス :: \Device\HarddiskVolume2
+ ロケール :: 日本
+ ハードウェアアブストラクションレイヤバージョン = "6.1.7601.17514"
+ ユーザー名 :: <domain>\<username>
+ タイムゾーン :: 東京 (標準時)
+ 合計物理メモリ :: 7.88GB
+ 利用可能な物理メモリ :: 5.64GB
+ 合計仮想メモリ :: 15.8 GB
+ 利用可能な仮想メモリ :: 13.7 GB
+ ページファイルの空き容量 :: 7.88 GB
+ ページファイル :: C:\pagefile.sys

* インストール手順および設定
** gnupack
*** インストール手順（ 27.08.11 現在：リリース版の最新は 7.00 ）

    1. gnupack gnupack_devel-7.00.exe を以下からダウンロードする

       http://sourceforge.jp/projects/gnupack/releases/?package_id=10360

    2. [gnupack_devel-7.00.exe] を実行

    3. [解凍先] を [C:\] にして、 [実行] をクリック

    4. 以下の exe を起動して、それぞれ起動確認

       C:\gnupack_devel-7.02\bash.exe
       C:\gnupack_devel-7.02\emacs.exe
       C:\gnupack_devel-7.02\gvim.exe

*** config.ini の設定
**** フォント、プロキシの設定

1. C-x C-f で、 c:\gnupack_devel-6.02\config.ini を開く

2. 以下のように修正

=== c:/gnupack_devel-7.00/config.ini   2011-08-28 16:55:31.970894200 +0900
--- c:/gnupack_devel-7.00/config.ini.orig   2011-08-28 14:10:49.504883400 +0900
===============
=== 16,31 ====
      MAKE_MODE      = unix
      TZ             = JST-9
      LANG           = ja_JP.cp932
-     http_proxy     = http://<username>:<psssword>@<proxyaddress>:<port>/

      PATH           = %EMACS_DIR%\bin;%INST_DIR%\app\vim;%INST_DIR%\app\script
      PATH           = %PATH%;%INST_DIR%\app\mingw\tdm\bin;%_local_%\bin;%CYGWIN_DIR%\bin
      PATH           = %PATH%;%windir%\system32;%windir%;%windir%\system32\Wbem
-     PATH           = %PATH%;C:\Program Files\ANSYS Inc\v130\ansys\bin\intel
-     PATH           = %PATH%;C:\usr\local\share\InnoSetup5
-     PATH         = %PATH%;C:\w32tex\bin;C:\gs\gs7.07\bin;C:\gs\gs7.07\lib
-
-     ANSYSLMD_LICENSE_FILE = <hostname>

      GS_LIB         = %INST_DIR%\app\gs\lib;%INST_DIR%\app\gs\kanji;%INST_DIR%\app\gs\Resource\Init
      GS_DLL         = %INST_DIR%\app\gs\bin\gsdll32.dll
--- 16,25 ----

*** wget の proxy 設定

http_proxy の設定で、<username>と<password>を設定していると、 wget が
正常に動作しない模様。 wget の設定もやっておく。

1. emacs を起動

2. C-x C-f で ~/.wgetrc を作成し、以下を記載

   http_proxy=<proxyadress>:<port>

** cygwin
*** w3m

bash を起動して

apt-cyg w3m

とするだけ。起動確認は

w3m -M www.google.com

で、終了は

q

で可能

*** ruby

bash を起動して、 apt-cyg install ruby subversion-ruby とするだけで、
関連のものも自動でインストールされる（サブバージョンはバージョン管
理のもの）。

念のため

ruby -v

*** python

    1. パッケージ群のインストール

       過去にパッケージ不足とかでできなかったことがあるため、

       apt-cyg find python

       で出てきたものをすべてインストールする。内容は良く分からない。

       apt-cyg install libboost_python1.43 postgresql-plpython python python-brlapi python-cairo python-crypto python-doc python-feedparser python-gamin python-gdata python-gobject2.0 python-gobject2.0-devel python-gsf python-gtk2.0 python-gtk2.0-demo python-gtk2.0-devel python-lcms python-libproxy python-libxml2 python-libxslt python-ming python-numpy python-paramiko python-pygtk python-pyrex python-test python-tkinter python-xdg subversion-python

    2. easy_install, setuptools, pyflakes のインストール

       setuptools とかいうのが良く出てくるのと、 pyflkes （チェッカ）を使
       いたいので、 bash で以下のようにインストール

       wget http://peak.telecommunity.com/dist/ez_setup.py
       python ez_setup.py
       wget http://pypi.python.org/packages/2.6/s/setuptools/setuptools-0.6c11-py2.6.egg#md5=bfa92100bd772d5a213eedd356d64086
       sh setuptools-0.6c11-py2.6.egg
       easy_install pyflakes

     3. 確認

        python と pyflakes の確認を行う。

        ~/tmp/sample.py

        を

        print "hoge"

        とつくって、 bash で

        python sample.py

        として、 hoge の表示を確認し、さらに、 sample.py を

        print "hello

        として、 bash で

        sample.py:1: EOL while scanning string literal
        print "hoge
                   ^

        といってくれれば成功

     3. pyflakes のバッチファイルを作成

        ウィンドウズで使うため（というか、 emacs で使うため）に、以下のバッ
        チファイルを作成しておく。

        1) emacs を起動

        2) C-x C-f で pyflakes.bat を以下に作成

          c:/gnupack_devel-6.02/app/cygwin/cygwin/bin

        3) 以下のように記載し、 C-x RET f shift-jis-dos として、 C-x C-s

          @echo off
          c:\gnupack_devel-7.00\app\cygwin\cygwin\bin\python /usr/bin/pyflakes %*

      4. pyflakes.bat の確認

        cmd を起動して

        c:\gnupack_devel-7.00\app\cygwin\cygwin\bin\pyflakes sample.py

        をして、指摘してくれれば OK。なんか最初やったら、warning 出た気がする・・・。

*** RCS

    一番単純なバージョン管理。 bash で apt-cyg install rcs だけ。

*** emacs-w3m
**** ファイルの入手について

     CVS は HTTP Port でないため、 Proxy CVS 用に Proxy の設定をしなけれ
     ばならないが、よく分からない。

     HTTP Proxy だけ与えられているので、トンネルする方法もあるようだが、
     そんなことはできるだけやりたくない。

     しかたないので、 proxy が不要な環境で、 emacs-w3m のファイルをとって
     くる。 bash での手順は以下のとおり。

     apt-cyg install cvs autoconf
     wget http://emacs-w3m.namazu.org/emacs-w3m-1.4.4.tar.gz
     cvs -d :pserver:anonymous@cvs.namazu.org:/storage/cvsroot login
     CVS password: [RET]
     cvs -d :pserver:anonymous@cvs.namazu.org:/storage/cvsroot co emacs-w3m
     tar zxf emacs-w3m-1.4.4.tar.gz
     cp -r emacs-w3m-1.4.4 emacs-w3m-cvs
     \cp -f emacs-w3m/* emacs-w3m-cvs

     上記できた emacs-w3m-cvs フォルダの中身をとっておけば OK 。

**** インストール手順

     bash を起動し以下を実行。 autoconf は必要みたい。

     apt-cyg install cvs autoconf
     cd emacs-w3m-cvs
     ./configure --with-emacs=/app/emacs/emacs/bin/emacs --with-lispdir=/app/emacs/site-lisp/w3m --with-icondir=/app/emacs/emacs/etc/w3m
     make
     make install

*** aspell

    bash で以下。

    apt-cyg install aspell aspell-en

*** git

    bash で

    apt-cyg install git
** NTemacs
*** Personal initialization

=== c:/gnupack_devel-7.00/home/.emacs.d/init.el.orig   2011-08-30 10:13:45.173259700 +0900
--- c:/gnupack_devel-7.00/home/.emacs.d/init.el   2011-08-30 10:18:51.686908000 +0900
===============
=== 340,360 ====
           ps-print-header nil          ; ヘッダの非表示
           )

! ;; ------------------------------------------------------------------------
! ;; @ hiwin-mode
!    (require 'hiwin)
!
!    ;; 非アクティブwindowの背景色（hiwin-modeの実行前に設定が必要）
!    (setq hiwin-deactive-color "gray30")
!
!    ;; hiwin-modeを有効にする
!    (hiwin-mode)
!
!    ;; kill-bufferで再描画されるようにする
!    (defadvice kill-buffer
!      (around kill-buffer-around activate)
!      ad-do-it
!      (if hiwin-ol (hiwin-draw-ol)))

;; ------------------------------------------------------------------------
;; @ tabbar
--- 340,360 ----
           ps-print-header nil          ; ヘッダの非表示
           )

! ;; ;; ------------------------------------------------------------------------
! ;; ;; @ hiwin-mode
! ;;    (require 'hiwin)
!
! ;;    ;; 非アクティブwindowの背景色（hiwin-modeの実行前に設定が必要）
! ;;    (setq hiwin-deactive-color "gray30")
!
! ;;    ;; hiwin-modeを有効にする
! ;;    (hiwin-mode)
!
! ;;    ;; kill-bufferで再描画されるようにする
! ;;    (defadvice kill-buffer
! ;;      (around kill-buffer-around activate)
! ;;      ad-do-it
! ;;      (if hiwin-ol (hiwin-draw-ol)))

;; ------------------------------------------------------------------------
;; @ tabbar
===============
=== 455,458 ====
--- 455,646 ----
     (load-library "migemo")
     (migemo-init)

+ ;; ------------------------------------------------------------------------
+ ;; @ 個人的な初期設定
+
+ ; 区切り文字に全角スペースや、・を含める
+ (setq paragraph-start '"^\$[ 　・○<\t\n\f]\\|(?[0-9a-zA-Z]+)\$")
+
+ ;; startup directory
+ (setq default-directory "~/")

+ ;; ファイルのカーソル内の位置を記憶
+ (setq-default save-place t)
+
+ ;; ガベッジコレクション閾値を 500MB に
+ (setq gc-cons-threshold 524288000)
+
+ ;; ログの記録行数を増やす
+ (setq message-log-max 10000)
+
+ ;; undo をいっぱい
+ (setq undo-limit 100000)
+ (setq undo-strong-limit 130000)
+
+ ;; キーストロークの表示速度を上げる
+ (setq echo-keystrokes 0.1)
+
+ ;; でかいファイルも普通に開く（デフォルトは10MB）
+ (setq large-file-warning-threshold (* 50 1024 1024)) ;50MB
+
+ ;; いちいち yes とか無理だから y にする
+ (defalias 'yes-or-no-p 'y-or-n-p)
+
+ ;; BS や Delete キーでリージョン内の文字を削除
+ (delete-selection-mode 1)
+
+ ;; TAB を bacspace で消すとき、半角スペースとして消さないで、tabのまま消す
+ (global-set-key [backspace] 'backward-delete-char)
+
+ ;; @ 前回編集していた場所を記憶し，ファイルを開いた時にそこへカーソルを移動
+ (require 'saveplace)
+ (setq-default save-place t)
+
+ ;; @ クリップボード転送ができないことがある。
+ (cond (window-system (setq x-select-enable-clipboard t)))
+
+ ;; kill-ring はテキスト属性（色情報など）を保存しなくていい
+ (defadvice kill-new (around my-kill-ring-disable-text-property activate)
+   (let ((new (ad-get-arg 0)))
+     (set-text-properties 0 (length new) nil new)
+     ad-do-it))
+
+ ;; 初期画面をいきなりbuffer-menuにする
+ (buffer-menu)
+
+ ; キー入力中にマウスポインタを右上隅へ移動
+ (mouse-avoidance-mode 'banish)
+
+ ;; @ 括弧の対応表示
+ (setq blink-matching-paren t)
+ (show-paren-mode t)
+ (setq paren-sexp-mode t)
+ (set-face-background 'show-paren-match "royalBlue1")
+
+ ;; 対応する括弧に移動のキーバインドを C-{ と C-} に変更 (C-M-f/p相当)
+ (global-set-key [?\C-{] 'backward-list)
+ (global-set-key [?\C-}] 'forward-list)
+
+ ;; タブ, 全角スペースを色つき表示する (色名は M-x list-color-displayで調べる)
+ ;; http://homepage1.nifty.com/blankspace/emacs/color.html
+ (defface my-face-b-1 '((t (:background "red4"))) nil)                           ;全角スペースの色
+ (defface my-face-b-2 '((t (:background "gray6"))) nil)                          ;タブの色
+ (defface my-face-u-1 '((t (:foreground "MediumPurple4" :underline t))) nil)     ; 無駄な半角スペースの色
+ (defvar my-face-b-1 'my-face-b-1)
+ (defvar my-face-b-2 'my-face-b-2)
+ (defvar my-face-u-1 'my-face-u-1)
+ (defadvice font-lock-mode (before my-font-lock-mode ())
+   (font-lock-add-keywords
+    major-mode
+    '(("\t" 0 my-face-b-2 append)
+      ("　" 0 my-face-b-1 append)
+      ("[ \t]+$" 0 my-face-u-1 append)
+      )))
+ (ad-enable-advice 'font-lock-mode 'before 'my-font-lock-mode)
+ (ad-activate 'font-lock-mode)
+
+ ;;; フレームサイズをトグルで切り替え
+ ;; http://www.bookshelf.jp/soft/meadow_30.html#SEC416
+ ;; 現在のフレームサイズを調べる方法
+ ;; *scratch*バッファを開き，(frame-width), (frame-height) と書き，C-jする
+
+ (setq my-frame-max-flag nil)
+
+ (defun my-toggle-frame-size ()
+   (interactive)
+   (if my-frame-max-flag
+       (progn
+         (setq my-frame-max-flag nil)
+         (if (functionp 'w32-restore-frame)
+             (w32-restore-frame)
+           (set-frame-configuration my-last-frame-conf)
+           (message "not MAX.") (sit-for 2)
+           ))
+     (setq my-frame-max-flag t)
+     (if (functionp 'w32-maximize-frame)
+         (w32-maximize-frame)
+       (setq my-last-frame-conf (current-frame-configuration))
+       (set-frame-position (selected-frame) 0 0)
+       ;; フレーム最大化時に (frame-height) で得た値
+       (set-frame-height (selected-frame) 40) ; うまく効かない
+       ;; フレーム最大化時に (frame-width) で得た値
+       (set-frame-width (selected-frame) 195)
+       (message "to MAX.") (sit-for 2)
+     )))
+
+ (add-hook 'ediff-before-setup-hook 'my-toggle-frame-size) ; ediff 立ち上げ時に、画面を最大化
+ (add-hook 'ediff-quit-hook 'my-toggle-frame-size) ; ediff 終了時に、画面を元に戻す
+ (global-set-key [f11] 'my-toggle-frame-size)      ; f11 に割り当て
+
+ ;; @ 定型文の挿入 my-template-select
+ ;; http://www.bookshelf.jp/soft/meadow_37.html#SEC554
+
+ (defvar my-template-text-file "~/.template")
+ (defvar my-template-buffer nil)
+ (defvar my-template-point nil)
+
+ (defun my-template-insert ()
+   (interactive)
+   (let (content)
+     (when (setq
+            content
+            (get-text-property (point) :content))
+       (save-excursion
+         (set-buffer my-template-buffer)
+         (save-excursion
+           (goto-char my-template-point)
+           (insert content))))))
+
+ (defun my-template-select ()
+   (interactive)
+   (let ((buffer
+          (get-buffer-create "*select template*"))
+         templates begin template-map text)
+     (setq my-template-buffer (current-buffer)
+           my-template-point (point))
+     (unless (file-readable-p my-template-text-file)
+       (error "Couldn't read template file: %s"))
+     (with-temp-buffer
+       (insert-file-contents my-template-text-file)
+       (goto-char (point-min))
+       (while (re-search-forward "^\\*\$.*\$$" nil t)
+         (when begin
+           (setq templates
+                 (cons
+                  (cons
+                   (car templates)
+                   (buffer-substring
+                    begin (1- (match-beginning 0))))
+                  (cdr templates))))
+         (setq templates (cons (match-string 1) templates))
+         (setq begin (1+ (match-end 0))))
+       (when begin
+         (setq templates
+               (cons
+                (cons
+                 (car templates)
+                 (buffer-substring begin (point-max)))
+                (cdr templates)))))
+     (pop-to-buffer buffer)
+     (setq buffer-read-only nil
+           major-mode       'template-select-mode
+           mode-name        "Select Template"
+           template-map     (make-keymap))
+     (suppress-keymap template-map)
+     (define-key template-map " "    'my-template-insert)
+     (define-key template-map "\C-m" 'my-template-insert)
+     (define-key template-map "n"    'next-line)
+     (define-key template-map "p"    'previous-line)
+     (define-key template-map "q"    'kill-buffer-and-window)
+     (use-local-map template-map)
+     (buffer-disable-undo)
+     (delete-region (point-min) (point-max))
+     (dolist (tt templates)
+       (setq text (concat (car tt) "\n"))
+       (put-text-property
+        0 (length text) :content (cdr tt) text)
+       (insert text)
+       (goto-char (point-min)))
+     (delete-region (1- (point-max)) (point-max))
+     (setq buffer-read-only t)
+     (set-buffer-modified-p nil)))

*** auto-install.el

    簡単に el をインストールできるってもの。文字化けとかでインストールできない
    ものも多いんだけど、とりあえず入れる。*以下、これが入っている事を仮定する*。

**** download

     emacs を起動して、以下を実行

     M-x eshell
     mkdir -p ~/.emacs.d/auto-install
     cd ~/.emacs.d/auto-install
     wget http://www.emacswiki.org/emacs/download/auto-install.el

**** init.el (.emacs,emacs.el)

     ;; ------------------------------------------------------------------------
     ;; @ auto-install.el

     ;; ロードパスの追加
     (add-to-list 'load-path
                  "~\\.emacs.d\\auto-install")
     (require 'auto-install)
     (setq auto-install-directory "~\\.emacs.d\\auto-install")
     ;; 起動時に EmacsWiki のページ名を補完候補に加えない
     (auto-install-update-emacswiki-package-name t)
     ;; install-elisp.el 互換モードにする
     (auto-install-compatibility-setup)
     ;; ediff 関連のバッファを 1 つのフレームにまとめる
     (setq ediff-window-setup-function 'ediff-setup-windows-plain)
     (put 'downcase-region 'disabled nil)

*** recentf.el

    最近使ったファイルリストを表示するやつ

**** download

     M-x install-elisp-from-emacswiki
     recentf-ext.el
     C-c C-c

**** init.el (.emacs,emacs.el)

     ;; ------------------------------------------------------------------------
     ;; @ 最近使ったファイルを開く recentf-ext.el

     ;; 最近のファイルを 3000 個保存する
     (setq recentf-max-saved-items 3000)
     ;; 読み込み
     (require 'recentf-ext)

*** open-junk-file.el

    使い捨てのファイルをサクサクつくる

**** download

     M-x install-elisp-from-emacswiki
     open-junk-file.el
     C-c C-c
**** init.el (.emacs,emacs.el)

     ;; ------------------------------------------------------------------------
     ;; @ 使い捨てのファイルを開く open-junk-file.el

     ;; 読み込み
     (require 'open-junk-file)

     ;; ファイル名およびファイル場所の指定
     (setq open-junk-file-format "~/junk/%Y-%m-%d-%H%M%S.")

*** anything.el

    便利なんだって。使い方、まだ、よくわかんない。

**** download

     M-x auto-install-batch
     anything
     C-c C-c を連打

     anything-migemo.el で、*文字コードエラー*

     ---------------------------------------------------------------------
     These default coding systems were tried to encode text
     in the buffer `anything-migemo.el':
       (undecided-unix (5157 . 35660) (5158 . 65381) (5159 . 35675) (5160
        . 65388) (5161 . 38577) (5162 . 27115) (5163 . 4194181) (5164
        . 65381) (5165 . 34569) (5166 . 4194203) (5219 . 35660)) (utf-8-unix
          (5163 . 4194181) (5166 . 4194203) (5225 . 4194181) (5228 . 4194203)
          (5281 . 4194181) (5284 . 4194203) (7386 . 4194206) (7529 . 4194206)
          (7669 . 4194206) (8168 . 4194206) (8313 . 4194206))
     However, each of them encountered characters it couldn't encode:
     undecided-unix cannot encode these: 譌･譛ｬ隱槫   ･蜉   ...
     utf-8-unix cannot encode these:                     ...

    Click on a character (or switch to this window by `C-x o'
    and select the characters by RET) to jump to the place it appears,
    where `C-u C-x =' will give information about it.

    Select one of the safe coding systems listed below,
    or cancel the writing with C-g and edit the buffer
    to remove or modify the problematic characters,
    or specify any other coding system (and risk losing
    the problematic characters).

     raw-text emacs-mule no-conversion
     ---------------------------------------------------------------------

     が出るが euc-jp とかしてたら、とりあえず大丈夫っぽいんで、続けて
     C-c C-c を連打し、念のため

     M-x eshell
     rm -rf anything-migemo.*
     wget http://www.emacswiki.org/emacs/download/anything-migemo.el
     M-x byte-compile-file
     ~/.emacs.d/auto-install/anything-migemo.el

**** init.el (.emacs,emacs.el)

     ;; ------------------------------------------------------------------------
     ;; @ anything
     (require 'anything-startup)

*** aspell (ispell)
**** download

     cygwin の方で終わってる

**** init.el (.emacs, emacs.el)

     ;; ------------------------------------------------------------------------
     ;; @ ispell が無いから、 aspell を使う

     (setq-default ispell-program-name "aspell")
     (eval-after-load "ispell"
      '(add-to-list 'ispell-skip-region-alist '("[^\000-\377]+")))

**** .aspell.conf

     ~/.aspell.conf を作って

     lang en_US

     とする

*** emacs-w3m
**** download

     cygwin の方で終わってる

**** init.el (.emacs, emacs.el)

     ;; ------------------------------------------------------------------------
     ;; @ w3m-emacs
     (require 'w3m-load)
     (setq w3m-use-cookies t)
     (setq w3m-home-page "www.google.co.jp")

*** bat-mode.el
**** download

     ftp だからか時間がかかるので注意

     M-x install-elisp
     http://ftp.gnu.org/old-gnu/emacs/windows/contrib/bat-mode.el
     C-c

**** init.el (.emacs, emacs.el)

     ;; ------------------------------------------------------------------------
     ;; @ windows batch-mode
     (setq auto-mode-alist
            (append
             (list (cons "file://.[bB][aA][tT]$/" 'bat-mode))
             ;; For DOS init files
             (list (cons "CONFIG\\."   'bat-mode))
             (list (cons "AUTOEXEC\\." 'bat-mode))
             auto-mode-alist))
     (autoload 'bat-mode "bat-mode"
           "DOS and Windows BAT files" t)

*** tail.el
**** download

     M-x install-elisp-from-emacswiki
     tail.el
     C-c

**** init.el (.emacs, emacs.el)

     ;; ------------------------------------------------------------------------
     ;; @ emacs で tail を動かす

     (require 'tail)
     (setq tail-volatile nil)                ;前の記載を消さない
     (setq tail-hide-delay 100000)           ;隠すまで 100000sec
     (setq tail-max-size 15)                 ;Window のサイズ

**** jtail.bat

     以下のような jatail.bat を作っておき、 PATH の通ったところに置いてお
     いたほうが良い。 eshell も bash も出力が ja_JP.cp932 になっているか
     ら。

     tail -f %1 | nkf -u -s

*** auto-complete.el
**** download

     auto-install だとうまくいかないので、注意。

     M-x eshell
     cd ~/tmp
     wget http://cx4a.org/pub/auto-complete/auto-complete-1.3.1.zip
     unzip auto-complete-1.3.1.zip
     mv auto-complete-1.3.1 ~/.emacs.d/

**** init.el (.emacs, emacs.el)

     7.8 のようなダサい書き方やめたいけど、分からない。

     ;; ------------------------------------------------------------------------
     ;; @ 入力補完支援 auto-complete.el

     ;; ロードパスの追加
     (add-to-list 'load-path
                  "~\\.emacs.d\\auto-complete-1.3.1")
     (require 'auto-complete)

     ;; 3.2. インストールスクリプト
     ;; http://cx4a.org/software/auto-complete/manual.ja.html
     (add-to-list 'ac-dictionary-directories "~//.emacs.d//auto-complete-1.3.1//dict")
     (require 'auto-complete-config)
     (ac-config-default)

     ;; 7.4. TAB で補完を完了する（ RET は使わない）
     ;; http://cx4a.org/software/auto-complete/manual.ja.html
     (define-key ac-completing-map "\t" 'ac-complete)
     (define-key ac-completing-map "\r" nil)

     ;; 7.8. 特定のモードで自動で auto-complete-mode を有効にする
     ;; http://cx4a.org/software/auto-complete/manual.ja.html
     (add-to-list 'ac-modes 'org-mode) ;; org-mode になったら、 auto-complete をスタートさせる
     (add-to-list 'ac-modes 'text-mode)
     (add-to-list 'ac-modes 'ruby-mode)
     (add-to-list 'ac-modes 'pyhon-mode)
     (add-to-list 'ac-modes 'ansys-mode)

*** ansys-mode.el
**** download

     mkdir ~/tmp/ansys-mode
     cd ~/tmp/ansys-mode
     wget http://ansys-mode.googlecode.com/files/ansys-mode-13.0.1.tgz
     tar zxvf ansys-mode-13.0.1.tgz
     mv ~/tmp/ansys-mode/ ~/.emacs.d/

**** anshelp130.bat

     C-x C-f
     ~/.emacs.d/ansys-mode/anshelp130.bat

     start hh "c:\Program Files\ANSYS Inc\v130\commonfiles\help\ja\ansys130.chm"

     C-x C-s

**** dict/ansys-mode (dynprompt)

     ぜったい、もっと簡単な方法ある気がするから、誰か教えてほしい。

     C-x C-f
     C:/Program Files/ANSYS Inc/v130/ansys/docu/dynaprompt130.ans
     C-x C-w
     ~/.emacs.d/auto-complete-1.3.1/dict/ansys-mode
     C-h C-x r t |
     M-x replace-string , [RET] | [RET]
     M-x org-mode
     TAB
     M-S-<left> を連打
     M-x replace-string |[space] [RET] [RET]
     M-<
     M-x replace-string | [RET] [RET]
     C-h
     M-x delete-trailing-whitespace
     C-x C-s

**** init.el (.emacs, emacs.el)

     add-to-list の書き方ダサい。。。。

     ;; ------------------------------------------------------------------------
     ;; @ ansys-mode の設定

     ;; ロードパスの追加
     (add-to-list 'load-path
              "~\\.emacs.d\\ansys-mode")

     ;; 拡張子によって ansys-mode に
     (add-to-list 'auto-mode-alist '("\\.mac\\'" . ansys-mode))
     (add-to-list 'auto-mode-alist '("\\.dat\\'" . ansys-mode))
     (add-to-list 'auto-mode-alist '("\\.inp\\'" . ansys-mode))
     (autoload 'ansys-mode "ansys-mode" nil t)

     ;; ansys-mode の時は、アウトラインマイナーモードに
     (add-hook 'ansys-mode-hook
               '(lambda ()
                  (outline-minor-mode 1)
                  ))

     ;; chm ヘルプを起動する
     (custom-set-variables
      '(ansys-help-program "~\\.emacs.d\\ansys-mode\\anshelp130.bat"))

*** zlc.el

    zlc ってなんだろ。 TAB で便利。

**** dowonload

     auto-install だとうまくいかないので、注意

     M-x eshell
     cd ~/.emacs.d/
     mkdir zlc
     M-x w3m-goto-url-new-session
     http://github.com/mooz/emacs-zlc/raw/master/zlc.el
     C-x C-h
     M-w
     C-x C-f
     ~/.emacs.d/zlc/zlc.el
     C-y
     C-x C-s

**** init.el

     ;; ------------------------------------------------------------------------
     ;; @ zlc.el
     (add-to-list 'load-path "~\\.emacs.d\\zlc")
     (require 'zlc)
     ;; (setq zlc-select-completion-immediately t)
     (let ((map minibuffer-local-map))
       ;;; like menu select
       (define-key map (kbd "<down>") 'zlc-select-next-vertical)
       (define-key map (kbd "<up>")    'zlc-select-previous-vertical)
       (define-key map (kbd "<right>") 'zlc-select-next)
       (define-key map (kbd "<left>") 'zlc-select-previous)
       ;;; reset selection
       (define-key map (kbd "C-c") 'zlc-reset)
       )

*** python-mode.el

    本当は新しい python.el を使いたいけど、 C-c がうまくいかないし、 pymacs ? の
    入れ方も分からないしってことで、古いほうの python-mode.el を入れる

**** download

     M-x eshell
     cd tmp
     wget http://launchpad.net/python-mode/trunk/5.2.0/+download/python-mode-5.2.0.tgz
     tar zxvf python-mode-5.2.0.tgz
     mv python-mode/ ~/.emacs.d/

**** init.el

     ;; ------------------------------------------------------------------------
     ;; @ python-mode
     ;; ロードパスの追加
     (add-to-list 'load-path "~\\.emacs.d\\python-mode")
     (require 'python-mode)
     (setq auto-mode-alist (cons '("file://.py$/" . python-mode) auto-mode-alist))
     (setq interpreter-mode-alist (cons '("python" . python-mode)
                                        interpreter-mode-alist))
     (autoload 'python-mode "python-mode" "Python editing mode." t)

*** text-translator.el
**** download

     auto-install-bathch だと、 var.el が無いだの、 var.el は文字化けするだので、
     正常にインストールできないので注意

     M-x eshell
     mkdir -p ~/.emacs.d/text-translator
     cd ~/.emacs.d/text-translator
     wget http://www.emacswiki.org/emacs/download/text-translator.el
     wget http://www.emacswiki.org/emacs/download/text-translator-vars.el
     wget http://www.emacswiki.org/emacs/download/text-translator-load.el

**** init.el (.emacs, emacs.el)

     ;; ------------------------------------------------------------------------
     ;; Emacs でテキスト翻訳をする elisp
     ;; http://quantumfluctuation.blogspot.com/2011/05/text-translatorel_22.html

     ;; ロードパスの追加
     (add-to-list 'load-path "~\\.emacs.d\\text-translator")
     (require 'text-translator)
     (setq text-translator-auto-selection-func
           'text-translator-translate-by-auto-selection-enja)
     ;; 自動選択に使用する関数を設定
     (setq text-translator-auto-selection-func
           'text-translator-translate-by-auto-selection-enja)
     ;; グローバルキーを設定
     (global-set-key "\C-xt" 'text-translator-translate-by-auto-selection)

     ;; ;; if you are setting environment variables HTTP_PROXY,
     ;; ;; you have not to set this.
     (setq text-translator-proxy-server "<proxy-address>")
     (setq text-translator-proxy-port   <portnum>)

*** iss-mode.el (Inno Setup mode)
**** download

     M-x eshell
     mkdir -p ~/.emacs.d/iss-mode
     cd ~/.emacs.d/iss-mode
     wget http://www.xsteve.at/prg/emacs/iss-mode.el

**** init.el

     ;; @ Inno Setup iss-mode
     (add-to-list 'load-path "~/.emacs.d/iss-mode")
     (require 'iss-mode)
     (autoload 'iss-mode "iss-mode" "Innosetup Script Mode" t)
     (setq auto-mode-alist (append '(("\\.iss$" . iss-mode)) auto-mode-alist))
     (setq iss-compiler-path "C:/usr/local/share/InnoSetup5/")
     (add-hook 'iss-mode-hook 'xsteve-iss-mode-init)
     ;; 以下はなんか動かない
     (defun xsteve-iss-mode-init ()
          (interactive)
          (define-key iss-mode-map [f6] 'iss-compile)
          (define-key iss-mode-map [(meta f6)] 'iss-run-installer))
*** yatex
**** download

wget http://www.yatex.org/yatex1.74.tar.gz

**** install

tar xzvf yatex1.74.tar.gz
cd yatex1.74/
C-x C-f makefile
C-x C-q

で以下のように編集

^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
=== c:/gnupack_devel-6.02/home/tmp/yatex1.74/mekefile.orig    2011-07-12 13:10:20.249481300 +0900
--- c:/gnupack_devel-6.02/home/tmp/yatex1.74/makefile    2011-07-12 13:43:06.550439000 +0900
===============
=== 3,16 ====
#

# 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}
## XEmacs
#EMACS    = xemacs
#EMACSDIR= ${PREFIX}/lib/${EMACS}
--- 3,16 ----
#

# Edit these variables to be suitable for your site
! PREFIX    = C:/gnupack_devel-6.02/app/emacs/emacs

## mule2
! # EMACS    = mule
! # EMACSDIR= ${PREFIX}/lib/${EMACS}
## emacs20
! # EMACS    = emacs
! # EMACSDIR= ${PREFIX}/share/${EMACS}
## XEmacs
#EMACS    = xemacs
#EMACSDIR= ${PREFIX}/lib/${EMACS}
===============
=== 21,26 ====
--- 21,30 ----
#EMACS    = /Applications/Emacs.app/Contents/MacOS/Emacs
#PREFIX    = /Applications/Emacs.app/Contents/Resources
#EMACSDIR = ${PREFIX}
+ ## NTemacs23.3 on gnuplot
+ EMACS    = emacs
+ EMACSDIR= c:/gnupack_devel-6.02/app/emacs/emacs
+

LISPDIR    = ${EMACSDIR}/site-lisp/yatex
# LISPDIR    = ${EMACSDIR}/site-packages/lisp/yatex
===============
=== 35,41 ====

# Comment out below if you are using Emacs Windows(meadow, etc)
! GEO    = -geometry 80x20+0+0

###################
# Do not edit below
--- 39,45 ----

# Comment out below if you are using Emacs Windows(meadow, etc)
! # GEO    = -geometry 80x20+0+0

###################
# Do not edit below

^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

eshell に戻って

export DISPLAY=":0.0"
make install

としてインストール

C-x C-f
c:/gnupack_devel-6.02/app/emacs/emacs/info/dir

として、以下のように編集

^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

=== c:/gnupack_devel-6.02/app/emacs/emacs/info/dir.orig    2011-07-12 13:50:54.602247800 +0900
--- c:/gnupack_devel-6.02/app/emacs/emacs/info/dir    2011-07-12 13:48:52.566308200 +0900
===============
=== 95,97 ====
--- 95,101 ----
                                    Customization facility.
* SMTP: (smtpmail).             Emacs library for sending mail via SMTP.

+ * YaTeX: (yatexj). Yet Another tex-mode for Emacs. (Japanese).
+ * YaTeX-e: (yatexe). Yet Another tex-mode for Emacs. (English).
+ * yahtml: (yahtmlj). Yet Another HTML-mode for Emacs. (Japanese).
+ * yahtml-e: (yahtmle). Yet Another HTML-mode for Emacs. (English).

^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

C-x C-f
~/.emacs.d/init.el

として、以下を追記

^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
;; ------------------------------------------------------------------------
;; @ yatex

(setq load-path (cons "C:/gnupack_devel-6.02/app/emacs/emacs/site-lisp/yatex" load-path))
(setq auto-mode-alist
(cons (cons "\\.tex$" 'yatex-mode) auto-mode-alist))
(autoload 'yatex-mode "yatex" "Yet Another LaTeX mode" t)
(setq tex-command "c:/w32tex/bin/platex")
(setq dvi2-command "C:/w32tex/dviout/dviout")

(setq YaTeX-use-LaTeX2e t)
(setq YaTeX-use-AMS-LaTeX t)

(setq
YaTeX-math-sign-alist-private
'(
   ("q"         "Q"          "(Q)")
   ("z"         "Z"          "ZZ")
   ("t""text""text")
   ("qu"        "quad"         "__")
   ("qq"        "qquad"         "____")
   ("ls"        "varlimsup"     "___\nlim")
   ("li"        "varliminf"     "lim\n---")
   ("il"        "varinjlim"     "lim\n-->")
   ("pl"        "varprojlim"    "lim\n<--")
   ("st"        "text{ s.t. }" "s.t.")
   ("bigop"     "bigoplus"      "_\n(+)~")
   ("bigot"     "bigotimes"     "_\n(x)\n ~")
   ))

; dviからpdfを作成する%sはファイル名
(setq dviprint-command-format "C:/w32tex/bin/dvipdfmx %s")

* 現状の問題点

- なんかチカチカするのと、画面描画フリーズみたいになる（いわゆるマウスポインタ消しゴムで直る現象）
- eddif-buffers で config.ini を比較すると改行コードが ^M になっちゃう
- (set-frame-height (selected-frame) 40) がうまく効かない
- (setq gc-cons-threshold 524288000) で、500MB 以上設定すると emacs が起動しない
- まず、文字コードが良く分からない。 python 周りとか特に。本家の cygwin と違うし。 utf-8 に全部したい。
- flymake の C 設定もよく分からない。 makefile が必要とか無理だし。 c のファイルを開くと flymake に怒られる
- git が使えない。 proxy 設定してるのになぁ。
- cvs も使えない。 http_proxy のトンネル方法もイマイチ不明
- org-mode が変。たくさんかくと org-mode でカーソル移動が遅くなる、カクカク動く。
- hiwin-mode が変。フォーラムに上がってる設定をしても、非アクティブ、アクティブの判断が悪く、ずっとグレー。グレー
をやめても、*scratch* や w3m で青くなったり黒くなったりでチラついて気持ち悪い。
- anything.el は履歴保存してくれないのかな。デフォルトの設定じゃ駄目なのかしらん。
- w3m で shift 選択できない。どうように、 org-mode でもできない。
- org-mode が auto-complete とかぶる。 auto-complete のキーバインドを強制上書きしても org-mode に聞かない。うざい。
- ansys-mode のカスタマイズ方法が不明。 unix/linux のみ対応を windows 対応にしたいけど、 elisp とか分からない。

選択した範囲のリンクを全てコピー Chrome アドオンエクステンションプラグイン

2011-09-07T23:31:00.000+09:00

Link2Clip
https://chrome.google.com/webstore/detail/fmieebpnfbcjdackmfajcbbknaikebla?hl=ja

sam2p を使って、画像を eps に一括変換する Windows バッチ

2011-08-25T10:11:00.000+09:00

REM -*- mode: bat ; coding:cp932 -*-

REM This is sam2p v0.48.
REM Available Loaders: PS PDF JAI PNG JPEG TIFF PNM BMP GIF LBM XPM PCX TGA.
REM Available Appliers: XWD Meta Empty BMP PNG TIFF6 TIFF6-JAI JPEG-JAI JPEG PNM GIF
REM 89a+LZW XPM PSL1C PSL23+PDF PSL2+PDF-JAI P-TrOpBb.

:encode
if .%1==. goto end
cd %~dp1
set src=%~n1
set ext=%~x1
echo ext
sam2p %src%%ext% %src%.eps
shift
goto encode
:end

jpeg を eps にドラッグ&ドロップで一括変換する Windows バッチ

2011-08-19T23:00:00.000+09:00

最初ファイル名を sam2p.bat にしていて無限ループにはまってた。恥ずかしい。

:encode
if .%1==. goto end
cd %~dp0
set src=%~n1
sam2p %src%.jpg %src%.eps
shift
goto encode
:end

TeX で裏付けをつける方法

2011-08-19T22:59:00.000+09:00

\documentclass{jbook}
\begin{document}
\frontmatter% 前付け
\tableofcontents% 目次
\chapter{はじめに}
\mainmatter% 本文
\chapter{それから}
\chapter{更に}
\backmatter% 後付け
\chapter{謝辞}
\end{document}

TeX でいっぱいはまった・・・。

2011-08-19T22:58:00.000+09:00

--
1. graphicx.sty

\usepackage[dvips]{graphicx}

で、graphicx.sty が入っていないというエラー。

! LaTeX Error: File `graphicx.sty' not found. †

んなわけねーだろ、って書いてあるページがどっかにあって、
TeX インストーラー3 がおかしいとのこと。

gs や dviout をアンインストールして、W32TeXからちゃんとインストールした。

Firefox のアドインで右クリックし、リンクを全部抜き出すってやつがあるから、
それをつかって、Ring の URL リストを取って、tmp に file.txt とかで保存しておく。

wget -i file.txt

で、全部取れる。とは W32TeX に従うだけ。

-------
2. dviout で jpg が読めない

スージープラグがいいんだって。
http://www10.ocn.ne.jp/~tasusu/tex/susie.html

これやっても見れない。bb とかつらなきゃいけないのかな。めんどうなので、
やっぱ、eps 変換。 sam2p ってのが TeX に入っている

sam2p file.jpg file.eps

で、epsにできる

--
3. dviout で画像が白黒

デフォルトでは白黒みたい。うざい、いつの時代だ。

Option → Setup Papameters... → [Graphic] → GIF: を BMP(16 color),
BMP(256 color), BMP(full color) のいずれかにする。

--
4. ヘッダ、フッダに画像埋め込み

これが意外と無かった。

\usepackage{wallpaper}
\LRCornerWallPaper{0.5}{header.eps}

という方法か、

\usepackage{fancyhdr}
\pagestyle{fancy}
\cfoot{
\includegraphics[width=100mm]{fig1.eps}
}

という方法でいける

--
5. eps の画像が切れる

上記の 4. の方法で dvipdfmx で eps の画像が切れる。boundingbox もあって
る。-p a0 も聞かない。clip オプションも駄目。

--
6. dvipsk はもう無い

解決できないから、ps 経由で pdf と思う。で、dvipsk をやるが、そんなも
の無いといわれる。dvips はあるみたい。HDD を漁るが確かにない。調べると、
dvipskは dvips に統合されたらしい。知らなかった。時代は変わる。

dvips で成功するが、ps2pdf で文字化け。日本語の設定をしていないからで、

http://oku.edu.mie-u.ac.jp/~okumura/texwiki/?%E3%82%A4%E3%83%B3%E3%82%B9%E3%83%88%E3%83%BC%E3%83%AB%28Windows%29#zce2e51d

が必要。

--
7. タイトルページが消える無い
もう、ここまでで吐きそうなのに、

ps2pdf でタイトルページが消えていた。本文はちゃんと評されているのに。

ps2pdf14

で解決。わっかんねー、それ。

キーボードマクロ emacs [失敗]

2011-08-15T22:51:00.001+09:00

キーボードマクロ保存の自動化をしようと

;; ------------------------------------------------------------------------
;; @ キーボードマクロをコマンド
(defvar kmacro-save-file "~/.emacs.d/init.el" "~/.kmacro")
(defun kmacro-save (symbol)
(interactive "name for last kbd macro: ")
(name-last-kbd-macro symbol)
(with-current-buffer (find-file-noselect kmacro-save-file)
    (goto-char (point-max))
    (insert-kbd-macro symbol)
    (basic-save-buffer)))

と init.el に記載したものの、M-x kmacro-save で名前を入力すると

Please enter a number.

といわれてしまい、番号を入力すると

name-last-kbd-macro: Wrong type argument: symbolp, 1

といわれてしまい動かない。

emacs でのファイルの自動保存

2011-08-15T22:51:00.000+09:00

install-elisp だと文字化けして気持ち悪いので以下

~ $ mkdir -p ~/.emacs.d/auto-save
~ $ cd ~/.emacs.d/auto-save
~/.emacs.d/auto-save $ wget http://homepage3.nifty.com/oatu/emacs/archives/auto-save-buffers.el
~/.emacs.d/auto-save $

で

;; ------------------------------------------------------------------------
;; @ auto-save-buffers

(add-to-list 'load-path "~/.emacs.d/auto-save")
(require 'auto-save-buffers)
(run-with-idle-timer 2 t 'auto-save-buffers)

Inno Setup 5 のインストールと emacs での iss-mode 設定

2011-08-13T10:10:00.003+09:00

Inno Setup (フリーのインストーラー作成ツール）
http://www.jrsoftware.org/isdl.php

で、Stable Release の isetup-5.4.2.exe をダウンロードしたら、japanese とかも
今は全部入っているので、別途設定とかは不要みたい。gnupack で使いたいから、念
のためデフォルトのインストールディレクトリではなく、半角スペースの無いディレク
トリを指定した。

emacs で iss ファイルを支援するモードもあるようなので、セットアップ。

M-x eshell
mkdir -p ~/.emacs.d/iss-mode
wget http://www.xsteve.at/prg/emacs/iss-mode.el

で、Stable Release init.el は

;; ;; ------------------------------------------------------------------------
;; ;; @ Inno Setup iss-mode
(add-to-list 'load-path "~/.emacs.d/iss-mode")
(require 'iss-mode)
(autoload 'iss-mode "iss-mode" "Innosetup Script Mode" t)
(setq auto-mode-alist (append '(("\\.iss$" . iss-mode)) auto-mode-alist))
(setq iss-compiler-path "C:/usr/local/share/InnoSetup5/")
(add-hook 'iss-mode-hook 'xsteve-iss-mode-init)
;; 以下はなんか動かない
(defun xsteve-iss-mode-init ()
    (interactive)
    (define-key iss-mode-map [f6] 'iss-compile)
    (define-key iss-mode-map [(meta f6)] 'iss-run-installer))

とし、config.ini に

    PATH           = %PATH%;C:\usr\local\share\InnoSetup5

を追記すると、f6でコンパイル可能。サンプルは Inno Setup のプログラムディレクトリ
以下にある。

Visual C# 2008 Express Edition で [ビルド]>[構成マネージャ]を表示させる方法

2011-08-11T21:49:00.000+09:00

Visual C# 2008 Express Edition で [ビルド]>[構成マネージャ]を表示させる方法

1. [ツール]>[オプション]

2. 左下、[すべての設定を表示]にチェック

3. ツリー:[プロダクトおよびソリューション]>[全般]

4. [ビルド構成の詳細を表示]にチェックを入れる

emacs を IDE 風な画面構成にする

2011-08-02T18:57:00.001+09:00

auto-install とか、単純な wget では DL できなかったので、w3m でアクセスして保存する

M-x eshell
cd ~/.emacs.d/
mkdir e2wm
M-x w3m
U
https://raw.github.com/kiwanami/emacs-window-layout/master/window-layout.el
C-x h
M-w
C-x C-f ~/.emacs.d/w3m/window-layout.el
C-y
C-s
C-k

M-x w3m
https://raw.github.com/kiwanami/emacs-window-manager/master/e2wm.el
C-x h
M-w
C-x C-f ~/.emacs.d/w3m/e2wm.el
C-y
C-s
C-k

init.el

;; ------------------------------------------------------------------------
;; @ IDE 風な画面構成に
(add-to-list 'load-path "~/.emacs.d/e2wm")
(require 'e2wm)
(global-set-key (kbd "M-+") 'e2wm:start-management)

Windows のクリップボードと emacs のキリングが変

2011-08-02T18:57:00.000+09:00

おまじない・・・効くかな。

;; ------------------------------------------------------------------------
;; @ クリップボード転送ができないことがある。

(cond (window-system
(setq x-select-enable-clipboard t)
))

バッファを削除を自動化

2011-07-22T22:50:00.001+09:00

M-x install-elisp-from-emacswiki
tempbuf
C-c

;; ------------------------------------------------------------------------
;; @ 不要バッファの自動削除

(require 'tempbuf)
(add-hook 'find-file-hooks 'turn-on-tempbuf-mode)
(add-hook 'dired-mode-hook 'turn-on-tempbuf-mode)

TeX

2011-07-14T04:52:00.000+09:00

とりあえず、最低限を入れる

[pLateX2e]

TeXインストーラ 3
http://www.math.sci.hokudai.ac.jp/~abenori/soft/abtexinst.html

[YaTeX]

wget http://www.yatex.org/yatex1.74.tar.gz
tar xzvf yatex1.74.tar.gz
cd yatex1.74/
C-x C-f makefile
C-x C-q

で以下のように編集

^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
*** c:/gnupack_devel-6.02/home/tmp/yatex1.74/mekefile.orig    2011-07-12 13:10:20.249481300 +0900
--- c:/gnupack_devel-6.02/home/tmp/yatex1.74/makefile    2011-07-12 13:43:06.550439000 +0900
***************
*** 3,16 ****
#

# 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}
## XEmacs
#EMACS    = xemacs
#EMACSDIR= ${PREFIX}/lib/${EMACS}
--- 3,16 ----
#

# Edit these variables to be suitable for your site
! PREFIX    = C:/gnupack_devel-6.02/app/emacs/emacs

## mule2
! # EMACS    = mule
! # EMACSDIR= ${PREFIX}/lib/${EMACS}
## emacs20
! # EMACS    = emacs
! # EMACSDIR= ${PREFIX}/share/${EMACS}
## XEmacs
#EMACS    = xemacs
#EMACSDIR= ${PREFIX}/lib/${EMACS}
***************
*** 21,26 ****
--- 21,30 ----
#EMACS    = /Applications/Emacs.app/Contents/MacOS/Emacs
#PREFIX    = /Applications/Emacs.app/Contents/Resources
#EMACSDIR = ${PREFIX}
+ ## NTemacs23.3 on gnuplot
+ EMACS    = emacs
+ EMACSDIR= c:/gnupack_devel-6.02/app/emacs/emacs
+

LISPDIR    = ${EMACSDIR}/site-lisp/yatex
# LISPDIR    = ${EMACSDIR}/site-packages/lisp/yatex
***************
*** 35,41 ****

# Comment out below if you are using Emacs Windows(meadow, etc)
! GEO    = -geometry 80x20+0+0

###################
# Do not edit below
--- 39,45 ----

# Comment out below if you are using Emacs Windows(meadow, etc)
! # GEO    = -geometry 80x20+0+0

###################
# Do not edit below

^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

eshell に戻って

export DISPLAY=":0.0"
make install

としてインストール

C-x C-f
c:/gnupack_devel-6.02/app/emacs/emacs/info/dir

として、以下のように編集

^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

*** c:/gnupack_devel-6.02/app/emacs/emacs/info/dir.orig    2011-07-12 13:50:54.602247800 +0900
--- c:/gnupack_devel-6.02/app/emacs/emacs/info/dir    2011-07-12 13:48:52.566308200 +0900
***************
*** 95,97 ****
--- 95,101 ----
                                    Customization facility.
* SMTP: (smtpmail).             Emacs library for sending mail via SMTP.

+ * YaTeX: (yatexj). Yet Another tex-mode for Emacs. (Japanese).
+ * YaTeX-e: (yatexe). Yet Another tex-mode for Emacs. (English).
+ * yahtml: (yahtmlj). Yet Another HTML-mode for Emacs. (Japanese).
+ * yahtml-e: (yahtmle). Yet Another HTML-mode for Emacs. (English).

^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

C-x C-f
~/.emacs.d/init.el

として、以下を追記

^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
;; ------------------------------------------------------------------------
;; @ yatex

(setq load-path (cons "C:/gnupack_devel-6.02/app/emacs/emacs/site-lisp/yatex" load-path))
(setq auto-mode-alist
(cons (cons "\\.tex$" 'yatex-mode) auto-mode-alist))
(autoload 'yatex-mode "yatex" "Yet Another LaTeX mode" t)
(setq tex-command "c:/w32tex/bin/platex")
(setq dvi2-command "C:/w32tex/dviout/dviout")

(setq YaTeX-use-LaTeX2e t)
(setq YaTeX-use-AMS-LaTeX t)

(setq
YaTeX-math-sign-alist-private
'(
   ("q"         "Q"          "(Q)")
   ("z"         "Z"          "ZZ")
   ("t""text""text")
   ("qu"        "quad"         "__")
   ("qq"        "qquad"         "____")
   ("ls"        "varlimsup"     "___\nlim")
   ("li"        "varliminf"     "lim\n---")
   ("il"        "varinjlim"     "lim\n-->")
   ("pl"        "varprojlim"    "lim\n<--")
   ("st"        "text{ s.t. }" "s.t.")
   ("bigop"     "bigoplus"      "_\n(+)~")
   ("bigot"     "bigotimes"     "_\n(x)\n ~")
   ))

; dviからpdfを作成する%sはファイル名
(setq dviprint-command-format "C:/w32tex/bin/dvipdfmx %s")

^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

pLaTeX の環境づくり検討中

2011-07-11T23:17:00.000+09:00

gnupack では、cygwin の setup.exe が使えないので、ptetex を
入れる場合、自分で make しなきゃいけないっぽい。とりあえず、
角藤版を入れるかなぁ。。。迷い中。実は yatex の使い方もいま
いちだし。labeditor に慣れすぎてしまったので、回避したい。