blob: a5e4338e5be2b720ea30f79d9ea17eea28e4fdf6 (
plain)
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
|
#!/bin/bash
emacsclient -e '(message "")' 2>&1 >/dev/null || emacs --daemon &
find_dirs() {
echo $(emacsclient -e "(proj--get-paths)" | sed -ze 's/(\(.*\))/\1/') | xargs -n1
}
emacs_attached() {
[ "$(emacsclient -e '(- (length (frame-list)) 1)')" = 0 ] && return 1 || return 0
}
switch_to() {
if emacs_attached; then
emacsclient -e "(proj-set-dir \"$1\")"
else
emacsclient -ce "(proj-set-dir \"$1\")"
fi
}
# get selected
selected=$(find_dirs | swenu -coil 15)
[ -z "$selected" ] && exit 1;
selected="${selected/\~/$HOME}"
# set emacs project
switch_to "$selected"
# focus emacs
swaymsg [con_id="$(swaymsg -t get_tree | jq -r '.nodes[1].nodes[].nodes[] | .. | (.id|tostring) + " " + .name?' | grep -e "[0-9]* ." | grep Emacs | awk '{print $1}')"] focus
|
