Vim touchscreen scrolling support.

Use the environment variable to turn it on.

vim/vimrc

@@ -23,5 +23,9 @@ source ~/.vim/vimrc.functions
 source ~/.vim/vimrc.fileprefs
 source ~/.vim/vimrc.statusline
 
+if exists('$CSHENV_TOUCHSCREEN')
+    source ~/.vim/vimrc.mousescroll
+endif
+
 set shell=/bin/tcsh
 "set t_Co=1

vim/vimrc.mousescroll

@@ -0,0 +1,41 @@
+function! MouseScrollTouch()
+  "mark b is the current cursor position
+  "mark a is the previous cursor position
+  norm mb
+  let currPos= line('.')
+  norm `a
+  let prevPos= line('.')
+  let amt= 1 + abs(currPos - prevPos) / 2
+  "norm `bma
+  while amt > 0
+    if currPos>prevPos
+      norm 
+    elseif currPos<prevPos
+      "norm `bma
+      norm 
+    endif
+    let amt= amt - 1
+  endwhile
+endfunction
+
+function! MouseScrollClick()
+  "mark b is the current cursor position
+  "mark a is the previous cursor position
+  norm mb
+  let currPos= line('.')
+  norm `a
+  let prevPos= line('.')
+  let amt= 1 + abs(currPos - prevPos) / 2
+  norm `bma
+  while amt > 0
+    if currPos>prevPos
+      norm 
+    elseif currPos<prevPos
+      "norm `bma
+      norm 
+    endif
+    let amt= amt - 1
+  endwhile
+endfunction
+
+map <LeftDrag> ma<LeftMouse>:call MouseScrollTouch()<cr>