From 61d65e27c874e214e5ec99a543ab3f9835c0dfdb Mon Sep 17 00:00:00 2001 From: Tom Willemse Date: Fri, 18 Dec 2015 01:07:38 +0100 Subject: Move raise-ansi-term to separate library --- emacs/.emacs.d/site-lisp/oni-term.el | 37 ++++++++++++++++++++++++++++++++++++ 1 file changed, 37 insertions(+) create mode 100644 emacs/.emacs.d/site-lisp/oni-term.el (limited to 'emacs/.emacs.d/site-lisp/oni-term.el') diff --git a/emacs/.emacs.d/site-lisp/oni-term.el b/emacs/.emacs.d/site-lisp/oni-term.el new file mode 100644 index 0000000..6842325 --- /dev/null +++ b/emacs/.emacs.d/site-lisp/oni-term.el @@ -0,0 +1,37 @@ +;;; oni-term.el --- Term-related functions and commands -*- lexical-binding: t; -*- + +;; Copyright (C) 2015 Tom Willemse + +;; Author: Tom Willemse +;; Keywords: + +;; This program is free software; you can redistribute it and/or modify +;; it under the terms of the GNU General Public License as published by +;; the Free Software Foundation, either version 3 of the License, or +;; (at your option) any later version. + +;; This program is distributed in the hope that it will be useful, +;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;; GNU General Public License for more details. + +;; You should have received a copy of the GNU General Public License +;; along with this program. If not, see . + +;;; Commentary: + +;; Here are some Term-related functions and commands. + +;;; Code: + +;;;###autoload +(defun oni:raise-ansi-term (arg) + "Create or show an `ansi-term' buffer." + (interactive "P") + (let ((buffer (get-buffer "*ansi-term*"))) + (if (and buffer (not arg)) + (switch-to-buffer buffer) + (ansi-term (getenv "SHELL"))))) + +(provide 'oni-term) +;;; oni-term.el ends here -- cgit v1.2.3-54-g00ecf