| 1 |
### emacs.bash --- contact/resume an existing Emacs, or start a new one |
|---|
| 2 |
|
|---|
| 3 |
## Copyright (C) 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008 |
|---|
| 4 |
## Free Software Foundation, Inc. |
|---|
| 5 |
|
|---|
| 6 |
## Author: Noah Friedman |
|---|
| 7 |
|
|---|
| 8 |
## This file is part of GNU Emacs. |
|---|
| 9 |
|
|---|
| 10 |
## GNU Emacs is free software; you can redistribute it and/or modify |
|---|
| 11 |
## it under the terms of the GNU General Public License as published by |
|---|
| 12 |
## the Free Software Foundation; either version 3, or (at your option) |
|---|
| 13 |
## any later version. |
|---|
| 14 |
|
|---|
| 15 |
## GNU Emacs is distributed in the hope that it will be useful, |
|---|
| 16 |
## but WITHOUT ANY WARRANTY; without even the implied warranty of |
|---|
| 17 |
## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
|---|
| 18 |
## GNU General Public License for more details. |
|---|
| 19 |
|
|---|
| 20 |
## You should have received a copy of the GNU General Public License |
|---|
| 21 |
## along with GNU Emacs; see the file COPYING. If not, write to the |
|---|
| 22 |
## Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, |
|---|
| 23 |
## Boston, MA 02110-1301, USA. |
|---|
| 24 |
|
|---|
| 25 |
### Commentary: |
|---|
| 26 |
|
|---|
| 27 |
## This defines a bash command named `edit' which contacts/resumes an |
|---|
| 28 |
## existing emacs or starts a new one if none exists. |
|---|
| 29 |
|
|---|
| 30 |
## One way or another, any arguments are passed to emacs to specify files |
|---|
| 31 |
## (provided you have loaded `resume.el'). |
|---|
| 32 |
|
|---|
| 33 |
## This function assumes the emacs program is named `emacs' and is somewhere |
|---|
| 34 |
## in your load path. If either of these is not true, the most portable |
|---|
| 35 |
## (and convenient) thing to do is to make an alias called emacs which |
|---|
| 36 |
## refers to the real program, e.g. |
|---|
| 37 |
## |
|---|
| 38 |
## alias emacs=/usr/local/bin/gemacs |
|---|
| 39 |
|
|---|
| 40 |
function edit () |
|---|
| 41 |
{ |
|---|
| 42 |
local windowsys="${WINDOW_PARENT+sun}" |
|---|
| 43 |
|
|---|
| 44 |
windowsys="${windowsys:-${DISPLAY+x}}" |
|---|
| 45 |
|
|---|
| 46 |
if [ -n "${windowsys:+set}" ]; then |
|---|
| 47 |
# Do not just test if these files are sockets. On some systems |
|---|
| 48 |
# ordinary files or fifos are used instead. Just see if they exist. |
|---|
| 49 |
if [ -e "${HOME}/.emacs_server" -o -e "/tmp/emacs${UID}/server" ]; then |
|---|
| 50 |
emacsclient "$@" |
|---|
| 51 |
return $? |
|---|
| 52 |
else |
|---|
| 53 |
echo "edit: starting emacs in background..." 1>&2 |
|---|
| 54 |
fi |
|---|
| 55 |
|
|---|
| 56 |
case "${windowsys}" in |
|---|
| 57 |
x ) (emacs "$@" &) ;; |
|---|
| 58 |
sun ) (emacstool "$@" &) ;; |
|---|
| 59 |
esac |
|---|
| 60 |
else |
|---|
| 61 |
if jobs %emacs 2> /dev/null ; then |
|---|
| 62 |
echo "$(pwd)" "$@" >| ${HOME}/.emacs_args && fg %emacs |
|---|
| 63 |
else |
|---|
| 64 |
emacs "$@" |
|---|
| 65 |
fi |
|---|
| 66 |
fi |
|---|
| 67 |
} |
|---|
| 68 |
|
|---|
| 69 |
|
|---|
| 70 |
# arch-tag: 1e1b74b9-bf2c-4b23-870f-9eebff7515cb |
|---|
| 71 |
### emacs.bash ends here |
|---|
