#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
# 窓使いの憂鬱 - default.mayu
# Copyright (C) 1999-2005, TAGA Nayuta <nayuta@users.sourceforge.net>
#

if ( !KBD109 ) and ( !KBD104 )
  include "109.mayu"
endif
if ( KBD104 )
#  def alias ↑	= Up
#  def alias ↓	= Down
#  def alias ←	= Left
#  def alias →	= Right
  def alias Yen	= BackSlash
endif


#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
# キーシーケンス
#

keyseq $WindowClose = A-F4


#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
# Global キーマップ
#

keymap Global
 key *IC-C-Yen		= $ToggleIME		# IME ON/OFF をするキーの指定
 key C-S-M     C-A-M	= Applications		# アプリケーションキー
 key C-S-L     C-A-L	= &WindowLower		# ウィンドウを一番下へ
 key C-S-R     C-A-R	= &WindowRaise		# ウィンドウを一番上へ
#key C-S-R     C-A-R	= &WindowToggleTopMost &Wait(200) &WindowToggleTopMost
 key C-S-Z     C-A-Z	= &WindowMaximize	# ウィンドウの最大化 (IE全画面)
 key C-S-I     C-A-I	= &WindowMinimize	# ウィンドウの最小化
 key C-S-X     C-A-X	= &WindowVMaximize	# ウィンドウの縦最大化
 key C-S-C     C-A-C	= &WindowHMaximize	# ウィンドウの横最大化
 key C-S-Left  C-A-Left	= &WindowMove(-16, 0)	# ウィンドウの移動
 key C-S-Right C-A-Right= &WindowMove(16, 0)	#	〃
 key C-S-Up    C-A-Up	= &WindowMove(0, -16)	#	〃
 key C-S-Down  C-A-Down	= &WindowMove(0, 16)	#	〃
 key C-S-A-Left		= &WindowMove(-1, 0)	#	〃
 key C-S-A-Right	= &WindowMove(1, 0)	#	〃
 key C-S-A-Up		= &WindowMove(0, -1)	#	〃
 key C-S-A-Down		= &WindowMove(0, 1)	#	〃
 key W-Left		= &MouseMove(-16, 0)	# マウスの移動
 key W-Right		= &MouseMove(16, 0)	#	〃
 key W-Up		= &MouseMove(0, -16)	#	〃
 key W-Down		= &MouseMove(0, 16)	#	〃
 key W-A-C-Left		= &MouseMove(-1, 0)	#	〃
 key W-A-C-Right	= &MouseMove(1, 0)	#	〃
 key W-A-C-Up		= &MouseMove(0, -1)	#	〃
 key W-A-C-Down		= &MouseMove(0, 1)	#	〃
 key C-A-A		= &WindowClingToLeft	# ウィンドウを左に寄せる
 key C-A-E		= &WindowClingToRight	# ウィンドウを右に寄せる
 key C-A-P		= &WindowClingToTop	# ウィンドウを上に寄せる
 key C-A-N		= &WindowClingToBottom	# ウィンドウを下に寄せる
 key C-A-V		= &WindowMoveVisibly	# ウィンドウを見える位置へ移動
 key C-S-K     C-A-K	= $WindowClose		# ウィンドウを閉じる
#key C-S-T		= &WindowToggleTopMost	# 最前面トグル
 key C-S-D		= &WindowIdentify &MayuDialog(Log, SHOW)
						# ウィンドウの素性を調べる
 key C-S-H		= &WindowSetAlpha(70)	# ウィンドウの半透明化
 key C-S-A-H		= &WindowSetAlpha(-1)	# 半透明化全て解除
 key C-S-U		= &WindowRedraw		# ウィンドウの再描画
 key C-S-S		= &LoadSetting &HelpMessage(Mayu, "再読込完了") # 設定ファイルの読み込み
 key C-S-F1		= &InvestigateCommand	# WM_COMMAND の調査
 if ( ! EmacsMove/ShiftSelection )
   key C-S-A   C-S-B	= &WindowClingToLeft	# ウィンドウを左に寄せる
   key C-S-F   C-S-E	= &WindowClingToRight	# ウィンドウを右に寄せる
   key C-S-P		= &WindowClingToTop	# ウィンドウを上に寄せる
   key C-S-N		= &WindowClingToBottom	# ウィンドウを下に寄せる
   key C-S-V		= &WindowMoveVisibly	# ウィンドウを見える位置へ移動
 endif
 key W-N		= &Sync &WindowMonitorTo(current, 1) # ディスプレイを切り替える
