@kecan0406/ttheme 1.2.7 → 1.2.8

package/shell/ttheme.zsh

@@ -33,6 +33,7 @@ __tt_fresh() {
 __tt_prompt() {
   emulate -L zsh ${=${options[xtrace]:#off}:+-o xtrace}
   (( TTHEME_FRONT < 0 )) || TTHEME_FRONT=0
+  [[ -n $TTHEME_SSH_SPEC ]] && __tt_ssh_back
   __tt_fresh
 }
 
@@ -80,9 +81,15 @@ typeset -g TTHEME_PINS_FILE=${TTHEME_CONFIG:h}/pins
 typeset -g TTHEME_PINS_RAW="" TTHEME_PINS_AT=""
 typeset -gA TTHEME_PINS=()
 typeset -g TTHEME_PIN="" TTHEME_PIN_SPEC="" TTHEME_BASE_SPEC=""
+typeset -g TTHEME_SSH_SPEC="" TTHEME_SSH_BACK=""
 
 __tt_tilde() { REPLY=${1/#$HOME\//\~/} }
 
+__tt_ssh_ok() {
+  setopt localoptions extendedglob
+  [[ $1 == ssh:[[:alnum:]._*?:-]## ]]
+}
+
 __tt_pins_load() {
   emulate -L zsh ${=${options[xtrace]:#off}:+-o xtrace}
   setopt localoptions extendedglob
@@ -96,10 +103,16 @@ __tt_pins_load() {
   TTHEME_PINS=()
   for line in "${(@f)raw}"; do
     line=${line%%[[:space:]]##}
-    [[ $line == [~/]*[[:space:]]* ]] || continue
+    [[ $line == ([~/]|ssh:)*[[:space:]]* ]] || continue
     name=${line##*[[:space:]]} key=${${line%[[:space:]]*}%%[[:space:]]##}
-    [[ $key == \~ ]] && key=$HOME
-    TTHEME_PINS[${key/#\~\//$HOME/}]=$name
+    if [[ $key == ssh:* ]]; then
+      key=ssh:${(L)key#ssh:}
+      __tt_ssh_ok $key || continue
+      TTHEME_PINS[$key]=$name
+    else
+      [[ $key == \~ ]] && key=$HOME
+      TTHEME_PINS[${key/#\~\//$HOME/}]=$name
+    fi
     [[ -n ${TTHEME_PALETTE[$name]} ]] || print -u2 "ttheme: unknown palette '$name' pinned to $key"
   done
 }
@@ -271,25 +284,6 @@ __tt_name_of() { REPLY=${${(k)TTHEME_PALETTE[(re)$1]}:-custom} }
 
 __tt_color() { [[ -t 1 && -z $NO_COLOR && $TERM != dumb ]] }
 
-__tt_palette_line() {
-  local name=$1 width=$2 on=$3 label=${4:-$1} hex cell="" bar=""
-  local -a p=(${=TTHEME_PALETTE[$name]}) sw=(${=TTHEME_SWATCH[$name]})
-  (( ${#p} >= 20 )) || return 1
-  for hex in $sw; do
-    hex=${hex#\#}
-    cell+=$'\e[38;2;'$((16#${hex:0:2}))';'$((16#${hex:2:2}))';'$((16#${hex:4:2}))'m■ '
-  done
-  if [[ -n $on ]]; then
-    local cur=${p[3]#\#} sel=${p[4]#\#} fg=${p[2]#\#} ac
-    printf -v ac '\e[38;2;%d;%d;%dm' $((16#${cur:0:2})) $((16#${cur:2:2})) $((16#${cur:4:2}))
-    printf -v bar '\e[48;2;%d;%d;%d;38;2;%d;%d;%dm' \
-      $((16#${sel:0:2})) $((16#${sel:2:2})) $((16#${sel:4:2})) $((16#${fg:0:2})) $((16#${fg:2:2})) $((16#${fg:4:2}))
-    printf '%s▌\e[39m %s %s■\e[39m \e[1m%-*s\e[22m  %s\e[0m\n' "$ac" "$bar" "$ac" "$width" "$label" "$cell"
-  else
-    printf '     %-*s  %s\e[0m\n' "$width" "$label" "$cell"
-  fi
-}
-
 __tt_announce() {
   (( TTHEME_ANNOUNCE )) || return 0
   local -a p=(${=TTHEME_SPEC})
@@ -312,7 +306,7 @@ __tt_announce() {
 __tt_dir_rule() {
   local k base best="" bestlen=-1 p=${1:A}
   for k in ${(k)TTHEME_PINS}; do
-    [[ -n ${TTHEME_PALETTE[$TTHEME_PINS[$k]]} ]] || continue
+    [[ $k == /* && -n ${TTHEME_PALETTE[$TTHEME_PINS[$k]]} ]] || continue
     base=${${k%/\*\*}:A}
     if [[ $k == *"/**" ]]; then
       [[ $p == "$base" || $p == "${base%/}"/* ]] || continue
@@ -395,10 +389,77 @@ __tt_focus() {
   fi
 }
 
+__tt_ssh_host() {
+  setopt localoptions extendedglob
+  local w o host=""
+  local -a words=(${(z)1})
+  local -i i=1 tty=0 ended=0
+  while [[ ${words[i]} == ([[:alpha:]_][[:alnum:]_]#=*|command|exec|noglob|nocorrect|-) ]]; do (( ++i )); done
+  [[ ${${(Q)words[i]}:t} == ssh ]] || return 1
+  for (( ++i; i <= ${#words}; i++ )); do
+    case ${words[i]} in
+      ('&&'|'||'|';'|';;'|';&'|';|') break ;;
+      ('2>'|'2>>'|'2>|'|'2>&') (( ++i )); continue ;;
+      ('&'|'&!'|'&|'|'|'|'|&'|[0-9]#[\<\>]*|'&>'*) return 1 ;;
+    esac
+    w=${(Q)words[i]}
+    if (( ! ended )) && [[ $w == -?* ]]; then
+      [[ $w == -- ]] && { ended=1; continue }
+      o=${w#-}
+      while [[ -n $o ]]; do
+        case ${o[1]} in
+          (t) (( ++tty )) ;;
+          ([fGNnsTVOQW]) return 1 ;;
+          ([BbcDEeFIiJLlmoPpRSw]) [[ -n ${o[2,-1]} ]] || (( ++i )); break ;;
+        esac
+        o=${o[2,-1]}
+      done
+      continue
+    fi
+    if [[ -n $host ]]; then
+      (( tty )) || return 1
+      break
+    fi
+    host=$w
+  done
+  [[ $host == ssh://* ]] && host=${${host#ssh://}%:<->}
+  REPLY=${(L)${${host##*@}#\[}%\]}
+  [[ -n $REPLY ]]
+}
+
+__tt_ssh_rule() {
+  local k best=""
+  [[ -n ${TTHEME_PALETTE[${TTHEME_PINS[ssh:$1]}]} ]] && { REPLY=ssh:$1; return 0 }
+  for k in ${(k)TTHEME_PINS}; do
+    [[ $k == ssh:*[*?]* && -n ${TTHEME_PALETTE[$TTHEME_PINS[$k]]} && $1 == ${~k#ssh:} ]] || continue
+    (( ${#k} > ${#best} )) && best=$k
+  done
+  [[ -n $best ]] || return 1
+  REPLY=$best
+}
+
+__tt_ssh_back() {
+  local back=$TTHEME_SSH_BACK worn=$TTHEME_SSH_SPEC
+  TTHEME_SSH_BACK="" TTHEME_SSH_SPEC=""
+  [[ $TTHEME_SPEC == "$worn" && $back != "$worn" ]] || return 0
+  if [[ -n $back ]]; then
+    __tt_wear "$back"
+  else
+    __tt_osc_reset
+    TTHEME_SPEC=
+  fi
+}
+
 __tt_ran() {
   emulate -L zsh ${=${options[xtrace]:#off}:+-o xtrace}
+  local REPLY name
   TTHEME_RAN=1
   [[ ${${(z)3}[1]:t} == tmux ]] && TTHEME_MUXED=1
+  [[ $3 == *ssh* ]] && __tt_ssh_host "$3" && __tt_ssh_rule "$REPLY" || return 0
+  name=$TTHEME_PINS[$REPLY]
+  TTHEME_SSH_BACK=$TTHEME_SPEC TTHEME_SSH_SPEC=$TTHEME_PALETTE[$name]
+  [[ $TTHEME_SSH_SPEC == "$TTHEME_SPEC" ]] || __tt_wear "$TTHEME_SSH_SPEC" "$name"
+  return 0
 }
 
 __tt_unmux() {
@@ -468,13 +529,24 @@ __tt_dir_label() {
 }
 
 __tt_pin_scope() {
-  if [[ $1 == *"/**" ]]; then
+  if [[ $1 == ssh:* ]]; then
+    REPLY="while connected"
+  elif [[ $1 == *"/**" ]]; then
     REPLY="and below"
   else
     REPLY="this directory"
   fi
 }
 
+__tt_pin_where() {
+  if [[ $1 == ssh:* ]]; then
+    REPLY="ssh ${1#ssh:}"
+  else
+    __tt_pin_base "$1"
+    __tt_dir_label "$REPLY"
+  fi
+}
+
 __tt_repo() {
   local at=${1:a}
   while [[ $at != / ]]; do
@@ -501,6 +573,11 @@ __tt_pin_cover() {
 
 __tt_pin_scopes() {
   local d=${1:a} k
+  if [[ $1 == ssh:* ]]; then
+    plabel=(" This host ") pkeys=("$1") pkdef=1
+    [[ $1 == *[*?]* ]] && plabel=(" Every match ")
+    return 0
+  fi
   plabel=(" This directory " " And below ") pkeys=("$d" "${d%/}/**") pkdef=2
   if __tt_repo "$d" && [[ $REPLY != "$d" ]]; then
     plabel+=(" Repository ") pkeys+=("$REPLY/**")
@@ -514,26 +591,30 @@ __tt_pin_scopes() {
 }
 
 __tt_pin_save() {
-  local name=$1 key=$2 k base spec REPLY
-  __tt_pin_base "$key"
-  base=$REPLY
-  for k in ${(k)TTHEME_PINS}; do
-    [[ $k == /* ]] || continue
-    __tt_pin_base "$k"
-    [[ $REPLY == "$base" ]] && unset "TTHEME_PINS[$k]"
-  done
+  local name=$1 key=$2 k base spec=$3 REPLY
+  if [[ $key == /* ]]; then
+    __tt_pin_base "$key"
+    base=$REPLY
+    for k in ${(k)TTHEME_PINS}; do
+      [[ $k == /* ]] || continue
+      __tt_pin_base "$k"
+      [[ $REPLY == "$base" ]] && unset "TTHEME_PINS[$k]"
+    done
+  fi
   TTHEME_PINS[$key]=$name
   if ! __tt_pins_write; then
     print -u2 "ttheme pin: could not write $TTHEME_PINS_FILE"
     return 1
   fi
-  [[ -n $TTHEME_PIN ]] || TTHEME_BASE_SPEC=$3
-  if __tt_dir_rule "$PWD"; then
-    spec=${TTHEME_PALETTE[$TTHEME_PINS[$REPLY]]}
-    TTHEME_PIN=$REPLY TTHEME_PIN_SPEC=$spec
-  else
-    spec=$TTHEME_BASE_SPEC
-    TTHEME_PIN="" TTHEME_PIN_SPEC=""
+  if [[ $key == /* ]]; then
+    [[ -n $TTHEME_PIN ]] || TTHEME_BASE_SPEC=$3
+    if __tt_dir_rule "$PWD"; then
+      spec=${TTHEME_PALETTE[$TTHEME_PINS[$REPLY]]}
+      TTHEME_PIN=$REPLY TTHEME_PIN_SPEC=$spec
+    else
+      spec=$TTHEME_BASE_SPEC
+      TTHEME_PIN="" TTHEME_PIN_SPEC=""
+    fi
   fi
   if [[ $spec != "$TTHEME_SPEC" ]]; then
     if [[ -n $spec ]]; then
@@ -543,7 +624,7 @@ __tt_pin_save() {
       TTHEME_SPEC=
     fi
   fi
-  __tt_dir_label "$base"
+  __tt_pin_where "$key"
   k=$REPLY
   __tt_pin_scope "$key"
   if __tt_color; then
@@ -551,7 +632,7 @@ __tt_pin_save() {
   else
     print -r -- "Pinned · $name → $k · $REPLY"
   fi
-  if [[ $TTHEME_PIN != "$key" ]]; then
+  if [[ $key == /* && $TTHEME_PIN != "$key" ]]; then
     __tt_here_line Here
     print -r -- "$REPLY"
   fi
@@ -560,10 +641,11 @@ __tt_pin_save() {
 __tt_unpin_drop() {
   local k REPLY where
   local -a gone=()
+  local -i dirs=0
   for k in "$@"; do
     [[ -n ${TTHEME_PINS[$k]} ]] || continue
-    __tt_pin_base "$k"
-    __tt_dir_label "$REPLY"
+    [[ $k == /* ]] && dirs=1
+    __tt_pin_where "$k"
     where=$REPLY
     __tt_pin_scope "$k"
     gone+=("Unpinned · ${TTHEME_PINS[$k]} on $where · $REPLY")
@@ -581,6 +663,7 @@ __tt_unpin_drop() {
       print -r -- "$k"
     fi
   done
+  (( dirs )) || return 0
   __tt_here_line Here
   print -r -- "$REPLY"
 }
@@ -735,6 +818,15 @@ __tt_unpin() {
   local -i chosen=0 color=0
   __tt_color && color=1
   __tt_pins_load
+  if [[ $1 == ssh:* ]]; then
+    k=ssh:${(L)1#ssh:}
+    if [[ -z ${TTHEME_PINS[$k]} ]]; then
+      print -u2 -r -- "ttheme unpin: nothing pinned to ssh ${k#ssh:}"
+      return 1
+    fi
+    __tt_unpin_drop $k
+    return
+  fi
   if (( $# )); then
     d=$1
     [[ $d == \~ || $d == \~/* ]] && d=$HOME${d#\~}
@@ -1079,12 +1171,22 @@ __tt_map_fit() {
   done
 }
 
+__tt_map_ssh() {
+  local k name flag
+  for k in ${(oi)${(M)${(k)TTHEME_PINS}:#ssh:*}}; do
+    name=$TTHEME_PINS[$k] flag=""
+    [[ -n ${TTHEME_PALETTE[$name]} ]] || flag="not installed"
+    lp+=("") lpw+=(0) ll+=("ssh ${k#ssh:}") lat+=("$k") lpal+=("$name") lnote+=("while connected") lflag+=("$flag")
+  done
+}
+
 __tt_map_tree() {
   local home=${HOME:a} here=${PWD:a} htip="" REPLY
   local -A own=() below=() parent=() mark=() tstrip=()
   local -a roots=() lp=() lpw=() ll=() lat=() lpal=() lnote=() lflag=() reply
   local -i width=$(( COLUMNS > 0 ? COLUMNS : 80 ))
   __tt_map_build ""
+  __tt_map_ssh
   __tt_map_fit $width
   print -rl -- "${reply[@]}"
   print
@@ -1143,42 +1245,12 @@ __tt_order() {
 }
 
 __tt_menu() {
-  local k cur="" grp last_grp="" shelf last_shelf="" label REPLY
+  local k
   local -a reply
-  local -i width=0
   __tt_order
-  if ! __tt_color; then
-    for k in $reply; do
-      printf '%s\t%s\t%s\n' "$k" "${TTHEME_GROUP[$k]:-Other}" "${TTHEME_SRC[$k]:-unknown}"
-    done
-    return 0
-  fi
-  [[ -n $TTHEME_SPEC ]] && __tt_name_of "$TTHEME_SPEC" && cur=$REPLY
   for k in $reply; do
-    label=${k##*/}
-    [[ -n ${TTHEME_CATALOG[$k]} && ${TTHEME_GROUP[$k]} == *@* ]] && label="  $label"
-    (( ${#label} > width )) && width=${#label}
-  done
-  for k in $reply; do
-    grp=${TTHEME_GROUP[$k]:-Other}
-    if [[ $grp != $last_grp ]]; then
-      [[ $grp == *@* && $last_grp != *@* && -n $last_grp ]] && printf '  \033[2m── Markets ──────────\033[0m\n'
-      printf '  \033[1m%s\033[0m' "$grp"
-      [[ -n ${TTHEME_NATIVE[$k]} ]] && printf ' \033[2m%s\033[0m' "${TTHEME_NATIVE[$k]}"
-      printf '\n'
-      last_grp=$grp last_shelf=""
-    fi
-    shelf=""
-    [[ $grp == *@* ]] && shelf=${TTHEME_CATALOG[$k]}
-    if [[ -n $shelf && $shelf != "$last_shelf" ]]; then
-      printf '    \033[1m%s\033[0m\n' "$shelf"
-      last_shelf=$shelf
-    fi
-    label=${k##*/}
-    [[ -n $shelf ]] && label="  $label"
-    __tt_palette_line "$k" $width "${${(M)k:#$cur}:+1}" "$label"
+    printf '%s\t%s\t%s\n' "$k" "${TTHEME_GROUP[$k]:-Other}" "${TTHEME_SRC[$k]:-unknown}"
   done
-  printf '\n  \033[2mttheme use <palette> paints this tab · ttheme preview · ttheme help\033[0m\n'
 }
 
 __tt_help() {
@@ -1231,14 +1303,17 @@ __tt_cli() {
 }
 
 __tt_catalog() {
-  local was
+  local was="$TTHEME_STARTUP ${TTHEME_PALETTE[$TTHEME_STARTUP]}"
   __tt_cli "$@" || return
   [[ $1 == (list|share) ]] && return 0
+  __tt_catalog_done "$was"
+}
+
+__tt_catalog_done() {
   [[ -r $TTHEME_HOME/palettes.zsh ]] || return 0
-  was="$TTHEME_STARTUP ${TTHEME_PALETTE[$TTHEME_STARTUP]}"
   __tt_palettes_load && __tt_reloaded
-  [[ "$TTHEME_STARTUP ${TTHEME_PALETTE[$TTHEME_STARTUP]}" == "$was" ]] && return 0
-  __tt_follow "$was"
+  [[ "$TTHEME_STARTUP ${TTHEME_PALETTE[$TTHEME_STARTUP]}" == "$1" ]] && return 0
+  __tt_follow "$1"
   __tt_worn_shown
   __tt_reload
 }
@@ -1469,6 +1544,11 @@ __tt_pv_shows() {
 }
 
 __tt_pv_focus() {
+  if (( te )); then
+    __tt_pv_shows $tename
+    (( resized )) || [[ $REPLY == "$bgname" ]] || __tt_pv_bg_show "$REPLY"
+    return 0
+  fi
   [[ ${rtype[cur]} == thm ]] || return 0
   __tt_pv_shows ${rval[cur]}
   (( resized )) || [[ $REPLY == "$bgname" ]] || __tt_pv_bg_show "$REPLY"
@@ -1553,6 +1633,11 @@ __tt_pv_lw() {
   (( l < 38 )) && l=38
   (( l > 56 )) && l=56
   (( sw > 64 )) && sw=64
+  if (( te && sw < 50 )); then
+    sw=50
+    (( pw - l - 6 < sw )) && l=$(( pw - sw - 6 ))
+    (( l < 30 )) && l=30
+  fi
   (( sw > pw - l - 6 )) && sw=$(( pw - l - 6 ))
   if (( color && sw >= 32 )); then
     lw=$l
@@ -1669,6 +1754,29 @@ __tt_pv_bg_title() {
   return 0
 }
 
+__tt_pv_bar() {
+  local z=$'\e[0m' d=$'\e[2m' on=$'\e[7;1m'$ac line=" " title hint="tab next"
+  local -i i at=${TTHEME_HUB_TABS[(Ie)preview]} len=${#TTHEME_HUB_TITLES}
+  (( color )) || z= d= on=
+  [[ ${rtype[cur]} == thm ]] && hint="⇧tab switch"
+  for title in $TTHEME_HUB_TITLES; do
+    (( len += ${#title} + 2 ))
+  done
+  for (( i = 1; i <= ${#TTHEME_HUB_TITLES}; i++ )); do
+    title=${TTHEME_HUB_TITLES[i]}
+    (( i > 1 )) && line+=" "
+    if (( i != at )); then
+      line+=$d" $title "$z
+    elif (( color )); then
+      line+=$on" $title "$z
+    else
+      line+="[$title]"
+    fi
+  done
+  (( len + ${#hint} + 2 <= $1 )) && line+="  "$d$hint$z
+  REPLY=$line
+}
+
 __tt_pv_head() {
   local b=$'\e[1m' d=$'\e[2m' z=$'\e[0m' right=$6
   (( color )) || b= d= z=
@@ -1680,7 +1788,7 @@ __tt_pv_head() {
 
 __tt_pv_foot() {
   setopt localoptions extendedglob
-  local b=$'\e[1m' d=$'\e[2m' z=$'\e[0m' y=$'\e[33m' on=$'\e[7;1m'$ac badge="" lead="" note="" right="" text line plain hex
+  local b=$'\e[1m' d=$'\e[2m' z=$'\e[0m' y=$'\e[33m' on=$'\e[7;1m'$ac badge="" lead="" note="" right="" text line plain hex tb=EDIT
   local -a kk=() kl=() seg=()
   local -i end=$1 i lwid rwid room
   (( color )) || b= d= z= y= on=
@@ -1692,6 +1800,7 @@ __tt_pv_foot() {
     badge=HELP right=$b"? esc"$z$d" close"$z
   elif [[ -n $pick ]]; then
     badge='PREVIEW (APPLY)' lead="$pick →"
+    (( te )) && badge="$tb (APPLY)"
     for (( i = 1; i <= ${#plabel}; i++ )); do
       if (( i != pk )); then
         lead+=" "$d${plabel[i]}$z
@@ -1703,34 +1812,58 @@ __tt_pv_foot() {
     done
     if [[ $mode == pin ]]; then
       badge='PREVIEW (PIN)'
-      __tt_pin_base "${pkeys[pk]}"
-      __tt_dir_label "$REPLY"
+      (( te )) && badge="$tb (PIN)"
+      __tt_pin_where "${pkeys[pk]}"
       note=$REPLY
-    elif (( pk == 1 )); then
+    elif (( pk == 2 )); then
       note="Until this tab closes"
     else
       note="New tabs · the default palette"
     fi
     kk=(enter) kl=(confirm)
     right=$b"esc"$z$d" back"$z
-  elif [[ -n $tune ]]; then
-    badge='IMAGE EDIT' kk=(↑↓ ←→ '=' +) kl=(field step reset "reset all")
-    if (( tf == 2 )); then
-      kl[2]=move kk+=(1-9) kl+=(place)
-    elif (( tf == 4 )); then
-      kl[2]=switch kk=(${kk:#'='}) kl=("${(@)kl[1,2]}" "reset all")
-    else
-      kk+=(⇧←→) kl+=(×10)
+  elif (( te && tfocus == 0 )); then
+    badge=$tb
+    kk=("${(@ps:\x1e:)teframe[6]}") kl=("${(@ps:\x1e:)teframe[7]}")
+    i=${kk[(Ie)esc]}
+    (( i )) && kk[i]=() kl[i]=()
+    right=$b"esc"$z$d" cancel"$z
+    if [[ $temode == list ]]; then
+      kk=("${kk[1]}" s "${(@)kk[2,-1]}" ⇧enter) kl=("${kl[1]}" save "${(@)kl[2,-1]}" apply)
+    elif [[ $temode == tune ]]; then
+      right=$b"esc"$z$d" undo"$z
+    elif [[ $temode == (type|compare) ]]; then
+      right=$b"esc"$z$d" back"$z
     fi
-    if (( bgoff[$tpick] )); then
-      kk+=(space enter) kl+=(show keep)
+  elif (( te && tfocus == 2 )); then
+    badge=$tb kk=(enter ↑↓ s) kl=(apply move save)
+    right=$b"esc"$z$d" cancel"$z
+  elif (( te )); then
+    badge=$tb
+    kk=(↑↓ ←→ s) kl=(field step save)
+    if [[ -n $tune ]] && (( tf == 5 )); then
+      __tt_pv_bg_images $tune
+      kl[2]="image ×$REPLY"
+      (( REPLY > 1 )) || { kk[2]=() kl[2]=() }
+      __tt_pv_bg_findable $tune && { kk+=(f); kl+=(find) }
+      kk+=(D) kl+=(remove)
+    elif [[ -n $tune ]]; then
+      __tt_pv_bg_findable $tune && { kk+=(f); kl+=(find) }
+      if (( tf == 2 )); then
+        kl[2]=move kk+=(1-9 '=' +) kl+=(place reset "reset all")
+      elif (( tf == 4 )); then
+        kl[2]=switch kk+=(+) kl+=("reset all")
+      else
+        kk+=('=' + ⇧←→) kl+=(reset "reset all" ×10)
+      fi
+      (( bgoff[$tpick] )) && { kk+=(space); kl+=(show) } || { kk+=(c space); kl+=(colors hide) }
+      __tt_pv_bg_images $tune
+      (( REPLY > 1 )) && { kk+=(', .' D); kl+=("image ×$REPLY" remove) }
     else
-      kk+=(c space enter) kl+=(colors hide keep)
+      kk=(enter ↑↓ s) kl=(find move save)
     fi
-    __tt_pv_bg_images $tune
-    (( REPLY > 1 )) && { kk+=(', .' D); kl+=("image ×$REPLY" remove) }
-    __tt_pv_bg_findable $tune && { kk+=(f); kl+=(find) }
-    right=$b"esc"$z$d" undo"$z
+    kk+=(⇧enter) kl+=(apply)
+    right=$b"esc"$z$d" cancel"$z
   elif (( conf )); then
     badge=CONFIG kk=(↑↓ ←→ enter) kl=(setting value save)
     right=$b"esc"$z$d" undo"$z
@@ -1746,13 +1879,7 @@ __tt_pv_foot() {
         kk=(→) kl=(open)
       fi
     else
-      kk=(enter) kl=(apply)
-      [[ $mode == pin ]] && kl[1]=pin
-      if __tt_pv_bg_state ${rval[cur]}; then
-        kk+=(tab) kl+=("tune bg")
-      elif __tt_pv_bg_findable ${rval[cur]}; then
-        kk+=(tab) kl+=("find bg")
-      fi
+      kk=(enter tab) kl=(apply edit)
       (( split )) && { kk+=(⇧←→); kl+=(example) }
       [[ -n $flt ]] && { kk+=(bksp); kl+=(edit) }
     fi
@@ -1813,20 +1940,38 @@ __tt_pv_foot() {
 __tt_pv_help() {
   local back="the tab" z=$'\e[0m' b=$'\e[1m' blank
   [[ -n ${TTHEME_PALETTE[$cn]} ]] && back=$cn
-  local -a hk=(Move Series Filter "" Example Apply) hv=(
-    "↑↓  home  end  pgup  pgdn"
-    "←→  ·  enter or space on a series"
-    "Any text  ·  bksp  ·  ctrl-u clears"
-    "Names and titles, in Japanese too"
-    "⇧←→  ${(Lj:, :)TTHEME_SCENES}"
-    "enter  ·  esc restores $back"
-  )
-  if (( bgcw )); then
-    hk+=("Tune bg" "" "" "" "" "" "")
-    hv+=("tab  ·  finds one on the boorus, or takes your own, if none" "↑↓ field  ←→ step  ⇧←→ ×10  1-9 place" "=  resets a field  ·  +  resets all" "space hides  ·  enter keeps  ·  esc undoes" "c  tone  ↔  the picture's own colors" ",  .  other pictures  ·  D removes one" "f  adds one from the boorus or your own")
+  local -a hk=() hv=()
+  if (( te )); then
+    hk=(Move Image "" "" "" Palette "" "" "" Apply Save Cancel)
+    hv=(
+      "↑↓ j k  the image, the palette, then Apply  ·  home  end"
+      "Images  ←→  , .  pick one  ·  D removes it  ·  f  finds one"
+      "enter on the empty frame  ·  finds the first one"
+      "←→ step  ⇧←→ ×10  1-9 place  ·  =  resets  ·  +  all"
+      "space  hides  ·  c  colors"
+      "←→  normal or bright  ·  enter tab  tune it  ·  #  a color"
+      "r  resets a slot  ·  R  all  ·  space  the colors before"
+      "c  copies  ·  v  pastes  ·  =  bright follows normal"
+      "f  moves the colors the gate misses  ·  u  undo"
+      "enter on Apply, or ⇧enter anywhere  ·  saves, asks where"
+      "s  ·  keeps the picture and the palette"
+      "esc  ·  back to the list, dropping what changed since s"
+    )
+  else
+    hk=(Move Series Filter "" Example Apply Edit)
+    hv=(
+      "↑↓  home  end  pgup  pgdn"
+      "←→  ·  enter or space on a series"
+      "Any text  ·  bksp  ·  ctrl-u clears"
+      "Names and titles, in Japanese too"
+      "⇧←→  ${(Lj:, :)TTHEME_SCENES}"
+      "enter  applies  ·  esc restores $back"
+      "tab  →  ctrl+e  ·  its colors and picture"
+    )
+    hk+=(Config "")
+    hv+=("alt-c  ·  ↑↓ setting  ←→ value" "enter saves  ·  esc undoes")
+    (( hub )) && { hk+=(Screens); hv+=("shift+tab  ·  tab on a series") }
   fi
-  hk+=(Config "")
-  hv+=("alt-c  ·  ↑↓ setting  ←→ value" "enter saves  ·  esc undoes")
   hk+=(Close)
   hv+=("?  esc")
   (( color )) || z= b=
@@ -1840,6 +1985,7 @@ __tt_pv_help() {
     return 0
   fi
   w=$(( pw - 2 < 58 ? pw - 2 : 58 )) hh=$(( ${#hk} + 4 ))
+  (( te )) && w=$(( pw - 2 < 76 ? pw - 2 : 76 ))
   x=$(( (pw - w) / 2 + 1 )) y=$(( (ph - hh) / 2 ))
   (( y < 4 )) && y=4
   blank=${(l:w:: :)}
@@ -1961,21 +2107,11 @@ __tt_pv_tune() {
     ',') __tt_pv_bg_pick -1 ;;
     '.') __tt_pv_bg_pick 1 ;;
     D) __tt_pv_bg_drop ;;
-    f)
-      __tt_pv_bg_findable $tune || return 0
-      name=$tune
-      __tt_pv_untune
-      __tt_pv_bg_find $name
-      __tt_pv_tune_open $name
-      ;;
-    $'\r'|$'\n') __tt_pv_tune_keep ;;
-    esc) __tt_pv_untune ;;
-    '?') help=1 ;;
   esac
   return 0
 }
 
-__tt_pv_tune_keep() {
+__tt_pv_tune_stage() {
   local img was=${bgview[$tune]:-$tune}
   local -i changed=0
   for img in ${(k)tsnaps}; do
@@ -1991,10 +2127,14 @@ __tt_pv_tune_keep() {
     fi
   fi
   (( changed )) && msg="Kept · saved when preview closes" msgt=200
-  __tt_pv_bg_strip_off
   tune="" tpick="" tsnaps=() bgname=""
 }
 
+__tt_pv_tune_keep() {
+  __tt_pv_bg_strip_off
+  __tt_pv_tune_stage
+}
+
 __tt_pv_untune() {
   local img
   local -a s
@@ -2019,8 +2159,8 @@ __tt_pv_regroup() {
 __tt_pv_conf() {
   case $key in
     $'\x03') return 1 ;;
-    up) cf=$(( cf > 1 ? cf - 1 : ${#cvars} )) ;;
-    down) cf=$(( cf < ${#cvars} ? cf + 1 : 1 )) ;;
+    up|k) cf=$(( cf > 1 ? cf - 1 : ${#cvars} )) ;;
+    down|j) cf=$(( cf < ${#cvars} ? cf + 1 : 1 )) ;;
     left|sleft) __tt_pv_conf_step -1 ;;
     right|sright) __tt_pv_conf_step 1 ;;
     $'\r'|$'\n') __tt_pv_conf_save ;;
@@ -2090,7 +2230,6 @@ __tt_pv_redraw() {
   msg="Drawing the background pictures again" msgt=300
   printf '\e[?2026h'
   __tt_pv_draw
-  __tt_pv_bg_close
   out=$(__tt_cli redraw 2>&1)
   bgsrc=() resized=1 bgname="" bgshown="" bgdim=()
   __tt_reload
@@ -2173,27 +2312,36 @@ __tt_pv_reach() {
   local -i room=$2
   (( color )) || d= z=
   (( room < 2 )) && room=2
-  __tt_pin_base "$key"
-  base=$REPLY
-  for k in ${(k)TTHEME_PINS}; do
-    [[ $k == /* ]] || continue
-    __tt_pin_base "$k"
-    [[ $REPLY == "$base" ]] || continue
-    if [[ $k != "$key" || $TTHEME_PINS[$k] != "$pick" ]]; then
-      __tt_pin_scope "$k"
-      was+=("${TTHEME_PINS[$k]} · $REPLY")
-    fi
-    unset "TTHEME_PINS[$k]"
-  done
-  TTHEME_PINS[$key]=$pick
-  top=$base
-  [[ $base != / ]] && __tt_pin_cover "${base:h}" && __tt_pin_base "$REPLY" && top=$REPLY
-  mark[$base]=new
-  __tt_map_build "$top"
+  if [[ $key == ssh:* ]]; then
+    __tt_pin_scope "$key"
+    [[ -n ${TTHEME_PINS[$key]} && $TTHEME_PINS[$key] != "$pick" ]] && was+=("${TTHEME_PINS[$key]} · $REPLY")
+    TTHEME_PINS[$key]=$pick
+    mark[$key]=new
+    __tt_map_ssh
+  else
+    __tt_pin_base "$key"
+    base=$REPLY
+    for k in ${(k)TTHEME_PINS}; do
+      [[ $k == /* ]] || continue
+      __tt_pin_base "$k"
+      [[ $REPLY == "$base" ]] || continue
+      if [[ $k != "$key" || $TTHEME_PINS[$k] != "$pick" ]]; then
+        __tt_pin_scope "$k"
+        was+=("${TTHEME_PINS[$k]} · $REPLY")
+      fi
+      unset "TTHEME_PINS[$k]"
+    done
+    TTHEME_PINS[$key]=$pick
+    top=$base
+    [[ $base != / ]] && __tt_pin_cover "${base:h}" && __tt_pin_base "$REPLY" && top=$REPLY
+    mark[$base]=new
+    __tt_map_build "$top"
+  fi
   __tt_map_fit $1
   (( ${#reply} > room )) && reply=("${(@)reply[1,room-1]}" "   …")
-  reach=("${reply[@]}" "")
-  __tt_dir_label "$base"
+  reach=("${reply[@]}")
+  [[ $key == /* || ${#was} -gt 0 ]] && reach+=("")
+  __tt_pin_where "$key"
   base=$REPLY
   for k in $was; do
     __tt_clip "${d}Replaces ${k% · *} on $base · ${k##* · }$z" $1
@@ -2202,6 +2350,7 @@ __tt_pv_reach() {
   __tt_pin_scope "$key"
   __tt_clip "→ $base · $REPLY" $(( $1 - ${(m)#pick} - 2 ))
   rsub=$REPLY
+  [[ $key == /* ]] || return 0
   __tt_here_fit "Then here" $1
   reach+=("${reply[@]}")
 }
@@ -2215,11 +2364,14 @@ __tt_pv_draw() {
     __tt_pv_norm "$flt"
     nflt=$REPLY
   fi
+  if (( te )) && [[ -n $tespec && $tespec != "$applied" ]]; then
+    __tt_pv_paint "$tespec"
+    applied=$tespec
+  fi
   __tt_pv_lw
   lw=$reply[1] sw=$reply[2]
   split=$(( sw > 0 )) sc=$(( pw - 1 - sw ))
   h=$(( ph - 5 ))
-  [[ -n $tune ]] && (( ! split )) && h=$(( ph - 14 ))
   (( conf && ! split )) && h=$(( ph - 6 - ${#cvars} ))
   reach=()
   if [[ -n $pick && $mode == pin ]]; then
@@ -2269,6 +2421,10 @@ __tt_pv_draw() {
     __tt_pv_flush
     return 0
   fi
+  if (( te && ! split )); then
+    __tt_pv_te_draw
+    return 0
+  fi
   if [[ -n $flt ]]; then
     if (( color )); then
       line="   "$'\e[1m'$flt$zz$ac$'\e[7m \e[0m'
@@ -2300,11 +2456,16 @@ __tt_pv_draw() {
   local tail=$'\e['$(( lw - ${#cnt} ))'G'$dd$cnt$zz
   [[ -n $flt ]] && tail=$'\e['$(( lw - ${#cnt} ))'G'$cnt
   if [[ $1 == hint ]] && (( ! wiped )); then
-    print -rn -- $'\e[H\e[0m\e['$lw'X'$line$tail
-    printf '\e[1;%dH\e[?2026l' $(( 4 + ${(m)#flt} ))
+    print -rn -- $'\e['$(( 1 + hub ))$'H\e[0m\e['$lw'X'$line$tail
+    printf '\e[%d;%dH\e[?2026l' $(( 1 + hub )) $(( 4 + ${(m)#flt} ))
     return 0
   fi
-  out+=$line$'\e[K'$tail$'\n\e[K\n'
+  if (( hub )); then
+    __tt_pv_bar $(( split ? sc - 2 : pw - 1 ))
+    out+=$REPLY$'\e[K\n'$line$'\e[K'$tail$'\n'
+  else
+    out+=$line$'\e[K'$tail$'\n\e[K\n'
+  fi
   (( N > h && top > 1 )) && out+="   "$dd"…"$zz
   out+=$'\e[K\n'
   for (( k = 0; k < ph - 4; k++ )); do
@@ -2332,17 +2493,15 @@ __tt_pv_draw() {
       for (( k = 1; k <= ${#reach} && k + 2 < ph; k++ )); do
         out+=$'\e['$(( k + 2 ))';'$sc'H'${reach[k]}
       done
-    elif [[ -n $tune ]]; then
-      (( bgoff[$tpick] )) && state=off
-      __tt_pv_bg_title $(( sw - ${#tune} - 6 ))
-      __tt_pv_head 1 $sc $se $tune "$REPLY" $state
-      __tt_pv_bg_panel $tpick 4 $sc $se
     elif (( conf )); then
       __tt_tilde "$TTHEME_CONFIG"
       src=$REPLY
       (( 8 + ${#src} > sw )) && src=""
       __tt_pv_head 1 $sc $se Config "" "$src"
       __tt_pv_conf_panel 4 $sc $se
+    elif (( te )); then
+      __tt_pv_te_head $sc $se
+      __tt_pv_te_panel $sc $se 3 $(( ph - 1 ))
     else
       [[ -n $an ]] && src=${TTHEME_SRC[$an]}
       (( ${#an} + 2 + ${#src} > sw )) && src=""
@@ -2356,18 +2515,6 @@ __tt_pv_draw() {
       for (( k = 1; k <= ${#reach}; k++ )); do
         out+=$'\e['$(( ph - 1 - ${#reach} + k ))';1H'${reach[k]}
       done
-    elif [[ -n $tune ]]; then
-      (( bgoff[$tpick] )) && state=off
-      held=(${=bgpics[$tune]})
-      src=""
-      if (( ${#held} > 1 )); then
-        k=${held[(Ie)${${tpick#$tune}#:}]}
-        (( k )) || k=${held[(Ie)${bgact[$tune]}]}
-        src=" · $k/${#held}"
-      fi
-      __tt_pv_bg_title $(( lw - ${#tune} - 6 )) "$src"
-      __tt_pv_head $(( ph - 10 )) 1 $lw $tune "$REPLY" $state
-      __tt_pv_bg_panel $tpick $(( ph - 9 )) 1 $lw
     elif (( conf )); then
       __tt_pv_head $(( ph - 2 - ${#cvars} )) 1 $lw Config
       __tt_pv_conf_panel $(( ph - 1 - ${#cvars} )) 1 $lw
@@ -2447,9 +2594,17 @@ __tt_pv_getch() {
     read -sk 1 -t $1 2>/dev/null
     return
   fi
-  local t=0.2
+  local -F t=0.2 at
+  local -i quick=0
   (( gstep )) && t=0.06
-  while ! read -sk 1 -t $t 2>/dev/null; do
+  while :; do
+    at=$EPOCHREALTIME
+    read -sk 1 -t $t 2>/dev/null && return 0
+    if (( EPOCHREALTIME - at < t / 4 )); then
+      (( ++quick >= 5 )) && { pvgone=1; return 1 }
+    else
+      quick=0
+    fi
     [[ -t 0 ]] || return 1
     __tt_pv_size && return 1
     if (( osdt > 0 )); then
@@ -2461,9 +2616,8 @@ __tt_pv_getch() {
       (( msgt > 0 )) || return 1
     fi
     (( gstep )) && { gstep=$(( gstep - 1 )); tick=1; return 1 }
-    (( SECONDS >= exnext )) && { __tt_pv_roll; gstep=8; tick=1; return 1 }
+    (( ! te && SECONDS >= exnext )) && { __tt_pv_roll; gstep=8; tick=1; return 1 }
   done
-  return 0
 }
 
 __tt_pv_read() {
@@ -2501,6 +2655,7 @@ __tt_pv_read() {
     "6~") key=pgdn ;;
     "1;2C") key=sright ;;
     "1;2D") key=sleft ;;
+    "27;2;13~"|"13;2u") key=senter ;;
     Z) key=stab ;;
     *) key=nop ;;
   esac
@@ -2512,7 +2667,7 @@ __tt_pv_pick() {
     esc) pick="" ;;
     left|stab) pk=$(( (pk + ${#plabel} - 2) % ${#plabel} + 1 )) ;;
     right|$'\t') pk=$(( pk % ${#plabel} + 1 )) ;;
-    $'\r'|$'\n')
+    $'\r'|$'\n'|senter)
       sel=$pick picked=$pk
       return 1
       ;;
@@ -2520,6 +2675,457 @@ __tt_pv_pick() {
   return 0
 }
 
+__tt_pv_screen() {
+  local err
+  local -i at=${TTHEME_HUB_TABS[(Ie)preview]} n=${#TTHEME_HUB_TABS} rc
+  local -i to=$(( (at - 1 + $1 + n) % n + 1 ))
+  __tt_pv_bg_close
+  while (( to != at )); do
+    hubwas="$TTHEME_STARTUP ${TTHEME_PALETTE[$TTHEME_STARTUP]}"
+    err=$(TTHEME_HUB=${TTHEME_HUB_TABS[to]} __tt_cli ${TTHEME_HUB_TABS[to]} 2>&1 >/dev/tty)
+    rc=$?
+    if (( rc == TTHEME_HUB_CLOSED )); then
+      hubleft=1
+      return 1
+    elif (( rc > TTHEME_HUB_SWITCH && rc <= TTHEME_HUB_SWITCH + n )); then
+      to=$(( rc - TTHEME_HUB_SWITCH ))
+    else
+      err=${${err//$'\n'/ }## #}
+      msg=${err:-"${TTHEME_HUB_TITLES[to]} failed"} msgt=300
+      to=$at
+    fi
+  done
+  printf '\e[?2026h\e[?25l'
+  if [[ -n $applied ]]; then
+    __tt_pv_paint "$applied"
+  else
+    __tt_osc_reset
+    painted=""
+  fi
+  resized=1 bgname="" bgshown="" bgdim=()
+  return 0
+}
+
+__tt_te_stop() {
+  setopt localoptions nomonitor nonotify
+  (( TE_IN )) && { print -r -u $TE_IN -- quit 2>/dev/null; exec {TE_IN}>&- }
+  (( TE_OUT )) && exec {TE_OUT}<&-
+  TE_IN=0 TE_OUT=0
+  (( TE_PID )) && { kill $TE_PID 2>/dev/null; wait $TE_PID 2>/dev/null }
+  TE_PID=0
+  return 0
+}
+
+__tt_te_ask() {
+  local line
+  (( TE_IN && TE_OUT )) || return 1
+  print -r -u $TE_IN -- "$1" 2>/dev/null || { __tt_te_stop; return 1 }
+  if ! IFS= read -r -u $TE_OUT -t 5 line 2>/dev/null; then
+    __tt_te_stop
+    msg="The palette panel stopped" msgt=300
+    return 1
+  fi
+  teframe=("${(@ps:\x1f:)line}")
+  temode=${teframe[3]:-list}
+  tedirty=${teframe[4]:-0}
+  [[ ${teframe[1]} == error ]] && { msg=${teframe[8]:-"Could not save the tone"} msgt=300 }
+  [[ -n ${teframe[5]} ]] && tespec=${teframe[5]}
+  return 0
+}
+
+__tt_te_unsaved_image() {
+  local img
+  for img in ${(k)tsnaps}; do
+    [[ "${bgsize[$img]} ${bgpos[$img]} ${bgop[$img]} ${bgoff[$img]}" == "${tsnaps[$img]}" ]] || return 0
+  done
+  [[ -n $tune && $tpick != "${bgview[$tune]:-$tune}" ]] && return 0
+  return 1
+}
+
+__tt_te_unsaved() {
+  (( tedirty )) && return 0
+  __tt_te_unsaved_image
+}
+
+__tt_te_save_image() {
+  __tt_te_unsaved_image || return 0
+  __tt_pv_tune_keep
+  __tt_pv_bg_save > /dev/null 2>&1
+  bgedit=() bgswap=() bgview=()
+  __tt_pv_bg_reset $tename
+  bgload[$tename]=""
+  __tt_pv_tune_open $tename
+}
+
+__tt_te_open() {
+  local name=$1
+  local -i rfd wfd
+  setopt localoptions nomonitor nonotify
+  coproc __tt_cli tone $name 2>/dev/null
+  exec {rfd}<&p {wfd}>&p
+  TE_OUT=$rfd TE_IN=$wfd TE_PID=$!
+  tename=$name tfocus=0 tespec="" tesz="" teframe=() tedirty=0 temode=list tetop=0 msgt=0
+  if ! __tt_te_ask "focus 1"; then
+    msg="Could not start the palette panel for $name" msgt=300
+    __tt_te_stop
+    return 0
+  fi
+  te=1
+  (( bgcw )) && __tt_pv_bg_state $name && __tt_pv_tune_open $name
+  __tt_te_image && __tt_te_to_image 1
+  resized=1
+  return 0
+}
+
+__tt_te_close() {
+  [[ -n $tune ]] && __tt_pv_untune
+  __tt_te_stop
+  te=0 tfocus=0 tename="" tespec="" tesz="" teframe=() tetop=0 help=0 pick=""
+  resized=1 bgname=""
+  return 0
+}
+
+__tt_te_save() {
+  __tt_te_save_image
+  if (( tedirty )); then
+    __tt_te_ask save || return 1
+    if [[ ${teframe[1]} == saved ]]; then
+      __tt_palettes_load && __tt_reloaded
+      __tt_reload
+      applied=${TTHEME_PALETTE[$tename]:-$applied}
+      tespec=$applied
+    else
+      return 1
+    fi
+  fi
+  msg="Saved" msgt=200
+  return 0
+}
+
+__tt_te_apply() {
+  if __tt_te_unsaved; then
+    __tt_te_save || return 0
+  fi
+  if (( canpick )); then
+    pick=$tename pk=$pkdef
+    return 0
+  fi
+  sel=$tename
+  return 1
+}
+
+__tt_te_image() {
+  [[ -n $tune ]] || __tt_pv_bg_findable $tename
+}
+
+__tt_te_to_image() {
+  tfocus=1 tf=5
+  [[ $1 == last && -n $tune ]] && tf=3
+  __tt_te_ask "focus 0"
+}
+
+__tt_te_to_palette() {
+  tfocus=0
+  __tt_te_ask "focus 1" && __tt_te_ask "key $1"
+}
+
+__tt_te_to_apply() {
+  tfocus=2
+  __tt_te_ask "focus 0"
+}
+
+__tt_te_to_top() {
+  if __tt_te_image; then
+    __tt_te_to_image first
+  else
+    __tt_te_to_palette home
+  fi
+}
+
+__tt_te_find() {
+  local name=$tename
+  __tt_pv_bg_findable $name || return 0
+  __tt_te_save_image
+  __tt_pv_untune
+  __tt_pv_bg_find $name
+  __tt_pv_bg_state $name && __tt_pv_tune_open $name
+  tf=5
+  return 0
+}
+
+__tt_te_key() {
+  local m
+  if [[ $temode == list ]]; then
+    case $key in
+      home) __tt_te_to_top; return 0 ;;
+      end) __tt_te_to_apply; return 0 ;;
+    esac
+  fi
+  case $key in
+    up|down|left|right|home|end|pgup|pgdn|esc) m="key $key" ;;
+    sleft) m="key shift-left" ;;
+    sright) m="key shift-right" ;;
+    stab) m="key shift-tab" ;;
+    $'\t') m="key tab" ;;
+    $'\r'|$'\n') m="key enter" ;;
+    $'\x7f'|$'\x08') m="key backspace" ;;
+    $'\x03') m="key ctrl-c" ;;
+    nop|altc) return 0 ;;
+    *)
+      (( ${#key} == 1 )) || return 0
+      m="ch $(( #key ))"
+      ;;
+  esac
+  __tt_te_ask "$m" || { __tt_te_close; return 0 }
+  case ${teframe[2]} in
+    save) __tt_te_save ;;
+    cancel) __tt_te_close ;;
+    below) __tt_te_to_apply ;;
+    above)
+      if __tt_te_image; then
+        __tt_te_to_image last
+      else
+        __tt_te_to_apply
+      fi
+      ;;
+  esac
+  return 0
+}
+
+__tt_pv_te_image() {
+  local -a order=(5)
+  local -i i
+  [[ -n $tune ]] && order=(5 4 1 2 3)
+  i=${order[(Ie)$tf]}
+  (( i )) || { tf=5; i=1 }
+  case $key in
+    s) __tt_te_save ;;
+    esc) __tt_te_close ;;
+    up|k)
+      if (( i > 1 )); then
+        tf=${order[i-1]}
+      else
+        __tt_te_to_apply
+      fi
+      ;;
+    down|j)
+      if (( i < ${#order} )); then
+        tf=${order[i+1]}
+      else
+        __tt_te_to_palette home
+      fi
+      ;;
+    home) tf=5 ;;
+    end) __tt_te_to_apply ;;
+    $'\r'|$'\n') [[ -n $tune ]] || __tt_te_find ;;
+    f) __tt_te_find ;;
+    left|right|sleft|sright)
+      if (( tf == 5 )); then
+        if [[ -z $tune ]]; then
+          :
+        elif [[ $key == *left ]]; then
+          __tt_pv_bg_pick -1
+        else
+          __tt_pv_bg_pick 1
+        fi
+      elif [[ -n $tune ]]; then
+        __tt_pv_tune
+      fi
+      ;;
+    '=') [[ -n $tune ]] && (( tf != 5 )) && __tt_pv_tune ;;
+    *) [[ -n $tune ]] && __tt_pv_tune ;;
+  esac
+  [[ -n $tune ]] || tf=5
+  return 0
+}
+
+__tt_te_button() {
+  case $key in
+    $'\r'|$'\n') __tt_te_apply; return $? ;;
+    s) __tt_te_save ;;
+    esc) __tt_te_close ;;
+    up|k) __tt_te_to_palette end ;;
+    down|j|home) __tt_te_to_top ;;
+  esac
+  return 0
+}
+
+__tt_pv_te() {
+  case $key in
+    $'\x03') return 1 ;;
+    $'\x05') return 0 ;;
+    senter) __tt_te_apply; return $? ;;
+    '?') help=1; return 0 ;;
+  esac
+  case $tfocus in
+    0) __tt_te_key ;;
+    1) __tt_pv_te_image ;;
+    *) __tt_te_button ;;
+  esac
+  return $?
+}
+
+__tt_pv_te_head() {
+  local z=$'\e[0m' d=$'\e[2m' b=$'\e[1m' y=$'\e[33m' line REPLY
+  local -i col=$1 end=$2 room=$(( $2 - $1 + 1 ))
+  (( color )) || z= d= b= y=
+  __tt_te_unsaved && (( room -= 11 ))
+  line=$b$ac"◆"$z" "$b$tename$z
+  [[ -n ${TTHEME_GROUP[$tename]} ]] && line+=" "$d"· ${TTHEME_GROUP[$tename]}"$z
+  __tt_clip "$line" $room
+  out+=$'\e[1;'$col'H'$REPLY$z
+  __tt_te_unsaved && out+=$'\e[1;'$(( end - 8 ))'H'$y"●"$z" "$d"unsaved"$z
+  return 0
+}
+
+__tt_pv_te_tile() {
+  local z=$'\e[0m' d=$'\e[2m' b=$'\e[1m' sty top side bot
+  local -i y=$1 col=$2 r tc=10
+  (( color )) || z= d= b=
+  if (( tfocus == 1 && tf == 5 )); then
+    sty=$b$ac top="┏${(l:tc::━:)}┓" side="┃" bot="┗${(l:tc::━:)}┛"
+  else
+    sty=$d top="╭${(l:tc::─:)}╮" side="│" bot="╰${(l:tc::─:)}╯"
+  fi
+  out+=$'\e['$y';'$col'H'$sty$top$z
+  for (( r = 1; r <= 3; r++ )); do
+    out+=$'\e['$(( y + r ))';'$col'H'$sty$side${(l:tc::░:)}$side$z
+  done
+  out+=$'\e['$(( y + 4 ))';'$col'H'$sty$bot$z$'\e['$(( y + 2 ))';'$(( col + tc + 4 ))'H'
+  if (( tfocus == 1 && tf == 5 )); then
+    out+=$b"enter"$z$d" finds one"$z
+  else
+    out+=$d"enter finds one"$z
+  fi
+  return 0
+}
+
+__tt_pv_te_ghost() {
+  local z=$'\e[0m' d=$'\e[2m'
+  local -i r0=$1 col=$2 T=$(( $3 - $2 - 21 )) i
+  (( color )) || z= d=
+  (( T < 8 )) && T=8
+  out+=$'\e['$r0';'$col'H  '$d"Colors"$'\e['$r0';'$(( col + 12 ))'H'" tone   original "$z
+  out+=$'\e['$(( r0 + 1 ))';'$col'H  '$d"Size"$'\e['$(( r0 + 1 ))';'$(( col + 12 ))'H'${(l:T::─:)}$z
+  for (( i = 1; i <= 9; i++ )); do
+    out+=$'\e['$(( r0 + 3 + (i - 1) / 3 ))';'$(( col + 12 + (i - 1) % 3 * 3 ))'H'$d"·"$z
+  done
+  out+=$'\e['$(( r0 + 4 ))';'$col'H  '$d"Position"$z
+  out+=$'\e['$(( r0 + 7 ))';'$col'H  '$d"Opacity"$'\e['$(( r0 + 7 ))';'$(( col + 12 ))'H'${(l:T::─:)}$z
+  return 0
+}
+
+__tt_pv_te_panel() {
+  local z=$'\e[0m' d=$'\e[2m' b=$'\e[1m' tt st note REPLY
+  local -a held
+  local -i col=$1 end=$2 r0=$3 r1=$4 R W T I=3 V at i n y tfs=$tf lo=15
+  (( color )) || z= d= b=
+  R=$(( r1 - r0 + 1 )) W=$(( end - col + 1 ))
+  [[ $temode == list ]] || lo=21
+  [[ -n $tune ]] || __tt_pv_bg_findable $tename && I=17
+  T=$(( R - I - 3 ))
+  (( T > 26 )) && T=26
+  (( T < 21 )) && T=$lo
+  if [[ "$W $T" != "$tesz" ]]; then
+    tesz="$W $T"
+    __tt_te_ask "size $W $T"
+  fi
+  V=$(( I + T + 3 ))
+  if (( V <= R || tfocus == 1 )); then
+    tetop=0
+  elif (( tfocus == 2 )); then
+    tetop=$(( V - R ))
+  else
+    at=$(( I + 1 + ${teframe[9]:-2} ))
+    (( at - 2 < tetop )) && tetop=$(( at > 2 ? at - 2 : 0 ))
+    (( at > tetop + R )) && tetop=$(( at - R ))
+    (( tetop > V - R )) && tetop=$(( V - R ))
+  fi
+  if (( tetop == 0 && I <= R )); then
+    y=$r0
+    tt=$d
+    (( tfocus == 1 )) && tt=$b$ac
+    out+=$'\e['$y';'$(( col + 2 ))'H'$tt"Image"$z
+    if [[ -n $tune ]]; then
+      (( bgoff[$tpick] )) && st=off || st=on
+      __tt_pv_bg_title $(( W - 14 ))
+      out+="  "$d$REPLY$z$'\e['$y';'$(( end - ${#st} + 1 ))'H'$d$st$z
+    fi
+    if (( I == 17 )); then
+      held=() n=0 note="0/0"
+      if [[ -n $tune ]]; then
+        held=(${=bgpics[$tune]})
+        n=${held[(Ie)${${tpick#$tune}#:}]}
+        (( n )) || n=${held[(Ie)${bgact[$tune]}]}
+        (( n )) || n=1
+        note="$n/$(( ${#held} ? ${#held} : 1 ))"
+      fi
+      st="  " tt=$d
+      (( tfocus == 1 && tf == 5 )) && st=$ac"▶"$z" " tt=$b
+      out+=$'\e['$(( y + 2 ))';'$col'H'$st$tt"Images"$z$'\e['$(( y + 2 ))';'$(( end - ${#note} + 1 ))'H'$d$note$z
+      if [[ -n $tune ]]; then
+        bgstrip="$(( y + 2 )) $col $end"
+        (( tfocus == 1 )) || tf=0
+        __tt_pv_bg_panel $tpick $(( y + 9 )) $col $end
+        tf=$tfs
+      else
+        __tt_pv_te_tile $(( y + 3 )) $col
+        __tt_pv_te_ghost $(( y + 9 )) $col $end
+      fi
+    elif (( bgcw )); then
+      out+=$'\e['$(( y + 2 ))';'$(( col + 2 ))'H'$d"No picture yet"$z
+    else
+      out+=$'\e['$(( y + 2 ))';'$(( col + 2 ))'H'$d"This terminal shows no pictures"$z
+    fi
+  fi
+  for (( i = 1; i <= T; i++ )); do
+    y=$(( r0 + I + i - tetop ))
+    (( y >= r0 && y <= r1 )) || continue
+    out+=$'\e['$y';'$col'H'${teframe[9 + i]}$z
+  done
+  y=$(( r0 + V - 1 - tetop ))
+  (( y >= r0 && y <= r1 )) || return 0
+  if [[ $mode == pin ]]; then
+    note="saves, then asks how far it reaches"
+  elif (( canpick )); then
+    note="saves, then asks where"
+  else
+    note="saves and wears it in this tab"
+  fi
+  out+=$'\e['$y';'$col'H'
+  if (( tfocus == 2 )); then
+    (( color )) && out+=$ac"▶"$z" "$'\e[7;1m'$ac" Apply "$z || out+="▶ [Apply]"
+  else
+    (( color )) && out+="  "$b" Apply "$z || out+="   Apply "
+  fi
+  out+="  "$d$note$z
+  return 0
+}
+
+__tt_pv_te_draw() {
+  local -i i end=$(( pw - 2 < 66 ? pw - 2 : 66 ))
+  for (( i = 1; i < ph; i++ )); do
+    out+=$'\e['$i$';1H\e[K'
+  done
+  __tt_pv_te_head 2 $end
+  __tt_pv_te_panel 2 $end 3 $(( ph - 1 ))
+  reach=()
+  if [[ -n $pick && $mode == pin ]]; then
+    __tt_pv_reach $se $(( ph - 13 ))
+    if (( ${#reach} )); then
+      __tt_pv_head $(( ph - 1 - ${#reach} )) 1 $se "$pick" "$rsub"
+      for (( i = 1; i <= ${#reach}; i++ )); do
+        out+=$'\e['$(( ph - 1 - ${#reach} + i ))$';1H\e[K'${reach[i]}
+      done
+    fi
+  fi
+  (( help )) && __tt_pv_help
+  out+=$'\e['$ph';1H'
+  __tt_pv_foot $pw
+  (( osdt > 0 )) && __tt_pv_osd
+  __tt_pv_flush
+}
+
 __tt_pv_handle() {
   local name
   if (( help )); then
@@ -2533,6 +3139,10 @@ __tt_pv_handle() {
     __tt_pv_pick
     return
   fi
+  if (( te )); then
+    __tt_pv_te
+    return
+  fi
   if [[ -n $tune ]]; then
     __tt_pv_tune
     return
@@ -2559,7 +3169,7 @@ __tt_pv_handle() {
         fi
       fi
       ;;
-    $'\r'|$'\n')
+    $'\r'|$'\n'|senter)
       if [[ ${rtype[cur]} == thm ]]; then
         if (( canpick )); then
           pick=${rval[cur]} pk=$pkdef
@@ -2587,7 +3197,14 @@ __tt_pv_handle() {
         cur=1
       fi
       ;;
-    right) [[ ${rtype[cur]} == (hdr|cat) && -z ${exp[${rval[cur]}]} ]] && __tt_pv_toggle ;;
+    right)
+      if [[ ${rtype[cur]} == thm ]]; then
+        __tt_te_open ${rval[cur]}
+      elif [[ ${rtype[cur]} == (hdr|cat) && -z ${exp[${rval[cur]}]} ]]; then
+        __tt_pv_toggle
+      fi
+      ;;
+    $'\x05') [[ ${rtype[cur]} == thm ]] && __tt_te_open ${rval[cur]} ;;
     left) __tt_pv_left ;;
     home) cur=1 ;;
     end) (( ${#rval} )) && cur=${#rval} ;;
@@ -2611,16 +3228,13 @@ __tt_pv_handle() {
       ;;
     ' ') [[ ${rtype[cur]} == (hdr|cat) ]] && __tt_pv_toggle ;;
     $'\t')
-      [[ ${rtype[cur]} == thm ]] || return 0
-      name=${rval[cur]}
-      if __tt_pv_bg_state $name || { __tt_pv_bg_findable $name && __tt_pv_bg_find $name }; then
-        __tt_pv_tune_open $name
-      elif __tt_pv_bg_findable $name; then
-        :
-      elif (( bgcw )); then
-        msg="No background image for $name" msgt=200
+      if [[ ${rtype[cur]} == thm ]]; then
+        __tt_te_open ${rval[cur]}
+      elif (( hub )); then
+        __tt_pv_screen 1 || return 1
       fi
       ;;
+    stab) (( hub )) && { __tt_pv_screen -1 || return 1 } ;;
     altc)
       conf=1 cf=1 csnap=()
       for name in $cvars; do
@@ -2654,7 +3268,10 @@ __tt_pv_handle() {
 
 __tt_preview() {
   emulate -L zsh ${=${options[xtrace]:#off}:+-o xtrace}
-  local mode=$1 pdir=${2:-$PWD}
+  zmodload -F zsh/datetime p:EPOCHREALTIME 2>/dev/null
+  local mode=$1 pdir=${2:-$PWD} hubwas=""
+  local -i hub=0 hubleft=0
+  [[ $mode == hub ]] && hub=1
   if [[ ! -t 0 || ! -t 1 ]]; then
     print -u2 "ttheme ${mode:-preview}: needs a terminal"
     return 1
@@ -2665,9 +3282,11 @@ __tt_preview() {
   local -i scene=0
   local -a bgorder=()
   local -A bgfrom=() bgurl=() bgby=() bgsent=() bgcost=() bgdim=() bgsrc=() bgfill=() bgfocus=() bgsize=() bgpos=() bgop=() bgdef=() bgoff=() bgbase=() bgload=() bgshot=() bgshotkey=() bgedit=() bgtunef=() bgofff=() bgimages=()
-  local -A bgpic=() bgpics=() bgact=() bgview=() bgswap=() bgthumb=() tsnaps=() pvseek=() bgcolors=()
+  local -A bgpic=() bgpics=() bgact=() bgview=() bgswap=() bgthumb=() tsnaps=() pvseek=() bgcolors=() bgprep=()
   local conf=0 cf=1
-  local -a plabel=(" This tab " " Default ") pkeys=() reach=() csnap=()
+  local -a plabel=(" Default " " This tab ") pkeys=() reach=() csnap=() teframe=()
+  local te=0 tfocus=0 tetop=0 tename="" tedirty=0 temode=list tespec="" tesz=""
+  local -i TE_IN=0 TE_OUT=0 TE_PID=0 pvgone=0 bgprepid=0
   local -a cvars=(TTHEME_TAB_PALETTE TTHEME_ANNOUNCE TTHEME_FX TTHEME_SORT TTHEME_BG_BLUR TTHEME_BG_COLORS) clabel=("New tabs" Announce "Search fx" Sort Blur Colors)
   local -a cchoice=("off seq" "1 0" "typewriter decode glitch" "abc series" "0 1 2 3 4" "tone original") cshow=("off seq" "on off" "typewriter decode glitch" "abc series" "off 1px 2px 3px 4px" "tone original")
   local -A cnote=(
@@ -2683,7 +3302,6 @@ __tt_preview() {
   )
   __tt_pv_conf_rows
   [[ $mode == pin ]] && __tt_pin_scopes "$pdir"
-  [[ $mode == init ]] && pkdef=2
   __tt_pv_canpick
   __tt_pv_size
   local -a groups=() rtype=() rval=() rcnt=() reply=()
@@ -2702,7 +3320,7 @@ __tt_preview() {
     printf '\e[?2026h\e[?1049h\e[?7l\e[?25l'
     while :; do
       printf '\e[?2026h'
-      if (( tick )); then
+      if (( tick && ! te )); then
         __tt_pv_draw hint
       else
         __tt_pv_focus
@@ -2711,6 +3329,7 @@ __tt_preview() {
       fi
       tick=0
       if ! __tt_pv_read; then
+        (( pvgone )) && break
         [[ -t 0 ]] && continue
         break
       fi
@@ -2735,10 +3354,13 @@ __tt_preview() {
     elif [[ $applied != "$orig" ]]; then
       __tt_pv_paint "${TTHEME_PAINTED:+$orig}"
     fi
-    printf '\e[?7h\e[?1049l\e[?25h\e[?2026l'
+    printf '\e[?7h'
+    (( hubleft )) || printf '\e[?1049l'
+    printf '\e[?25h\e[?2026l'
     [[ -n $tty ]] && stty "$tty" 2>/dev/null
     TTHEME_RAW=0
     [[ -n $tune ]] && __tt_pv_untune
+    (( TE_IN )) && __tt_te_stop
     (( conf )) && __tt_pv_unconf
     __tt_pv_bg_save
     if [[ -n $spec ]]; then
@@ -2747,7 +3369,7 @@ __tt_preview() {
         __tt_pin_save "$sel" "${pkeys[picked]}" "$orig"
         [[ $TTHEME_SPEC == "$orig" ]] || __tt_announce
         __tt_sync
-      elif (( picked == 2 )); then
+      elif (( picked == 1 )); then
         __tt_announce
         __tt_keep "$sel" force
       else
@@ -2757,6 +3379,7 @@ __tt_preview() {
     else
       (( ${#bgedit} + ${#bgswap} )) && [[ -n ${TTHEME_PALETTE[$cn]} ]] && { __tt_shown "$cn" && __tt_reload }
     fi
+    (( hubleft )) && __tt_catalog_done "$hubwas"
   }
   return 0
 }
@@ -2785,7 +3408,11 @@ ttheme() {
   fi
   if (( ! $# )); then
     (( ${#TTHEME_PALETTE} )) || { __tt_empty; return }
-    __tt_menu
+    if [[ -t 0 && -t 1 ]]; then
+      __tt_preview hub
+    else
+      __tt_menu
+    fi
     return 0
   fi
 
@@ -2810,12 +3437,18 @@ ttheme() {
       __tt_keep "$REPLY" ;;
     preview) __tt_preview ;;
     pin)
-      if [[ -n $2 ]]; then
+      if [[ $2 == ssh:* ]]; then
+        REPLY=ssh:${(L)2#ssh:}
+        [[ $REPLY != ssh: ]] || { __tt_misuse pin "missing the host after ssh:"; return }
+        [[ $REPLY != *@* ]] || { print -u2 -r -- "ttheme pin: an ssh pin names the host alone — ssh:${REPLY##*@}"; return 1 }
+        __tt_ssh_ok $REPLY || { print -u2 -r -- "ttheme pin: not a host: ${2#ssh:} — letters, digits, . - : and the wildcards * ?"; return 1 }
+      elif [[ -n $2 ]]; then
         REPLY=$2
         [[ $REPLY == \~ || $REPLY == \~/* ]] && REPLY=$HOME${REPLY#\~}
         [[ -d $REPLY ]] || { print -u2 -r -- "ttheme pin: no such directory: $2"; return 1 }
+        REPLY=${REPLY:a}
       fi
-      __tt_preview pin ${REPLY:+${REPLY:a}} ;;
+      __tt_preview pin ${REPLY:+$REPLY} ;;
     unpin) __tt_unpin "${@:2}" ;;
     pins) __tt_pins_map ;;
   esac
@@ -2840,7 +3473,17 @@ if (( ${+functions[compdef]} )); then
     elif [[ $words[2] == market && $words[3] == (add|init) && $CURRENT == 4 ]]; then
       _files -/
     elif [[ $words[2] == (pin|unpin) && $CURRENT == 3 ]]; then
-      _files -/
+      reply=(${${(M)${(k)TTHEME_PINS}:#ssh:*}#ssh:})
+      if compset -P 'ssh:'; then
+        if [[ $words[2] == unpin ]]; then
+          compadd -- $reply
+        elif (( $+functions[_ssh_hosts] )); then
+          _ssh_hosts
+        fi
+      else
+        _files -/
+        [[ $words[2] == pin || ${#reply} -gt 0 ]] && compadd -S '' -- ssh:
+      fi
     elif [[ $words[2] == add && $words[CURRENT-1] == --market ]]; then
       _files -/
     elif [[ $words[2] == add ]]; then