| 1 | % Copy to ~/.config/mc/plugin for this file to be loaded at mc's startup. |
|---|
| 2 | |
|---|
| 3 | define commentify() |
|---|
| 4 | { |
|---|
| 5 | variable cur_pos; % Current cursor offset |
|---|
| 6 | variable bol; % Begin-Of-Line offset |
|---|
| 7 | |
|---|
| 8 | % Get current cursor position and beginning of current line. |
|---|
| 9 | cur_pos = mc->cure_cursor_offset(); |
|---|
| 10 | bol = mc->cure_get_bol(); |
|---|
| 11 | % Move to the start of the line. |
|---|
| 12 | mc->cure_cursor_move(bol - cur_pos); |
|---|
| 13 | % Insert "/*". |
|---|
| 14 | mc->cure_insert_ahead('*'); |
|---|
| 15 | mc->cure_insert_ahead('/'); |
|---|
| 16 | % Move to the end of the line. |
|---|
| 17 | mc->cure_cursor_move(mc->cure_get_eol()-bol); |
|---|
| 18 | % Insert "*/". |
|---|
| 19 | mc->cure_insert_ahead('/'); |
|---|
| 20 | mc->cure_insert_ahead('*'); |
|---|
| 21 | } |
|---|
| 22 | |
|---|
| 23 | mc->editor_map_key_to_func("Commentify","alt-i","commentify"); |
|---|
