From 61d65e27c874e214e5ec99a543ab3f9835c0dfdb Mon Sep 17 00:00:00 2001 From: Tom Willemse Date: Fri, 18 Dec 2015 01:07:38 +0100 Subject: [PATCH] Move raise-ansi-term to separate library --- emacs/.emacs.d/init.el | 8 ------ emacs/.emacs.d/site-lisp/oni-term.el | 37 ++++++++++++++++++++++++++++ 2 files changed, 37 insertions(+), 8 deletions(-) create mode 100644 emacs/.emacs.d/site-lisp/oni-term.el diff --git a/emacs/.emacs.d/init.el b/emacs/.emacs.d/init.el index d4b73bd..e41bc39 100644 --- a/emacs/.emacs.d/init.el +++ b/emacs/.emacs.d/init.el @@ -141,14 +141,6 @@ MODE1 is enabled and vice-versa." "Set the `disabled' property for each item in FUNCTIONS to nil." (mapc #'(lambda (f) (put f 'disabled nil)) functions)) -(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"))))) - (defun oni:raise-eshell () "Start or switch back to `eshell'. 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