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

;ui: cleanup (#1359)

Browse Source
This commit is contained in:
Simon Michael 2020-09-29 17:02:09 -07:00
parent 9dad59b0cc
commit f2b9ac2af1
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -87,7 +87,7 @@ editFileAtPositionCommand mpos f = do
editor = lowercase $ takeBaseName $ headDef "" $ words' cmd editor = lowercase $ takeBaseName $ headDef "" $ words' cmd
f' = singleQuoteIfNeeded f f' = singleQuoteIfNeeded f
ml = show.fst <$> mpos ml = show.fst <$> mpos
mc = maybe Nothing (fmap show.snd) mpos :: Maybe String mc = maybe Nothing (fmap show.snd) mpos
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']