特定のファイルタイプのファイルを開くときにコマンドを実行する

特定のファイルタイプのファイルを開いたときに、いくつかのコマンドを実行するLispスクリプトを取得しようとしています。テーマを削除すると、起動時にemacsにテーマがないため、正しいinitファイルで作業していることがわかります。

これは私が使用しているスクリプトで、動作しません（エラーも何もありません）：

(defun my-project-hook (filename)
  (when (string= (file-name-extension filename) "ts")
    ((typescript-mode)
     (tss-setup-current-buffer))
  ) 
)

(add-hook 'after-load-functions 'my-project-hook)

Emacsの用語では、これらは2つの異なるステップです。

• ファイルを.ts拡張子とメジャーモードに関連付けます typescript-mode。
• tss-setup-current-bufferTypescriptモードの開始時に関数を実行します。

特定のファイル名に使用するメジャーモードを選択するには、変数にエントリを追加しますauto-mode-alist。initファイルに次の行を追加します。

(add-to-list 'auto-mode-alist '("\\.ts\\'" . typescript-mode))

\.ts\'は、.ts拡張子を持つファイル名と一致する正規表現です。

tss-setup-current-bufferTypescriptモードが開始するたびに関数を実行するには（.ts拡張子のないTypescriptモードファイルに対しても実行することを想定しています）、Typescriptモードの起動フックに追加します。

(add-hook 'typescript-mode-hook 'tss-setup-current-buffer)

あなたはインストール方法に応じてtypescript.elとtss.el、あなたも機能することを宣言する必要があるかもしれないtypescript-modeとは、tss-setup-current-bufferそれらのファイルからロードする必要があります。このことを回避するには、ロードする必要typescript.elとtss.elEmacsが起動するとすぐに：彼らはオンデマンドでロードされます、あなたが最初に開いたときに.tsファイルを実行するか、typescript-mode明示的に。

(autoload 'typescript-mode "Major mode for typescript files" t)
(autoload 'tss-setup-current-buffer "Set up the current file for TSS" t)

あなたが探しているのはfind-file-hook：

(add-hook 'find-file-hook 'my-project-hook)
(defun my-project-hook ()
  (when (string= (file-name-extension buffer-file-name) "ts")
    (typescript-mode)
    (tss-setup-current-buffer)))