home *** CD-ROM | disk | FTP | other *** search
/ PC Welt 2006 March / PCWELT_3_2006.ISO / base / 05_common.mo / usr / share / elvis-2.2_0 / scripts / xbuf.ex < prev   
Encoding:
Text File  |  2004-02-22  |  4.9 KB  |  230 lines
  1.  
  2. " dark background default
  3. alias colordbg {
  4.     " get a dark random background: helps tell different elvis session
  5.     local d n m
  6.     let n="0,1,2"
  7.     let m="0,1,2,3,4,5,6,7,8,9,a,b,c,d,e,f"
  8.     eval let d="(rand(n))(rand(m))(rand(n))(rand(m))(rand(n))(rand(m))"
  9.  
  10.     " let's go
  11.       eval color normal cornsilk on #(d)
  12.     eval color toolbar cornsilk3 on #(d)
  13.     eval color tool #(d) on grey75
  14.     eval color scrollbar grey75 on #(d)
  15.     color idle like normal
  16.     color lnum pink
  17.      color selection on #715d4b
  18.     color hlsearch black on lightblue
  19.  
  20.     color cursor cornsilk on cornsilk
  21.     color hexcursor bold black on gold
  22.     color hexheading bold gold
  23.  
  24.     color italic italic sandybrown
  25.     color graphic graphic sandybrown
  26.     color underlined lightblue
  27.     color emphasized darkolivegreen2
  28.     color link lightblue
  29.     color definition pink
  30.     color bold bold gold
  31.     color boxed sandybrown
  32.     color fixed fixed orange
  33.     color markup pink
  34.     
  35.     color comment italic orange
  36.     color keyword gold
  37.     color prep darkolivegreen2
  38.     color prepquote darkolivegreen2
  39.     color string mediumturquoise
  40.     color char mediumturquoise
  41.     color function cornsilk
  42.     color variable cornsilk
  43.     color number cornsilk
  44.     color other darkolivegreen2
  45.  
  46.     color fold italic bold on SpringGreen4
  47.     color hlobject1 on MidnightBlue
  48.     color guide lightsteelblue1
  49. }
  50.  
  51. " dark background 2 for bold type fonts
  52. alias colordbg2 {
  53.     local d n m
  54.     let n="0,1,2"
  55.     let m="0,1,2,3,4,5,6,7,8,9,a,b,c,d,e,f"
  56.     eval let d="(rand(n))(rand(m))(rand(n))(rand(m))(rand(n))(rand(m))"
  57.       eval color normal cornsilk3 on #(d)
  58.     eval color toolbar cornsilk3 on #(d)
  59.     eval color tool #(d) on grey75
  60.  
  61.     color idle like normal
  62.     color lnum pink2
  63.      color selection on grey40
  64.     color hlsearch black on lightblue3
  65.  
  66.     color cursor cornsilk2 on cornsilk2
  67.     color hexcursor bold black on gold
  68.     color hexheading bold gold
  69.  
  70.     color italic italic sandybrown
  71.     color graphic graphic sandybrown
  72.     color underlined lightblue3
  73.     color emphasized darkolivegreen3
  74.     color link lightblue3
  75.     color definition pink2
  76.     color bold bold gold2
  77.     color boxed sandybrown
  78.     color fixed fixed orange2
  79.     
  80.     color comment italic orange2
  81.     color keyword gold2
  82.     color prep darkolivegreen3
  83.     color prepquote darkolivegreen3
  84.     color string #00aab4
  85.     color char #00aab4
  86.     color function cornsilk3
  87.     color variable cornsilk3
  88.     color number cornsilk3
  89.     color other darkolivegreen3
  90.  
  91.     color fold on SpringGreen4
  92.     color hlobject1 on MidnightBlue
  93.     color guide lightsteelblue1
  94. }
  95.  
  96. " bright background
  97. alias colorbbg {
  98.     local d n m
  99.     let n="d,e,f"
  100.     let m="0,1,2,3,4,5,6,7,8,9,a,b,c,d,e,f"
  101.     eval let d="(rand(n))(rand(m))(rand(n))(rand(m))(rand(n))(rand(m))"
  102.       eval color normal black on #(d)
  103.     eval color toolbar black on #(d)
  104.     eval color tool #(d) on grey75
  105.  
  106.     color idle like normal
  107.     color lnum pink
  108.     color selection on PeachPuff1
  109.     color hlsearch lightblue on black
  110.  
  111.     color cursor firebrick on firebrick
  112.     color hexcursor bold gold4 on black
  113.     color hexheading bold on gold4
  114.  
  115.     color italic italic darkorange4
  116.     color graphic graphic brown
  117.     color underlined blue
  118.     color emphasized green4
  119.     color link blue
  120.     color definition pink4
  121.     color bold bold gold4
  122.     color boxed brown
  123.     color fixed fixed darkorange3
  124.     
  125.     color comment darkorange3
  126.     color keyword darkgoldenrod4
  127.     color prep green4
  128.     color prepquote green4
  129.     color string turquoise3
  130.     color char turquoise3
  131.     color function black
  132.     color variable black
  133.     color number black
  134.     color other darkolivegreen4
  135.     color fold black on NavajoWhite1
  136.     color hlobject1 on DarkSlateBlue
  137.     color hlobject2 on DarkGreen
  138. }
  139.  
  140. alias ft {
  141.     set font=!^
  142. }
  143. " try
  144. " fixed
  145. " corona-bold14, courier14, neep-14
  146. " corona16, screen16, serif16
  147. " large
  148. " interesting fonts : m, mr, t  
  149.  
  150. alias x11def {
  151.     switch background
  152.     case dark colordbg
  153.     case light colorbbg
  154. }
  155. alias x11sm {
  156.     colordbg2
  157. }
  158.  
  159.  
  160. " toolbar related : generate a tab for each buffer
  161. " bug : cannot show the name properly when the filename has :?="~.
  162. alias removesc {
  163.     local c i g
  164.     let g=f
  165.     let f=""
  166.     for i (1 .. strlen(g))
  167.     do {
  168.         let c = ((g;" ") << i) >> 1
  169.          if c=="?" || c=="=" || c==":" || c=="\""  || c=="~"
  170.         then let c=" "
  171.         let f=f;c
  172.     }
  173. }
  174.  
  175. alias rescanbuffers {
  176.   local d f x
  177.   gui newtoolbar
  178.   gui Rescan:rescanbuffers
  179.   gui Rescan"Redcan current buffers
  180.   all {
  181.     let x=file
  182.     if x==""
  183.     then let x=buffer
  184.     let d=dirdir(x)
  185.     let f=dirfile(x);" (";bufferid;")"
  186.     removesc
  187.     if d!="."
  188.     then let f="..."/f
  189.     eval gui (f) :openbuffer (bufferid)
  190.     eval gui (f) ?bufferid != (bufferid)
  191.     eval gui (f) "(x) \((bufferid)\)
  192.   }
  193. }
  194. alias openbuffer {
  195.     local i
  196.     let i="#!^"
  197.     if buffer(i)
  198.     then {
  199.         "keep track of the old buffer for "goback" alias
  200.         let b=(bufferid)    
  201.         eval b (i)
  202.     }
  203.     else {
  204.         message buffer (i) is already gone.
  205.         rescanbuffers
  206.     }
  207. }
  208. alias toggletoolbar {
  209.     local d
  210.     eval let d=(toolbar)
  211.     if !d
  212.     then rescanbuffers
  213.     set negtoolbar
  214.     eval message show toolbar (toolbar)
  215. }
  216.  
  217. gui Rescan:rescanbuffers
  218. gui Rescan"Rescan current buffers
  219. au BufCreate,BufDelete * rescanbuffers
  220. map  :toggletoolbar
  221.  
  222. x11def
  223. "set noicon
  224. set nostatusbar
  225. set nofocusnew
  226. " for now no toolbar, it will show once you have more than one buffer
  227. " and you can toogle it with 
  228. set notoolbar 
  229.  
  230.