| … | |
… | |
| 129 | $self |
129 | $self |
| 130 | } |
130 | } |
| 131 | |
131 | |
| 132 | sub cfg_bind { |
132 | sub cfg_bind { |
| 133 | my ($self, $mod, $sym, $cmds) = @_; |
133 | my ($self, $mod, $sym, $cmds) = @_; |
| 134 | $::CFG->{profile}{default}{bindings}{$mod}{$sym} = $cmds; |
134 | $::PROFILE->{bindings}{$mod}{$sym} = $cmds; |
| 135 | ::update_bindings (); |
135 | ::update_bindings (); |
| 136 | } |
136 | } |
| 137 | |
137 | |
| 138 | sub cfg_unbind { |
138 | sub cfg_unbind { |
| 139 | my ($self, $mod, $sym, $cmds) = @_; |
139 | my ($self, $mod, $sym, $cmds) = @_; |
| 140 | delete $::CFG->{profile}{default}{bindings}{$mod}{$sym}; |
140 | delete $::PROFILE->{bindings}{$mod}{$sym}; |
| 141 | ::update_bindings (); |
141 | ::update_bindings (); |
| 142 | } |
142 | } |
| 143 | |
143 | |
| 144 | sub commit { |
144 | sub commit { |
| 145 | my ($self) = @_; |
145 | my ($self) = @_; |
