home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 3 / CD ACTUAL 3.iso / linux / incoming / jstools-.6v3 / jstools- / jstools-tk3.6v3.0 / lib / jedit_bindings.tcl < prev    next >
Encoding:
Text File  |  1995-03-14  |  4.4 KB  |  130 lines
  1. # jedit_bindings.tcl - bindings for command accelerators for jedit
  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. # jedit:mkbindings - set keyboard shortcuts and special map additions
  9. #   widgets and t are often the same, but needn't be - widgets could
  10. #   also include entry widgets
  11. ######################################################################
  12.  
  13. proc jedit:mkbindings {widgets t} {
  14.   global WORD_END
  15.   # the following can't be redefined in ~/.tk/textbindings.tcl;
  16.   # if you want to change them, do so in $HOME/.tk/jeditrc.tcl
  17.   #
  18.   foreach w $widgets {
  19.     bind $w <Meta-Tab>        {jedit:cmd:toggle_dabbrev %W}
  20.     bind $w <Meta-space>    {jedit:cmd:toggle_sabbrev %W}
  21.     bind $w <Meta-minus>    {jedit:cmd:hyphen %W}
  22.     bind $w <Meta-semicolon>    {jedit:cmd:dabbrev %W}
  23.     catch {
  24.       bind $w <Meta-quoteright>    {jedit:cmd:sabbrev %W}
  25.     }
  26.     catch {
  27.       bind $w <Meta-apostrophe>    {jedit:cmd:sabbrev %W}
  28.     }
  29.     bind $w <Meta-bar>        {jedit:cmd:run_pipe %W}
  30.     bind $w <Meta-exclam>    {jedit:cmd:run_command %W}
  31.     bind $w <Meta-bracketleft>    "jedit:text_regsub %W {(^|\n)\[> \] } {\\1}"
  32.     bind $w <Meta-bracketright>    "jedit:text_regsub %W {(^|\n)} {\\1  }"
  33.     bind $w <Meta-a>        {jedit:cmd:select_all %W}
  34.     bind $w <Meta-B>        {jedit:font:bold %W}
  35.     bind $w <Meta-c>        {jedit:cmd:copy %W}
  36.     bind $w <Meta-C>        {jedit:cmd:current_line %W}
  37.     bind $w <Meta-f>        {jedit:cmd:find %W}
  38.     bind $w <Meta-F>        "jedit:pipe $t {fmt}"
  39.     bind $w <Meta-g>        {jedit:cmd:find_again %W}
  40.     bind $w <Meta-G>        {j:global_pref_panel}
  41.     bind $w <Meta-h>        {jedit:cmd:help %W}
  42.     bind $w <Meta-i>        {jedit:cmd:insfile %W}
  43.     bind $w <Meta-I>        {jedit:font:italic %W}
  44.     bind $w <Meta-l>        {jedit:cmd:load %W}
  45.     bind $w <Meta-L>        {jedit:cmd:go_to_line %W}
  46.     bind $w <Meta-m>        {jedit:cmd:ask_mode  %W}
  47.     bind $w <Meta-Key-M>    {jedit:font:typewriter %W}
  48.     bind $w <Meta-n>        {jedit:cmd:new_window %W}
  49.     bind $w <Meta-N>        {jedit:cmd:note %W}
  50.     bind $w <Meta-p>        {jedit:cmd:print %W}
  51.     bind $w <Meta-P>        {jedit:cmd:edit_prefs %W}
  52.     bind $w <Meta-R>        {jedit:font:roman %W}
  53.     bind $w <Meta-s>        {jedit:cmd:save %W}
  54.     bind $w <Meta-S>        {jedit:cmd:saveas %W}
  55.     bind $w <Meta-T>        {j:prompt_tcl}
  56.     bind $w <Meta-U>        {j:prompt_unix}
  57.     bind $w <Meta-v>        {jedit:cmd:paste %W}
  58.     bind $w <Meta-V>        {jedit:cmd:xpaste %W}
  59.     bind $w <Meta-x>        {jedit:cmd:cut %W}
  60.     bind $w <Meta-X>        {jedit:font:bolditalic %W}
  61.     bind $w <Meta-q>        {jedit:cmd:quit %W}
  62.     bind $w <Meta-w>        {jedit:cmd:close %W}
  63.     bind $w <Meta-z>        {jedit:cmd:undo %W}
  64.     bind $w <Meta-Z>        {jedit:cmd:redo %W}
  65.  }
  66.   
  67.   # set up bindings for word-end punctuation (for abbrevs):
  68.   
  69.   foreach key $WORD_END {
  70.     foreach map {basic vi-insert emacs-normal edt-normal} {
  71.       j:tkb:mkmap $w $map $map [format {
  72.         {%s            jedit:self_insert_punct}
  73.       } $key]
  74.     }
  75.   }
  76.   
  77.   # set up bindings for a few other special characters:
  78.   
  79.   foreach map {basic vi-insert emacs-normal edt-normal} {
  80.     j:tkb:mkmap $w $map $map [format {
  81.       {Tab            jedit:tabkey}
  82.     } $key]
  83.     j:tkb:mkmap $w $map $map [format {
  84.       {space            jedit:spacebar}
  85.     } $key]
  86.     j:tkb:mkmap $w $map $map [format {
  87.       {Return            jedit:returnkey}
  88.     } $key]
  89.   }
  90.   
  91.   # additional application-specific Emacs-style keyboard bindings:
  92.   
  93.   j:tkb:mkmap $w emacs-normal emacs-normal {
  94.     {Control-s            jedit:cmd:find_forward}
  95.     {Control-r            jedit:cmd:find_backward}
  96.   }
  97.   j:tkb:mkmap $w emacs-escape emacs-normal {
  98.     {percent            jedit:cmd:find}
  99.   }
  100.   j:tkb:mkmap $w emacs-control-x emacs-normal {
  101.     {Control-s            jedit:cmd:save}
  102.     {Control-w            jedit:cmd:saveas}
  103.     {Control-f            jedit:cmd:load}
  104.     {Control-v            jedit:cmd:load}
  105.     {Control-c            jedit:cmd:quit}
  106.   }
  107.   
  108.   # additional application-specific vi-style keyboard bindings:
  109.   
  110.   j:tkb:mkmap $w vi-command vi-command {
  111.     {slash            jedit:cmd:find_forward}
  112.     {question            jedit:cmd:find_backward}
  113.     {n                jedit:cmd:find_again}
  114.   }
  115.   
  116.   # create a vi-Z map for the "ZZ" command:
  117.   
  118.   j:tkb:mkmap $w vi-command vi-command {
  119.     {Z                j:tkb:new_mode vi-Z}
  120.   }
  121.   
  122.   j:tkb:mkmap $w vi-Z vi-command {
  123.     {DEFAULT            j:tb:no_op}
  124.     {Shift-DEFAULT        j:tb:no_op}
  125.     {Control-DEFAULT        j:tb:no_op}
  126.     {Meta-DEFAULT        j:tb:no_op}
  127.     {Z                jedit:cmd:done}
  128.   }
  129. }
  130.