sway.kak

# https://swaywm.org
# ‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾
# see also: tmux.kak

## Temporarily override the default client creation command
define-command -hidden -params 1.. sway-new-impl %{
  evaluate-commands %sh{
    if [ -z "$kak_opt_termcmd" ]; then
      echo "fail 'termcmd option is not set'"
      exit
    fi
    sway_split="$1"
    shift
    # clone (same buffer, same line)
    cursor="$kak_cursor_line.$kak_cursor_column"
    kakoune_args="-e 'execute-keys $@ :buffer <space> $kak_buffile <ret> :select <space> $cursor,$cursor <ret>'"
    {
      # https://github.com/sway/issues/1767
      [ -n "$sway_split" ] && swaymsg "split $sway_split" < /dev/null > /dev/null 2>&1 &
      echo terminal "kak -c $kak_session $kakoune_args"
    }
  }
}

define-command sway-new-down -docstring "Create a new window below" %{
  sway-new-impl v 
}

define-command sway-new-up -docstring "Create a new window below" %{
  sway-new-impl v :nop <space> '%sh{ swaymsg move up }' <ret>
}

define-command sway-new-right -docstring "Create a new window on the right" %{
  sway-new-impl h
}

define-command sway-new-left -docstring "Create a new window on the left" %{
  sway-new-impl h :nop <space> '%sh{ swaymsg move left }' <ret>
}

define-command sway-new -docstring "Create a new window in the current container" %{
  sway-new-impl ""
}

# Suggested aliases

alias global new sway-new

declare-user-mode sway
map global sway n :sway-new<ret> -docstring "new window in the current container"
map global sway h :sway-new-left<ret> -docstring '← new window on the left'
map global sway l :sway-new-right<ret> -docstring '→ new window on the right'
map global sway k :sway-new-up<ret> -docstring '↑ new window above'
map global sway j :sway-new-down<ret> -docstring '↓ new window below'

# Suggested mapping

#map global user 3 ': enter-user-mode sway<ret>' -docstring 'sway…'

# Sway support for send-text using ydotool

try %{ eval %sh{ [ -z "$SWAYSOCK" ] && echo fail " " }
  hook -once global ModuleLoaded x11-repl %sh{
    if ! { command -v ydotool && command -v jq && command -v wl-copy && command -v wl-paste; } >/dev/null
    then echo define-command sway-send-text %{ fail "ydotool, jq, or wl-clipboard missing" }
    else
    cat << 'EOF'
    define-command -params .. \
    -docstring %{sway-send-text [text]: Send text to the REPL window.
    [text]: text to send instead of selection.
Switches:
	-send-enter Send an <enter> keystroke after the text.} \
    sway-send-text %{
      nop %sh{
        paste_keystroke="shift+insert"

	    if [ $# -ge 1 ]; then
	    	case "$1" in
	    		-send-enter) shift; paste_keystroke="$paste_keystroke enter";
      		esac
      	fi
      	
        if [ $# -eq 0 ]; then
          text="$kak_selection"
        else
          text="$*"
        fi

        cur_id=$(swaymsg -t get_tree | jq -r "recurse(.nodes[]?) | select(.focused == true).id")
        swaymsg "[title=kak_repl_window] focus" &&
        echo -n "$text" | wl-copy --type text/plain --paste-once --primary &&
        ydotool key $paste_keystroke >/dev/null 2>&1 &&
        swaymsg "[con_id=$cur_id] focus"
      }
    }
    alias global send-text sway-send-text
EOF
    fi
  }
}