slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

ui: E supports positioning when EDITOR is code (VS Code) (#1359)

Browse Source
This commit is contained in:
Simon Michael 2020-09-29 16:54:28 -07:00
parent 66acb2c317
commit 1cd2995c77
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
hledger-ui/Hledger/UI/Editor.hs
View File

@ -58,6 +58,10 @@ runEditor mpos f = editFileAtPositionCommand mpos f >>= runCommand >>= waitForPr
-- LINE nano +LINE FILE -- LINE nano +LINE FILE
-- nano 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 -- vi, & variants LINE [COL] vi +LINE FILE
-- LINE (negative) vi + FILE -- LINE (negative) vi + FILE
-- vi FILE -- vi FILE
@ -87,6 +91,7 @@ editFileAtPositionCommand mpos f = do
args = case editor of args = case editor of
e | e `elem` ["emacs", "emacsclient"] -> ['+' : join ":" [ml,mc], f'] e | e `elem` ["emacs", "emacsclient"] -> ['+' : join ":" [ml,mc], f']
e | e `elem` ["nano"] -> ['+' : 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", e | e `elem` ["vi","vim","view","nvim","evim","eview","gvim","gview","rvim","rview",
"rgvim","rgview","ex"] -> [maybe "" plusMaybeLine ml, f'] "rgvim","rgview","ex"] -> [maybe "" plusMaybeLine ml, f']
_ -> [f'] _ -> [f']