1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
|
;;;$Id: tools.jl,v 15.0 2001/11/20 20:05:31 raman Exp $
;;; tools.jl --- Emacs tool for sawfish
;;; $Author: raman $
;;; Description: Commands for launching or switching to
;;; a running Emacs
;;; Keywords: Sawfish, Emacspeak, Audio Desktop
;;{{{ LCD Archive entry:
;;; LCD Archive Entry:
;;; emacspeak| T. V. Raman |raman@cs.cornell.edu
;;; A speech interface to Emacs |
;;; $Date: 2001/11/20 20:05:31 $ |
;;; $Revision: 15.0 $ |
;;; Location undetermined
;;;
;;}}}
;;{{{ Copyright:
;;; Copyright (C) 2000, T. V. Raman<raman@cs.cornell.edu>
;;; All Rights Reserved.
;;;
;;; This file is not part of GNU Emacs, but the same permissions apply.
;;;
;;; GNU Emacs 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 2, or (at your option)
;;; any later version.
;;;
;;; GNU Emacs 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 GNU Emacs; see the file COPYING. If not, write to
;;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
;;}}}
;;{{{ Introduction:
;;; Commentary:
;;; Tool for launching Emacs.
;;}}}
(require 'tts)
;;; Set this to the executable you wish to run via command `emacs'
(defcustom emacs-program
"/usr/bin/emacs -i &"
"Emacs executable to run.")
(defcustom xemacs-program
"/usr/bin/xemacs -i &"
"Emacs executable to run.")
;;; Interactive command to start emacs or switch to an
;;; existing session.
(defun emacs ()
"Switch to a running emacs or start one if necessary."
(interactive)
(let ((w (car
(delete-if-not
(lambda (x)
(string= (window-class x) "Emacs"))
(managed-windows)))))
(if w
(display-window w)
(system emacs-program))
(and (tts-running-p) (tts-say-current-window))))
(defun xemacs ()
"Switch to a running xemacs or start one if necessary."
(interactive)
(let ((w (car
(delete-if-not
(lambda (x)
(string= (window-class x) "xEmacs"))
(managed-windows)))))
(if w
(display-window w)
(system xemacs-program))
(and (tts-running-p) (tts-say-current-window))))
(defun switch-to-emacs ()
"Switch to a running emacs "
(interactive)
(let ((w (car
(delete-if-not
(lambda (x)
(string= (window-class x) "Emacs"))
(managed-windows)))))
(if w
(display-window w))
(and (tts-running-p) (tts-say-current-window))))
(defun delete-this-window-safely ()
"Delete current window safely."
(interactive)
(delete-window-safely (car (managed-windows))))
(defun launch (program)
"Launch specified program or switch to it if it is already running."
(interactive "sRun program:")
(let ((w (car
(delete-if-not
(lambda (x)
(string= (window-class x) program))
(managed-windows)))))
(if w
(display-window w)
(system program))
(and (tts-running-p) (tts-say-current-window))))
;;{{{ end of file
;;; local variables:
;;; folded-file: t
;;; byte-compile-dynamic: t
;;; end:
;;}}}
|
