;;; -*- lexical-binding: t -*-
;;;
;;; this file:
;;;   http://user.it.uu.se/~embe8573/emacs-init/term.el
;;;   https://dataswamp.org/~incal/emacs-init/term.el

(require 'super)
(require 'switch-to-buffer-regexp)
(require 'vterm)

(defun use-vterm (new)
  (interactive "P")
  (when (or new (not (switch-to-buffer-regexp "vterm")))
    (vterm) ))
(defalias 'vt #'use-vterm)

(let ((the-map vterm-mode-map)
      (keys '(
              "\C-a"
              "\C-e"
              "\C-n"
              "\C-p"
              )))
  (disable-super-global-keys the-map)
  (dolist (k keys)
    (define-key the-map k nil) )
  (define-key the-map "\C-\M-p" #'vterm-send-C-p)
  (define-key the-map "\C-\M-n" #'vterm-send-C-n) )