| 1 |
namespace eval type { |
| 2 |
|
| 3 |
user_setting create string default_type_proc \ |
| 4 |
{Determines which implementation is used for the generic type command: |
| 5 |
type_via_keyboard or type_via_keybuf} type_via_keyboard |
| 6 |
|
| 7 |
proc type {args} { |
| 8 |
$::default_type_proc {*}$args |
| 9 |
} |
| 10 |
|
| 11 |
proc type_help {args} { |
| 12 |
return \ |
| 13 |
"The type command is currently implemented by $::default_type_proc. (This can |
| 14 |
be changed with the default_type_proc setting.) Here is the help of that |
| 15 |
command:\n[help $::default_type_proc]" |
| 16 |
} |
| 17 |
|
| 18 |
set_help_proc type [namespace code type_help] |
| 19 |
|
| 20 |
proc type_clipboard {} { |
| 21 |
type [regsub -all "\r?\n" [get_clipboard_text] "\r"] |
| 22 |
} |
| 23 |
|
| 24 |
namespace export type |
| 25 |
namespace export type_clipboard |
| 26 |
} |
| 27 |
|
| 28 |
namespace import type::* |
| 29 |
|