窓使いの憂鬱せってーファイルをまた書いた。

ノートPCの環境ととのえるの巻。
めんどくさかったので、標準のemacsedit.mayuから引っ張ってきたキーバインドをべたべたにGlobalに書いちゃってます。そんで、それが嫌だなあというようなプログラムに対してあれこれ設定すると。

include "109.mayu"		# 109 キーボード設定


keymap2	EmacsC-X
# event prefixed		= &HelpMessage("EmacsEdit C-x-", "C-x u\tundo")
# event before-key-down	= &HelpMessage
 key *U			= C-Z					# UNDO
 key *C-S		= C-S			# 上書き保存(S)
 key *C-W		= LAlt F A		# 名前を付けて保存(A)...
 key *C-F		= C-O			# 開く(O)...
 key *K			= C-N			# 新規作成(N)
 key *C-C		= LAlt F X		# 終了(X)
 key *C-J		= &SetImeStatus(toggle)

 keyseq	$EmacsEdit/kill-word		= S-C-Right C-X
 keyseq	$EmacsEdit/backward-kill-word	= S-C-Left C-X
 keyseq	$EmacsEdit/transpose-chars	= S-Right C-X Left C-V Right
 keyseq	$EmacsEdit/upcase-word		= S-C-Right C-C *&Sync \
					  &ClipboardUpcaseWord C-V
 keyseq	$EmacsEdit/downcase-word	= S-C-Right C-C *&Sync \
					  &ClipboardDowncaseWord C-V
 keyseq	$EmacsEdit/kill-line		= &EmacsEditKillLineFunc S-End C-X \
			&Sync &EmacsEditKillLinePred((Delete), (Return Left))
 keyseq	$EmacsMark/cancel		= Left Right


keymap2	EmacsMark : Global = $EmacsMark/cancel &KeymapWindow

keymap2	EmacsMark
 key Home		= S-C-Home	&Prefix(EmacsMark)	# 文頭
 key End		= S-C-End	&Prefix(EmacsMark)	# 文末
 key C-A		= S-Home	&Prefix(EmacsMark)	# 行頭
 key C-B		= S-Left	&Prefix(EmacsMark)	# ←
 key C-E		= S-End		&Prefix(EmacsMark)	# 行末
 key C-F		= S-Right	&Prefix(EmacsMark)	# →
 key C-G		= $EmacsMark/cancel &Undefined		# キャンセル
 key C-N		= S-Down	&Prefix(EmacsMark)	# ↓
 key C-P		= S-Up		&Prefix(EmacsMark)	# ↑
 if ( !ZXCV ) key C-V	= S-Next	&Prefix(EmacsMark)	# 次頁
 key C-W		= C-X Left Right			# CUT
 key S-M-Comma		= S-C-Home	&Prefix(EmacsMark)	# 文頭
 key S-M-Period		= S-C-End	&Prefix(EmacsMark)	# 文末
 key Left		= S-Left	&Prefix(EmacsMark)	# ←
 key Up			= S-Up		&Prefix(EmacsMark)	# ↑
 key Right		= S-Right	&Prefix(EmacsMark)	# →
 key Down		= S-Down	&Prefix(EmacsMark)	# ↓
 if ( MAP-ESCAPE-TO-META )
   key Escape		= &Prefix(EmacsMarkEscape) &EditNextModifier(M-)
   if ( KBD109 ) and ( ! KBD104on109 )
     key 半角/全角	= &Prefix(EmacsMarkEscape) &EditNextModifier(M-)
   endif
 endif

keymap2 EmacsMarkEscape
 event prefixed		= &HelpMessage("EmacsMark ESC-", " ")
 event before-key-down	= &HelpMessage
 key M-C-G		= &Ignore

keymap Global
 mod Control += 英数
 mod Shift += 無変換 変換
 key *英数 = *LControl
 key *無変換 = *LShift
 key *変換 = *RShift
 key *ひらがな = *Esc

 key C-X = &Prefix(EmacsC-X)

 key Home		= C-Home		# 文頭
 key End		= C-End			# 文末
 key C-A		= Home			# 行頭
 key C-B		= Left			# ←
 key C-E		= End			# 行末
 key C-F		= Right			# →
 key C-G		= Escape		# CANCEL
 key C-L		= &WindowRedraw &Recenter # 再描画
 key C-N		= Down			# ↓
 key C-P		= Up			# ↑
 key C-S		= C-F			# 検索
 if ( !ZXCV ) key C-V	= Next			# 次頁
 key M-V		= Prior			# 前頁
 key S-Home		= S-C-Home		# 文頭(選択)
 key S-End		= S-C-End		# 文末(選択)
 key S-M-Comma		= C-Home		# 文頭
 key S-M-Period		= C-End			# 文末

 key S-C-A		= S-Home		# 行頭(選択)
 key S-C-B		= S-Left		# ←(選択)
 key S-C-E		= S-End			# 行末(選択)
 key S-C-F		= S-Right		# →(選択)
 key S-C-N		= S-Down		# ↓(選択)
 key S-C-P		= S-Up			# ↑(選択)
 key S-C-V		= S-Next		# 次頁(選択)
 key S-M-V		= S-Prior		# 前頁(選択)

 key C-Atmark	= &Prefix(EmacsMark)			# Mark
 key M-BackSpace	= $EmacsEdit/backward-kill-word		# BS(単語)
 key C-D		= Delete				# 削除
 key M-D		= $EmacsEdit/kill-word			# 削除(単語)
 key C-H		= BackSpace				# BS
 key C-J		= Return				# RETURN
 key C-K		= $EmacsEdit/kill-line			# 行末まで削除
 key C-M		= Return				# RETURN
 key C-O		= Return Left				# 一行増やす
 if ( !GANA ) key C-T	= $EmacsEdit/transpose-chars		# 文字入れ替え
 key C-W		= C-X					# CUT
 key M-W		= C-C					# COPY
# C-U 好きじゃないので。
# key C-U		= &Variable(0, 4) &Prefix(EmacsC-U)
 if ( !ZXCV ) key C-X	= &Prefix(EmacsC-X)
 key C-Y		= C-V					# PASTE
 key C-Slash		= C-Z					# UNDO
 key M-U		= $EmacsEdit/upcase-word		# 大文字
 key M-L		= $EmacsEdit/downcase-word		# 小文字

keymap2	DefaultC-X
 key *C-J		= &SetImeStatus(toggle)

keymap DefaultKeymap = &Default
 mod Control += 英数
 mod Shift += 無変換 変換
 key *英数 = *LControl
 key *無変換 = *LShift
 key *変換 = *RShift
 key *ひらがな = *Esc
 key C-X = &Prefix(DefaultC-X)

window	puttyjp /puttyjp.exe/ : DefaultKeymap
window	vmplayer /vmplayer.exe/ : DefaultKeymap
window	firefox /firefox.exe/ : Global
 key C-J	= C-J
 key M-D	= M-D
window	iexplore /iexplore.exe/ : Global
 key M-D	= M-D
window	explorer /explorer.exe/ : Global
 key M-D	= M-D

シフトが妙に増えてるのはSKK使いの性かと。あと漢字変換ONはいかなるときでもC-X C-Jです。「半角/全角」? なんですかそんなキー知りません。ブラウザ操作でAlt-Dは欠かせないよねー、とか。

test