home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 3 / CD ACTUAL 3.iso / linux / incoming / jstools-.6v3 / jstools- / jstools-tk3.6v3.0 / lib / jtextvi.tcl < prev    next >
Encoding:
Text File  |  1995-02-05  |  9.4 KB  |  396 lines
  1. # jtextvi.tcl - additional procedures for vi-like Text bindings
  2. # 
  3. # Copyright 1992-1994 by Jay Sekora.  All rights reserved, except 
  4. # that this file may be freely redistributed in whole or in part 
  5. # for non-profit, noncommercial use.
  6. # 
  7. # 
  8. # Essentially, call
  9. #   j:tb:vi_init Text       ---   for vi-like Text bindings
  10. # You can check $j_tb(modified,$WIDGET) to see if a text widget has been
  11. # modified.  (Set it to false when you save the text widget.)
  12.  
  13. # TO DO:
  14. # ^L
  15. # sentence-manipulation stuff
  16. # case change commands, transposition commands
  17. # commands to do with mark?
  18. # word deletion - fix to use buffer
  19. # generalise movement to copying-to-cutbuffer and deletion
  20. # IMPROVE ENTRY BINDINGS
  21. # literal-insert for entry
  22.  
  23. ######################################################################
  24. # j:tb:vi_init t - set vi bindings up for widget $t (possibly "Text")
  25. ######################################################################
  26.  
  27. proc j:tb:vi_init { {t Text} } {
  28.   global j_teb
  29.   set j_teb(cutbuffer) {}
  30.   set j_teb(dragscroll,txnd) 0
  31.   set j_teb(dragscroll,delay) 50
  32.   set j_teb(scanpaste_time) 0
  33.   set j_teb(scanpaste_paste) 1
  34.   
  35.   set j_teb(keymap,$t) vi-command
  36.   
  37.   # in tk4, we need to make sure tkTextBind is called _before_
  38.   #   j:tb:key_bind!
  39.   j:tk4 {tkTextBind Enter}
  40.   
  41.   j:tb:key_bind $t
  42.   j:tb:mouse_bind $t
  43.  
  44.   
  45.   j:tkb:mkmap Text vi-command vi-command {
  46.     {Control-slash        j:tb:select_all}
  47.     {Control-backslash        j:tb:clear_selection}
  48.     
  49.     {Delete            j:tkb:vi:left}
  50.     {BackSpace            j:tkb:vi:left}
  51.     {space            j:tkb:vi:right}
  52.     {minus            j:tkb:vi:minus}
  53.     {plus            j:tkb:vi:plus}
  54.     {Return            j:tkb:vi:plus}
  55.     
  56.     {Up                j:tkb:vi:up}
  57.     {Down            j:tkb:vi:down}
  58.     {Left            j:tkb:vi:left}
  59.     {Right            j:tkb:vi:right}
  60.     
  61.     {Control-p            j:tkb:vi:up}
  62.     {Control-n            j:tkb:vi:down}
  63.     
  64.     {k                j:tkb:vi:up}
  65.     {j                j:tkb:vi:down}
  66.     {h                j:tkb:vi:left}
  67.     {l                j:tkb:vi:right}
  68.  
  69.     {Control-k            j:tkb:vi:up}
  70.     {Control-j            j:tkb:vi:down}
  71.     {Control-h            j:tkb:vi:left}
  72.     {Control-l            j:tkb:vi:right}
  73.     
  74.     {Control-b            j:tkb:scroll_up}
  75.     {Control-f            j:tkb:scroll_down}
  76.     
  77.     {x                j:tkb:delete_right}
  78.     {X                j:tkb:delete_left}
  79.     {b                j:tkb:word_left}
  80.     {B                j:tkb:word_left}
  81.     {e                j:tkb:vi:word_end}
  82.     {w                j:tkb:word_right}
  83.     {W                j:tkb:word_right}
  84.     {G                j:tkb:eof}
  85.     
  86.     {i                j:tkb:vi:insert}
  87.     {I                j:tkb:vi:Insert}
  88.     {a                j:tkb:vi:append}
  89.     {A                j:tkb:vi:Append}
  90.     {o                j:tkb:vi:open}
  91.     {O                j:tkb:vi:Open}
  92.     
  93.     {d                j:tkb:new_mode vi-delete}
  94.     {c                j:tkb:new_mode vi-change}
  95.     
  96.     {D                j:tkb:vi:d-eol}
  97.     {C                j:tkb:vi:c-eol}
  98.  
  99.     {Home            j:tkb:bol}
  100.     {End            j:tkb:eol}
  101.     
  102.     {asciicircum        j:tkb:vi:bol}
  103.     {dollar            j:tkb:vi:eol}
  104.     
  105.     {Next            j:tkb:scroll_down}
  106.     {Prior            j:tkb:scroll_up}
  107.     
  108.     {Escape            j:tkb:vi:clear_count}
  109.     {Control-bracketleft    j:tkb:vi:clear_count}
  110.     
  111.     {1                j:tkb:continue_number}
  112.     {2                j:tkb:continue_number}
  113.     {3                j:tkb:continue_number}
  114.     {4                j:tkb:continue_number}
  115.     {5                j:tkb:continue_number}
  116.     {6                j:tkb:continue_number}
  117.     {7                j:tkb:continue_number}
  118.     {8                j:tkb:continue_number}
  119.     {9                j:tkb:continue_number}
  120.     {0                j:tkb:continue_number}
  121.     
  122.     {Control-DEFAULT        j:tb:beep}
  123.     {DEFAULT            j:tb:beep}
  124.     {Shift-DEFAULT        j:tb:beep}
  125.   }
  126.  
  127.   j:tkb:mkmap Text vi-insert vi-insert {
  128.     {Delete            j:tkb:delete_left}
  129.     {BackSpace            j:tkb:delete_left}
  130.     {Return            j:tkb:insert_newline}
  131.     
  132.     {Control-i            j:tkb:self_insert}
  133.     {Control-j            j:tkb:self_insert}
  134.     {Control-h            j:tkb:delete_left}
  135.     
  136.     {Control-w            j:tkb:delete_left_word}
  137.     {Control-u            j:tkb:vi:delete_left_line}
  138.     
  139.     {Escape            j:tkb:vi:command}
  140.     {Control-bracketleft    j:tkb:vi:command}
  141.     
  142.     {Control-v            j:tkb:new_mode vi-literal}
  143.     
  144.     {Control-DEFAULT        j:tb:beep}
  145.     {DEFAULT            j:tkb:self_insert}
  146.     {Shift-DEFAULT        j:tkb:self_insert}
  147.   }
  148.   
  149.   j:tkb:mkmap Text vi-literal vi-insert {
  150.     {DEFAULT            j:tkb:self_insert}
  151.     {Shift-DEFAULT        j:tkb:self_insert}
  152.     {Control-DEFAULT        j:tkb:self_insert}
  153.     {Meta-DEFAULT        j:tkb:self_insert}
  154.   }
  155.   
  156.   # The following maps are a hideous kludge until generalised command
  157.   # structure can be implemented:
  158.   
  159.   j:tkb:mkmap Text vi-delete vi-command {
  160.     {d                j:tkb:vi:dd}
  161.     {w                j:tkb:vi:dw}
  162.     {W                j:tkb:vi:dw}
  163.     {dollar            j:tkb:vi:d-eol}
  164.     
  165.     {DEFAULT            j:tb:beep}
  166.     {Shift-DEFAULT        j:tb:beep}
  167.     {Control-DEFAULT        j:tb:beep}
  168.     {Meta-DEFAULT        j:tb:beep}
  169.   }
  170.   
  171.   j:tkb:mkmap Text vi-change vi-command {
  172.     {c                j:tkb:vi:cd}
  173.     {w                j:tkb:vi:cw}
  174.     {W                j:tkb:vi:cw}
  175.     {dollar            j:tkb:vi:c-eol}
  176.     
  177.     {DEFAULT            j:tb:beep}
  178.     {Shift-DEFAULT        j:tb:beep}
  179.     {Control-DEFAULT        j:tb:beep}
  180.     {Meta-DEFAULT        j:tb:beep}
  181.   }
  182. }
  183.  
  184. ######################################################################
  185.  
  186.  
  187. proc j:tkb:vi:command { W K A } {
  188.   if { ! [j:tb:is_bol $W]} {
  189.     j:tb:move $W {insert - 1 char}
  190.   }
  191.   j:tkb:new_mode vi-command $W $K $A
  192. }
  193.  
  194. proc j:tkb:vi:insert { W K A } {
  195.   j:tkb:new_mode vi-insert $W $K $A
  196. }
  197.  
  198. ######################################################################
  199. # based on procedures from Achim Bohnet <ach@rosat.mpe-garching.mpg.de>
  200. # TO DO:  should beep ONCE if repeating would hit edge
  201.  
  202. proc j:tkb:vi:left { W K A } {
  203.   if [j:tb:is_bol $W] {
  204.     j:beep $W
  205.   } else {
  206.     j:tkb:repeatable {
  207.       if {![j:tb:is_bol $W]} {j:tb:move $W {insert - 1 char}}
  208.     } $W
  209.   }
  210. }
  211.  
  212. proc j:tkb:vi:right { W K A } {
  213.   if [j:tb:is_eol $W] {
  214.     j:beep $W
  215.   } else {
  216.     j:tkb:repeatable {
  217.       if {![j:tb:is_eol $W]} {j:tb:move $W {insert + 1 char}}
  218.     } $W
  219.   }
  220. }
  221.  
  222. proc j:tkb:vi:up { W K A } {
  223.   if [j:tb:is_first_line $W] {
  224.     j:beep $W
  225.   } else {
  226.     j:tkb:repeatable {
  227.       if {![j:tb:is_first_line $W]} {j:tb:move $W {insert - 1 line}}
  228.     } $W
  229.   }
  230. }
  231.  
  232. proc j:tkb:vi:down { W K A } {
  233.   if [j:tb:is_last_line $W] {
  234.     j:beep $W
  235.   } else {
  236.     j:tkb:repeatable {
  237.       if {![j:tb:is_last_line $W]} {j:tb:move $W {insert + 1 line}}
  238.     } $W
  239.   }
  240. }
  241.  
  242. proc j:tkb:vi:word_end { W K A } {
  243.   j:tb:move $W {insert + 1 char}
  244.   j:tkb:repeatable {
  245.     while {[$W compare insert != end] &&
  246.            [string match "\[ \t\n\]" [$W get insert]]} {
  247.       j:tb:move $W {insert + 1 char}
  248.     }
  249.     while {[$W compare insert != end] &&
  250.            ![string match "\[ \t\n\]" [$W get insert]]} {
  251.       j:tb:move $W {insert + 1 char}
  252.     }
  253.     j:tb:move $W {insert - 1 char}
  254.   } $W
  255. }
  256.  
  257. proc j:tkb:vi:open { W K A } {
  258.   global j_ed
  259.   
  260.   $W mark set insert "insert lineend "
  261.   $W insert insert "\n"
  262.   set j_ed(vi,$W,insert-begin) [$W index insert]    ;# NOT YET USED
  263.   j:tkb:vi:insert $W $K $A
  264.   j:text:mark_dirty $W
  265. }
  266.  
  267. proc j:tkb:vi:Open { W K A } {
  268.   global j_ed
  269.   
  270.   $W mark set insert "insert linestart"
  271.   $W insert insert "\n"
  272.   $W mark set insert "insert - 1line"
  273.   set j_ed(vi,$W,insert-begin) [$W index insert]    ;# NOT YET USED
  274.   j:tkb:vi:insert $W $K $A
  275.   j:text:mark_dirty $W
  276. }
  277.  
  278. ######################################################################
  279.  
  280. # vi beeps on escape:
  281. proc j:tkb:vi:clear_count { W K A } {
  282.   j:beep $W
  283.   j:tkb:clear_count $W $K $A
  284. }
  285.  
  286. # vi bol is first _printing_ character (non-whitespace):
  287. proc j:tkb:vi:bol { W K A } {
  288.   j:tkb:bol $W $K $A
  289.   while {[string match "\[ \t\]" [$W get insert]]} {
  290.     j:tb:move $W {insert + 1 char}
  291.   }
  292. }
  293.  
  294. # vi eol leaves cursor on last character _before_ newline:
  295. proc j:tkb:vi:eol { W K A } {
  296.   j:tkb:eol $W $K $A
  297.   if { ! [j:tb:is_bol $W]} {
  298.     j:tb:move $W {insert - 1 char}
  299.   }
  300. }
  301.  
  302. proc j:tkb:vi:plus { W K A } {
  303.   global j_teb
  304.   j:tkb:vi:down $W $K $A
  305.   j:tkb:vi:bol $W $K $A
  306. }
  307.  
  308. proc j:tkb:vi:minus { W K A } {
  309.   global j_teb
  310.   j:tkb:vi:up $W $K $A
  311.   j:tkb:vi:bol $W $K $A
  312. }
  313.  
  314. proc j:tkb:vi:append { W K A } {
  315.   global j_teb
  316.   if { ! [j:tb:is_bol $W]} {
  317.     j:tb:move $W {insert + 1 char}
  318.   }
  319.   j:tkb:vi:insert $W $K $A
  320. }
  321.  
  322. proc j:tkb:vi:Insert { W K A } {
  323.   global j_teb
  324.   j:tkb:vi:bol $W $K $A
  325.   j:tkb:vi:insert $W $K $A
  326. }
  327.  
  328. proc j:tkb:vi:Append { W K A } {
  329.   global j_teb
  330.   j:tkb:eol $W $K $A
  331.   j:tkb:vi:insert $W $K $A
  332. }
  333.  
  334. ######################################################################
  335. # used for Control-u in insert mode:
  336.  
  337. proc j:tkb:vi:delete_left_line { W K A } {
  338.   if [$W compare {insert linestart} < insert] {
  339.     global j_teb
  340.     set j_teb(modified,$W) 1
  341.     
  342.     j:text:delete $W [$W index {insert linestart}] [$W index insert]
  343.   }
  344. }
  345.  
  346. ######################################################################
  347. # the following are probably temporary kludges; see jbindtext.tcl:
  348.  
  349. proc j:tkb:vi:dd { W K A } {
  350.   set start [$W index "insert linestart"]
  351.   j:tkb:vi:down $W $K $A        ;# repeatable
  352.   set end [$W index "insert linestart"]
  353.   j:text:delete $W $start $end
  354. }
  355.  
  356. proc j:tkb:vi:dw { W K A } {
  357.   set start [$W index insert]
  358.   j:tkb:word_right $W $K $A        ;# repeatable
  359.   set end [$W index insert]
  360.   j:text:delete $W $start $end
  361.   if { ! [j:tb:is_bol $W]} {
  362.     j:tb:move $W {insert - 1 char}
  363.   }
  364. }
  365.  
  366. proc j:tkb:vi:d-eol { W K A } {
  367.   j:text:delete $W [$W index insert] [$W index "insert lineend"]
  368.   j:tkb:clear_count $W $K $A
  369.   if { ! [j:tb:is_bol $W]} {
  370.     j:tb:move $W {insert - 1 char}
  371.   }
  372. }
  373.  
  374. proc j:tkb:vi:cc { W K A } {
  375.   j:tkb:vi:dd $W $K $A            ;# repeatable
  376.   j:tkb:vi:insert $W $K $A
  377. }
  378.  
  379. proc j:tkb:vi:cw { W K A } {
  380.   j:tkb:vi:dw $W $K $A            ;# repeatable
  381.   j:tkb:vi:append $W $K $A
  382. }
  383.  
  384. proc j:tkb:vi:c-eol { W K A } {
  385.   j:tkb:vi:d-eol $W $K $A        ;# repeatable
  386.   j:tkb:vi:append $W $K $A
  387. }
  388.  
  389. ######################################################################
  390. # deprecated alias for backwards-compatibility:
  391. ######################################################################
  392.  
  393. proc j:tb:vi_bind { W } {
  394.   j:tb:vi_init $W
  395. }
  396.