# WinDeskWide
 key W-_1		= &Sync C-S-A-Q  # WinDeskWide の仮想デスクトップ１に移動（WinDeskWideのホットキー要設定）
 key W-_2		= &Sync C-S-A-W  # WinDeskWide の仮想デスクトップ２に移動（WinDeskWideのホットキー要設定）
 if ( HHKBLite2 )
   key W-F1		= &Sync C-S-A-Q  # WinDeskWide の仮想デスクトップ１に移動（WinDeskWideのホットキー要設定）
   key W-F2		= &Sync C-S-A-W  # WinDeskWide の仮想デスクトップ２に移動（WinDeskWideのホットキー要設定）
 endif
 key W-Q		= &Sync C-S-A-_1 # WinDeskWide の仮想デスクトップ１に送る（WinDeskWideのホットキー要設定）
 key W-W		= &Sync C-S-A-_2 # WinDeskWide の仮想デスクトップ２に送る（WinDeskWideのホットキー要設定）
 key W-Z		= &Sync C-S-A-Z  # WinDeskWide の仮想デスクトップを循環　（WinDeskWideのホットキー要設定）

#key W-E = &ShellExecute("open", "D:\\Program Files\\xf11-3\\XF.exe","/m",, ShowNormal)

 if ( KBD109 ) and ( ! KBD104on109 )
   key *半角/全角	= *Esc			# Esc と半角/全角の入れ替え
   key *Esc		= *半角/全角		#	〃
 endif

 if ( !HHKBLite2 )
   if ( KBD109 )
     mod control += 英数				# 英数を Control に
     key *英数		= *LControl		#	〃
   else
     mod control += CapsLock			# CapsLock を Control に
     key *CapsLock	= *LControl		#	〃
   endif
 endif

 key C-Yen		= 半角/全角             # 変換
 key C-ReverseSolidus	= 半角/全角             # 変換

 if ( GANA )
   if ( KBD109 )
     mod alt += !!無変換			# 無変換を Alt に
     key *無変換	= *無変換		#	〃
     key A-無変換	= 無変換		#	〃
     key IC-A-K		= 無変換		# IME で変換中の A-K は無変換
     key *IC-変換	= $ToggleIME		# IME ON/OFF をするキーの指定
   endif
   key *ScrollLock	= $CapsLock		# ScrollLock を CapsLock に
#   key C-↑		= C-A-S-↑		# for VD
   key C-Up		= C-A-S-Up		# for VD
#   key C-↓		= C-A-S-↓		#	〃
   key C-Down		= C-A-S-Down		#	〃
#   key C-←		= C-A-S-←		#	〃
   key C-Left		= C-A-S-Left		#	〃
#   key C-→		= C-A-S-→		#	〃
   key C-Right		= C-A-S-Right		#	〃
   key C-S-Y		= &WindowResizeTo(0, -64) &WindowMoveVisibly \
			  &Wait(100) &WindowClingToBottom
 endif

keymap2 GlobalEscape : Global = &KeymapParent
 event prefixed		= &HelpMessage("Global", "ESC-")
 event before-key-down	= &HelpMessage
 key M-C-G		= &Ignore

keymap Global
 if ( MAP-ESCAPE-TO-META )
   key Escape		= &Prefix(GlobalEscape) &EditNextModifier(M-)
   if ( KBD109 ) and ( ! KBD104on109 )
     key 半角/全角	= &Prefix(GlobalEscape) &EditNextModifier(M-)
   endif
 endif

 # for AntiFreeze
 key A-C-W-Home = &Default

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
# 全て(ではないがだいたい)デフォルトのキーマップの定義
#

keymap	KeymapDefault = &Default
 if ( KBD109 )
   mod control += 英数				# 英数を Control に
   key *英数		= *LControl		#	〃
 else
   mod control += CapsLock			# CapsLock を Control に
   key *CapsLock	= *LControl		#	〃
 endif
 if ( GANA )
   if ( KBD109 )
     mod alt += !!無変換			# 無変換を Alt に
     key *無変換	= *無変換		#	〃
     key A-無変換	= 無変換		#	〃
     key IC-A-K		= 無変換		# IME で変換中の A-K は無変換
   endif
 endif


#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
# コントロールの設定
#

include	".emacsedit.mayu"

#window	EditControl	/:(Edit|TEdit|RichEdit(20[AW])?)$/ : EmacsEdit
window	EditControl	/:(Edit|TEdit|RichEdit(20[AW])?|Scintilla)$/ : EmacsEdit
window	SysListView32	/:SysListView32$/ : EmacsMove
window	SysTreeView32	/:SysTreeView32$/ : EmacsMove
window	ComboBox	/:ComboBox(:Edit)?$/ : EmacsEdit
 key M-N M-P		= A-Down		# ドロップダウンメニューを開く


#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
# Windows の一般的設定
#

 keyseq $WM_VSCROLL/SB_PAGEUP		= &PostMessage(ToItself, 277, 2, 0)
 keyseq $WM_VSCROLL/SB_PAGEDOWN		= &PostMessage(ToItself, 277, 3, 0)

keymap2	GeneralC-X : EmacsC-X
 key C-S		= C-S			# 上書き保存(S)
 key C-W		= LAlt F A		# 名前を付けて保存(A)...
 key C-F		= C-O			# 開く(O)...
 key C			= C-N			# 新規作成(N)
 key K			= C-W			# 閉じる
 key C-C		= LAlt F X		# 終了(X)
