- Timestamp:
- Jan 12, 2013, 1:43:13 PM (10 years ago)
- Children:
- e3a0d71, 4485285
- Parents:
- 4626016
- git-author:
- Jason Gross <jgross@mit.edu> (01/12/13 13:13:18)
- git-committer:
- Jason Gross <jgross@mit.edu> (01/12/13 13:43:13)
- Location:
- perl/lib
- Files:
-
- 5 edited
Legend:
- Unmodified
- Added
- Removed
-
perl/lib/BarnOwl.pm
rb303ba2 r7869e48 661 661 =head3 random_zephyr_signature 662 662 663 Retrieve a random line from ~/.zsigs (except those beginning with '#') 663 Retrieve a random line from ~/.zsigs (except those beginning with '#') 664 664 and use it as the zephyr signature. 665 665 -
perl/lib/BarnOwl/Complete/Filter.pm
r6dba228 r7869e48 81 81 return $INCOMPLETE if $i == $INCOMPLETE; 82 82 } 83 83 84 84 return $i; # Well, it looks like we're happy 85 85 # (Actually, I'm pretty sure this never happens...) -
perl/lib/BarnOwl/Completion/Util.pm
re6cec01 r7869e48 108 108 109 109 my ($pfx, $base) = splitfile($string); 110 110 111 111 opendir(my $dh, $dir) or return; 112 112 my @dirs = readdir($dh); … … 119 119 next; 120 120 } 121 121 122 122 my ($text, $value, $done) = ($d, "${pfx}${d}", 1); 123 123 -
perl/lib/BarnOwl/Hooks.pm
rb8a3e00 r7869e48 12 12 13 13 C<BarnOwl::Hooks> exports a set of C<BarnOwl::Hook> objects made 14 available by BarnOwl internally. 14 available by BarnOwl internally. 15 15 16 16 =head2 USAGE … … 135 135 package BarnOwl; 136 136 if(*BarnOwl::format_msg{CODE}) { 137 # if the config defines a legacy formatting function, add 'perl' as a style 137 # if the config defines a legacy formatting function, add 'perl' as a style 138 138 BarnOwl::create_style("perl", BarnOwl::Style::Legacy->new( 139 139 "BarnOwl::format_msg", … … 163 163 BarnOwl::error("Can't load BarnOwl::ModuleLoader, loadable module support disabled:\n$@"); 164 164 } 165 165 166 166 $mainLoop->check_owlconf(); 167 167 $startup->run(0); … … 171 171 sub _shutdown { 172 172 $shutdown->run; 173 173 174 174 BarnOwl::shutdown() if *BarnOwl::shutdown{CODE}; 175 175 } … … 179 179 180 180 $receiveMessage->run($m); 181 181 182 182 BarnOwl::receive_msg($m) if *BarnOwl::receive_msg{CODE}; 183 183 } … … 187 187 188 188 $newMessage->run($m); 189 189 190 190 BarnOwl::new_msg($m) if *BarnOwl::new_msg{CODE}; 191 191 } -
perl/lib/BarnOwl/Message/Zephyr.pm
r6401db3 r7869e48 165 165 } elsif($sender && !$self->is_private) { 166 166 # Possible future feature: (Optionally?) include the class and/or 167 # instance of the message being replied to in the instance of the 167 # instance of the message being replied to in the instance of the 168 168 # outgoing personal reply 169 169 $class = 'MESSAGE';
Note: See TracChangeset
for help on using the changeset viewer.