[569] in BarnOwl Developers

home	help	back	first	fref	pref	prev	next	nref	lref	last	post

[D-O-H] r685 - / branches/par/perl/lib/BarnOwl

daemon@ATHENA.MIT.EDU (nelhage@MIT.EDU)
Thu Oct 29 18:07:30 2009

Resent-From: nelhage@mit.edu
Resent-To: barnowl-dev-mtg@charon.mit.edu
To: dirty-owl-hackers@mit.edu
From: nelhage@MIT.EDU
Reply-to: dirty-owl-hackers@MIT.EDU
Date: Mon, 26 Mar 2007 21:14:41 -0400 (EDT)

Author: nelhage
Date: 2007-03-26 21:14:41 -0400 (Mon, 26 Mar 2007)
New Revision: 685

Modified:
   /
   branches/par/perl/lib/BarnOwl/ModuleLoader.pm
Log:
 r20708@phanatique:  nelhage | 2007-03-26 21:11:34 -0400
 Adding a reload-modules command
 



Property changes on: 
___________________________________________________________________
Name: svk:merge
   - 6122c8b4-0e12-0410-9533-8bcd7c66c992:/local/dirty-owl-hacks:24493
6aa88b72-b502-0410-8cb4-a5dd0230fb79:/owl-local:1356
bb873fd7-8e23-0410-944a-99ec44c633eb:/local/barnowl:20705
bb873fd7-8e23-0410-944a-99ec44c633eb:/local/d-o-h:18636
   + 6122c8b4-0e12-0410-9533-8bcd7c66c992:/local/dirty-owl-hacks:24493
6aa88b72-b502-0410-8cb4-a5dd0230fb79:/owl-local:1356
bb873fd7-8e23-0410-944a-99ec44c633eb:/local/barnowl:20708
bb873fd7-8e23-0410-944a-99ec44c633eb:/local/d-o-h:18636

Modified: branches/par/perl/lib/BarnOwl/ModuleLoader.pm
===================================================================
--- branches/par/perl/lib/BarnOwl/ModuleLoader.pm	2007-03-27 01:04:54 UTC (rev 684)
+++ branches/par/perl/lib/BarnOwl/ModuleLoader.pm	2007-03-27 01:14:41 UTC (rev 685)
@@ -36,8 +36,18 @@
             BarnOwl::error("Unable to load module $class: $@") if $@;
         }
     }
+
+    $BarnOwl::Hooks::startup->add(\&register_keybindings);
 }
 
+sub register_keybindings {
+    BarnOwl::new_command('reload-modules', sub {BarnOwl::ModuleLoader->reload}, {
+                           summary => 'Reload all modules',
+                           usage   => 'reload',
+                           description => q{Reloads all modules located in ~/.owl/modules and the system modules directory}
+                          });
+}
+
 sub reload {
     my $class = shift;
     for my $m (keys %INC) {

home	help	back	first	fref	pref	prev	next	nref	lref	last	post