simple structure for main program

1 files changed, 19 insertions, 1 deletions

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