| | 1 | ;; jabber-screen.el - emacs-jabber interface to screen -*- lexical-binding: t; -*- |
| | 2 | |
| | 3 | ;; Copyright (C) 2005 - Magnus Henoch - mange@freemail.hu |
| | 4 | |
| | 5 | ;; This file is a part of jabber.el. |
| | 6 | |
| | 7 | ;; This program is free software; you can redistribute it and/or modify |
| | 8 | ;; it under the terms of the GNU General Public License as published by |
| | 9 | ;; the Free Software Foundation; either version 2 of the License, or |
| | 10 | ;; (at your option) any later version. |
| | 11 | |
| | 12 | ;; This program is distributed in the hope that it will be useful, |
| | 13 | ;; but WITHOUT ANY WARRANTY; without even the implied warranty of |
| | 14 | ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
| | 15 | ;; GNU General Public License for more details. |
| | 16 | |
| | 17 | ;; You should have received a copy of the GNU General Public License |
| | 18 | ;; along with this program; if not, write to the Free Software |
| | 19 | ;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA |
| | 20 | |
| | 21 | (eval-when-compile (require 'jabber-alert)) |
| | 22 | |
| | 23 | (defun jabber-screen-message (text &optional title) |
| | 24 | "Show MSG in screen" |
| | 25 | (call-process "screen" nil nil nil "-X" "echo" (or title text))) |
| | 26 | |
| | 27 | (define-jabber-alert screen "Show a message through the Screen terminal manager" |
| | 28 | 'jabber-screen-message) |
| | 29 | |
| | 30 | (provide 'jabber-screen) |
| | 31 | ;; arch-tag: B576ADDA-5D04-11D9-AA52-000A95C2FCD0 |
projects / config.git / blame_incremental