-*- 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 とか分からない。
