home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / World_Of_Computer_Software-02-387-Vol-3of3.iso / m / msh_ut11.zip / MYDEFS.ZIP / KEYBIND.MSH < prev    next >
Text File  |  1992-05-10  |  8KB  |  238 lines
  1. | file KEYBIND.MSH where the actions and the keystrokes are matched.
  2. |
  3. |             move panels around
  4. |
  5. (panel.startrc 1 + panel.startrc!)ShiftRight!
  6. (panel.startrc 1 - panel.startrc!)ShiftLeft!
  7. (panel.startrc swap 1 - swap panel.startrc!)ShiftUp!
  8. (panel.startrc swap 1 + swap panel.startrc!)ShiftDown!
  9. |
  10. |              move around in the panels
  11. |
  12. (Down_panel)Down!
  13. (Up_panel)Up!
  14. (PageDown_panel)PgDn!
  15. (PageUp_panel)PgUp!
  16. (next_panel)Tab!
  17. (prev_panel)BackTab!
  18. |
  19. |              standard actions on the command line
  20. |
  21. (cmd.del)Delete!
  22. (insert_toggle)Insert!
  23. || RELEASE 2.1 ONLY !!
  24. || ═══════════════════
  25. || In release 2.1 cmd.left, cmd.right, cmd.home and cmd.end have been
  26. || dropped and a new primitive cmd.pos has been added instead
  27. ||
  28. ||(panel.size(cmd.pos 1 - cmd.pos!)
  29. ||(current.pos panel.rc drop 2 - ge
  30. ||(current.pos panel.rc drop - 2 + current.pos!)if)ifelse)Left!
  31. ||(panel.size(cmd.pos 1 + cmd.pos!)
  32. ||(current.pos panel.nbfiles panel.rc drop - 2 + <
  33. ||(current.pos panel.rc drop + 2 - current.pos!)if)ifelse)Right!
  34. ||(cmd(0 cmd.pos!)(go_home)ifelse)Home!
  35. ||(cmd(cmd length cmd.pos!)(go_end)ifelse)End!
  36. ||(cmd.pos 1 - cmd.pos! cmd.del)BackSpace!
  37. || RELEASE 2.0 ONLY !!
  38. || ═══════════════════
  39. (panel.size(cmd.left)
  40. (current.pos panel.rc drop 2 - ge
  41. (current.pos panel.rc drop - 2 + current.pos!)if)ifelse)Left!
  42. (panel.size(cmd.right)
  43. (current.pos panel.nbfiles panel.rc drop - 2 + <
  44. (current.pos panel.rc drop + 2 - current.pos!)if)ifelse)Right!
  45. (cmd(cmd.home)(go_home)ifelse)Home!
  46. (cmd(cmd.end)(go_end)ifelse)End!
  47. (cmd.left cmd.del)BackSpace!
  48. || END OF RELEASE SPECIFIC STUFF
  49. || ═════════════════════════════
  50.  
  51. (cmd.wordleft)CtrlLeft!
  52. (cmd.wordright)CtrlRight!
  53. (cmd.clear)Esc!
  54. |
  55. |              code for Enter
  56. |
  57. (cmd
  58.  (execsave)
  59.  (act_on_cur)
  60.  ifelse
  61. )Enter!
  62. |
  63. |              code for CtrlEnter
  64. |
  65. (cmd
  66.  (write_current) | (execsave)
  67.  (act2_on_cur)
  68.  ifelse
  69. )CtrlEnter!
  70. |
  71. |              ┌────────────┐
  72. |              │ Alpha Keys │
  73. |              └────────────┘
  74. |
  75. (expand_panel)Alt1!
  76. (trim_panel)Alt2!
  77. (find_again)AltA!
  78. (write_all_selected)CtrlA!       | on the command line
  79. (go_home)CtrlB!                  | go to the top of the panel
  80. (debug_toggle)AltD!              | flip on/off Debug switch
  81. (definition)CtrlD!               | write the definition on the cmdline
  82. ("E" panel.sort!)AltE!           | sort by extension
  83. (prevcmd)CtrlE!                  | Previous command
  84. (find_file)AltF!
  85. ("goto drive" "enter drive letter you want to go to"get_key
  86.  ":"&cwd!refresh)CtrlG!
  87. (fmenu)CtrlF!                    | file menu
  88. |(dmenu)CtrlG!                   | Goto drive menu
  89. (hmenu)CtrlH!                    | help menu
  90. (reinit_mouse)AltI!
  91. (imenu)CtrlI!                    | mIscellaneous menu
  92. (                                | Kill to end of command-line
  93. cmd                              | Only if nonempty command-line
  94. (cmd.imode ins_mode!             | Store old insert mode
  95. "■" cmd!                         | Insert magic char
  96. cmd "■" cutfirst drop
  97. cmd.clear cmd!
  98. ins_mode cmd.imode!)
  99. (drop)ifelse
  100. )CtrlK!                          |
  101. (                                | Kill from begin to cursorpos-1 of cmdline
  102. cmd                              | Only if nonempty command-line
  103. (cmd.imode ins_mode!             | Store old insert mode
  104. true cmd.imode!                  | Force insert mode
  105. "■" cmd!                         | Insert magic char
  106. cmd "■" cutfirst swap drop
  107. cmd.clear cmd!
  108. ins_mode cmd.imode!
  109. cmd.home)
  110. (drop)ifelse
  111. )AltK!                           |
  112. (write_current)CtrlJ!            | write current filename on cmdline
  113. (panel_stats)CtrlL!              | My own panel stats
  114. (main_menu)AltM!                 | activate top line menu
  115. ((Enter)with_magic)CtrlM!        | variant of Enter which makes sure magic is on
  116. ("N" panel.sort!)AltN!           | sort by name
  117. (write_other_current)AltO!       | write current file in other panel on cmdline
  118. (hide_all)CtrlO!                 | toggle 
  119. (filter_files)AltP!              | display just files matching cmdline pattern 
  120. (pmenu)CtrlP!
  121. (qmenu)CtrlQ!                    | quit Mi-Shell
  122. (run_on_selected)AltR!           | Execute current cmdline with basename of
  123.                                  | selected file as parameter
  124. (refresh)CtrlR!                  | refresh the panel
  125. ("S" panel.sort!)AltS!           | sort by size
  126. ("personal.msh"loaddefs)CtrlS!   | special menu
  127. ("T" panel.sort!)AltT!           | sort by time
  128. ||(cmd.pos oldpos!                 | Kill remainder of word in cmdline
  129. || cmd.pos 1 le
  130. || (false)
  131. || (cmd 1 cmd.pos 1 - substring) ifelse | part befor cursor
  132. || cmd.wordright
  133. || cmd dup length
  134. || cmd.pos swap substring          | part after cursor
  135. || & cmd.clear cmd!
  136. || oldpos cmd.pos!
  137. ||)CtrlT!
  138. (swap_panels)CtrlU!
  139. (view_cmdlist)AltV!              | view commands previously typed
  140. (vmenu)CtrlV!
  141. (wide_narrow)AltW!               | toggle display 
  142. (whereto)CtrlW!                  | similar to Norton Change Directory
  143. (nextcmd)CtrlX!                  | display next command
  144. (exec_msh)AltX!                  | execute the cmdline as a msh script
  145. (wildhelp)CtrlZ!
  146. (wildrun)AltZ!
  147. |
  148. |              ┌────────────────────┐
  149. |              │ Miscellaneous Keys │
  150. |              └────────────────────┘
  151. |
  152. (sel_match)GreyPlus!             | select all files matching cmdline pattern
  153. (desel_match)GreyMinus!          | deselect . . .
  154. ((current.isdir(select_on_off)
  155. ifnot)loop_panel)GreyStar! | Invert the tagged-status of all files
  156. |(deselect)GreyMinus!
  157. (up_one_level)CtrlPgUp!          | go to parent directory
  158. (go_end)CtrlPgDn!                | go to the bottom of the directory
  159. (prevmsh)CtrlHome!               | display previous command
  160. (nextmsh)CtrlEnd!                | display next command
  161. |
  162. |              ┌────────┐
  163. |              │ F Keys │
  164. |              └────────┘
  165. (hmenu)F1!
  166. |(ascii)ShiftF1!
  167. ("help.msh"loaddefs primitives)CtrlF1!
  168. ("help.msh"loaddefs stddefs)ShiftF1!
  169. (cur_pn lastpanel!   | Store old one
  170.  2 dup cur_pn! window.activate
  171.  CtrlG
  172.  lastpanel dup cur_pn! window.activate
  173. )AltF1! | Change drive on first panel
  174. |
  175. (select_on_off Down_panel)F2!
  176. (selected_fit_other)ShiftF2!     | requires The Berkeley Utilities
  177. (cur_pn lastpanel!   | Store old one
  178.  1 dup cur_pn! window.activate
  179.  CtrlG
  180.  lastpanel dup cur_pn! window.activate
  181. )AltF2! | Change drive on second panel
  182. |
  183. (browse_current)F3!
  184. (browser selected_list&(exec)with_nomagic)CtrlF3!
  185. (current.name pager)AltF3!
  186. (od)ShiftF3!                     | hex dump if you own The Berkeley Utilities
  187. |
  188. (edit_current)F4!
  189. (editor "Ediert wird die Datei:" 50 input&exec)ShiftF4!
  190. ("fed "current.name&exec)AltF4!
  191. (edit_selected reread)CtrlF4!
  192. |
  193. (copy_files)F5!
  194. ("cp "selected_list&" "&"Wohin kopieren?" 50 input&
  195.   deselect (exec)with_nomagic reread_next refresh
  196. )ShiftF5!
  197. (true capt_screen)AltF5!
  198. |
  199. (move_files)F6!
  200. (ls_hide)ShiftF6!
  201. |("mandel.msh"loaddefs)CtrlF6!
  202. |
  203. (
  204. "Welches Verzeichnis anlegen?" 50 input dup
  205. ("acd md "swap&exec)if
  206. )F7! | create dir and update acd
  207. (dosmenu)ShiftF7!
  208. |("life" exec)CtrlF7!
  209. ("Nach welcher Datei suchen?" 50 input dup ("fff " swap&exec refresh)if)AltF7!
  210. |
  211. (delete_files)F8!
  212. |(delta)ShiftF8!
  213. (view_cmdlist)AltF8!
  214. |
  215. (reconfig)F9!
  216. (toggle_menu)ShiftF9!
  217. (file_stats)CtrlF9!
  218. ("Time" time time_convert message)AltF9!
  219. |
  220. (qmenu)F10!                        | quit msh
  221. (swap_menu)ShiftF10!               | change swap state
  222. ("batchman coldboot" exec)CtrlF10! | reboot
  223. ("acd *" exec refresh)AltF10!        | something like ncd
  224. |
  225. |                Mouse Defs
  226. |
  227. (current.pos! select_on_off)LeftClickEntry!
  228. (current.pos! act_on_cur)LeftDbleClickEntry!
  229. (current.pos! current.name pager)RightClickEntry!
  230. (current.pos! editor current.name&exec)RightDbleClickEntry!
  231. ("N" panel.sort!)LeftClickN!
  232. ("E" panel.sort!)LeftClickE!
  233. ("S" panel.sort!)LeftClickS!
  234. ("T" panel.sort!)LeftClickT!
  235. (PageUp_panel)LeftClickUA!
  236. (PageDown_panel)LeftClickDA!
  237. |||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
  238.