wgester/dotfiles
1
0
Fork 0
forked from colonelpanic/dotfiles
Code Pull Requests Activity

remove term-projectile

Browse Source
This commit is contained in:
Ivan Malison 2016-05-20 14:13:22 -07:00
parent fb14acb3e5
commit d0bb940eb2
1 changed files with 0 additions and 49 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

49
dotfiles/emacs.d/load.d/term-projectile.el
View File

@ -1,49 +0,0 @@
(require 'eieio)
(require 'projectile)
(require 'contextual-value-manager)
(defclass term-projectile-identifier-manager (cvm-identifier-manager eieio-singleton)
((identifier-to-value :initarg :identifier-to-value :initform nil)))
(defmethod cvm-get-identifier ((manager term-projectile-identifier-manager))
(when (projectile-project-p)
(intern (projectile-project-root))))
(defmethod cvm-get-value ((manager term-projectile-identifier-manager) identifier)
(let ((buffer (plist-get (oref manager :identifier-to-value) identifier)))
(when (and buffer (buffer-live-p buffer))
buffer)))
(defmethod cvm-set-value ((manager term-projectile-identifier-manager) identifier value)
(oset manager :identifier-to-value (plist-put (oref manager :identifier-to-value) identifier value)))
(defclass term-builder (cvm-builder eieio-singleton) nil)
(defmethod cvm-build ((builder term-builder) identifier)
(let* ((term-name (build-term-name builder identifier))
(program (getenv "SHELL"))
(directory (if identifier (symbol-name identifier) "~"))
(buffer (get-buffer (term-ansi-make-term term-name program))))
(with-current-buffer buffer
(term-mode)
(term-char-mode)
(let (term-escape-char)
(term-set-escape-char ?\C-x)))
buffer))
(defmethod build-term-name ((builder term-builder) identifier)
(format "term: %s" (symbol-name identifier)))
(defclass projectile-term-manager (cvm-contextual-value-manager eieio-singleton) nil)
(make-instance projectile-term-manager
:builder (make-instance term-builder)
:identifier-manager (make-instance term-projectile-identifier-manager))
(defun term-projectile ()
(interactive)
(switch-to-buffer (cvm-contextual-value (make-instance projectile-term-manager))))
(provide 'term-projectile)