# key C-C		= A-Q			# 終了(X)
# key C-C		= $WindowClose		# 終了(X)


## ダイアログボックス .........................................................

window	DialogBox	/:#32770:/ : Global
 key C-G		= Escape


#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
# MDI 上のウィンドウの設定
#

keymap2 MDI-WindowOperation : Global
 key C-S-L     C-A-L	= &WindowLower(MDI)		# ウィンドウを一番下へ
 key C-S-R     C-A-R	= &WindowRaise(MDI)		# ウィンドウを一番上へ
 key C-S-Z     C-A-Z	= &WindowMaximize(MDI)		# ウィンドウの最大化
 key C-S-I     C-A-I	= &WindowMinimize(MDI)		# ウィンドウの最小化
 key C-S-X     C-A-X	= &WindowVMaximize(MDI)		# ウィンドウの縦最大化
 key C-S-C     C-A-C	= &WindowHMaximize(MDI)		# ウィンドウの横最大化
 key C-S-Left  C-A-Left	= &WindowMove(-16, 0, MDI)	# ウィンドウの移動
 key C-S-Right C-A-Right= &WindowMove(16, 0, MDI)	#	〃
 key C-S-Up    C-A-Up	= &WindowMove(0, -16, MDI)	#	〃
 key C-S-Down  C-A-Down	= &WindowMove(0, 16, MDI)	#	〃
 key C-S-A-Left		= &WindowMove(-1, 0, MDI)	#	〃
 key C-S-A-Right	= &WindowMove(1, 0, MDI)	#	〃
 key C-S-A-Up		= &WindowMove(0, -1, MDI)	#	〃
 key C-S-A-Down		= &WindowMove(0, 1, MDI)	#	〃
 key C-S-A C-S-B C-A-A	= &WindowClingToLeft(MDI)	# ウィンドウ左に寄せる
 key C-S-E C-S-F C-A-E	= &WindowClingToRight(MDI)	# ウィンドウ右に寄せる
 key C-S-P     C-A-P	= &WindowClingToTop(MDI)	# ウィンドウ上に寄せる
 key C-S-N     C-A-N	= &WindowClingToBottom(MDI)	# ウィンドウ下に寄せる
 key C-S-V     C-A-V	= &WindowMoveVisibly(MDI)	# ウィンドウ見える位置
 key C-S-K     C-A-K	= C-F4				# ウィンドウを閉じる

window	MDI	/:MDIClient:/ : Global
 key C-S-Q	C-A-Q	= &Prefix(MDI-WindowOperation)


#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
# 各アプリケーションの設定
#


## 窓使いの憂鬱 ...............................................................
## http://mayu.sourceforge.net

# 仮想キー調査ウィンドウでは全てデフォルト
window	MayuInvestigate /mayu\.exe:#32770:mayuFocus$/ : KeymapDefault

# ログウィンドウ Esc で閉じられるように
window	MayuLog ( /mayu\.exe:#32770:Button/ \
		&& /ログ - 窓使いの憂鬱/ ) : Global
 key C-G		= $WindowClose
 key Esc		= $WindowClose


## Console ....................................................................

 keyseq $ConsoleWindowClass/copy	= &PostMessage(ToItself, 274, 65520, 0)
 keyseq $ConsoleWindowClass/paste	= &PostMessage(ToItself, 274, 65521, 0)
 keyseq $ConsoleWindowClass/region	= &PostMessage(ToItself, 274, 65522, 0)
 keyseq $ConsoleWindowClass/scroll	= &PostMessage(ToItself, 274, 65523, 0)
 keyseq $ConsoleWindowClass/search	= &PostMessage(ToItself, 274, 65524, 0)
 keyseq $ConsoleWindowClass/select-all	= &PostMessage(ToItself, 274, 65525, 0)

#window  ConsoleWindowClass /^ConsoleWindowClass$/ : Global
window  ConsoleWindowClass /^ConsoleWindowClass$/ : EmacsEdit
 key C-S-K     C-A-K	= A-Space C		# ウィンドウを閉じる
 key S-Insert		= $ConsoleWindowClass/paste
 key S-Prior		= $WM_VSCROLL/SB_PAGEUP
 key S-Next		= $WM_VSCROLL/SB_PAGEDOWN
 key S-~NL-Num9		= $WM_VSCROLL/SB_PAGEUP
 key S-~NL-Num3		= $WM_VSCROLL/SB_PAGEDOWN


## Explorer, Internet Explorer ................................................

 keyseq $Explorer/show-folder-bar = &PostMessage(ToMainWindow, 273, 41525, 0)

window	ExplorerList /EXPLORER.*:SHELLDLL_DefView:.*SysListView32$/ : SysListView32
 key S-R		= F2			# 名前の変更
 key C-S-Z		= &Sync&WindowMaximize	# ウィンドウの最大化
 key C-A-Z		= C-&WindowMaximize	# ウィンドウの全画面化
 key M-E		= $Explorer/show-folder-bar # フォルダを表示

