name | mode | size |
---|---|---|
precompiled | 040000 | |
sample-inputs | 040000 | |
utils | 040000 | |
.gitignore | 100644 | 0 kb |
README.md | 100644 | 4 kb |
README.txt | 100644 | 0 kb |
freshbooks.lisp | 100644 | 8 kb |
generic-equals.lisp | 100644 | 0 kb |
macros.lisp | 100644 | 2 kb |
mvc.lisp | 100644 | 4 kb |
package.lisp | 100644 | 1 kb |
parser.lisp | 100644 | 20 kb |
timesheet | 100755 | 24,992 kb |
timesheet.asd | 100644 | 1 kb |
timesheet.lisp | 100644 | 11 kb |
A little utility to manage a simple time-sheet file.
The file-format is this:
```
-- Someday YYYY-MM-DD
start@HH:MM[:SS][(+|-)NN(mins|hrs)][,HH:MM[:SS][(+|-)NN(mins|hrs)]]
Client Name: This is a memo.
```
Right now the parser is fairly fragile: it reads what it can and fails silently at the first
error. Eventually there'll be better error-handling.
```
% ./timesheet -h
timesheet, common-lisp version 0:1
-c --client boolean Sort by client
-r --reverse boolean Reverse sort
-s --status boolean Print a summary of the hours worked and the prices
-h --help boolean show help
```
By default, it orders the log by dates. With the `-r` option, it displays the dates in descending order:
```
% ./timesheet -r sample-inputs/test.ts
Thu, 2016/01/04 Client #2 5.00 hrs Implement prototype and write presentation
Thu, 2016/01/04 Client #1 9.00 hrs Implement Facebook Connector
Wed, 2016/01/03 Client #2 2.50 hrs Discussed user requirements and produce specification.
Wed, 2016/01/03 Client #1 6.00 hrs Delivered prototype, reviewed prototype feedback.
Tue, 2016/01/02 Client #1 8.00 hrs Prototype for testing user experience.
Mon, 2016/01/01 Client #1 8.00 hrs Mockup of site layout
```
With `-c` it sorts by clients and then does a stable-sort by date:
```
% ./timesheet -sc sample-inputs/test.ts
Mon, 2016/01/01 Client #1 8.00 hrs Mockup of site layout
Tue, 2016/01/02 Client #1 8.00 hrs Prototype for testing user experience.
Wed, 2016/01/03 Client #1 6.00 hrs Delivered prototype, reviewed prototype feedback.
Thu, 2016/01/04 Client #1 9.00 hrs Implement Facebook Connector
Wed, 2016/01/03 Client #2 2.50 hrs Discussed user requirements and produce specification.
Thu, 2016/01/04 Client #2 5.00 hrs Implement prototype and write presentation
------------------------------------------------------------------------------------------------------------------------
Client #1: 31.00 hours @ XX.00 $/hr = $XXXX.00
Client #2: 7.50 hours @ XX.00 $/hr = $ XXX.00
Total: 38.50 hours @ XX.00 $/hr = $XXXX.00
```
```
% ./timesheet -sr sample-inputs/test.ts
Thu, 2016/01/04 Client #2 5.00 hrs Implement prototype and write presentation
Thu, 2016/01/04 Client #1 9.00 hrs Implement Facebook Connector
Wed, 2016/01/03 Client #2 2.50 hrs Discussed user requirements and produce specification.
Wed, 2016/01/03 Client #1 6.00 hrs Delivered prototype, reviewed prototype feedback.
Tue, 2016/01/02 Client #1 8.00 hrs Prototype for testing user experience.
Mon, 2016/01/01 Client #1 8.00 hrs Mockup of site layout
------------------------------------------------------------------------------------------------------------------------
Client #1: 31.00 hours @ XX.00 $/hr = $XXXX.00
Client #2: 7.50 hours @ XX.00 $/hr = $ XXX.00
Total: 38.50 hours @ XX.00 $/hr = $XXXX.00
```
`-c` and `-r` combine:
```
% ./timesheet -scr sample-inputs/test.ts
Thu, 2016/01/04 Client #2 5.00 hrs Implement prototype and write presentation
Wed, 2016/01/03 Client #2 2.50 hrs Discussed user requirements and produce specification.
Thu, 2016/01/04 Client #1 9.00 hrs Implement Facebook Connector
Wed, 2016/01/03 Client #1 6.00 hrs Delivered prototype, reviewed prototype feedback.
Tue, 2016/01/02 Client #1 8.00 hrs Prototype for testing user experience.
Mon, 2016/01/01 Client #1 8.00 hrs Mockup of site layout
------------------------------------------------------------------------------------------------------------------------
Client #1: 31.00 hours @ XX.00 $/hr = $XXXX.00
Client #2: 7.50 hours @ XX.00 $/hr = $ XXX.00
Total: 38.50 hours @ XX.00 $/hr = $XXXX.00
```