Finished work to enable navi sounds.

daily_notifier.nim

@@ -1,4 +1,6 @@
-import daemonize, docopt, json, os, nre, sequtils, times, timeutils
+import cliutils, docopt, json, logging, os, re, random, sequtils,
+  times, timeutils
+
 from posix import SIGTERM, SIGHUP, signal, kill
 import strutils except toUpper
 from unicode import toUpper
@@ -9,30 +11,21 @@ type
   DPConfig = tuple[planDir, dateFmt, pidfile, logfile, errfile: string,
     notificationSecs: int]
 
-  CombinedConfig = object
+const VERSION = "0.3.0"
-    docopt: Table[string, Value]
+const NOTE_TITLE = "Daily Notifier v" & VERSION
-    json: JsonNode
-
-proc getVal(cfg: CombinedConfig, key, default: string): string =
-  let argKey = "--" & key
-  let envKey = key.replace('-', '_').toUpper
-  let jsonKey = key.replace(re"(-\w)", proc (m: RegexMatch): string = ($m)[1..1].toUpper)
-
-  if cfg.docopt[argKey]: return $cfg.docopt[argKey]
-  elif existsEnv(envKey): return getEnv(envKey)
-  elif cfg.json.hasKey(jsonKey): return cfg.json[jsonKey].getStr
-  else: return default
-
-const VERSION = "0.2.2"
 const timeFmt = "HH:mm"
 
 var args: Table[string, Value]
 var cfg: DPConfig
 let appName = getAppFilename()
-let soundFile = appName[0..(appName.len-15)] & "sounds/notify1.ogg"
+let soundsDir: string = appName[0..(appName.len-15)] & "sounds/navi"
+let soundFiles = toSeq(walkFiles(soundsDir & "/*"))
+randomize()
 
 proc parseDailyPlan(filename: string): seq[PlanItem] =
 
+  debug "debug - Parsing daily plan file: " & filename
+
   result = @[]
 
   var parseState = BeforeHeading
@@ -47,27 +40,48 @@ proc parseDailyPlan(filename: string): seq[PlanItem] =
       if line.strip.startsWith("## Timeline"): parseState = ReadingPlans
 
     of ReadingPlans:
-      let match = line.find(planItemRe)
+      # TODO: This is the better code using the nre module: 
-      if match.isSome(): result.add((
+      # let match = line.find(planItemRe)
-        time: parse(match.get().captures[0], timeFmt),
+      # if match.isSome(): result.add((
-        note: match.get().captures[1]))
+      #   time: parse(match.get().captures[0], timeFmt),
+      #   note: match.get().captures[1]))
+      # else: parseState = AfterPlans
+      #
+      # Curently there is an incompatibility between the os and nre modules
+      # (see https://github.com/nim-lang/Nim/issues/4996) so the following code
+      # is used to avoid using nre until the bug is fixed.
+
+      if line.match(planItemRe):
+        let stripped = line.strip
+        result.add((
+          time: parse(stripped[0..4], timeFmt),
+          note: stripped.substr(5)))
       else: parseState = AfterPlans
 
     of AfterPlans: break
     else: break
 
+  debug "debug - Found " & $result.len & " items."
+
+proc doAndLog(cmd: string): void =
+  debug "debug - Executing '" & cmd & "'"
+  discard execShellCmd(cmd)
+
 proc notifyDailyPlanItem(item: PlanItem): void =
+
+  let desc = item.time.format(timeFmt) & " - " & item.note
+  debug "debug - Notifying: " & desc
+
+  let soundFile = soundFiles[random(soundFiles.len)]
   case hostOS
   of "macosx":
-    discard execShellCmd("osascript -e 'display notification \"" &
+    doAndLog "osascript -e 'display notification \"" &
-      item.time.format(timeFmt) & " - " & item.note &
+       desc & "\" with title \"" & NOTE_TITLE & "\"'"
-      "\" with title \"Daily Notifier v" & VERSION &
+    doAndLog "ogg123 \"" & soundFile & "\""
-      "\" sound name \"default\"'")
 
   of "linux":
-    discard execShellCmd("notify-send 'Daily Notifier v" & VERSION & "' '" & item.note & "'")
+    doAndLog "notify-send '" & NOTE_TITLE & "' '" & desc & "'"
-    discard execShellCmd("paplay \"" & soundFile & "\"")
+    doAndLog "paplay \"" & soundFile & "\""
-    echo "paplay \"" & soundFile & "\""
 
   else: quit("Unsupported host OS: '" & hostOS & "'.")
 
@@ -82,6 +96,8 @@ proc loadConfig(s: cint): void {. exportc, noconv .} =
   var rcFilename: string =
     foldl(rcLocations, if len(a) > 0: a elif existsFile(b): b else: "")
 
+  debug "debug - Reloading config file from " & rcFilename
+
   var jsonCfg: JsonNode
   try: jsonCfg = parseFile(rcFilename)
   except: jsonCfg = newJObject()
@@ -102,6 +118,7 @@ proc loadConfig(s: cint): void {. exportc, noconv .} =
 
 proc mainLoop(args: Table[string, Value]): void =
   
+  debug "debug - Started daemon main loop."
   loadConfig(0)
   signal(SIGHUP, loadConfig)
   var curDay: TimeInfo = getLocalTime(fromSeconds(0))
@@ -169,6 +186,7 @@ Options:
   -h --help                   Print this usage information.
 
   -s --notification-seconds <sec>
+  -v --verbose                Enable verbose output.
 
     Notification period for plan items.
     
@@ -182,18 +200,25 @@ Options:
 
   loadConfig(0)
 
+  addHandler(newConsoleLogger(
+    if args["--verbose"]: lvlAll
+    else: lvlInfo))
+
   if args["start"]:
     # Start our daemon process (if needed)
-    daemonize(cfg.pidfile, "/dev/null", cfg.logfile, cfg.errfile):
+    info "daily_notifier: Starting daemon."
-      mainLoop(args)
+    let childPid = daemonize(cfg.pidfile, "/dev/null", cfg.logfile, cfg.errfile, proc(): void = mainLoop(args))
+    if childPid == 0: quit(QuitSuccess) # We are the child... don't need to do anything else.
+    info "daily_notifier: Started, pid: " & $childPid
 
   elif args["stop"] or args["reconfigure"]:
 
     if not fileExists(cfg.pidfile):
-      echo "daily_notifier is not running"
+      info "daily_notifier: not running"
       quit(QuitSuccess)
 
     let pid = parseInt(readFile(cfg.pidfile).strip)
+    info "daily_notifier: Killing process " & $pid
 
     if args["stop"]: discard kill(pid, SIGTERM)
     else: discard kill(pid, SIGHUP)

daily_notifier.nimble

@@ -1,6 +1,6 @@
 # Package
 
-version       = "0.2.2"
+version       = "0.3.0"
 author        = "Jonathan Bernard"
 description   = "Little programs that reads my daily plan and notifies me of upcoming events."
 license       = "MIT"
@@ -8,5 +8,5 @@ bin           = @["daily_notifier", "deploy_plans_via_ftp"]
 
 # Dependencies
 
-requires @["nim >= 0.15.0", "docopt", "timeutils", "tempfile", "daemonize"]
+requires @["nim >= 0.15.0", "docopt", "timeutils", "tempfile", "cliutils"]