perf/scroll.vim

   1 set nocompatible        " Use Vim defaults instead of 100% vi compatibility
   2 set backspace=indent,eol,start  " more powerful backspacing
   3 set textwidth=0         " Don't wrap lines by default
   4 set nobackup
   5 set history=50          " keep 50 lines of command line history
   6 set ruler               " show the cursor position all the time
   7
   8 set t_Co=256
   9 set t_Sf=\e[3%dm
  10 set t_Sb=\e[4%dm
  11
  12 function Scroll(dir, windiv)
  13         let wh = winheight(0)
  14         let i = 1
  15         while i < wh / a:windiv
  16                 let i = i + 1
  17                 if a:dir == "d"
  18                         normal j
  19                 else
  20                         normal k
  21                 end
  22                 " insert a character to force vim to update!
  23                 normal I \e
  24                 redraw
  25                 normal dl
  26         endwhile
  27 endfunction
  28
  29 function WindowScroll(dir, windiv)
  30         let wh = winheight(0)
  31         let i = 1
  32         while i < wh * a:windiv
  33                 let i = i + 1
  34                 if a:dir == "d"
  35                         normal j
  36                 else
  37                         normal k
  38                 end
  39                 " insert a character to force vim to update!
  40                 normal I \e
  41                 redraw
  42                 normal dl
  43         endwhile
  44 endfunction
  45
  46 function AutoScroll(count)
  47         let loop = 0
  48         while loop < a:count
  49                 let loop = loop + 1
  50                 call Scroll("d", 1)
  51                 call Scroll("u", 2)
  52                 call Scroll("d", 2)
  53                 call Scroll("u", 1)
  54                 call Scroll("d", 2)
  55                 call Scroll("u", 2)
  56         endwhile
  57         quit!
  58 endfunction
  59
  60 function AutoWindowScroll(count)
  61         let loop = 0
  62         while loop < a:count
  63                 let loop = loop + 1
  64                 call WindowScroll("d", 10)
  65                 call WindowScroll("u", 10)
  66         endwhile
  67         quit!
  68 endfunction