1 ;;; talk.el --- allow several users to talk to each other through Emacs
3 ;; Copyright (C) 1995, 2001, 2002, 2003, 2004, 2005,
4 ;; 2006, 2007, 2008, 2009 Free Software Foundation, Inc.
7 ;; Keywords: comm, frames
9 ;; This file is part of GNU Emacs.
11 ;; GNU Emacs is free software: you can redistribute it and/or modify
12 ;; it under the terms of the GNU General Public License as published by
13 ;; the Free Software Foundation, either version 3 of the License, or
14 ;; (at your option) any later version.
16 ;; GNU Emacs is distributed in the hope that it will be useful,
17 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
19 ;; GNU General Public License for more details.
21 ;; You should have received a copy of the GNU General Public License
22 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
26 ;; This is a multi-user talk package that runs in Emacs.
27 ;; Use talk-connect to bring a new person into the conversation.
31 (defvar talk-display-alist nil
32 "Alist of displays on which Emacs talk is now running.
33 Each element has the form (DISPLAY FRAME BUFFER).")
36 (defun talk-connect (display)
37 "Connect to display DISPLAY for the Emacs talk group."
38 (interactive "sTalk to display: ")
39 ;; Make sure we have an entry for the current display.
40 (let ((mydisp (cdr (assq 'display
(frame-parameters (selected-frame))))))
41 (talk-add-display mydisp
))
42 ;; Make sure we have an entry for the specified display.
43 (talk-add-display display
)
44 ;; Add the new buffers to all talk frames.
45 (talk-update-buffers))
49 "Connect to the Emacs talk group from the current X display or tty frame."
51 (let ((type (frame-live-p (selected-frame)))
52 (display (frame-terminal (selected-frame))))
53 (if (or (eq type t
) (eq type
'x
))
55 (terminal-name (frame-terminal (selected-frame))))
56 (error "Unknown frame type")))
57 (talk-update-buffers))
59 (defun talk-add-display (display)
60 (let* ((elt (assoc display talk-display-alist
))
61 (name (concat "*talk-" display
"*"))
63 (if (and elt
(frame-live-p (nth 1 elt
)))
64 (setq frame
(nth 1 elt
))
65 (setq frame
(make-frame-on-display display
(list (cons 'name name
)))))
66 (if (not (and elt
(buffer-name (get-buffer (setq buffer
(nth 2 elt
))))))
67 (setq buffer
(get-buffer-create name
)))
68 (add-to-list 'delete-frame-functions
'talk-handle-delete-frame
)
69 (setq talk-display-alist
70 (cons (list display frame buffer
) (delq elt talk-display-alist
)))))
72 (defun talk-handle-delete-frame (frame)
73 (dolist (d talk-display-alist
)
74 (when (eq (nth 1 d
) frame
)
75 (setq talk-display-alist
(delq d talk-display-alist
))
76 (talk-update-buffers))))
78 (defun talk-disconnect ()
79 "Disconnect this display from the Emacs talk group."
81 (let* ((mydisp (cdr (assq 'display
(frame-parameters (selected-frame)))))
82 (elt (assoc mydisp talk-display-alist
)))
83 (delete-frame (nth 1 elt
))
84 (kill-buffer (nth 2 elt
))
85 (setq talk-display-alist
(delq elt talk-display-alist
))
86 (talk-update-buffers)))
88 (defun talk-update-buffers ()
89 "Update all the talk frames so that each shows all the talk buffers."
90 (let ((tail talk-display-alist
))
92 (let ((frame (nth 1 (car tail
)))
93 (this-buffer (nth 2 (car tail
)))
95 (mapcar (function (lambda (elt) (nth 2 elt
)))
97 ;; Put this display's own talk buffer
98 ;; at the front of the list.
99 (setq buffers
(cons this-buffer
(delq this-buffer buffers
)))
100 (talk-split-up-frame frame buffers
))
101 (setq tail
(cdr tail
)))))
103 (defun talk-split-up-frame (frame buffers
)
104 "Split FRAME into equal-sized windows displaying the buffers in BUFFERS.
105 Select the first of these windows, displaying the first of the buffers."
106 (let ((lines-per-buffer (/ (frame-height frame
) (length buffers
)))
107 (old-frame (selected-frame)))
111 (select-window (frame-first-window frame
))
112 (delete-other-windows)
114 (switch-to-buffer (car buffers
))
115 (setq buffers
(cdr buffers
)))
116 (split-window-vertically lines-per-buffer
)
118 (select-window (frame-first-window frame
)))
119 (select-frame old-frame
))))
123 ;; arch-tag: 7ab0ad88-1788-4886-a44c-ae685e6f8a1a
124 ;;; talk.el ends here