To get this branch, use:
bzr branch
http://bzr.ed.am/todo
« back to all changes in this revision
Viewing changes to todo
- browse files at revision 1
- compare with another revision
- download diff
- download tarball
- view history from revision 1
- Committer: edam
- Date: 2011-09-30 10:20:26 UTC
- Revision ID: edam@waxworlds.org-20110930102026-8kbh15ufm67eit0k
init
- files modified:
- todo
added
removed
todo
11
11
# option defaults
12
12
my $todo_dir = "~/.todo";
13
13
my $display_all = 0;
14
my $display_section = "TODO";
14
my $display_section = "IMMEDIATE";
15
15
my $display_headers = 0;
16
16
my $mode_edit = 0;
17
17
my $mode_help = 0;
34
34
# help mode
35
35
if( $mode_help ) {
36
36
print "todo - display your todo file\n\n".
37
"Usage: $app_name [OPTIONS]\n\n".
38
"Options:\n".
39
" -a, --all display all sections\n".
40
" -e, --edit edit your todo file\n".
41
" -h, --headers show setion headers\n".
42
" -s, --section=SECTION display this named section\n".
43
" --help display this help and exit\n".
44
" --version output version information and exit\n";
37
"Usage: $app_name [OPTIONS]\n\n".
38
"Options:\n".
39
" -a, --all display all sections\n".
40
" -e, --edit edit your todo file\n".
41
" -h, --headers show setion headers\n".
42
" -s, --section=SECTION display this named section\n".
43
" --help display this help and exit\n".
44
" --version output version information and exit\n";
45
45
exit( 0 );
46
46
}
47
47
48
48
# version mode
49
49
if( $mode_version ) {
50
print "todo 1.0\n".
51
"Copyright (C) 2011 Tim Marston.\n".
52
"http://ed.am/software/todo\n";
50
print "todo 1.0\n" .
51
"Copyright (C) 2011 Tim Marston.\n";
53
52
exit( 0 );
54
53
}
55
54
69
68
if( $mode_edit )
70
69
{
71
70
# create the todo directory, as necessary
72
if( ! -d $todo_dir ) {
73
mkdir $todo_dir or die "couldn't create todo directory";
74
`bzr init --no-aliases -q "$todo_dir"`;
75
$? == 0 or die "couldn't init bzr repo";
76
}
77
78
# create a default todo file, as necessary
79
if( ! -f "$todo_dir/todo" ) {
80
open FILE, ">$todo_dir/todo" or die "couldn't create default todo file";
81
my $content = <<"EOT";
82
<!-- This file uses Markdown syntax. For more info about Markdown
83
syntax, see http://daringfireball.net/projects/markdown/syntax.
84
85
There should be a main H1 header called "TODO" for the main todo
86
list section (one has been added for you below). You can also add
87
as many more sections as you like for other lists. And feel free
88
to delete this comment! -->
89
90
TODO
91
====
92
93
* make a list of things to do
94
95
EOT
96
print FILE $content or die "couldn't write default todo file";
97
close FILE;
98
`bzr add --no-aliases -q "$todo_dir/todo"`;
99
$? == 0 or die "couldn't add todo file to bzr repo";
100
}
71
if( ! -d $todo_dir ) {
72
mkdir $todo_dir or die "couldn't create todo directory";
73
`bzr init --no-aliases -q "$todo_dir"`;
74
$? == 0 or die "couldn't init bzr repo";
75
`> "$todo_dir/todo"`;
76
$? == 0 or die "couldn't create initial todo file";
77
`bzr add --no-aliases -q "$todo_dir/todo"`;
78
$? == 0 or die "couldn't add todo file to bzr repo";
79
}
101
80
102
81
# determine editor from environment, default to "emacs -nw"
103
82
my $editor = $ENV{ 'EDITOR' };
105
84
my @exec_array = split( / +/, $editor );
106
85
push( @exec_array, "$todo_dir/todo" );
107
86
108
# detect emacs and try to use markdown-mode
109
$exec_array[ 0 ] eq "emacs" and
110
push( @exec_array, '--funcall=markdown-mode' );
87
# detect emacs and try to use markdown-mode
88
$exec_array[ 0 ] eq "emacs" and push( @exec_array, '--funcall=markdown-mode' );
111
89
112
90
# edit todo file
113
91
system( @exec_array );
114
$? == 0 or
115
die "can't start editor, check EDITOR envionment variable";
116
117
# check for changes and commit it
118
$output = `bzr status --no-aliases "$todo_dir/todo"`;
119
$? == 0 or die "couldn't check bzr rerpo status";
120
chomp $output;
121
if( $output ne "" ) {
122
`bzr commit --no-aliases -q -m - "$todo_dir/todo"`;
123
$? == 0 or die "couldn't commit to bzr repo";
124
}
125
126
# after editing, exit
127
exit
92
$? == 0 or die "unable to exec editor";
93
94
# check for changes and commit it
95
$output = `bzr status --no-aliases "$todo_dir/todo"`;
96
$? == 0 or die "couldn't check bzr rerpo status";
97
chomp $output;
98
if( $output ne "" ) {
99
`bzr commit --no-aliases -q -m - "$todo_dir/todo"`;
100
$? == 0 or die "couldn't commit to bzr repo";
101
}
102
103
# exit
104
exit
128
105
}
129
106
130
107
# scan through file
137
114
138
115
# detect the line after section headings, and thus sections
139
116
if( /^[-=]{2,}/ && $next_section ne '' ) {
140
$section = $next_section;
141
$next_section = '';
117
$section = $next_section;
118
$next_section = '';
142
119
}
143
120
# detect section headings
144
elsif( /^[-_\.A-Za-z0-9 ]+$/ ) {
145
$next_section = $_;
146
chomp( $next_section );
121
elsif( /^[A-Z]+$/ ) {
122
$next_section = $_;
123
chomp( $next_section );
147
124
}
148
125
# we have neither a section heading nor the line after
149
126
else {
150
$next_section = '';
151
152
# display line
153
if( ( $section eq $display_section ) ||
154
( $section && $display_all ) )
155
{
156
# detect section change
157
if( $section ne $old_section ) {
158
$old_section = $section;
159
160
# display section heading
161
if( $display_headers ||
162
$display_all )
163
{
164
print "$section\n".
165
( "=" x length( $section ) )."\n";
166
}
167
}
168
169
# replace tabs with 4 spaces
170
s/\t/ /g;
171
172
# display the line
173
print;
174
}
127
$next_section = '';
128
129
# display line
130
if( $section eq $display_section ||
131
$display_all )
132
{
133
# detect section change
134
if( $section ne $old_section ) {
135
$old_section = $section;
136
137
# display section heading
138
if( $display_headers ||
139
$display_all )
140
{
141
my $heading = 'TODO';
142
$heading .= ' ('.lc( $section ).')' if $section ne "IMMEDIATE";
143
print "$heading\n".
144
( "=" x length( $heading ) )."\n";
145
}
146
}
147
148
# replace tabs with 4 spaces
149
s/\t/ /g;
150
151
# display the line
152
print;
153
}
175
154
}
176
155
}
Loggerhead is a web-based interface for Breezy
Version: 2.0.2.dev0