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
|
import std/[times, os, strutils, strbasics, strscans, sets, strtabs, tables], parseopt
import soon/[conditions, config, typechecker]
const VERSION = "0.1"
const configDir = expandTilde("~/.config/soon/")
const defaultConfigFile = configDir & "soon.toml"
const defaultCalendarFile = configDir & "calendar.soon"
const MONTHS = DefaultLocale.MMM.toHashSet + DefaultLocale.MMMM.toHashSet
const WEEKDAYS = DefaultLocale.ddd.toHashSet + DefaultLocale.dddd.toHashSet
proc printHelp(badCmd: string) =
if badCmd != "":
echo badCmd & " is not a valid option\n"
echo """
Usage:
soon [options] [commands]
OPTIONS
-h, --help show list of CLI options
-v, --version show soon 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 "soon " & 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 parseArgs(config: StringTableRef): StringTableRef =
for kind, key, val in getopt():
case kind
of cmdLongOption, cmdShortOption:
case key
of "help", "h":
printHelp("")
of "version", "v":
printVersion()
else:
printHelp(key)
else:
discard
proc main() =
var config = loadConfig()
config = parseArgs(config)
var noArg: bool = true
if noArg:
printCalendar()
when isMainModule:
main()
|
