AutoHotKey v2 を卒業して Kanata にする

Summary ¶

普段私は Windows 11 が残念ながら常用マシンであり、 Linux Desktop にはなれていない。
新卒入社前のインターンシップで貸与されたPCがUSキーボードであったため洗脳(使ってみたかったのもある)されてしまい、以降 US キーボードで生きている。現在は分割キーボードに興味があるが Key ポジションに自身がないため HHKB HYBRID Type-S を使っている。

そこで、問題になるのが英字/カナキーがないため IME の変更が面倒という問題である。
よく使われる方法として AutoHotkey v2 を使って Key map を上書きして対処する方法。
これを使っていたが AutoHotkey がちょくちょくハングアップする問題が発生するため、 Kanata に移行した

導入 ¶

GitHub Releases から最新の物をダウンロードして配置する。今回は kanata-windows-binaries-x64-v1.10.1.zip を利用して $env:USERPROFILE\Documents\bin\kanata に配置した。

今回は、 kanata_hhkb.kbd を下記のようにしている、コメントにある通り、左右の Win キーを単押しした時は英字/カナのコマンドを発行して IME を切り替える。コンビネーションの場合はそのままパススルーする

kanata_hhkb.kbd

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
;; Kanata設定ファイル - HHKB HYBRID Type-S (US配列) 向け
;; 左Win単押し: 英数(IME OFF)
;; 右Win単押し: かな(IME ON)

(defcfg
  process-unmapped-keys yes
  log-layer-changes no
)

(defsrc
  lmet rmet
)

(defalias
  ;; 0x1A = 26, 0x16 = 22 (10進数)
  lwin (tap-hold 200 200 (arbitrary-code 26) lmet)
  rwin (tap-hold 200 200 (arbitrary-code 22) rmet)
)

(deflayer default
  @lwin @rwin
)

あとは bin フォルダー配下とスタートアップにショートカットを張って導入は終わり

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
$WshShell = New-Object -ComObject WScript.Shell
$bindir = "$env:USERPROFILE\Documents\bin"
$shortcutPath = "$bindir\Documents\bin\kanata\Kanata.lnk"

$Shortcut = $WshShell.CreateShortcut($shortcutPath)
$Shortcut.TargetPath = "$bindir\kanata\kanata_windows_gui_winIOv2_x64.exe"
$Shortcut.Arguments = "--cfg `"$bindir\kanata\kanata_hhkb.kbd`""
$Shortcut.WorkingDirectory = "$bindir\kanata"
$Shortcut.WindowStyle = 7  # Minimized
$Shortcut.Description = "Kanata Keyboard Remapper for HHKB"
$Shortcut.Save()

スタートアップ登録

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
$startupPath = [Environment]::GetFolderPath("Startup")
$bindir = "$env:USERPROFILE\Documents\bin"
$shortcutPath = "$startupPath\Kanata.lnk"

$Shortcut = $WshShell.CreateShortcut($shortcutPath)
$Shortcut.TargetPath = "$bindir\kanata\kanata_windows_gui_winIOv2_x64.exe"
$Shortcut.Arguments = "--cfg `"$bindir\kanata\kanata_hhkb.kbd`""
$Shortcut.WorkingDirectory = "$bindir\kanata"
$Shortcut.WindowStyle = 7  # Minimized
$Shortcut.Description = "Kanata Keyboard Remapper for HHKB"
$Shortcut.Save()

おわり ¶

半日使っている限りは不具合もなく快適なのでこのまましばらく使ってみる。