;;; qの代わりにC-gでウィンドウを閉じる
(defun myterminal-controls-set-controls-data--add-C-g (&rest _)
  (setf (caar (last myterminal-controls--controls-data)) "C-g"))
(advice-add 'myterminal-controls-set-controls-data
            :after 'myterminal-controls-set-controls-data--add-C-g)
;;; 設定例 gで文字の大きさを大きくし、lで小さくする
(myterminal-controls-set-controls-data
 '(("g" "zoom in" (lambda () (call-interactively 'text-scale-increase)))
   ("l" "zoom out" (lambda () (call-interactively 'text-scale-decrease)))))
;;; C-M-`に割り当てる
(global-set-key (kbd "C-M-`") 'myterminal-controls-open-controls)