my yamy setting files

customize.mayu

include "109.mayu"
include "emacseditcustom.mayu"

keymap Global
# CapsLock に Ctrl の役割を設定
mod Control    += E0英数
key *E0英数     = *LControl
key LControl    = E0英数
key C-Space	= 半角/全角

#window excel /EXCEL\.EXE/ :EmacsMove
window excel /EXCEL\.EXE/ :Global
key C-Tab       = C-PageDown
key C-S-Tab     = C-PageUp
#key C-O		= S-space C-S-Semicolon
#key C-K		= S-space C-minus
# if ( !ZXCV ) key C-X	= &Prefix(EmacsC-X)
#key C-S-B	= C-B
key C-D		= Delete
#key C-Y		= C-V
#key F2		= F2 Home
#key C-G		= Esc
#key C-Slash	= C-Z
#key C-W		= C-X

window rsa /eclipse/ :EmacsEdit
key C-Tab       = C-PageDown
key C-S-Tab     = C-PageUp
key C-S		= C-J
key C-R		= C-S-J
key C-S-slash	= C-slash
key C-S-F	= C-S-F
key C-K		= &Wait(10) &Sync &EmacsEditKillLineFunc &Sync &Wait(10) S-End &Sync S-Right &Wait(10) C-X \
			&Sync &Wait(10) &Sync &EmacsEditKillLinePred((&Ignore), (&Ignore)) \
			&ClipboardCopy("") &EmacsEditKillLinePred((&Ignore), (&Ignore))
key M-S-_5	= C-F
key C-S-B	= C-B

window notes /notes/ :EmacsEdit
key C-Tab	= C-F8
key C-S-Tab	= C-S-F8
key C-S-B	= C-B
key C-Q		= C-W
key C-W		= C-W
key C-S-E	= C-E
key M-W		= C-C

window firefox /firefox\.exe/ :EmacsEdit
key C-L		= C-L
key C-T		= C-T
key C-Q		= C-W
key C-S-N	= C-N
key C-W		= C-W
key M-W		= C-C

emacseditcustom.mayu

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
# 窓使いの憂鬱 - emacsedit.mayu
# Copyright (C) 1999-2005, TAGA Nayuta <[email protected]>
#


#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
# Emacs 風移動コマンド
#

keymap	EmacsMove : Global
 key Home		= C-Home		# 文頭
 key End		= C-End			# 文末
# key C-Space		= &Undefined		# Mark
 key C-Atmark		= &Undefined		# Mark(new)
 key C-A		= Home			# 行頭
 key C-B		= Left			# ←
 key M-B		= C-Left		# ←(単語)
 key C-E		= End			# 行末
 key C-F		= Right			# →
 key M-F		= C-Right		# →(単語)
 key C-G		= Escape		# CANCEL
 key C-L		= &WindowRedraw &Recenter # 再描画
 key C-N		= Down			# ↓
 key C-P		= Up			# ↑
# key C-Q		= &Prefix(KeymapDefault) # mayu に左右されないキー入力
 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			# 文末

 if ( EmacsMove/ShiftSelection )
   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		# 前頁(選択)
 endif


#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
# Emacs 風編集コマンド
#

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


keymap	EmacsEdit : EmacsMove
keymap2	EmacsMark : EmacsEdit = $EmacsMark/cancel &KeymapWindow
keymap2 EmacsMarkEscape : EmacsMark = &KeymapParent

keymap2	EmacsC-X : EmacsEdit
 event prefixed		= &HelpMessage(\
	"EmacsEdit C-x-", "C-x u\t\tundo\nC-x C-s\tsave\nC-x C-k\tclose window\nC-x C-h\tselect all")
 event before-key-down	= &HelpMessage
 key *U			= C-Z					# UNDO
 key C-S		= C-S
 key k			= C-W
 key h			= C-Home &Prefix(EmacsMark) C-S-End

keymap2 EmacsC-U0_9C-U : Global \
		= &Repeat((&KeymapWindow), 100) &HelpMessage &Variable(0, 0)
 key C-G	= &HelpMessage &Variable(0, 0) &Ignore
 
keymap2 EmacsC-U0_9 : EmacsC-U0_9C-U
 event prefixed		= &HelpVariable("繰り返し")
 key _0 Num0		= &Variable(10, 0) &Prefix(EmacsC-U0_9)
 key _1 Num1		= &Variable(10, 1) &Prefix(EmacsC-U0_9)
 key _2 Num2		= &Variable(10, 2) &Prefix(EmacsC-U0_9)
 key _3 Num3		= &Variable(10, 3) &Prefix(EmacsC-U0_9)
 key _4 Num4		= &Variable(10, 4) &Prefix(EmacsC-U0_9)
 key _5 Num5		= &Variable(10, 5) &Prefix(EmacsC-U0_9)
 key _6 Num6		= &Variable(10, 6) &Prefix(EmacsC-U0_9)
 key _7 Num7		= &Variable(10, 7) &Prefix(EmacsC-U0_9)
 key _8 Num8		= &Variable(10, 8) &Prefix(EmacsC-U0_9)
 key _9 Num9		= &Variable(10, 9) &Prefix(EmacsC-U0_9)
 key C-U		= &Prefix(EmacsC-U0_9C-U)

keymap2 EmacsC-U : EmacsC-U0_9C-U
 event prefixed		= &HelpVariable("繰り返し")
 key _0 Num0		= &Variable(0, 0) &Prefix(EmacsC-U0_9)
 key _1 Num1		= &Variable(0, 1) &Prefix(EmacsC-U0_9)
 key _2 Num2		= &Variable(0, 2) &Prefix(EmacsC-U0_9)
 key _3 Num3		= &Variable(0, 3) &Prefix(EmacsC-U0_9)
 key _4 Num4		= &Variable(0, 4) &Prefix(EmacsC-U0_9)
 key _5 Num5		= &Variable(0, 5) &Prefix(EmacsC-U0_9)
 key _6 Num6		= &Variable(0, 6) &Prefix(EmacsC-U0_9)
 key _7 Num7		= &Variable(0, 7) &Prefix(EmacsC-U0_9)
 key _8 Num8		= &Variable(0, 8) &Prefix(EmacsC-U0_9)
 key _9 Num9		= &Variable(0, 9) &Prefix(EmacsC-U0_9)
 key C-U		= &Variable(4, 0) &Prefix(EmacsC-U)

keymap	EmacsEdit
# key C-Space		= &Prefix(EmacsMark)			# Mark
 key C-Atmark		= &Prefix(EmacsMark)			# Mark(new)
 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
 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	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 M-B		= S-C-Left	&Prefix(EmacsMark)	# ←(単語)
 key C-E		= S-End		&Prefix(EmacsMark)	# 行末
 key C-F		= S-Right	&Prefix(EmacsMark)	# →
 key M-F		= S-C-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 M-V		= S-Prior	&Prefix(EmacsMark)	# 前頁
 key C-W		= C-X Left Right			# CUT
 key M-W		= C-C Left Right			# COPY
 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-)
     key E0半角/全角	= &Prefix(EmacsMarkEscape) &EditNextModifier(M-)
   endif
 endif

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