Moving to Doom Emacs!

This commit is contained in:
Derek Taylor
2019-12-16 20:21:19 -06:00
parent d9f2f456f1
commit d4b4c33550
683 changed files with 51877 additions and 100 deletions

View File

@@ -0,0 +1,52 @@
;;; term/term/autoload.el -*- lexical-binding: t; -*-
(defun +term--kill-dedicated (window buffer)
(when (window-live-p window)
(delete-window window))
(when (buffer-live-p buffer)
(set-process-query-on-exit-flag (get-buffer-process buffer) nil)
(kill-buffer buffer)))
;;;###autoload
(defun +term/toggle (arg)
"Toggle a persistent terminal popup window.
If popup is visible but unselected, select it.
If prefix ARG, recreate the term buffer."
(interactive "P")
(require 'multi-term)
(let ((multi-term-dedicated-select-after-open-p t)
(multi-term-dedicated-buffer-name
(format "doom:term-popup:%s"
(if (bound-and-true-p persp-mode)
(safe-persp-name (get-current-persp))
"main"))))
(let* ((buffer (multi-term-get-buffer nil t))
(window (get-buffer-window buffer)))
(when arg
(+term--kill-dedicated window buffer)
(setq buffer (multi-term-get-buffer nil t))) ; recreates buffer
(if (and (window-live-p window)
(buffer-live-p buffer))
(if (eq (selected-window) window)
(delete-window window)
(select-window window)
(when (bound-and-true-p evil-local-mode)
(evil-change-to-initial-state))
(goto-char (point-max)))
(setenv "PROOT" (or (doom-project-root) default-directory))
(with-current-buffer buffer
(doom-mark-buffer-as-real-h)
(multi-term-internal))
(unless (window-live-p window)
(when-let (window
(display-buffer-in-side-window
buffer `((window-height . ,multi-term-dedicated-window-height))))
(select-window window)))))))
;;;###autoload
(defalias '+term/here #'multi-term)
;; TODO +term/frame -- dedicate current frame to term buffers
;; TODO +term/frame-quite -- revert frame to before +term/frame

View File

@@ -0,0 +1,10 @@
;;; term/term/config.el -*- lexical-binding: t; -*-
;;;###package term
(add-hook 'term-mode-hook #'doom-mark-buffer-as-real-h)
(add-hook 'term-mode-hook #'hide-mode-line-mode)
;;;###package multi-term
(setq multi-term-dedicated-window-height 20
multi-term-switch-after-close 'PREVIOUS)

View File

@@ -0,0 +1,5 @@
;; -*- no-byte-compile: t; -*-
;;; term/term/packages.el
(package! term :built-in t)
(package! multi-term)