Custom keys for multi-term

ffevotte · Feb 14, 2014 · d6c35f3 · d6c35f3
1 parent 3b2f339
commit d6c35f3
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 0 deletions.
diff --git a/init-extra.el b/init-extra.el
@@ -679,6 +679,10 @@ Example usage:
            (t
             (call-interactively 'multi-term-next)))))
 
+  (add-to-list 'term-bind-key-alist '("C-c C-j" . term-line-mode))
+  (add-to-list 'term-bind-key-alist '("C-c C-k" . term-char-mode))
+  (add-to-list 'term-bind-key-alist '("C-c C-u" . universal-argument))
+
   (setq multi-term-dedicated-select-after-open-p t)
   (custom-set-key (kbd "C-<f2>") 'multi-term-dedicated-toggle))
 

diff --git a/init-std.el b/init-std.el
@@ -128,6 +128,7 @@
      (setq ansi-term-color-vector ;; ANSI Term colors
            [unspecified "#000000" "#b21818" "#18b218" "#BE5F00"
                         "#6D85BA" "#b218b2" "#18b2b2" "#b2b2b2"])
+
      (defmacro ff/term-send-raw (name binding string)
        (let ((fun-symbol (intern (format "ff/term-send-%s" name))))
          `(define-key term-raw-map (kbd ,binding)
@@ -138,6 +139,7 @@
      (ff/term-send-raw "Cright" "C-<right>"     "\e[1;5C")
      (ff/term-send-raw "Cleft"  "C-<left>"      "\e[1;5D")
      (ff/term-send-raw "Cw"     "C-<backspace>" "\C-w")
+
      (message "Setting up term...done.")))
 
 (defvar ssh-term-hosts nil