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
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
|
import std/[times, os, strutils, strbasics, strscans, sets, re, tables], parseopt
const VERSION = "0.1"
const configDir = expandTilde("~/.config/then/")
const defaultConfigFile = configDir & "then.toml"
const defaultCalendarFile = configDir & "calendar.then"
type
Token = object
token: string
precedence: int
# Creates a default configuration file if it doesn't exist
proc createDefaultConfigFile() =
if not fileExists(defaultConfigFile):
if not dirExists(configDir):
createDir(configDir)
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(configDir):
createDir(configDir)
writeFile(defaultCalendarFile, """
# 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(c: string): string =
var cond = c
if cond[0] == '!':
cond.delete(0..0)
if find(cond, re"^\d{4}$") > -1: return "year"
if find(cond, re"^\d{1,2}$") > -1: return "day"
if cond in DefaultLocale.MMM.toHashSet or cond in DefaultLocale.MMMM.toHashSet: return "month"
if cond in DefaultLocale.ddd.toHashSet or cond in DefaultLocale.dddd.toHashSet: return "dayofweek"
if find(cond, re"\d{1,2}:\d{2}") > -1: return "time"
if find(cond, re"^\dw$") > -1: return "firstweek"
if find(cond, re"^\dl$") > -1: return "lastweek"
if find(cond, re"^\(?\s*J\s*%\s*\d\s*([-+]\d)?\s*\)?$") > -1: return "julian"
if find(cond, re"^\(.*\)$") > -1: return "dategroup"
return "unknown"
proc getWeekFromEnd(date: DateTime): int =
let daysInMonth = getDaysInMonth(date.month, date.year)
return int((daysInMonth - date.monthday) / 7) + 1
proc getWeek(date: DateTime): int =
return int((date.monthDay -1) / 7) + 1
proc checkCond(cond: string, date: DateTime): bool =
case checkType(cond):
of "year":
if parseInt(cond) == date.year: return true
of "date":
if parseInt(cond) == parseInt(date.format("d")): return true
if parseInt(cond) == parseInt(date.format("dd")): return true
of "month":
if cond == date.format("MMM"): return true
if cond == date.format("MMMM"): return true
of "dayofweek":
if cond == date.format("ddd"): return true
if cond == date.format("dddd"): return true
of "time":
return true
of "firstweek":
if cond[0] == getWeek(date): return true
of "lastweek":
if cond[0] == getWeekFromEnd(date): return true
of "unknown":
echo "ERROR: Unknown condition: ", cond
return false
# Splits a string on whitespace, but maintains whitespace in date groups
proc splitWhitespaceExceptParens(str:string): seq[string] =
var result: seq[string] = newSeq[string]()
var inParens = false
for token in str.splitWhitespace:
if inParens:
result.add(result.pop & ' ' & token)
else:
result.add(token)
if token.contains('('): inParens = true
if token.contains(')'): inParens = false
return result
# Returns Table[conditionType, seq of conditions]
proc parseDateToTable(date:string): Table[string,seq[string]] =
var table = initTable[string,seq[string]]()
let conditions = splitWhitespaceExceptParens(date)
for c in conditions:
let condType = checkType(c)
if not table.hasKey(condType):
table[condType] = @[]
table[condType].add(c)
return table
proc getEvents(cal: seq[string], date: DateTime): seq[string] =
var events: seq[string] = newSeq[string]()
for line in cal:
var (success, date, event) = scanTuple(line, "$*,$*")
if success:
date.strip
event.strip
let conditions = parseDateToTable(date)
var match = true
# This logic no longer works for how we've made the table
for k,cs in conditions:
for c in cs:
var cond = c.toLower.capitalizeAscii
if checkCond(cond, date) == false:
match = false
break
if match:
events.add(event)
break
else:
echo "WARNING: Cannot parse line: ", line
return events
proc printEvents(cal: seq[string], date: DateTime) =
let events = getEvents(cal, date)
if events.len > 0:
echo date.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()
|