window	ExplorerTree /EXPLORER.*:BaseBar:.*SysTreeView32$/ : SysTreeView32
 key S-R		= F2			# 名前の変更
 key C-S-Z		= &Sync&WindowMaximize	# ウィンドウの最大化
 key C-A-Z		= C-&WindowMaximize	# ウィンドウの全画面化
 key M-E		= $Explorer/show-folder-bar # フォルダを表示

window	ExplorerRightClickMenu /Explorer.*:MENU$/ : EmacsMove

window	InternetExplorer /:Internet Explorer_Server$/ : EmacsEdit
 key C-S-Z		= &Sync&WindowMaximize	# ウィンドウの最大化
 key C-A-Z		= C-&WindowMaximize	# ウィンドウの全画面化

window	MicrosoftJava	/:Microsoft VM For Java\(TM\) Host Window Class:/ \
	: EmacsEdit


## Emacs ......................................................................
## http://www.gnu.org/software/emacs/windows/ntemacs.html

keymap Emacsen : Global
 key C-Yen		= &Default
 if ( MAP-ESCAPE-TO-META )			# ESC が M- になるのを阻止する
   if ( KBD109 ) and ( ! KBD104on109 )
     key *半角/全角	= *Esc
     key *Esc		= *半角/全角
   else
     key Escape		= &Default
   endif
 endif

window	Meadow	/:Meadow$/ : Emacsen
 key IC-M-X		= $ToggleIME M-X
window	MULE	/:MULE$/ : Emacsen
window	Emacs	/:Emacs$/ : Emacsen


## Notepad ....................................................................

 keyseq $Notepad/new		= &PostMessage(ToParentWindow, 273, 9, 0)
 keyseq $Notepad/open		= &PostMessage(ToParentWindow, 273, 10, 0)
 keyseq $Notepad/save-as	= &PostMessage(ToParentWindow, 273, 1, 0)

keymap2	NotepadC-X : GeneralC-X
 event prefixed		= &HelpMessage("メモ帳 C-x-", \
	"C-x C-s\t上書き保存\r\n"	\
	"C-x C-f\t開く\t\r\n"		\
	"C-x k\t\t新規作成\r\n"		\
	"C-x C-c\t終了")
 event before-key-down	= &HelpMessage
 key C-S		= C-S	#$Notepad/save-as	# 上書き保存(S)
 key C-F		= C-O	#$Notepad/open		# 開く(O)...
 key C			= C-N	#$Notepad/new		# 新規作成(N)
 key K			= $WindowClose	#C-W		# 閉じる
 key C-C		= $WindowClose	# メモ帳の終了(X)

window	Notepad /:Notepad:Edit$/ : EmacsEdit
 if ( !ZXCV ) key C-X	= &Prefix(NotepadC-X)
 key C-S		= F3			# 検索(F)...
 key M-J		= C-G			# 行へ移動


## ASTEC-X ....................................................................
## http://www.astec.co.jp/

 keyseq $ASTEC-X/copy-to-x	= &PostMessage(ToItself, 274, 16, 0)

window	ASTEC-X /:ASTEC-X$/ : Global
 key C-Yen		= &Default
 key *IC-IL-C-Yen	= $ToggleIME		# IMEがオンならばIMEをオフ


## Becky! Internet Mail .......................................................
## http://www.rimarts.co.jp/index-j.html

window BeckyInternetMail /Rebecca\.exe:BeckyComposeFrameClass:/ : EmacsEdit
 if ( !ZXCV ) key C-X	= &Prefix(GeneralC-X)

window BeckyInternetMail2 /B2\.exe:Becky2ComposeFrame:/ : EmacsEdit
 if ( !ZXCV ) key C-X	= &Prefix(GeneralC-X)


## Microsoft Power Point ......................................................

keymap2	PowerPointC-X : GeneralC-X
 key C-C		= $WindowClose		# 終了(X)

window	PowerPoint /POWERPNT\.EXE:.*:(paneClassDC|REComboBox20W|RichEdit20W)$/\
			: EmacsEdit
 if ( !ZXCV ) key C-X	= &Prefix(PowerPointC-X)

window	PowerPoint2 /POWERPNT\.EXE:PP9FrameClass.*/ : EmacsEdit
 if ( !ZXCV ) key C-X	= &Prefix(PowerPointC-X)

## Microsoft Visual Basic 6.0 .................................................

window	VisualBasic /vb6\.exe:.*:VbaWindow$/ : EmacsEdit
 if ( !ZXCV ) key C-X	= &Prefix(GeneralC-X)


## Microsoft Word .............................................................

window	Word /WINWORD\.EXE:.*:_WwG$/ : EmacsEdit
 if ( !ZXCV ) key C-X	= &Prefix(GeneralC-X)


## Microsoft Excel ............................................................

keymap2	ExcelC-X : GeneralC-X
 key C-C		= $WindowClose		# 終了(X)
 key C-S		= C-S                   # 保存(S)
 key C-W		= A-F A                 # 名前を付けて保存(A)

keymap2	ExcelC-C : Global
 key C-C		= F9                    # 再計算

