io-ii

   1 # wrapper script for ii irc client http://tools.suckless.org/ii
   2
   3
   4 II_DIR="$HOME/.cache/irc"
   5 USER="${USER:-$(whoami)}"
   6 FULL="$USER - http://tools.suckless.org/ii"
   7
   8
   9 #
  10 # Prompt for server to connect to and maintain ii connection active
  11 #
  12 server()
  13 (
  14         stop
  15
  16         host="$(
  17                 find . -maxdepth 1 -mindepth 1 -type d | cut -c 3- |
  18                         iomenu -p 'host' -l 10
  19         )"
  20
  21         [ "$host" ] && while
  22                 nohup ii -i . -s "$host" -p 6667 -n "$USER" -f "$FULL" &> errors
  23                 [ "$?" -eq 2 ]
  24         do :
  25         done &
  26
  27         while [ ! -f "$host/out" ]; do sleep 0.1; done
  28         printf '%s\n' "$host" > channel
  29         tail -f -n 0 "$host/out" | print_lines &
  30 )
  31
  32
  33 #
  34 # Interactively prompt for a channel to connect to, and change the tail running.
  35 #
  36 channel()
  37 (
  38         stop
  39
  40         find . -mindepth 1 -type d | cut -c 3- | iomenu -p 'chan' -l 9 > channel
  41
  42         print_screen
  43
  44         IFS='' read -r channel < channel
  45         [ -f "$channel/out" ] && tail -f -n 0 "$channel/out" | print_lines &
  46 )
  47
  48
  49 #
  50 # Get channel name and kill associated "tail -f" instance.
  51 #
  52 stop()
  53 (
  54         read -r channel < channel
  55         pid="$(pgrep -f "tail -f -n 0 $channel/out")"
  56         [ "$pid" ] && kill -14 $pid
  57 )
  58
  59
  60 #
  61 # Read one character from /dev/tty in raw mode.
  62 #
  63 get_char()
  64 (
  65         stty -echo raw
  66         dd count=1 2> /dev/null
  67         stty sane
  68 )
  69
  70
  71 #
  72 # Manage characters typed by user.
  73 #
  74 input()
  75 (
  76         printf '' > input
  77
  78         print_prompt
  79
  80         while key="$(get_char)"
  81         do
  82                 case "$key" in
  83                 [[:print:]] )
  84                         printf %s "$key" >> input
  85                         ;;
  86
  87                 "$(printf '\020')" | "$(printf '\016')" )  # Ctrl-P  Ctrl-N
  88                         [ "$pid" ] && kill -9 "$pid"
  89                         channel
  90                         ;;
  91
  92                 "$(printf '\023')" )                       # Ctrl-S
  93                         server
  94                         ;;
  95
  96                 "$(printf '\033')" | "$(printf '\003')" )  # Escape  Ctrl-C
  97                         exit 0
  98                         ;;
  99
 100                 "$(printf '\015')" )                       # Ctrl-M  Enter
 101                         IFS='' read -r channel < channel
 102                         sed 's/$/\n/' input > "$channel/in"
 103                         printf '' > input
 104                         ;;
 105
 106                 "$(printf '\025')" )                       # Ctrl-U
 107                         printf '' > input
 108                         ;;
 109
 110                 "$(printf '\027')" )                       # Ctrl-W
 111                         sed -i 's/[^ \t]* *$//' input
 112                         ;;
 113
 114                 "$(printf '\010')" | "$(printf '\177')" )  # Ctrl-H  Backspace
 115                         sed -i 's/.$//' input
 116                         ;;
 117
 118                 "$(printf '\014')" )                       # Ctrl-L
 119                         IFS='' read -r channel < channel
 120                         less "$channel/out"
 121                         print_screen
 122                         ;;
 123                 esac
 124
 125                 print_prompt
 126         done
 127 )
 128
 129
 130 #
 131 # Print a prompt with the current input
 132 #
 133 print_prompt()
 134 (
 135         IFS='' read -r channel < channel
 136         IFS='' read -r input   < input
 137
 138         printf '\r\033[K%s> %s' "$channel" "$input"
 139 )
 140
 141
 142 #
 143 # Update the buffer lines and prompt
 144 #
 145 print_screen()
 146 (
 147         col="$(stty size)"; col="${col#* }"
 148
 149         printf '\033[H\033[J'
 150         stty sane
 151
 152         IFS='' read -r channel < channel
 153         [ -f "$channel/out" ] && tail -n "$col" "$channel/out"
 154
 155         print_prompt
 156
 157         stty raw
 158 )
 159
 160
 161 #
 162 # Print lines after formatting them and update the prompt.
 163 #
 164 print_lines()
 165 (
 166         while IFS='' read -r line
 167         do
 168                 printf '\r\033[K%s\n' "$line"
 169                 print_prompt
 170         done
 171 )
 172
 173
 174 main()
 175 (
 176         mkdir -p "$II_DIR"
 177         cd "$II_DIR" || exit 1
 178         touch channel in
 179
 180         trap 'print_screen'    SIGWINCH
 181         trap 'stty sane; stop' EXIT
 182
 183         server
 184         input
 185 )
 186
 187
 188 main "$@"