tmux: Move textobj simulation into own textobjs.sh

.config/tmux/textobjs.sh

@@ -0,0 +1,83 @@
+#!/bin/sh
+
+# Support vim's text objects in tmux's copy-mode.
+
+get_var() {
+	tmux display-message -p "#{$1}"
+}
+
+command_prompt() {
+	tmux command-prompt -k -I "$2" -p "$1" 'display-message -p "%%"'
+}
+
+mode="$(get_var pane_mode)"
+if [ "$mode" != copy-mode ]; then
+	>&2 printf "%s: Not in copy mode\n" "$0"
+	exit 1
+fi
+
+# cancel copy-mode when not in 'visual' mode (i.e. selection is present)
+selection_present="$(get_var selection_present)"
+if [ "$selection_present" -eq 0 ]; then
+	tmux send -X cancel
+	exit 0
+fi
+
+# get motion
+motion="$(command_prompt "(operator-pending)")"
+
+# TODO: Breaks when on the beginning or end of the object (except paragraphs)
+case "$motion" in
+	w)
+		# send "boe"
+		tmux send -X previous-word
+		tmux send -X other-end
+		tmux send -X next-word-end
+		;;
+	W)
+		# send "BoE"
+		tmux send -X previous-space
+		tmux send -X other-end
+		tmux send -X next-space-end
+		;;
+	p)
+		# send "{j0o}k$"
+
+		tmux send -X previous-paragraph
+
+		scroll_pos="$(get_var scroll_position)"
+		hist_size="$(get_var history_size)"
+		cursor_y="$(get_var copy_cursor_y)"
+		scroll_upper="$(get_var scroll_region_upper)"
+		# don't move down if we're at the very first paragraph
+		if [ "$scroll_pos" -lt "$hist_size" ] \
+			|| [ "$cursor_y" -gt "$scroll_upper" ]
+		then
+			tmux send -X cursor-down
+		fi
+
+		tmux send -X start-of-line
+		tmux send -X other-end
+		tmux send -X next-paragraph
+
+		scroll_pos="$(get_var scroll_position)"
+		cursor_y="$(get_var copy_cursor_y)"
+		scroll_lower="$(get_var scroll_region_lower)"
+		# don't move up if we're at the very last paragraph
+		if [ "$scroll_pos" -gt 0 ] || [ "$cursor_y" -lt "$scroll_lower" ]; then
+			tmux send -X cursor-up
+		fi
+
+		tmux send -X end-of-line
+		;;
+	\")
+		tmux send -X jump-to-backward '"'
+		tmux send -X other-end
+		tmux send -X jump-to-forward '"'
+		;;
+	\')
+		tmux send -X jump-to-backward "'"
+		tmux send -X other-end
+		tmux send -X jump-to-forward "'"
+		;;
+esac

.config/tmux/tmux.conf

@@ -159,50 +159,7 @@ bind -T copy-mode-vi I send -X cancel
 bind -T copy-mode-vi a send -X cancel
 
 # Rudimentary text object simulation
-# TODO: Breaks when on the beginning or end of the object
+bind -T copy-mode-vi i run-shell '${XDG_CONFIG_HOME:-$HOME/.config}/tmux/textobjs.sh'
-bind -T copy-mode-vi i \
-	if -F "#{selection_present}" {
-		command-prompt -k -p (operator-pending) {
-			if -F "#{==:%1,w}" {
-				# send "boe"
-				send -X previous-word
-				send -X other-end
-				send -X next-word-end
-			}{ if -F "#{==:%1,W}" {
-				# send "BoE"
-				send -X previous-space
-				send -X other-end
-				send -X next-space-end
-			}{ if -F "#{==:%1,p}" {
-				# send "{j0o}k$"
-				send -X previous-paragraph
-				# don't move down if we're at the very first
-				# paragraph
-				if -F "#{||:#{e|<:#{scroll_position},#{history_size}},#{e|>:#{copy_cursor_y},#{scroll_region_upper}}}" {
-					send -X cursor-down
-				}
-				send -X start-of-line
-				send -X other-end
-				send -X next-paragraph
-				# don't move up if we're at the very last
-				# paragraph
-				if -F "#{||:#{e|>:#{scroll_position},0},#{e|<:#{copy_cursor_y},#{scroll_region_lower}}}" {
-					send -X cursor-up
-				}
-				send -X end-of-line
-			}{ if -F '#{==:%1,"}' {
-				send -X jump-to-backward '"'
-				send -X other-end
-				send -X jump-to-forward '"'
-			}{ if -F "#{==:%1,'}" {
-				send -X jump-to-backward "'"
-				send -X other-end
-				send -X jump-to-forward "'"
-			}}}}}
-		}
-	} {
-		send -X cancel
-	}
 
 # Simulate vim's C-e & C-y (Keep cursor position while scrolling). As tmux
 # cannot scroll past the first and last history line, both bindings stop