Skip to content

Instantly share code, notes, and snippets.

@yurafuca

yurafuca/mac_flavor.ahk

Last active April 16, 2019 04:03
Show Gist options
  • Save yurafuca/cee28a156665a571e225d13eedc95b82 to your computer and use it in GitHub Desktop.
Save yurafuca/cee28a156665a571e225d13eedc95b82 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
mac_flavor.ahk
Vim_n := 0
VimMove(key="", shift=0){
global
if(InStr(VimMode, "Visual") or InStr(VimMode, "ydc") or shift == 1){
Send, {Shift Down}
}
; Left/Right
if(not InStr(VimMode, "Line")){
; 1 character
if(key == "h"){
Send, {Left}
}else if(key == "l"){
Send, {Right}
; Home/End
}else if(key == "0"){
Send, {Home}
}else if(key == "$"){
Send, {End}
}else if(key == "^"){
Send, {Home}^{Right}^{Left}
; Words
}else if(key == "w"){
Send, ^{Right}
}else if(key == "b"){
Send, ^{Left}
}
}
; Up/Down
if(VimMode == "Vim_VisualLineFirst") and (key == "k" or key == "^u" or key == "^b" or key == "g"){
Send, {Shift Up}{End}{Home}{Shift Down}{Up}
;VimSetMode("Vim_VisualLine")
}
if(InStr(VimMode, "Vim_ydc")) and (key == "k" or key == "^u" or key == "^b" or key == "g"){
VimLineCopy := 1
Send,{Shift Up}{Home}{Down}{Shift Down}{Up}
}
if(InStr(VimMode,"Vim_ydc")) and (key == "j" or key == "^d" or key == "^f" or key == "+g"){
VimLineCopy := 1
Send,{Shift Up}{Home}{Shift Down}{Down}
}
; 1 character
if(key == "j"){
; Only for OneNote of less than windows 10?
if WinActive("ahk_group VimOneNoteGroup"){
Send ^{Down}
} else {
Send,{Down}
}
}else if(key="k"){
if WinActive("ahk_group VimOneNoteGroup"){
Send ^{Up}
}else{
Send,{Up}
}
; Page Up/Down
}else if(key == "^u"){
Send, {Up 10}
}else if(key == "^d"){
Send, {Down 10}
}else if(key == "^b"){
Send, {PgUp}
}else if(key == "^f"){
Send, {PgDn}
}else if(key == "g"){
Send, ^{Home}
}else if(key == "+g"){
;Send, ^{End}{Home}
Send, ^{End}
}
Send,{Shift Up}
if(VimMode == "Vim_ydc_y"){
Clipboard :=
Send, ^c
ClipWait, 1
;VimSetMode("Vim_Normal")
}else if(VimMode == "Vim_ydc_d"){
Clipboard :=
Send, ^x
ClipWait, 1
;VimSetMode("Vim_Normal")
}else if(VimMode == "Vim_ydc_c"){
Clipboard :=
Send, ^x
ClipWait, 1
;VimSetMode("Insert")
}
;VimSetMode("", 0, 0)
}
VimMoveLoop(key="", shift=0){
global
if(Vim_n == 0){
Vim_n := 1
}
Loop, %Vim_n%{
VimMove(key, shift)
}
}
^0::VimMove("0") ; Emacs like
;^$::VimMove("$") ; Emacs like
;^a::VimMove("0") ; Emacs like
;^e::VimMove("$") ; Emacs like
;^n::VimMoveLoop("w")
^b::VimMoveLoop("b")
;^h::Send, {Left}
;^j::Send, {Down}
;^k::Send, {Up}
;^l::Send, {Right}
^q::Send, {Esc}
^Space::Send, {vkF3sc029}
/*****************************************************************************
IME制御用 関数群 (IME.ahk)
グローバル変数 : なし
各関数の依存性 : なし(必要関数だけ切出してコピペでも使えます)
AutoHotkey: L 1.1.08.01
Language: Japanease
Platform: NT系
Author: eamat. http://www6.atwiki.jp/eamat/
*****************************************************************************
履歴
2008.07.11 v1.0.47以降の 関数ライブラリスクリプト対応用にファイル名を変更
2008.12.10 コメント修正
2009.07.03 IME_GetConverting() 追加
Last Found Windowが有効にならない問題修正、他。
2009.12.03
・IME 状態チェック GUIThreadInfo 利用版 入れ込み
（IEや秀丸8βでもIME状態が取れるように）
http://blechmusik.xrea.jp/resources/keyboard_layout/DvorakJ/inc/IME.ahk
・Google日本語入力β 向け調整
入力モード 及び 変換モードは取れないっぽい
IME_GET/SET() と IME_GetConverting()は有効
2012.11.10 x64 & Unicode対応
実行環境を AHK_L U64に (本家およびA32,U32版との互換性は維持したつもり)
・LongPtr対策：ポインタサイズをA_PtrSizeで見るようにした
;==================================
; GUIThreadInfo
;=================================
; 構造体 GUITreadInfo
;typedef struct tagGUITHREADINFO {(x86) (x64)
; DWORD cbSize; 0 0
; DWORD flags; 4 4 ※
; HWND hwndActive; 8 8
; HWND hwndFocus; 12 16 ※
; HWND hwndCapture; 16 24
; HWND hwndMenuOwner; 20 32
; HWND hwndMoveSize; 24 40
; HWND hwndCaret; 28 48
; RECT rcCaret; 32 56
;} GUITHREADINFO, *PGUITHREADINFO;
・WinTitleパラメータが実質無意味化していたのを修正
対象がアクティブウィンドウの時のみ GetGUIThreadInfoを使い
そうでないときはControlハンドルを使用
一応バックグラウンドのIME情報も取れるように戻した
(取得ハンドルをWindowからControlに変えたことでブラウザ以外の大半の
アプリではバックグラウンドでも正しく値が取れるようになった。
※ブラウザ系でもアクティブ窓のみでの使用なら問題ないと思う、たぶん)
*/
;---------------------------------------------------------------------------
; 汎用関数 (多分どのIMEでもいけるはず)
;-----------------------------------------------------------
; IMEの状態の取得
; WinTitle="A" 対象Window
; 戻り値 1:ON / 0:OFF
;-----------------------------------------------------------
IME_GET(WinTitle="A") {
ControlGet,hwnd,HWND,,,%WinTitle%
if (WinActive(WinTitle)) {
ptrSize := !A_PtrSize ? 4 : A_PtrSize
VarSetCapacity(stGTI, cbSize:=4+4+(PtrSize*6)+16, 0)
NumPut(cbSize, stGTI, 0, "UInt") ; DWORD cbSize;
hwnd := DllCall("GetGUIThreadInfo", Uint,0, Uint,&stGTI)
? NumGet(stGTI,8+PtrSize,"UInt") : hwnd
}
return DllCall("SendMessage"
, UInt, DllCall("imm32\ImmGetDefaultIMEWnd", Uint,hwnd)
, UInt, 0x0283 ;Message : WM_IME_CONTROL
, Int, 0x0005 ;wParam : IMC_GETOPENSTATUS
, Int, 0) ;lParam : 0
}
;-----------------------------------------------------------
; IMEの状態をセット
; SetSts 1:ON / 0:OFF
; WinTitle="A" 対象Window
; 戻り値 0:成功 / 0以外:失敗
;-----------------------------------------------------------
IME_SET(SetSts, WinTitle="A") {
ControlGet,hwnd,HWND,,,%WinTitle%
if (WinActive(WinTitle)) {
ptrSize := !A_PtrSize ? 4 : A_PtrSize
VarSetCapacity(stGTI, cbSize:=4+4+(PtrSize*6)+16, 0)
NumPut(cbSize, stGTI, 0, "UInt") ; DWORD cbSize;
hwnd := DllCall("GetGUIThreadInfo", Uint,0, Uint,&stGTI)
? NumGet(stGTI,8+PtrSize,"UInt") : hwnd
}
return DllCall("SendMessage"
, UInt, DllCall("imm32\ImmGetDefaultIMEWnd", Uint,hwnd)
, UInt, 0x0283 ;Message : WM_IME_CONTROL
, Int, 0x006 ;wParam : IMC_SETOPENSTATUS
, Int, SetSts) ;lParam : 0 or 1
}
;===========================================================================
; IME 入力モード (どの IMEでも共通っぽい)
; DEC HEX BIN
; 0 (0x00 0000 0000) かな 半英数
; 3 (0x03 0000 0011) 半ｶﾅ
; 8 (0x08 0000 1000) 全英数
; 9 (0x09 0000 1001) ひらがな
; 11 (0x0B 0000 1011) 全カタカナ
; 16 (0x10 0001 0000) ローマ字半英数
; 19 (0x13 0001 0011) 半ｶﾅ
; 24 (0x18 0001 1000) 全英数
; 25 (0x19 0001 1001) ひらがな
; 27 (0x1B 0001 1011) 全カタカナ
; ※ 地域と言語のオプション - [詳細] - 詳細設定
; - 詳細なテキストサービスのサポートをプログラムのすべてに拡張する
; が ONになってると値が取れない模様
; (Google日本語入力βはここをONにしないと駄目なので値が取れないっぽい)
;-------------------------------------------------------
; IME 入力モード取得
; WinTitle="A" 対象Window
; 戻り値 入力モード
;--------------------------------------------------------
IME_GetConvMode(WinTitle="A") {
ControlGet,hwnd,HWND,,,%WinTitle%
if (WinActive(WinTitle)) {
ptrSize := !A_PtrSize ? 4 : A_PtrSize
VarSetCapacity(stGTI, cbSize:=4+4+(PtrSize*6)+16, 0)
NumPut(cbSize, stGTI, 0, "UInt") ; DWORD cbSize;
hwnd := DllCall("GetGUIThreadInfo", Uint,0, Uint,&stGTI)
? NumGet(stGTI,8+PtrSize,"UInt") : hwnd
}
return DllCall("SendMessage"
, UInt, DllCall("imm32\ImmGetDefaultIMEWnd", Uint,hwnd)
, UInt, 0x0283 ;Message : WM_IME_CONTROL
, Int, 0x001 ;wParam : IMC_GETCONVERSIONMODE
, Int, 0) ;lParam : 0
}
;-------------------------------------------------------
; IME 入力モードセット
; ConvMode 入力モード
; WinTitle="A" 対象Window
; 戻り値 0:成功 / 0以外:失敗
;--------------------------------------------------------
IME_SetConvMode(ConvMode,WinTitle="A") {
ControlGet,hwnd,HWND,,,%WinTitle%
if (WinActive(WinTitle)) {
ptrSize := !A_PtrSize ? 4 : A_PtrSize
VarSetCapacity(stGTI, cbSize:=4+4+(PtrSize*6)+16, 0)
NumPut(cbSize, stGTI, 0, "UInt") ; DWORD cbSize;
hwnd := DllCall("GetGUIThreadInfo", Uint,0, Uint,&stGTI)
? NumGet(stGTI,8+PtrSize,"UInt") : hwnd
}
return DllCall("SendMessage"
, UInt, DllCall("imm32\ImmGetDefaultIMEWnd", Uint,hwnd)
, UInt, 0x0283 ;Message : WM_IME_CONTROL
, Int, 0x002 ;wParam : IMC_SETCONVERSIONMODE
, Int, ConvMode) ;lParam : CONVERSIONMODE
}
;===========================================================================
; IME 変換モード (ATOKはver.16で調査、バージョンで多少違うかも)
; MS-IME 0:無変換 / 1:人名/地名 / 8:一般 /16:話し言葉
; ATOK系 0:固定 / 1:複合語 / 4:自動 / 8:連文節
; WXG / 1:複合語 / 2:無変換 / 4:自動 / 8:連文節
; SKK系 / 1:ノーマル (他のモードは存在しない？)
; Googleβ / 8:ノーマル
;------------------------------------------------------------------
; IME 変換モード取得
; WinTitle="A" 対象Window
; 戻り値 MS-IME 0:無変換 1:人名/地名 8:一般 16:話し言葉
; ATOK系 0:固定 1:複合語 4:自動 8:連文節
; WXG4 1:複合語 2:無変換 4:自動 8:連文節
;------------------------------------------------------------------
IME_GetSentenceMode(WinTitle="A") {
ControlGet,hwnd,HWND,,,%WinTitle%
if (WinActive(WinTitle)) {
ptrSize := !A_PtrSize ? 4 : A_PtrSize
VarSetCapacity(stGTI, cbSize:=4+4+(PtrSize*6)+16, 0)
NumPut(cbSize, stGTI, 0, "UInt") ; DWORD cbSize;
hwnd := DllCall("GetGUIThreadInfo", Uint,0, Uint,&stGTI)
? NumGet(stGTI,8+PtrSize,"UInt") : hwnd
}
return DllCall("SendMessage"
, UInt, DllCall("imm32\ImmGetDefaultIMEWnd", Uint,hwnd)
, UInt, 0x0283 ;Message : WM_IME_CONTROL
, Int, 0x003 ;wParam : IMC_GETSENTENCEMODE
, Int, 0) ;lParam : 0
}
;----------------------------------------------------------------
; IME 変換モードセット
; SentenceMode
; MS-IME 0:無変換 1:人名/地名 8:一般 16:話し言葉
; ATOK系 0:固定 1:複合語 4:自動 8:連文節
; WXG 1:複合語 2:無変換 4:自動 8:連文節
; WinTitle="A" 対象Window
; 戻り値 0:成功 / 0以外:失敗
;-----------------------------------------------------------------
IME_SetSentenceMode(SentenceMode,WinTitle="A") {
ControlGet,hwnd,HWND,,,%WinTitle%
if (WinActive(WinTitle)) {
ptrSize := !A_PtrSize ? 4 : A_PtrSize
VarSetCapacity(stGTI, cbSize:=4+4+(PtrSize*6)+16, 0)
NumPut(cbSize, stGTI, 0, "UInt") ; DWORD cbSize;
hwnd := DllCall("GetGUIThreadInfo", Uint,0, Uint,&stGTI)
? NumGet(stGTI,8+PtrSize,"UInt") : hwnd
}
return DllCall("SendMessage"
, UInt, DllCall("imm32\ImmGetDefaultIMEWnd", Uint,hwnd)
, UInt, 0x0283 ;Message : WM_IME_CONTROL
, Int, 0x004 ;wParam : IMC_SETSENTENCEMODE
, Int, SentenceMode) ;lParam : SentenceMode
}
;---------------------------------------------------------------------------
; IMEの種類を選ぶかもしれない関数
;==========================================================================
; IME 文字入力の状態を返す
; (パクリ元 : http://sites.google.com/site/agkh6mze/scripts#TOC-IME- )
; 標準対応IME : ATOK系 / MS-IME2002 2007 / WXG / SKKIME
; その他のIMEは 入力窓/変換窓を追加指定することで対応可能
;
; WinTitle="A" 対象Window
; ConvCls="" 入力窓のクラス名 (正規表現表記)
; CandCls="" 候補窓のクラス名 (正規表現表記)
; 戻り値 1 : 文字入力中 or 変換中
; 2 : 変換候補窓が出ている
; 0 : その他の状態
;
; ※ MS-Office系で 入力窓のクラス名 を正しく取得するにはIMEのシームレス表示を
; OFFにする必要がある
; オプション-編集と日本語入力-編集中の文字列を文書に挿入モードで入力する
; のチェックを外す
;==========================================================================
IME_GetConverting(WinTitle="A",ConvCls="",CandCls="") {
;IME毎の 入力窓/候補窓Class一覧 ("|" 区切りで適当に足してけばOK)
ConvCls .= (ConvCls ? "|" : "") ;--- 入力窓 ---
. "ATOK\d+CompStr" ; ATOK系
. "|imejpstcnv\d+" ; MS-IME系
. "|WXGIMEConv" ; WXG
. "|SKKIME\d+\.*\d+UCompStr" ; SKKIME Unicode
. "|MSCTFIME Composition" ; Google日本語入力
CandCls .= (CandCls ? "|" : "") ;--- 候補窓 ---
. "ATOK\d+Cand" ; ATOK系
. "|imejpstCandList\d+|imejpstcand\d+" ; MS-IME 2002(8.1)XP付属
. "|mscandui\d+\.candidate" ; MS Office IME-2007
. "|WXGIMECand" ; WXG
. "|SKKIME\d+\.*\d+UCand" ; SKKIME Unicode
CandGCls := "GoogleJapaneseInputCandidateWindow" ;Google日本語入力
ControlGet,hwnd,HWND,,,%WinTitle%
if (WinActive(WinTitle)) {
ptrSize := !A_PtrSize ? 4 : A_PtrSize
VarSetCapacity(stGTI, cbSize:=4+4+(PtrSize*6)+16, 0)
NumPut(cbSize, stGTI, 0, "UInt") ; DWORD cbSize;
hwnd := DllCall("GetGUIThreadInfo", Uint,0, Uint,&stGTI)
? NumGet(stGTI,8+PtrSize,"UInt") : hwnd
}
WinGet, pid, PID,% "ahk_id " hwnd
tmm:=A_TitleMatchMode
SetTitleMatchMode, RegEx
ret := WinExist("ahk_class " . CandCls . " ahk_pid " pid) ? 2
: WinExist("ahk_class " . CandGCls ) ? 2
: WinExist("ahk_class " . ConvCls . " ahk_pid " pid) ? 1
: 0
SetTitleMatchMode, %tmm%
return ret
}
; Win
F13::RCtrl
; Alt
F14::Alt
; Muhenkan
;F15
; Henkan
;F16
; katakana-Hiragana
F17::LCtrl
;LCtrl::
;Abort()
;return
;<^s::
;Abort()
;return
;<^a::
;;jAbort()
return
;<^c::
;Abort()
;return
;<^v::
;Abort()
;return
;<^x::
;Abort()
;return
; Application
F18::RCtrl
#ifWinActive ahk_exe devenv.exe
^s::
Send, ^!{Enter}
Sleep, 300
Send, ^s
return
#ifWinActive
Abort() {
TrayTip Abort the command, This is TrayTip #1
Sleep 1000
HideTrayTip()
}
; Copy this function into your script to use it.
HideTrayTip() {
TrayTip ; Attempt to hide it the normal way.
if SubStr(A_OSVersion,1,3) = "10." {
Menu Tray, NoIcon
Sleep 200 ; It may be necessary to adjust this sleep.
Menu Tray, Icon
}
}
; Caps
F19 & 0::VimMove("0") ; Emacs like
;^$::VimMove("$") ; Emacs like
;^a::VimMove("0") ; Emacs like
;^e::VimMove("$") ; Emacs like
;^n::VimMoveLoop("w")
F19 & b::VimMoveLoop("b")
F19 & h::Send, {Left}
F19 & j::Send, {Down}
F19 & k::Send, {Up}
F19 & l::Send, {Right}
^i::Send, ^#{Left}
^o::Send, ^#{Right}
Left::Send, ^#{Left}
Right::Send, ^#{Right}
^Backspace:: Send, {Delete}
F19 & Backspace:: Send, {Delete}
;vk1D::Return
~Shift::
if (A_PriorHotkey <> "~Shift" or A_TimeSincePriorHotkey > 400)
{
KeyWait, Shift
return
}
Send, ^n
return
*~a::
*~b::
*~c::
*~d::
*~e::
*~f::
*~g::
*~h::
*~i::
*~j::
*~k::
*~l::
*~m::
*~n::
*~o::
*~p::
*~q::
*~r::
*~s::
*~t::
*~u::
*~v::
*~w::
*~x::
*~y::
*~z::
*~1::
*~2::
*~3::
*~4::
*~5::
*~6::
*~7::
*~8::
*~9::
*~0::
*~F1::
*~F2::
*~F3::
*~F4::
*~F5::
*~F6::
*~F7::
*~F8::
*~F9::
*~F10::
*~F11::
*~F12::
*~`::
*~~::
*~!::
*~@::
*~#::
*~$::
*~%::
*~^::
*~&::
*~*::
*~(::
*~)::
*~-::
*~_::
*~=::
*~+::
*~[::
*~{::
*~]::
*~}::
*~\::
*~|::
*~;::
*~'::
*~"::
*~,::
*~<::
*~.::
*~>::
*~/::
*~?::
*~Esc::
*~Tab::
*~Space::
*~Left::
*~Right::
*~Up::
*~Down::
*~Enter::
*~PrintScreen::
*~Delete::
*~Home::
*~End::
*~PgUp::
*~PgDn::
Return
~LCtrl::
Return
~RCtrl::
Return
~LCtrl up::
if (A_PriorHotkey == "~LCtrl")
{
IME_SET(0)
}
Return
~RCtrl up::
if (A_PriorHotkey == "~RCtrl")
{
IME_SET(1)
}
Return
^Tab::!Tab
^w::^F4
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment