colonelpanic/dotfiles
1
0
Fork 1
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Simplyfy emacs functions.

Browse Source
This commit is contained in:
Ivan Malison 2014-12-20 04:57:23 -08:00
parent 0268e907c1
commit 9f4c38b24f
1 changed files with 10 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
dotfiles/lib/shellenv/emacs.sh
View File

@ -56,12 +56,17 @@ function existing_emacs {
} }
function emacs_make_frame_if_none_exists { function emacs_make_frame_if_none_exists {
emacsclient -e '(make-frame-if-none-exists-and-focus)' --server-file=$1 > /dev/null execute_elisp '(make-frame-if-none-exists-and-focus)' > /dev/null
focus_emacs focus_emacs
} }
function emacs_ensure_running_with_frame {
test -z "$(emacs_get_running_instances)" && emacs || \
emacs_make_frame_if_none_exists "$(emacs_get_running_instances | head -n1)"
}
function execute_elisp { function execute_elisp {
emacs_get_running_instances | xargs -I svr-filename emacsclient --server-file=svr-filename -e "$1" _emacs -e "$1"
} }
function focus_emacs { function focus_emacs {
@ -82,10 +87,9 @@ function emacs_open {
if ! emacs_daemon_exists; then if ! emacs_daemon_exists; then
emacs emacs
fi fi
local server_file="$(emacs_get_running_instances | head -n1)" emacs_make_frame_if_none_exists
emacs_make_frame_if_none_exists $server_file [ ! -z "$*" ] && _emacs "$@"
[ ! -z "$*" ] && emacsclient "$@" --server-file="$server_file" focus_emacs
is_osx && focus_emacs
} }
function time_emacs { function time_emacs {