l super-vnc: init

lass/5pkgs/super-vnc/default.nix

@@ -0,0 +1,38 @@
+{ pkgs, lib }: let
+
+  quoteChar = c:
+    if c == "\n" then "'\n'"
+    else c;
+  quote = x: if x == "" then "''" else lib.stringAsChars quoteChar x;
+
+in pkgs.writers.writeDashBin "super-vnc" ''
+  PATH=${lib.makeBinPath (with pkgs; [
+    xorg.xrandr gnugrep coreutils xorg.xorgserver gnused openssh gawk tightvnc
+  ])}
+  remote=$1
+  res_x=$(xrandr --current | grep '*' | uniq | awk '{print $1}' | cut -d 'x' -f1)
+  res_y=$(xrandr --current | grep '*' | uniq | awk '{print $1}' | cut -d 'x' -f2)
+  export modeline="$(gtf "$res_x" "$res_y" 60 | sed -n 's/.*Modeline "\([^" ]\+\)" \(.*\)/\1 \2/p')"
+  export name="$(echo "$modeline" | sed 's/\([^ ]\+\) .*/\1/')"
+  export vncline="''${res_x}x''${res_y}+0+0"
+
+  if [ -z "$modeline" -o -z "$name" ]; then
+    echo "Error! modeline=$modeline name=$name"
+    exit 1
+  fi
+
+  echo $modeline
+
+  # TODO user random highport
+  ssh "$remote" -L 5900:localhost:55900 bash <<EOF
+set -x
+export DISPLAY=:0
+export output=\$(xrandr | grep disconnected | tail -1 | cut -d' ' -f1)
+xrandr --newmode $modeline
+xrandr --verbose --addmode "\$output" "$name"
+xrandr --output "\$output" --off
+xrandr --verbose --output "\$output" --mode "$name" --right-of "\$(xrandr | grep primary | cut -d ' ' -f1)"
+EOF
+  sleep 2
+  vncviewer localhost:55900
+''