David Scherer | 7aced17 | 2000-08-15 01:13:23 +0000 | [diff] [blame] | 1 | """ParenMatch -- An IDLE extension for parenthesis matching. |
| 2 | |
| 3 | When you hit a right paren, the cursor should move briefly to the left |
| 4 | paren. Paren here is used generically; the matching applies to |
| 5 | parentheses, square brackets, and curly braces. |
David Scherer | 7aced17 | 2000-08-15 01:13:23 +0000 | [diff] [blame] | 6 | """ |
| 7 | |
Kurt B. Kaiser | b175445 | 2005-11-18 22:05:48 +0000 | [diff] [blame] | 8 | from HyperParser import HyperParser |
Kurt B. Kaiser | 8c11f7e | 2002-09-14 02:46:19 +0000 | [diff] [blame] | 9 | from configHandler import idleConf |
David Scherer | 7aced17 | 2000-08-15 01:13:23 +0000 | [diff] [blame] | 10 | |
Kurt B. Kaiser | b175445 | 2005-11-18 22:05:48 +0000 | [diff] [blame] | 11 | keysym_opener = {"parenright":'(', "bracketright":'[', "braceright":'{'} |
| 12 | CHECK_DELAY = 100 # miliseconds |
| 13 | |
David Scherer | 7aced17 | 2000-08-15 01:13:23 +0000 | [diff] [blame] | 14 | class ParenMatch: |
| 15 | """Highlight matching parentheses |
| 16 | |
| 17 | There are three supported style of paren matching, based loosely |
Kurt B. Kaiser | 4d4d212 | 2001-07-13 19:49:27 +0000 | [diff] [blame] | 18 | on the Emacs options. The style is select based on the |
David Scherer | 7aced17 | 2000-08-15 01:13:23 +0000 | [diff] [blame] | 19 | HILITE_STYLE attribute; it can be changed used the set_style |
| 20 | method. |
| 21 | |
| 22 | The supported styles are: |
| 23 | |
| 24 | default -- When a right paren is typed, highlight the matching |
| 25 | left paren for 1/2 sec. |
| 26 | |
| 27 | expression -- When a right paren is typed, highlight the entire |
| 28 | expression from the left paren to the right paren. |
| 29 | |
| 30 | TODO: |
David Scherer | 7aced17 | 2000-08-15 01:13:23 +0000 | [diff] [blame] | 31 | - extend IDLE with configuration dialog to change options |
| 32 | - implement rest of Emacs highlight styles (see below) |
| 33 | - print mismatch warning in IDLE status window |
| 34 | |
| 35 | Note: In Emacs, there are several styles of highlight where the |
| 36 | matching paren is highlighted whenever the cursor is immediately |
| 37 | to the right of a right paren. I don't know how to do that in Tk, |
| 38 | so I haven't bothered. |
| 39 | """ |
Kurt B. Kaiser | b175445 | 2005-11-18 22:05:48 +0000 | [diff] [blame] | 40 | menudefs = [ |
| 41 | ('edit', [ |
| 42 | ("Show surrounding parens", "<<flash-paren>>"), |
| 43 | ]) |
| 44 | ] |
Kurt B. Kaiser | 8c11f7e | 2002-09-14 02:46:19 +0000 | [diff] [blame] | 45 | STYLE = idleConf.GetOption('extensions','ParenMatch','style', |
| 46 | default='expression') |
| 47 | FLASH_DELAY = idleConf.GetOption('extensions','ParenMatch','flash-delay', |
| 48 | type='int',default=500) |
| 49 | HILITE_CONFIG = idleConf.GetHighlight(idleConf.CurrentTheme(),'hilite') |
| 50 | BELL = idleConf.GetOption('extensions','ParenMatch','bell', |
| 51 | type='bool',default=1) |
David Scherer | 7aced17 | 2000-08-15 01:13:23 +0000 | [diff] [blame] | 52 | |
Kurt B. Kaiser | b175445 | 2005-11-18 22:05:48 +0000 | [diff] [blame] | 53 | RESTORE_VIRTUAL_EVENT_NAME = "<<parenmatch-check-restore>>" |
| 54 | # We want the restore event be called before the usual return and |
| 55 | # backspace events. |
| 56 | RESTORE_SEQUENCES = ("<KeyPress>", "<ButtonPress>", |
| 57 | "<Key-Return>", "<Key-BackSpace>") |
| 58 | |
David Scherer | 7aced17 | 2000-08-15 01:13:23 +0000 | [diff] [blame] | 59 | def __init__(self, editwin): |
| 60 | self.editwin = editwin |
| 61 | self.text = editwin.text |
Kurt B. Kaiser | b175445 | 2005-11-18 22:05:48 +0000 | [diff] [blame] | 62 | # Bind the check-restore event to the function restore_event, |
| 63 | # so that we can then use activate_restore (which calls event_add) |
| 64 | # and deactivate_restore (which calls event_delete). |
| 65 | editwin.text.bind(self.RESTORE_VIRTUAL_EVENT_NAME, |
| 66 | self.restore_event) |
David Scherer | 7aced17 | 2000-08-15 01:13:23 +0000 | [diff] [blame] | 67 | self.counter = 0 |
Kurt B. Kaiser | b175445 | 2005-11-18 22:05:48 +0000 | [diff] [blame] | 68 | self.is_restore_active = 0 |
David Scherer | 7aced17 | 2000-08-15 01:13:23 +0000 | [diff] [blame] | 69 | self.set_style(self.STYLE) |
| 70 | |
Kurt B. Kaiser | b175445 | 2005-11-18 22:05:48 +0000 | [diff] [blame] | 71 | def activate_restore(self): |
| 72 | if not self.is_restore_active: |
| 73 | for seq in self.RESTORE_SEQUENCES: |
| 74 | self.text.event_add(self.RESTORE_VIRTUAL_EVENT_NAME, seq) |
| 75 | self.is_restore_active = True |
| 76 | |
| 77 | def deactivate_restore(self): |
| 78 | if self.is_restore_active: |
| 79 | for seq in self.RESTORE_SEQUENCES: |
| 80 | self.text.event_delete(self.RESTORE_VIRTUAL_EVENT_NAME, seq) |
| 81 | self.is_restore_active = False |
| 82 | |
David Scherer | 7aced17 | 2000-08-15 01:13:23 +0000 | [diff] [blame] | 83 | def set_style(self, style): |
| 84 | self.STYLE = style |
| 85 | if style == "default": |
| 86 | self.create_tag = self.create_tag_default |
| 87 | self.set_timeout = self.set_timeout_last |
| 88 | elif style == "expression": |
| 89 | self.create_tag = self.create_tag_expression |
| 90 | self.set_timeout = self.set_timeout_none |
| 91 | |
Kurt B. Kaiser | b175445 | 2005-11-18 22:05:48 +0000 | [diff] [blame] | 92 | def flash_paren_event(self, event): |
| 93 | indices = HyperParser(self.editwin, "insert").get_surrounding_brackets() |
| 94 | if indices is None: |
David Scherer | 7aced17 | 2000-08-15 01:13:23 +0000 | [diff] [blame] | 95 | self.warn_mismatched() |
| 96 | return |
Kurt B. Kaiser | b175445 | 2005-11-18 22:05:48 +0000 | [diff] [blame] | 97 | self.activate_restore() |
| 98 | self.create_tag(indices) |
| 99 | self.set_timeout_last() |
| 100 | |
| 101 | def paren_closed_event(self, event): |
| 102 | # If it was a shortcut and not really a closing paren, quit. |
| 103 | if self.text.get("insert-1c") not in (')',']','}'): |
| 104 | return |
| 105 | hp = HyperParser(self.editwin, "insert-1c") |
| 106 | if not hp.is_in_code(): |
| 107 | return |
| 108 | indices = hp.get_surrounding_brackets(keysym_opener[event.keysym], True) |
| 109 | if indices is None: |
| 110 | self.warn_mismatched() |
| 111 | return |
| 112 | self.activate_restore() |
| 113 | self.create_tag(indices) |
David Scherer | 7aced17 | 2000-08-15 01:13:23 +0000 | [diff] [blame] | 114 | self.set_timeout() |
| 115 | |
Kurt B. Kaiser | b175445 | 2005-11-18 22:05:48 +0000 | [diff] [blame] | 116 | def restore_event(self, event=None): |
| 117 | self.text.tag_delete("paren") |
| 118 | self.deactivate_restore() |
| 119 | self.counter += 1 # disable the last timer, if there is one. |
David Scherer | 7aced17 | 2000-08-15 01:13:23 +0000 | [diff] [blame] | 120 | |
| 121 | def handle_restore_timer(self, timer_count): |
Kurt B. Kaiser | b175445 | 2005-11-18 22:05:48 +0000 | [diff] [blame] | 122 | if timer_count == self.counter: |
| 123 | self.restore_event() |
David Scherer | 7aced17 | 2000-08-15 01:13:23 +0000 | [diff] [blame] | 124 | |
| 125 | def warn_mismatched(self): |
| 126 | if self.BELL: |
| 127 | self.text.bell() |
| 128 | |
| 129 | # any one of the create_tag_XXX methods can be used depending on |
| 130 | # the style |
| 131 | |
Kurt B. Kaiser | b175445 | 2005-11-18 22:05:48 +0000 | [diff] [blame] | 132 | def create_tag_default(self, indices): |
David Scherer | 7aced17 | 2000-08-15 01:13:23 +0000 | [diff] [blame] | 133 | """Highlight the single paren that matches""" |
Kurt B. Kaiser | b175445 | 2005-11-18 22:05:48 +0000 | [diff] [blame] | 134 | self.text.tag_add("paren", indices[0]) |
David Scherer | 7aced17 | 2000-08-15 01:13:23 +0000 | [diff] [blame] | 135 | self.text.tag_config("paren", self.HILITE_CONFIG) |
| 136 | |
Kurt B. Kaiser | b175445 | 2005-11-18 22:05:48 +0000 | [diff] [blame] | 137 | def create_tag_expression(self, indices): |
David Scherer | 7aced17 | 2000-08-15 01:13:23 +0000 | [diff] [blame] | 138 | """Highlight the entire expression""" |
Kurt B. Kaiser | b175445 | 2005-11-18 22:05:48 +0000 | [diff] [blame] | 139 | if self.text.get(indices[1]) in (')', ']', '}'): |
| 140 | rightindex = indices[1]+"+1c" |
| 141 | else: |
| 142 | rightindex = indices[1] |
| 143 | self.text.tag_add("paren", indices[0], rightindex) |
David Scherer | 7aced17 | 2000-08-15 01:13:23 +0000 | [diff] [blame] | 144 | self.text.tag_config("paren", self.HILITE_CONFIG) |
| 145 | |
| 146 | # any one of the set_timeout_XXX methods can be used depending on |
| 147 | # the style |
| 148 | |
| 149 | def set_timeout_none(self): |
Kurt B. Kaiser | b175445 | 2005-11-18 22:05:48 +0000 | [diff] [blame] | 150 | """Highlight will remain until user input turns it off |
| 151 | or the insert has moved""" |
| 152 | # After CHECK_DELAY, call a function which disables the "paren" tag |
| 153 | # if the event is for the most recent timer and the insert has changed, |
| 154 | # or schedules another call for itself. |
| 155 | self.counter += 1 |
| 156 | def callme(callme, self=self, c=self.counter, |
| 157 | index=self.text.index("insert")): |
| 158 | if index != self.text.index("insert"): |
| 159 | self.handle_restore_timer(c) |
| 160 | else: |
| 161 | self.editwin.text_frame.after(CHECK_DELAY, callme, callme) |
| 162 | self.editwin.text_frame.after(CHECK_DELAY, callme, callme) |
David Scherer | 7aced17 | 2000-08-15 01:13:23 +0000 | [diff] [blame] | 163 | |
| 164 | def set_timeout_last(self): |
| 165 | """The last highlight created will be removed after .5 sec""" |
| 166 | # associate a counter with an event; only disable the "paren" |
| 167 | # tag if the event is for the most recent timer. |
Kurt B. Kaiser | b175445 | 2005-11-18 22:05:48 +0000 | [diff] [blame] | 168 | self.counter += 1 |
David Scherer | 7aced17 | 2000-08-15 01:13:23 +0000 | [diff] [blame] | 169 | self.editwin.text_frame.after(self.FLASH_DELAY, |
| 170 | lambda self=self, c=self.counter: \ |
| 171 | self.handle_restore_timer(c)) |