From b55bf2acfafa913a4da36e90569577bbbccee4fc Mon Sep 17 00:00:00 2001
From: Sean Whitton <spwhitton@spwhitton.name>
Date: Tue, 31 Mar 2015 06:34:40 +0900
Subject: simple structure for main program

---
 src/Main.hs | 20 +++++++++++++++++++-
 1 file changed, 19 insertions(+), 1 deletion(-)

diff --git a/src/Main.hs b/src/Main.hs
index ae51aef..7e55e01 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -22,7 +22,25 @@
 -}
 
 import           Control.Applicative ((<$>), (<*>))
+import           System.Environment  (getArgs)
 import           Types.Reminder
 import           Utility.EventCache
 
-main = undefined
+doCron :: IO ()
+doCron = undefined
+
+cmdLineReminder      :: [String] -> Maybe Reminder
+cmdLineReminder args = undefined
+
+appendUserReminder   :: Reminder -> IO ()
+appendUserReminder r = undefined
+
+main = do
+    args <- getArgs
+    if length args == 1 && head args == "--cron"
+        then doCron
+        else if length args == 1 && head args == "--emacs"
+                then refreshEmacsEventCache
+                else maybe
+                     (error "srem: invalid input")
+                     appendUserReminder $ cmdLineReminder args
-- 
cgit v1.2.3