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

drop the ansi command, make the ui command use ansi if vty is not available

Browse Source
This commit is contained in:
Simon Michael 2009-04-02 00:24:38 +00:00
parent d7d08354ae
commit 2b803b4558
3 changed files with 6 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
Options.hs
View File

@ -31,9 +31,8 @@ usagehdr = printf (
" register - show register transactions\n" ++ " register - show register transactions\n" ++
#ifdef VTY #ifdef VTY
" ui - run a simple curses-based text ui\n" ++ " ui - run a simple curses-based text ui\n" ++
#endif #elif ANSI
#ifdef ANSI " ui - run a simple ansi-based text ui\n" ++
" ansi - run a simple ansi-based text ui\n" ++
#endif #endif
#ifdef HAPPS #ifdef HAPPS
" web - run a simple web ui\n" ++ " web - run a simple web ui\n" ++

3
Version.hs
View File

@ -39,8 +39,7 @@ versionmsg = progname ++ " " ++ versionstr ++ configmsg ++ "\n"
configflags = tail ["" configflags = tail [""
#ifdef VTY #ifdef VTY
,"vty" ,"vty"
#endif #elif ANSI
#ifdef ANSI
,"ansi" ,"ansi"
#endif #endif
#ifdef HAPPS #ifdef HAPPS

8
hledger.hs
View File

@ -60,8 +60,7 @@ import PrintCommand
import RegisterCommand import RegisterCommand
#ifdef VTY #ifdef VTY
import UICommand import UICommand
#endif #elif ANSI
#ifdef ANSI
import ANSICommand import ANSICommand
#endif #endif
#ifdef HAPPS #ifdef HAPPS
@ -82,9 +81,8 @@ main = do
| cmd `isPrefixOf` "register" = parseLedgerAndDo opts args register | cmd `isPrefixOf` "register" = parseLedgerAndDo opts args register
#ifdef VTY #ifdef VTY
| cmd `isPrefixOf` "ui" = parseLedgerAndDo opts args ui | cmd `isPrefixOf` "ui" = parseLedgerAndDo opts args ui
#endif #elif ANSI
#ifdef ANSI | cmd `isPrefixOf` "ui" = parseLedgerAndDo opts args ansi
| cmd `isPrefixOf` "ansi" = parseLedgerAndDo opts args ansi
#endif #endif
#ifdef HAPPS #ifdef HAPPS
| cmd `isPrefixOf` "web" = parseLedgerAndDo opts args web | cmd `isPrefixOf` "web" = parseLedgerAndDo opts args web