ansys-mode での C-c C-h が不明

C-c C-h でのヘルプがデフォルトの設定では起動しなく、カスタム
メニューで色々なパス定義をしたけどうまくいかなかった。
しかたないので、

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

とかいた Windows バッチを作っておいて、

(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.
 '(ansys-help-program "C:\\\\gnupack_devel-6.02\\home\\launcher\\anshelp130.bat"))

とした。

この方法で、Unix とかしか対応していない exe を走らせたりするのもできないかなー。

タブ, 全角スペース、改行直前の半角スペースを表示する jspace.el

M-x install-elisp [RET]
http://homepage3.nifty.com/satomii/software/jaspace.el [RET]
C-c

で、 init.el は以下。色を若干変更

;; ------------------------------------------------------------------------
;; @ タブ, 全角スペース、改行直前の半角スペースを表示する jspace.el
;; http://openlab.dino.co.jp/2008/08/29/230500336.html
(require 'jaspace)
(setq jaspace-alternate-eol-string "\xab\n")    ; 改行を表示

;; jaspace-mode is not compatible with mmm-mode by default. If you want
;; to use both jaspace-mode and mmm-mode, try:
(add-hook 'mmm-mode-hook 'jaspace-mmm-mode-hook)

(when (require 'jaspace nil t)
  (when (boundp 'jaspace-modes)
    (setq jaspace-modes (append jaspace-modes
                                (list 'php-mode
                                      'yaml-mode
                                      'javascript-mode
                                      'ruby-mode
                                      'text-mode
                                      'fundamental-mode
                                      'ansys-mode))))
  (when (boundp 'jaspace-alternate-jaspace-string)
    (setq jaspace-alternate-jaspace-string "□"))
  (when (boundp 'jaspace-highlight-tabs)
    (setq jaspace-highlight-tabs ?^))
  (add-hook 'jaspace-mode-off-hook
            (lambda ()
              (when (boundp 'show-trailing-whitespace)
                (setq show-trailing-whitespace nil))))
  (add-hook 'jaspace-mode-hook
            (lambda ()
              (progn
                (when (boundp 'show-trailing-whitespace)
                  (setq show-trailing-whitespace t))
                (face-spec-set 'jaspace-highlight-jaspace-face
                               '((((class color) (background light))
                                  (:foreground "blue"))
                                 (t (:foreground "DarkRed"))))
                (face-spec-set 'jaspace-highlight-tab-face
                               '((((class color) (background light))
                                  (:foreground "red"
                                   :background "unspecified"
                                   :strike-through nil
                                   :underline t))
                                 (t (:foreground "DarkGreen"
                                     :background "unspecified"
                                     :strike-through nil
                                     :underline t))))
                (face-spec-set 'trailing-whitespace
                               '((((class color) (background light))
                                  (:foreground "red"
                                   :background "unspecified"
                                   :strike-through nil
                                   :underline t))
                                 (t (:foreground "gray"
                                     :background "unspecified"
                                     :strike-through nil
                                     :underline t))))))))

[QED]
************************************************************************

Google デスクトップ, Larry's Any Text File Indexer, RTM ガジェット,のインストール

1. 以下から DL

   http://desktop.google.com/ja/

2. bash で

   cd ~/download/
   ./GoogleDesktopSetup.exe

3. そのまま続行

4. タスクバーを右クリックして、 [デスクバー] に変更

5. テキストファイルは何でも検索したいので、以下のガジェットをインストール

   http://desktop.google.co.jp/plugins/i/indexitall.html

6. bash で

   unzip anytextfile.zip
   ./LarrysAnyTextFileIndexer.exe

7. [install] ボタンを押すと自動で、 LarrysAnyTextFileIndexer.conf が開くので以下を追記

   # cygwin,emacs
   AddNewExtension "el"
   AddNewExtension "xml"
   AddNewExtension "conf"

   # ansys
   AddNewExtension "out"
   AddNewExtension "err"
   AddNewExtension "cdb"
   AddNewExtension "inp"
   AddNewExtension "mac"
   AddNewExtension "log"
   AddNewExtension "lgw"
   AddNewExtension "ans"
   AddNewExtension "old"

   # TeX
   AddNewExtension "tex"

8. 第三のプラグインだかなんだか、 [OK]

9. タスクバーを右クリックして、ガジェットの追加

10. 以下を検索フォームに

    http://hosting.gmodules.com/ig/gadgets/file/109131591124899821933/myrtm4.xml

11. [追加] して、ユーザー名とパスワードを入力

12. [カレンダー] で検索

13. [Google カレンダー] を追加

14. 上のバーを右クリックし、 [オプション] で、ユーザー名とパスワードを入力

15. タスクバーを右クリックして、 [オプション]>[表示] でホットキーとクイッ
    ク ファインドを OFF にして保存（起動スピード対策）

? ホットキーを変えるにはどうしたらいいんだろう・・・ホットキー設定なん
  て見当たらないよ。

日本語の文章を整形する text-adjust.el

M-x install-elisp [RET]
http://taiyaki.org/elisp/mell/src/mell.el [RET]
C-c

M-x install-elisp [RET]
http://taiyaki.org/elisp/text-adjust/src/text-adjust.el [RET]
C-c

で、init.el には

;; ------------------------------------------------------------------------
;; @ 日本語の文章を整形する test-adjust.el
;; 参考:http://d.hatena.ne.jp/rubikitch/20090220/text_adjust

;; 読み込み
(require 'text-adjust)

;; ％は例外として半角にしない
(setq text-adjust-hankaku-except "％")

;; org-mode, text-mode, ansys-mode のとき自動的には保存する際に実行
(defun text-adjust-space-before-save-if-needed ()
  (when (memq major-mode
              '(org-mode text-mode ansys-mode))
    (text-adjust-space-buffer)))
(defalias 'spacer 'text-adjust-space-buffer)
(add-hook 'before-save-hook 'text-adjust-space-before-save-if-needed)

ansys-mode の設定

ansys-mode を使う

1.  http://code.google.com/p/ansys-mode/ にアクセス

2. ansys-mode-13.0.1.tgz をDLし、解凍

3. C:\gnupack_devel-6.02\home\.emacs.d\ansys-mode-13.0.1 に格納

4. init.el には以下を記述

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

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

;; 拡張子によって 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)
             ))