Mercurial > hg > Members > anatofuz > slides

comparison lib/CLI.pm @ 41:deed6fa2e489

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
fix regex
author Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
date Tue, 08 May 2018 15:24:58 +0900
parents b887347d2d2b
children 7c19d3c0d027
comparison
equal deleted inserted replaced
40:b887347d2d2b 41:deed6fa2e489
80 sub cmd_build_open { 80 sub cmd_build_open {
81 my($self,$target) = @_; 81 my($self,$target) = @_;
82 $self->cmd_build($target); 82 $self->cmd_build($target);
83 if($target){ 83 if($target){
84 $target =~ s/\.md$/\.html/; 84 $target =~ s/\.md$/\.html/;
85 } else {
86 my @targets = $self->_search_recently_day()->children(qr/(?<!pdf)\.html$/);
87 p @targets;
88 $target = pop @targets;
85 } 89 }
86 $self->cmd_open(path($target)); 90 $self->cmd_open(path($target));
87 } 91 }
88 92
89 sub cmd_open { 93 sub cmd_open {
90 my($self,$slide) = @_; 94 my($self,$slide) = @_;
91 95
92 my $target; 96 my $target;
93 97
94 if ($slide){ 98 if ($slide){
95 $target = $slide; 99 $target = $slide;
96 } else { 100 } else {
162 my $target = pop @targets; 166 my $target = pop @targets;
163 exec $ENV{EDITOR},($target->realpath); 167 exec $ENV{EDITOR},($target->realpath);
164 } 168 }
165 169
166 sub cmd_zip { 170 sub cmd_zip {
167 my ($self) = @_; 171 my ($self) = @_;
168 my $recent_day = $self->_search_recently_day(); 172 my $recent_day = $self->_search_recently_day();
169 my $t = localtime; 173 my $t = localtime;
170 my $zip = $recent_day->child('zip.txt')->touch->opena; 174 my $zip = $recent_day->child('zip.txt')->touch->opena;
171 175
172 $t-= ONE_WEEK; 176 $t-= ONE_WEEK;
173 177
174 for(0..7){ 178 for(0..7){
175 my($y,$m,$d)=($t->strftime('%Y'), $t->strftime('%m'), $t->strftime('%d')); 179 my($y,$m,$d)=($t->strftime('%Y'), $t->strftime('%m'), $t->strftime('%d'));