From 1cd2995c770b55e05a9f4f218a3f29201ae23819 Mon Sep 17 00:00:00 2001 From: Simon Michael Date: Tue, 29 Sep 2020 16:54:28 -0700 Subject: [PATCH] ui: E supports positioning when EDITOR is code (VS Code) (#1359) --- hledger-ui/Hledger/UI/Editor.hs | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/hledger-ui/Hledger/UI/Editor.hs b/hledger-ui/Hledger/UI/Editor.hs index ba342025c..6ee413ba7 100644 --- a/hledger-ui/Hledger/UI/Editor.hs +++ b/hledger-ui/Hledger/UI/Editor.hs @@ -58,6 +58,10 @@ runEditor mpos f = editFileAtPositionCommand mpos f >>= runCommand >>= waitForPr -- LINE nano +LINE FILE -- nano FILE -- +-- code LINE COL code --goto FILE:LINE:COL +-- LINE code --goto FILE:LINE +-- code FILE +-- -- vi, & variants LINE [COL] vi +LINE FILE -- LINE (negative) vi + FILE -- vi FILE @@ -87,6 +91,7 @@ editFileAtPositionCommand mpos f = do args = case editor of e | e `elem` ["emacs", "emacsclient"] -> ['+' : join ":" [ml,mc], f'] e | e `elem` ["nano"] -> ['+' : join "," [ml,mc], f'] + e | e `elem` ["code"] -> ["--goto " ++ join ":" [Just f',ml,mc]] e | e `elem` ["vi","vim","view","nvim","evim","eview","gvim","gview","rvim","rview", "rgvim","rgview","ex"] -> [maybe "" plusMaybeLine ml, f'] _ -> [f']