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
|
import std/[times, os, strutils, strbasics, strscans, sets, tables], parseopt
import then/[conditions,typechecker]
const VERSION = "0.1"
const configDir = expandTilde("~/.config/then/")
const defaultConfigFile = configDir & "then.toml"
const defaultCalendarFile = configDir & "calendar.then"
const MONTHS = DefaultLocale.MMM.toHashSet + DefaultLocale.MMMM.toHashSet
const WEEKDAYS = DefaultLocale.ddd.toHashSet + DefaultLocale.dddd.toHashSet
# 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()
# Splits a string on whitespace, but maintains whitespace in date groups
proc splitWhitespaceExceptParens(str:string): seq[string] =
var output: seq[string] = newSeq[string]()
var inParens = false
for token in str.splitWhitespace:
if inParens:
output.add(output.pop & ' ' & token)
else:
output.add(token)
for c in token:
if c == '(': inParens = true
if c == ')': inParens = false
return output
# 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, dateConditions, event) = scanTuple(line, "$*,$*")
if success:
dateConditions.strip
event.strip
let conditions = parseDateToTable(dateConditions)
var match = true
# key = Condition Type (e.g. month), cs = Seq of conditions
for k,cs in conditions:
var keyMatched = false
for c in cs:
if checkCond(c, date) == true:
keyMatched = true
break
if not keyMatched:
match = false
break
if match:
events.add(event)
else:
echo "WARNING: Cannot parse line: ", line
return events
proc printEvents(cal: seq[string], date: DateTime, format: string) =
let events = getEvents(cal, date)
if events.len > 0:
for e in events:
echo date.format(format), " ", e
proc openCal(file: string): seq[string] =
let f = open(file)
var cal: seq[string]
for line in f.lines:
if line == "": continue
if line.strip[0] == '#': continue
cal.add(line)
f.close()
return cal
proc printCalendar() =
let cal = openCal(defaultCalendarFile)
var past = -3
var future = 7
let now = now()
for i in past..future:
let curDay = now + i.days
printEvents(cal, curDay, "ddd yyyy MMM dd")
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()
|
