summaryrefslogtreecommitdiff
path: root/Pancake/Configuration.hs
diff options
context:
space:
mode:
Diffstat (limited to 'Pancake/Configuration.hs')
-rw-r--r--Pancake/Configuration.hs7
1 files changed, 5 insertions, 2 deletions
diff --git a/Pancake/Configuration.hs b/Pancake/Configuration.hs
index fa33d52..ff2e748 100644
--- a/Pancake/Configuration.hs
+++ b/Pancake/Configuration.hs
@@ -56,9 +56,12 @@ instance ToJSON Config
instance Default Config where
def = Config {
commands = M.fromList
- [ ("ssh", "scp \"${URI_REGNAME}:${URI_PATH}\" /dev/stdout")
- , ("gopher", "curl \"${URI}\"")]
+ [ ("ssh", "scp \"${URI_REGNAME}:${URI_PATH}\" /dev/stdout"
+ ++ " && echo -e '\n-pancake-'")
+ , ("gopher", "curl \"${URI}\""
+ ++ " -w \"\n-pancake-\n\"")]
, defaultCommand = "curl -4 -L \"${URI}\""
+ ++ " -w \"\n-pancake-\nuri: %{url_effective}\ntype: %{content_type}\n\""
, externalViewers = M.fromList $
map (flip (,) "emacsclient -n \"${FILE}\"")
["hs", "cabal", "c", "h", "el", "scm", "idr"]