1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
|
import std/[times, os, strutils, strbasics, strscans, sets], parseopt
const VERSION = "0.1"
const defaultConfigDir = expandTilde("~/.config/then/")
const defaultConfigFile = defaultConfigDir & "then.toml"
const defaultCalendarFile = defaultConfigDir & "calendar.then"
# Creates a default configuration file if it doesn't exist
proc createDefaultConfigFile() =
if not fileExists(defaultConfigFile):
if not dirExists(defaultConfigDir):
createDir(defaultConfigDir)
writeFile(defaultConfigFile, """
[config]
directory = "~/.config/then/"
""")
# Creates a default calendar file if it doesn't exist
proc createDefaultCalendarFile() =
if not fileExists(defaultCalendarFile):
if not dirExists(defaultConfigDir):
createDir(defaultConfigDir)
writeFile(defaultCalendarFile, """
# Default calendar file
# Add your events here
""")
proc printHelp(badCmd: string) =
if badCmd != "":
echo badCmd & " is not a valid option\n"
echo """
Usage:
then [options] [commands]
OPTIONS
-h, --help show list of CLI options
-v, --version show then version
--future=DAYS set future
--past=DAYS set past
COMMANDS
a print upcoming agenda (default command)
e open default calendar file in $EDITOR
j print the modified julian day
"""
quit()
proc printVersion() =
echo "then " & VERSION
quit()
proc checkType(cond: string): string =
if cond.len == 4 and parseInt(cond) != 0: return "year"
if cond.len in [1, 2] and parseInt(cond) != 0: return "day"
if cond in ["Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec"].toHashSet: return "month"
return "unknown"
proc checkCond(cond: string, day: DateTime): bool =
case checkType(cond):
of "year":
if parseInt(cond) == day.year: return true
of "day":
if parseInt(cond) == parseInt(day.format("d")): return true
if parseInt(cond) == parseInt(day.format("dd")): return true
of "month":
if cond == day.format("MMM"): return true
if cond == day.format("MMMM"): return true
of "unknown":
echo "UNKNOWN THING ", cond
return false
proc getConditions(dateStr: string): seq[string] =
var conditions: seq[string]
conditions = dateStr.rsplit(' ')
return conditions
proc getEvents(cal: seq[string], day: DateTime): seq[string] =
var events: seq[string]
for line in cal:
var (success, dateStr, eventStr) = scanTuple(line, "$+,$*")
if success:
dateStr.strip
eventStr.strip
let conditions = getConditions(dateStr)
var match = true
for c in conditions:
if checkCond(c, day) == false:
match = false
break
if match:
events.add(eventStr)
else:
echo "WARNING: Cannot parse line: ", line
return events
proc printEvents(cal: seq[string], day: DateTime) =
let events = getEvents(cal, day)
if events.len > 0:
echo day.format("ddd yyyy MMM dd")
for e in events:
echo " - ", e
proc openCal(file: string): seq[string] =
let f = open(file)
var cal: seq[string]
for line in f.lines:
cal.add(line)
f.close()
return cal
proc printCalendar() =
let cal = openCal(defaultCalendarFile)
var past = 3
var future = 7
let now = now()
while past > 0:
let curDay = now - past.days
printEvents(cal, curDay)
dec past
printEvents(cal, now)
for i in 1..future:
let curDay = now + i.days
printEvents(cal, curDay)
proc main() =
var past: int = 1
var future: int = 14
var noArg: bool = true
for kind, key, val in getopt():
case kind
of cmdLongOption, cmdShortOption:
noArg = false
case key
of "help", "h":
printHelp("")
of "version", "v":
printVersion()
else:
printHelp(key)
else:
discard
if noArg:
printCalendar()
when isMainModule:
main()
|
