From 55d150f84f3cc9d834c2c9aca3f377c35de8d626 Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Sun, 29 Mar 2015 17:49:07 +0900 Subject: Emacs args platform-independent Replace hardcoded forward-slash with from System.FilePath --- src/Utility/Emacs.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'src') diff --git a/src/Utility/Emacs.hs b/src/Utility/Emacs.hs index f42ea0c..2b197eb 100644 --- a/src/Utility/Emacs.hs +++ b/src/Utility/Emacs.hs @@ -10,6 +10,7 @@ import qualified Control.SremConfig as SremConfig import Data.Maybe.Read import Data.Modular import System.Directory (getHomeDirectory) +import System.FilePath (()) import System.Process (readProcess) import Text.Regex.Posix ((=~)) import Types.Reminder @@ -50,6 +51,6 @@ getEmacsOutput = do makeEmacsArgs :: String -> [String] makeEmacsArgs home = [ "-batch" - , "-l", home ++ "/.emacs.d/init.el" + , "-l", home ".emacs.d" "init.el" , "-eval", "(setq org-agenda-sticky nil)" , "-eval", "(org-batch-agenda \"D\")" ] -- cgit v1.2.3