window	Excel /EXCEL\.EXE:XLMAIN:/ : EmacsEdit
 if ( !ZXCV ) key C-X	= &Prefix(ExcelC-X)
 if ( !ZXCV ) key C-C	= &Prefix(ExcelC-C)
 key C-S-Up             = &Default
 key C-S-Down           = &Default
 key C-S-Left           = &Default
 key C-S-Right          = &Default
 key C-S-S              = C-F
 key M-S-*_5            = C-H


## Microsoft Excel VBA ........................................................

keymap2	ExcelVBAC-X : GeneralC-X
 key C-C		= $WindowClose		# 終了(X)
 key C-S		= C-S                   # 保存(S)
 key C-W		= A-F A                 # 名前を付けて保存(A)

keymap2	ExcelVBAC-C : Global
 key C-C		= A-D L			# コンパイル

window  ExcelVBA /EXCEL\.EXE:wndclass/ : EmacsEdit
 if ( !ZXCV ) key C-X	= &Prefix(ExcelVBAC-X)
 if ( !ZXCV ) key C-C	= &Prefix(ExcelVBAC-C)
 key C-S-S              = C-F
 key M-S-*_5            = C-H
 #key M-J		= C-G			# 行へ移動
 key M-Slash		= C-Space		# Parameter Info


## Microsoft Pinball ..........................................................

window MSPinball /PINBALL\.EXE:1c7c22a0-9576-11ce-bf80-444553540000$/ : Global
 key A-Enter		= F4


## Netscape Navigator .........................................................
## http://www.netscape.com/

window	NetscapeNavigator /Netscape\.exe:/ : Global
 key C-H		= BackSpace		# BackSpace
 key C-S		= C-F			# 検索


## Mozilla ....................................................................
## http://www.mozilla.org/

window	Mozilla /:MozillaWindowClass$/ : EmacsEdit


## Personal Dictionary ........................................................
## http://member.nifty.ne.jp/TaN/

window	PersonalDictionary /PDICW32\.EXE:PDICW:ComboBox:Edit/ : EmacsEdit
 key C-K		= S-End S-Delete	# 行末まで削除
 key C-Y		= S-Insert		# PASTE


## Real Player ................................................................
## http://www.real.com/

window RealPlayer /realplay.exe:PNGUIClass/ : Global
 key A-Enter		= LAlt V Z F
 key C-R		= C-P


## TeraTerm ...................................................................
## http://hp.vector.co.jp/authors/VA002416/

window	TeraTerm /TTermPRO\.exe:VTWin32$/ : Global
 key C-Slash		= C-S-HyphenMinus	# C-_ を入力
 key S-Prior		= C-Prior		# スクロール
 key S-Next		= C-Next		# スクロール
 key IC-M-X    IL-M-X	= $ToggleIME M-X	# for emacs
 if ( KBD109 )
   key C-S-ReverseSolidus = C-S-HyphenMinus	# C-_ を入力
 endif


## Waffle .....................................................................
## http://sakura.tsg.ne.jp/~tjkawa/witalk2/
## Emacs 風キーバインディングにしておくこと

 keyseq	$WaffleMark/cancel		= Left Right

window	Waffle /WITALK2\.EXE:.*:RichEdit(20A)?$/ : Global
keymap2	WaffleMark : Waffle = $WaffleMark/cancel &KeymapParent

keymap	Waffle
 key Home		= &Default		# 文頭
 key End		= &Default		# 文末
 key C-Space		= &Prefix(WaffleMark)	# Mark
 key C-A		= &Default		# 行頭
 key C-B		= &Default		# ←
 key C-C		= &Default		# (Waffle Prefix)
 key M-B		= &Default		# ←(単語)
 key C-D		= &Default		# 削除
 key M-D		= &Default		# 削除(単語)
 key C-E		= &Default		# 行末
 key C-F		= &Default		# →
 key M-F		= &Default		# →(単語)
 key C-G		= &Default		# CANCEL
 key C-H		= &Default		# BS
 key C-J		= &Default		# RETURN
 key C-K		= &Default		# 行末まで削除
 key M-L		= &Default		# 小文字
 key C-M		= &Default		# RETURN
 key C-N		= &Default		# ↓
 key C-O		= &Default		# 一行増やす
 key C-P		= &Default		# ↑
 key C-Q		= &Prefix(KeymapDefault) # mayu に左右されないキー入力
 key C-S		= &Default		# 検索
 key C-T		= &Default		# 文字入れ替え
 key C-V		= Next			# 次頁 (Waffle のバグ?)
 key M-V		= &Default		# 前頁
 key C-W		= &Default		# CUT
 key M-W		= &Default		# COPY
 key C-Y		= &Default		# PASTE
 key M-U		= &Default		# 大文字
 key S-Home		= &Default		# 文頭(選択)
 key S-End		= &Default		# 文末(選択)
 key S-M-Comma		= &Default		# 文頭
 key S-M-Period		= &Default		# 文末
 key M-BackSpace	= &Default		# BS(単語)
 key C-Slash		= &Default		# UNDO

