emacs環境内でのキーの入れ替え

Question

例えば、capsとctrlの入れ替えはよく行われていることですが、通常はxmodmapやKarabiner-Elementなどをを使って、OSレベルで行われることが多いと思います。

同じようなキーの入れ替えをemacs内でのみ実現する方法はないでしょうか。

やりたいこと

emacsではmetaキーを頻用しますが、代替のopt/altキーは大変押しにくいところにあるので、tabとopt/altを入れ替えたいです。
一方で、emacs外ではopt/altキーはsuperやshiftとセットで使うことが多く、tabの出番も多いので、普段は元の位置にいて欲しいのです。

調べたこと

調べた限りでは、w32-set-modifier-key、mac-command-modifierのような特定の環境・用途に特化したコマンドは見つけることはできたのですが、
任意のkeycodeとキーを再定義するような、普遍的な方法は見つけることはできませんでした。

Comments

[pepperleaf]

環境は Mac?
Emacsの実装までは知りませんが、Altキーは他のキーとの組合せ(装飾, 同時打鍵)で使うのに対し、Tabキーは単独なので、入れ替えは難しいのではないでしょうか。まあ、Meta → ESC みたいに、ESC キーを打ってからと、言う方法ならあるでしょうが。(Tabキーを Tabキー + ?? の組合せとする)
同時打鍵の検出は、通常のアプリでは無理と思います。(Emacsがそこまでの実装をしているとは思えない)

[hoshidash]

ご返答いただきありがとうございます。環境はmacとlinux、たまにwindowsです。

記載が不明瞭であったようで申し訳ありません。
キー入力の組み合わせで何かを代用したいと言うのではなく、キーコードの入れ替えをしたいという意図でした。

'tab'と刻印された左上にあるボタンを押すと'9'というキーコードが発生し、'alt'と刻印された左下のボタンを押すと'18'というキーコードが発生します。
通常の状態ではキーコード9にタブ文字、キーコード18にaltの機能が紐づけられていますが、この対応を逆にしたいのです。

ctrlとcapslockの入れ替えの話は、キーコード17のctrlとキーコード20のcapslockの対応を入れ替えて、17でcapslock、20でctrlになるようにするもので、広く行われていることでしたので、やりたいことが伝わりやすいかと思って例に出しました。

w32-set-modifier-key、mac-command-modifierのようにキーコードの対応を部分的に変更する関数が存在する以上、普遍的に任意の対応を作る方法があるのではと思い質問をいたしました。

[pepperleaf]

> emacs内でのみ実現する方法
という事ですね。気が付きませんでした。
多分、Mac, Windows, Linuxなどで、キーコードでのアクセスはローレベルアクセスなので、OS依存(or 環境依存)なので普遍的が難しいと思います。また、キーコードも環境依存(US/JPでも違う)。どなたかが汎用的ライブラリを作成していれば、別ですが、まだ知りません。
役に立てず、すみません。

[hoshidash]

ありがとうございます。
keyboard.cとかkeycode.cとかをぼんやりと眺めてみました限りですが、emacs内部でもキーシンボルとではなく、キーコードと機能を結びつけているように見えますので、emacs内でのやりようはありそうな雰囲気は感じました。
もう少し調べてみたいと思います。

Answer 1

解決したわけではないのですが、Karabiner-elementを使って、同じようなことをやってみました。

tabよりもaltの使用頻度が高いと思っていて、入れ替えたら便利だと思っていたのですが、実際やってみると補完に無意識にtabをよく使っていて、想像していたほどは便利ではないことがわかりましたので、この件はいったん終わりにします。

もしかすると同じようなことをしたい酔狂な方がいるかもしれませんので、karabiner-elementの設定ファイルを貼っておきます。よろしければどうぞ。

{
  "title": "Emacs settings",
  "rules": [{
    "description": "swap tab for alt in Emacs",
    "manipulators": [{
      "type": "basic",
      "from": {
        "key_code": "tab",
        "modifiers": {
          "optional": [ "any" ]
        }
      },
      "to": [ {
        "key_code": "left_alt"
      } ],
      "conditions": [ {
        "type": "frontmost_application_if",
        "bundle_identifiers": [ "^org\.gnu\.Emacs$" ]
      } ]
    },{
      "type": "basic",
      "from": {
        "key_code": "left_alt",
        "modifiers": {
          "optional": [ "any" ]
        }
      },
      "to": [ {
        "key_code": "tab"
      } ],
      "conditions": [ {
        "type": "frontmost_application_if",
        "bundle_identifiers": [ "^org\.gnu\.Emacs$" ]
      } ]
    }]
  }]
}