Launch editor after entry command

diff --git a/app/Main.hs b/app/Main.hs
index 0146ae9..d68cc4c 100644 (file)
--- a/app/Main.hs
+++ b/app/Main.hs
@@ -14,6 +14,7 @@ import Data.Text hiding (intercalate, unlines, init, length)
 import Data.Time.Clock.POSIX
 import System.File.Tree hiding (mapM, mapM_)
 import System.Directory (doesFileExist)
+import System.Process
 
 main :: IO ()
 main = getArgs >>= parse
@@ -65,6 +66,7 @@ entry = do
   let filename = "entries/" ++ (show entryNum) ++ "-" ++ (unpack . (toLower. replace " " "-") $ pack entryName) ++ ".txt"
   writeFile filename (show stamp ++ "::" ++ entryName ++ "\n")
   putStrLn $ "Created " ++ filename
+  callCommand $ "emacsclient " ++ filename ++ " &"
 
 usage :: IO ()
 usage =  putStr . ununlines $ [

diff --git a/package.yaml b/package.yaml
index 966395a..71ad540 100644 (file)
--- a/package.yaml
+++ b/package.yaml
@@ -27,6 +27,7 @@ dependencies:
 - template
 - json
 - filesystem-trees
+- process
 
 library:
   source-dirs: src