keymap2	WaffleMark
 key Home		= S-C-Home	&Prefix(WaffleMark)	# 文頭
 key End		= S-C-End	&Prefix(WaffleMark)	# 文末
 key C-A		= S-Home	&Prefix(WaffleMark)	# 行頭
 key C-B		= S-Left	&Prefix(WaffleMark)	# ←
 key M-B		= S-C-Left	&Prefix(WaffleMark)	# ←(単語)
 key C-E		= S-End	&Prefix(WaffleMark)		# 行末
 key C-F		= S-Right	&Prefix(WaffleMark)	# →
 key M-F		= S-C-Right	&Prefix(WaffleMark)	# →(単語)
 key C-G		= $WaffleMark/cancel &Undefined		# キャンセル
 key C-N		= S-Down	&Prefix(WaffleMark)	# ↓
 key C-P		= S-Up		&Prefix(WaffleMark)	# ↑
 key C-V		= S-Next	&Prefix(WaffleMark)	# 次頁
 key M-V		= S-Prior	&Prefix(WaffleMark)	# 前頁
 key C-W		= C-W Left Right			# CUT
 key M-W		= M-W Left Right			# COPY
 key S-M-Comma		= S-C-Home	&Prefix(WaffleMark)	# 文頭
 key S-M-Period		= S-C-End	&Prefix(WaffleMark)	# 文末
 key Left		= S-Left	&Prefix(WaffleMark)	# ←
 key Up			= S-Up		&Prefix(WaffleMark)	# ↑
 key Right		= S-Right	&Prefix(WaffleMark)	# →
 key Down		= S-Down	&Prefix(WaffleMark)	# ↓


## Xyzzy ......................................................................
## http://www.jsdlab.co.jp/~kamei/

window Xyzzy /xyzzy\.exe:/ : Global
 key C-S-K     C-A-K	= C-X C-C		# ウィンドウを閉じる


## Windows Media Player .......................................................

window WindowsMediaPlayer /mplayer2.*:(Media Player 2|VideoRenderer)/ : Global
 key C-A		= Space		# Play
 key C-R		= Space		# Play
 key C-P		= Space		# Pause
 key C-S		= Period	# Stop


## Windows Mine Sweeper .......................................................

window WindowsMineSweeper /winmine.exe:マインスイーパ$/ : Global
 key D-Z		= &VK(RButton)
 key U-Z		= &Ignore
 key D-X		= &VK(MButton)
 key U-X		= &Ignore
 key D-C		= &VK(LButton)
 key U-C		= &Ignore
 key Q			= F2
 key Num1		= &MouseMove(-16,  16)
 key Num2		= &MouseMove(  0,  16)
 key Num3		= &MouseMove( 16,  16)
 key Num4		= &MouseMove(-16,   0)
 key Num6		= &MouseMove( 16,   0)
 key Num7		= &MouseMove(-16, -16)
 key Num8		= &MouseMove(  0, -16)
 key Num9		= &MouseMove( 16, -16)


## ICQ2000 ....................................................................
## http://web.icq.com/

