2011-04-13 23:34:51 +08:00
|
|
|
#!/bin/sh
|
|
|
|
|
2021-09-28 16:10:43 +08:00
|
|
|
emacsfun() {
|
2021-09-28 18:30:29 +08:00
|
|
|
local cmd frames
|
|
|
|
|
|
|
|
# Build the Emacs Lisp command to check for suitable frames
|
|
|
|
# See https://www.gnu.org/software/emacs/manual/html_node/elisp/Frames.html#index-framep
|
|
|
|
case "$*" in
|
|
|
|
*-t*|*--tty*|*-nw*) cmd="(memq 't (mapcar 'framep (frame-list)))" ;; # if != nil, there are tty frames
|
|
|
|
*) cmd="(delete 't (mapcar 'framep (frame-list)))" ;; # if != nil, there are graphical terminals (x, w32, ns)
|
|
|
|
esac
|
|
|
|
|
|
|
|
# Check if there are suitable frames
|
|
|
|
frames="$(emacsclient -a '' -n -e "$cmd" 2>/dev/null)"
|
2011-10-11 00:04:13 +08:00
|
|
|
|
2021-09-28 16:10:43 +08:00
|
|
|
# Only create another X frame if there isn't one present
|
2021-09-28 18:30:29 +08:00
|
|
|
if [ -z "$frames" -o "$frames" = nil ]; then
|
2021-09-28 16:10:43 +08:00
|
|
|
emacsclient --alternate-editor "" --create-frame "$@"
|
|
|
|
return $?
|
|
|
|
fi
|
|
|
|
|
|
|
|
emacsclient --alternate-editor "" "$@"
|
2016-06-17 18:12:59 +08:00
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
# adopted from https://github.com/davidshepherd7/emacs-read-stdin/blob/master/emacs-read-stdin.sh
|
|
|
|
# If the second argument is - then write stdin to a tempfile and open the
|
|
|
|
# tempfile. (first argument will be `--no-wait` passed in by the plugin.zsh)
|
2021-09-28 16:10:43 +08:00
|
|
|
if [ $# -ge 2 -a "$2" = "-" ]; then
|
|
|
|
tempfile="$(mktemp --tmpdir emacs-stdin-$USERNAME.XXXXXXX 2>/dev/null \
|
|
|
|
|| mktemp -t emacs-stdin-$USERNAME)" # support BSD mktemp
|
|
|
|
cat - > "$tempfile"
|
|
|
|
emacsfun --no-wait "$tempfile"
|
|
|
|
return $?
|
2011-04-13 23:34:51 +08:00
|
|
|
fi
|
2021-09-28 16:10:43 +08:00
|
|
|
|
|
|
|
emacsfun "$@"
|