From a89a4d3459a88a286600b8f15338cb28f13de772 Mon Sep 17 00:00:00 2001
From: Wojciech Kozlowski <wk@wojciechkozlowski.eu>
Date: Wed, 30 Aug 2017 01:14:25 +0100
Subject: [PATCH] Add terminal module

---
 init.el             |  1 +
 modules/terminal.el | 96 +++++++++++++++++++++++++++++++++++++++++++++
 2 files changed, 97 insertions(+)
 create mode 100644 modules/terminal.el

diff --git a/init.el b/init.el
index 32974bd..80210da 100644
--- a/init.el
+++ b/init.el
@@ -103,6 +103,7 @@
                         helm
                         parentheses
                         programming
+                        terminal
                         version-control
                         workflow
                         ))
diff --git a/modules/terminal.el b/modules/terminal.el
new file mode 100644
index 0000000..9f20914
--- /dev/null
+++ b/modules/terminal.el
@@ -0,0 +1,96 @@
+;;; terminal.el --- Module file for terminal configuration.
+;;
+;; Copyright (C) 2017 Wojciech Kozlowski
+;;
+;; Author: Wojciech Kozlowski <wojciech.kozlowski@vivaldi.net>
+;; Created: 28 Aug 2017
+;;
+;; This file is not part of GNU Emacs.
+;;
+;;; Commentary:
+;;
+;; This module sets up packages and configuration for working with a terminal
+;; in Emacs.
+;;
+;;; License: GPLv3
+
+;;; Required packages:
+
+(setq init-packages/terminal-packages
+
+      '(shell-pop)
+
+      )
+
+;; Configuration:
+
+(defun init-packages/init-terminal ()
+
+  (use-package term
+    :init
+    (defun x-term-setup ()
+      (interactive)
+      (define-key term-raw-map (kbd "C-y") 'term-send-raw)
+      (define-key term-raw-map (kbd "C-p") 'term-send-raw)
+      (define-key term-raw-map (kbd "C-n") 'term-send-raw)
+      (define-key term-raw-map (kbd "C-s") 'term-send-raw)
+      (define-key term-raw-map (kbd "C-r") 'term-send-raw)
+      (define-key term-raw-map (kbd "M-o") 'other-window)
+      (define-key term-raw-map (kbd "M-w") 'kill-ring-save)
+      (define-key term-raw-map (kbd "M-y") 'helm-show-kill-ring)
+      (define-key term-raw-map (kbd "M-d") (lambda () (interactive) (term-send-raw-string "\ed")))
+      (define-key term-raw-map (kbd "<C-backspace>") (lambda () (interactive) (term-send-raw-string "\e\C-?")))
+      (define-key term-raw-map (kbd "M-p") (lambda () (interactive) (term-send-raw-string "\ep")))
+      (define-key term-raw-map (kbd "M-n") (lambda () (interactive) (term-send-raw-string "\en")))
+      (define-key term-raw-map (kbd "C-S-v") 'term-paste)
+      (define-key term-raw-map (kbd "C-h") nil) ; unbind C-h
+      (define-key term-raw-map (kbd "M-x") nil) ; unbind M-x
+      (define-key term-raw-map (kbd "C-1") 'delete-other-windows)
+      (define-key term-raw-map (kbd "C-2") 'split-window-below)
+      (define-key term-raw-map (kbd "C-3") 'split-window-right)
+      (define-key term-raw-map (kbd "C-0") 'delete-window))
+  (add-hook 'term-mode-hook 'x-term-setup t)
+  (setq term-buffer-maximum-size 0)
+
+  :config
+  (defun ansi-term-pop (buf)
+    "Launch terminal in BUF, preferably in other window.
+    This function will keep the default directory of the current
+    buffer"
+    (let ((term-cmd "/bin/zsh")
+          (dir default-directory))
+      (pop-to-buffer buf)
+      (let ((default-directory dir))
+        (unless (term-check-proc buf)
+          (when (string= "term-mode" major-mode)
+            (kill-buffer buf))
+          (ansi-term term-cmd)))))
+
+  (defun visit-ansi-term ()
+    "If the current buffer is:
+     1) a running ansi-term named *ansi-term*, run a new one.
+     2) a stopped ansi-term, kill it and create a new one.
+     3) a non ansi-term, go to an already running ansi-term
+        or start a new one while killing a defunct one"
+    (interactive)
+    (let* ((is-term (string= "term-mode" major-mode))
+           (is-running (term-check-proc (buffer-name)))
+           (term-cmd "/bin/zsh")
+           (buf-name "*ansi-term*")
+           (anon-term (get-buffer buf-name)))
+      (if is-term
+          (if is-running
+              (if (string-match buf-name (buffer-name))
+                  (ansi-term-pop (other-buffer (current-buffer) 'visible-ok))
+                (if anon-term
+                    (switch-to-buffer buf-name)
+                  (ansi-term term-cmd)))
+            (kill-buffer (buffer-name))
+            (ansi-term term-cmd))
+        (if anon-term
+            (ansi-term-pop buf-name)
+          (ansi-term-pop (other-buffer (current-buffer) 'visible-ok))))))
+
+  (global-set-key (kbd "C-x '") 'visit-ansi-term))
+
+  )