if ( GANA )
  window ICQMessageSession \
	( /ICQ\.exe:#32770:Edit$/ && /Message Session/ ) : EmacsEdit
   key Enter		= M-S
endif


## Acrobat Reader .............................................................
## http://www.adobe.co.jp/support/custsupport/library/acrwin.html

window AcrobatReader /AcroRd32.exe:.*:MDIClient:/ : EmacsMove
 key Space		= PageDown
 key BS			= PageUp


## Edmax ......................................................................
## http://www.bekkoame.ne.jp/~t.mzaki/

window EdMax-edit /edmax\.exe:.*Afx:400000:b:0:1900010:0$/ : EmacsEdit


## VisualBasic ................................................................

window VBTextBox /:ThunderRT6FormDC:(ThunderRT6TextBox|RichTextWndClass)$/ \
	: EmacsEdit

## StarOffice/StarSuite/OpenOffice ............................................

window StarOffice /soffice\.exe:SALFRAME$/ : EmacsEdit

## Opera ......................................................................

window	Opera /Opera\.exe:/ : EmacsEdit

## MetaEditor .................................................................

keymap2	MetaEditorC-X : GeneralC-X
 #event prefixed		= &HelpMessage("MetaEditor C-x-", \
 #	"C-x C-s\t上書き保存\r\n"	\
 #	"C-x C-f\t開く\t\r\n"		\
 #	"C-x k\t\t新規作成\r\n"		\
 #	"C-x C-c\t終了")
 #event before-key-down	= &HelpMessage
 key C-S		= C-S			# 上書き保存(S)
 key C-W		= A-F A			# Save As
 key C-F		= C-O			# 開く(O)...
 key C			= C-N			# 新規作成(N)
 key K			= C-W			# 閉じる
 key C-C		= $WindowClose		# MetaEditorの終了(X)
 key H			= C-A			# 全て選択
 key T			= C-T			# Toolbox
 key N			= C-D			# Navigator

keymap2	MetaEditorC-C : Global
 key C-C		= F5			# コンパイル

window	MetaEditor /:MetaQuotes::MetaEditor/ : EmacsEdit
 key C-X		= &Prefix(MetaEditorC-X)
 key C-C		= &Prefix(MetaEditorC-C)
 key C-S		= C-F			# 検索(F)...
 key M-S-*_5		= C-H			# 置換
 key M-J		= C-G			# 行へ移動
 key M-Slash		= C-S-Space		# Parameter Info

## Firefox ....................................................................

keymap2	FirefoxC-X-5
 key B			= C-N			# 新しいWindowを開く

keymap2	FirefoxC-X : GeneralC-X
 key C-S		= C-S			# 上書き保存(S)
 key C-F		= C-O			# 開く(O)...
 key C			= C-T			# タブを開く
 key K			= C-W			# タブを閉じる
 key C-C		= $WindowClose		# 終了(X)
#key G			= C-K			# Web 検索バーを選択
 key G			= C-L			# ロケーションバーを選択
 key C-V		= F5			# 再読込
 key D			= C-J			# ダウンロード
 key _5			= &Prefix(FirefoxC-X-5)

keymap2	FirefoxC-Z
 key C			= C-T			# 新しいタブを開く
 key K			= C-W			# タブを閉じる
 key N			= C-PageDown		# 右のタブへ
 key P			= C-PageUp		# 左のタブへ
 key _0			= C-_1
 key _1			= C-_2
 key _2			= C-_3
 key _3			= C-_4
 key _4			= C-_5
 key _5			= C-_6
 key _6			= C-_7
 key _7			= C-_8

keymap2 FirefoxM-X
 key G			= C-L			# ロケーションバーを選択

window	Firefox /:MozillaUIWindowClass:/ : EmacsEdit
 key C-X		= &Prefix(FirefoxC-X)
 key C-Z		= &Prefix(FirefoxC-Z)
#key M-X		= &Prefix(FirefoxM-X)
 key M-X		= F9						# iswitchb-tabs
 key C-S		= &Toggle(Lock0, on) C-F			# 検索(F)...
 key C-R		= &Toggle(Lock0, on) C-F			# 検索(F)...
#key L0-Space		= M-N		     				# 次を検索
 key L0-C-S		= M-N		     				# 次を検索
 key L0-C-R		= M-P		     				# 前を検索
 key L0-C-G		= &Toggle(Lock0, off) &KeymapParent
 key L0-Enter		= &Toggle(Lock0, off) &KeymapParent
 key M-N		= C-Down					# 次の検索エンジンを選択 
 key M-P		= C-Up						# 前の検索エンジンを選択

## eclipse ....................................................................

keymap2	EclipseC-X : GeneralC-X
 key C-S		= C-S			# 上書き保存(S)
 key C-F		= C-O			# 開く(O)...
 key K			= C-W			# タブを閉じる
 key C-C		= $WindowClose		# 終了(X)

 key H			= C-A			# 全て選択

keymap2	EclipseC-C
 key C-C		= C-M-X			# 実行
 key C-D		= C-M-D			# デバッグ

keymap2	EclipseC-Z
 key K			= C-W			# タブを閉じる

window	Eclipse /eclipse\.exe:SWT_Window0:/ : EmacsEdit
 key C-X		= &Prefix(EclipseC-X)
 key C-Z		= &Prefix(EclipseC-Z)
 key C-S		= C-J			# Incremental Find Next
 key C-R		= C-S-J			# Incremental Find Previous
 key C-S-F		= C-F6			# 次のViewへ
 key C-S-B		= C-S-F6		# 前のViewへ
 key C-S-N		= C-F7			# 右のエディタへ
 key C-S-P		= C-S-F7		# 左のエディタへ

## Skype ......................................................................

keymap2	SkypeC-X : GeneralC-X
 key K			= C-W			# タブを閉じる
 key C-C		= $WindowClose		# 終了(X)
 key H			= C-A			# 全て選択

window	Skype /\\Skype\.exe:/ : EmacsEdit
 key C-X		= &Prefix(SkypeC-X)

## Paint ......................................................................

keymap2	PaintC-X : GeneralC-X
 key C-S		= C-S			# 上書き保存(S)
 key C-F		= C-O			# 開く(O)...
 key K			= C-W			# タブを閉じる
 key C-C		= $WindowClose		# 終了(X)
 key H			= C-A			# 全て選択
#key U			= C-Z			# Undo

window	Paint /mspaint\.exe:MSPaintApp:/ : EmacsEdit
 key C-X      		= &Prefix(SkypeC-X)
 key M-W		= C-C			# コピー
 key C-W		= C-X			# 切り取り
 key C-Y		= C-V			# 貼り付け

## ePSXe ......................................................................

window	ePSXe /ePSXe.exe:EPSXj/
 key j      		= Down
 key k			= Up
 key h			= Left
 key l			= Right
 key F1			= F1
 key F3			= F3


## Launchy ....................................................................

#window Launchy /Launchy.exe:QWidget/ : EmacsEdit
window Launchy /Launchy.exe:Q/ : EmacsEdit


## Poderosa ...................................................................
# オプション設定を変更
# 操作
#    左Altキーの用途 [メニューとショートカット] → [Metaキー]
#    右Altキーの用途 [メニューとショートカット] → [Metaキー]
#    BackSpaceキーで0x7Fを送信 [未チェック] → [チェック]
# コマンド
#    接続 Telnet/SSH接続 [Alt+N] → [Ctrl+Shift+T]
#    ウィンドウ 閉じる   [Alt-W] → [Ctrl+Shift+W]
#    タブのリネーム      []      → [Ctrl+Shift+R]

keymap2	PoderosaC-Z
 #event prefixed		= &HelpMessage("Poderosa C-Z", \
 #	"C-z c\t新規Telnet/SSH接続\r\n"	\
 #	"")
 #event before-key-down	= &HelpMessage
 key C			= C-S-T			# 新規Telnet/SSH接続
 key K			= C-S-W			# タブを閉じる
 key R			= C-S-R			# タブをリネーム

window	Poderosa /Poderosa\.exe:/ : Global
 key C-Z		= &Prefix(PoderosaC-Z)
 key C-H		= BackSpace


## CravingExplorer ............................................................

keymap2	CravingExplorerC-X : GeneralC-X
 key C-S		= C-S			# 上書き保存(S)
 key C-F		= C-O			# 開く(O)...
 key C-C		= $WindowClose		# 終了(X)
 key G			= C-L			# ロケーションバーを選択
 key C-V		= F5			# 再読込
 key D			= C-J			# ダウンロード

window	CravingExplorer /CravingExplorer.exe:/ : EmacsEdit
 key C-X		= &Prefix(CravingExplorerC-X)
 key C-J		= &Default		# コメントの改行

## WinMerge ...................................................................

keymap2	WinMergeC-X : GeneralC-X
 key C-S		= C-S			# 上書き保存(S)
 key C-F		= C-O			# 開く(O)...
 key C-C		= $WindowClose		# 終了(X)
 key C-V		= F5			# 再読込

window	WinMerge /WinMergeU.exe:/ : EmacsEdit
 key C-X		= &Prefix(WinMergeC-X)
 key M-P                = M-Up
 key M-N                = M-Down
 key M-F                = M-Right
 key M-B                = M-Left


## Meadow .....................................................................

window	Meadow /Meadow.exe:MEADOW/
 key IC-C-P             = Up
 key IC-C-N             = Down
 key IC-C-F             = Right
 key IC-C-B             = Left
 key IC-C-A             = Home
 key IC-C-E             = End   # Dictionary
 key IC-C-G             = Esc


## FFFTP ......................................................................

window	FFFTP /FFTP.exe:FFFTPWin:/ : EmacsEdit
 key M-P                = C-U     # Upload
 key M-N                = C-D     # Download
 key C-M-P              = C-S-U   # Mirroring Upload
 key C-M-N              = C-S-D   # Mirroring Download


## TaskClip....................................................................

window	TaskClip-tsclpstg /tsclpstg.exe:/ : EmacsEdit
window	TaskClip-tsclp    /tsclp.exe:/    : EmacsEdit


## Adobe Reader ...............................................................

window	AdobeReader /AcroRd32\.exe:/ : EmacsEdit
 key P              = Up
 key N              = Down
 key B              = Up
 key F              = Down
 key Q              = $WindowClose


## TortoiseSVN ................................................................

window	TortoiseSVN /TortoiseProc.exe:/ : EmacsEdit


## CraftDrop ..................................................................

window	CraftDrop /cdrop\.exe:/ : EmacsEdit


## Launchy ....................................................................

# AutoHotkey でする
# 
# keymap control- : Global
# mod ctrl -= LCtrl
# key D-LCtrl  = W-Space  # Win-Space で Launchy が起動するようにしておく
# 
# keymap Global
# #mod ctrl -= LCtrl
# #mod ctrl += !!LCtrl
# mod !!ctrl
# key C-LCtrl  = &Prefix(control-,false)


## Inkscape ...................................................................

window Inkscape /inkscape.exe:gdkWindowToplevel/ : Global

window Inkscape-Layer (/inkscape.exe:gdkWindowToplevel/ && /\(Shift\+Ctrl\+L\)/) : EmacsEdit

window Inkscape-XMLEditor (/inkscape.exe:gdkWindowToplevel/ && /\(Shift\+Ctrl\+X\)/) : EmacsEdit


## MFA ........................................................................

window MFA /MFA.exe:MCIWndClass/ : EmacsEdit


## しゃべるんです .............................................................

window Shaberundesu /Shaberundesu.exe:WindowsForms10/ : EmacsEdit


## 電子かたりべプレーヤー .....................................................

window E-kataribe /E-kataribe\\Player.*SunAwtFrame/ : EmacsEdit