EmacsでのT-Code(1) tc.elのセットアップとT-Code入力とEELLL

はじめに

今更ながらなのですが，元祖T-Codeの入力環境と言ってもいいEmacs上でtc.elをセットアップする方法について説明したいと思います。

今となっては，プログラムの開発環境としてEmacsを利用する理由というのはVSCodeとかある現状ではやや薄れるのですが，それでも色々な文字コードのテキストファイルを拡張機能を入れずに扱うことができる等，10年前以上のソフトウェア資源を扱うとなると，今でも有用な環境であることは間違いありません。

さて，今回は「T-Code入力用エディタ」として利用するためのセットアップについて説明してみたいと思います。

WindowsでのEmacs環境の構築

WindowsでEmacs環境を構築するのはこれといった決め手がありません。自分の場合はtc.elにパッチをあてて補完機能を使っているので，すごく動作が重いこともあってネイティブビルドmsys2のUCRT64環境をもっぱら使っているのですが，それだとお手軽さがありません。

そこで，ここでは公式ビルドを利用することを検討してみます。

Emacs公式ビルド版のダウンロード

emacsのダウンロードサイトに行くのですが，何故か直接ダウンロードできません。

nearby GNU mirrorのリンクを押すとどこに飛ばされるのか分かりませんが，とにかくダウンロードできるサイトに飛びます。

windowsを押します。

最新版なのでemacs-30を押します。

インストーラーもあるのですが，ここでは独自環境としてセットアップするので，emacs-30.2.zipを押してダウンロードします。

そこで，zipのチェックサムを確認する必要があるのですが，ここでは省略します。

Emacsのセットアップ

そして，ローカルの環境で展開をします。Windowsのエクスプローラでの展開で可能です。

しかし，最近のWindowsでは次の画面のようにネットからダウンロードしたファイルは制限がついてしまいます。 exeファイルとdllファイルでその制限を外しておいた方がレスポンスがよくなるかもしれません。許可するところにチェックを入れておきます。

次にバッチファイルを作成します。F:test\emacs-30.2がダウンロードしたアーカイブを展開したパスです。それぞれ自分の環境に書き換えてみて下さい。

ここではHOMEをF:\test\workにしています。つまり，バッチ上でHOMEの環境変数を設定することで， emacsの設定ファイルの位置のカスタマイズすることができます。

これがバッチファイルから起動する時の利点になります。

次のように書きます。

@echo off
SET HOME=F:\test\work
SET PATH=F:\test\emacs-30.2\bin;%PATH%
cd %HOME%
F:\test\emacs-30.2\bin\runemacs.exe

一度バッチファイルを実行させます。 Emacsが立ち上がります。

するとHOMEであるF:\test\work\の下に.emacs.dというフォルダが作成されます。その.emacs.dのフォルダ内に次のような内容のinit.elというファイルを作成します。

(set-locale-environment nil)
(prefer-coding-system 'utf-8)
(setq system-time-locale "C")

; Ctrl-hをヘルプからカーソル左側一文字削除に変更
(global-set-key "\C-h" nil)
(global-set-key "\C-h" 'backward-delete-char)

;; パッケージの検索にmeplaを追加
(require 'package)
(setq package-user-dir "~/.emacs.d/elpa")
(add-to-list 'package-archives '("melpa" . "https://melpa.org/packages/") t)
(package-initialize)

;; パッケージがインストールされてなければ自動で追加するおまじない
;; 下の設定ではMarkdown-mode と tc の二つのパッケージのみ
(require 'cl-lib)
(defvar installing-package-list
  '(markdown-mode tc))
(let ((not-installed (cl-loop for x in installing-package-list
                            when (not (package-installed-p x))
                            collect x)))
  (when not-installed
    (package-refresh-contents)
    (cl-dolist (pkg not-installed)
        (package-install pkg))))

;; ~/.emacs.d/site-lisp においてあるソースを自動でロードします
(add-to-list 'load-path (expand-file-name "~/.emacs.d/site-lisp"))
(if (fboundp 'normal-top-level-add-subdirs-to-load-path)
      (normal-top-level-add-subdirs-to-load-path))


(require 'tc-setup)

;; OS側のIME切替を許す
(global-set-key [M-kanji] 'ignore)
(global-set-key [kanji] 'ignore)
(global-set-key [M-\`] 'ignore)

(global-set-key "\M-z" nil)
(global-set-key "\M-z" 'tcode-zap-to-char)

;; 初期画面のサイズと表示位置
(setq initial-frame-alist
      (append (list
           ;; 表示位置
           '(top . 1) '(left . 1)
           ;; サイズ
           '(width . 80) '(height . 30))
          initial-frame-alist))
(setq default-frame-alist initial-frame-alist)

;; フォント設定。ここではBIZ UDGothicにする。サイズは14のところを変更
(set-face-font 'default "BIZ UDGothic-14")
(set-face-font 'fixed-pitch "BIZ UDGothic")
(set-face-font 'fixed-pitch-serif "BIZ UDGothic")
(set-face-font 'variable-pitch "BIZ UDGothic")

(set-fontset-font t 'unicode "BIZ UDGothic")

(custom-set-variables
 ;; custom-set-variables was added by Custom.
 ;; If you edit it by hand, you could mess it up, so be careful.
 ;; Your init file should contain only one such instance.
 ;; If there is more than one, they won't work right.
 '(package-selected-packages nil))
(custom-set-faces
 ;; custom-set-faces was added by Custom.
 ;; If you edit it by hand, you could mess it up, so be careful.
 ;; Your init file should contain only one such instance.
 ;; If there is more than one, they won't work right.
 '(eelll ((t (:foundry "BIZ UDGothic")))))