mirror of
https://github.com/Gnucash/gnucash.git
synced 2025-02-25 18:55:30 -06:00
Convert all of the guile code to use the new gettext interface.
git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@3335 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
Dave Peticolas
parent
f1160ef14d
commit
7703433b11
@ -47,9 +47,7 @@ EXTRA_DIST = \
|
||||
old/perl-reports/report-null.html \
|
||||
old/perl-reports/report-pnl.phtml \
|
||||
old/xacc-shell.c \
|
||||
po/.cvsignore \
|
||||
po/extract-macros.perl.in \
|
||||
po/guile-strings.c
|
||||
po/.cvsignore
|
||||
|
||||
## We borrow guile's convention and use @-...-@ as the substitution
|
||||
## brackets here, instead of the usual @...@. This prevents autoconf
|
||||
|
||||
@ -1,7 +1,6 @@
|
||||
# List of files which containing translatable strings.
|
||||
# Copyright (C) 1995, 1998 Free Software Foundation, Inc.
|
||||
|
||||
po/guile-strings.c
|
||||
src/FileDialog.c
|
||||
src/SplitLedger.c
|
||||
src/engine/Account.c
|
||||
|
||||
4221
po/en_GB.po
4221
po/en_GB.po
File diff suppressed because it is too large
Load Diff
@ -1,507 +0,0 @@
|
||||
_("String Option")
|
||||
_("Second Option")
|
||||
_("Cost")
|
||||
_("Mutual Fund")
|
||||
_("Status")
|
||||
_("Date")
|
||||
_("Account Name")
|
||||
_("Equity")
|
||||
_("Last Year")
|
||||
_("'Enter' moves to blank transaction")
|
||||
_("Other Account")
|
||||
_("Account Separator")
|
||||
_("Auto-Raise Lists")
|
||||
_("Balance")
|
||||
_("Secondary Sort Order")
|
||||
_("Stock Portfolio Valuation")
|
||||
_("Stock Portfolio")
|
||||
_("Select Accounts (none = all)")
|
||||
_("The types of accounts for which balances are sign-reversed")
|
||||
_("Rebate")
|
||||
_("The Good")
|
||||
_("The current time is %s.")
|
||||
_("Alternate Period")
|
||||
_("Headers")
|
||||
_("One Month Ago")
|
||||
_("Double Line")
|
||||
_("Report's currency")
|
||||
_("End of the Previous Year")
|
||||
_("Use a 24 hour (instead of a 12 hour) time format.")
|
||||
_("Income:Salary:Taxable")
|
||||
_("Type of budget report")
|
||||
_("Test progress dialog")
|
||||
_("Balancing")
|
||||
_("Date (subtotal monthly)")
|
||||
_("Split color")
|
||||
_("Time")
|
||||
_("Single Column Display")
|
||||
_("Account (w/subtotal)")
|
||||
_("Memo")
|
||||
_("International")
|
||||
_("Relative Date Option")
|
||||
_("This is a string option")
|
||||
_("The beginning of the previous month")
|
||||
_("Locale")
|
||||
_("Main Window")
|
||||
_("Set Selected & sub-accounts as Tax Related")
|
||||
_("Debit")
|
||||
_("This page shows your Taxable Income and Deductable Expenses.")
|
||||
_("The date option is %s.")
|
||||
_("Set Tax Related")
|
||||
_("UK")
|
||||
_("Sort by date")
|
||||
_("Start of previous month")
|
||||
_("Display the shares price?")
|
||||
_("Report for %s and all subaccounts.")
|
||||
_("Account types to display")
|
||||
_("Gain And Loss")
|
||||
_("The start of the latest quarterly accounting period")
|
||||
_("Double click expands parent accounts")
|
||||
_("The start of the previous financial year/accounting period")
|
||||
_("If selected, move to the blank transaction after the user presses 'Enter'. Otherwise, move down one row.")
|
||||
_("Boolean Option")
|
||||
_("Income-Salary-Taxable")
|
||||
_("End of previous month")
|
||||
_("Display the Tax report.")
|
||||
_("Spend")
|
||||
_("_Stock Portfolio")
|
||||
_("Testing")
|
||||
_("Other currencies' total")
|
||||
_("US-style: mm/dd/yyyy")
|
||||
_("Only positive Entries")
|
||||
_("Period From: ")
|
||||
_("You have not selected an account.")
|
||||
_("By default, show every transaction in an account.")
|
||||
_("Amount")
|
||||
_("Multi Line")
|
||||
_("No amount display")
|
||||
_("Withdrawal")
|
||||
_("View")
|
||||
_("Report on these account(s)")
|
||||
_("UK-style dd/mm/yyyy")
|
||||
_("Show all columns")
|
||||
_("Last Yr 3rd Est Tax Qtr")
|
||||
_("Account")
|
||||
_("Value")
|
||||
_("Sorting")
|
||||
_("Show icons only")
|
||||
_("Auto Single")
|
||||
_("Print all Parent account names")
|
||||
_("Register hint font")
|
||||
_("Reset Selected accounts as not Tax Related")
|
||||
_("Display the Hello, World report.")
|
||||
_("Gain")
|
||||
_("Last Yr 4th Est Tax Qtr")
|
||||
_("Current Financial Year Start")
|
||||
_("Reset Selected & sub-accounts as not Tax Related")
|
||||
_("Hello Again")
|
||||
_("1st Est Tax Quarter")
|
||||
_("Previous Year Start")
|
||||
_("This page shows your profits and losses.")
|
||||
_("Show Vertical Borders")
|
||||
_("The relative date option is %s.")
|
||||
_("This is a boolean option.")
|
||||
_("You should back up your files regularly. Just copy""\n"
|
||||
"the GnuCash .xac file to a floppy or other backup device.""\n"
|
||||
"")
|
||||
_("_Profit and Loss")
|
||||
_("Display 1 line")
|
||||
_("This is a combination date option")
|
||||
_("Background Color")
|
||||
_("The number option formatted as currency is %s.")
|
||||
_("Income/Salary/Taxable")
|
||||
_("There are no selected accounts in the account list option.")
|
||||
_("The background color for the current register row")
|
||||
_("Funds Out")
|
||||
_("This page shows your net worth.")
|
||||
_("_Budget")
|
||||
_("Set/Reset Selected Account Tax Status")
|
||||
_("Test the budget dialog")
|
||||
_("Continental Europe: dd.mm.yyyy")
|
||||
_("Confirm before changing reconciled")
|
||||
_("The font used to show hints in the register")
|
||||
_("Auto Decimal Places")
|
||||
_("Display the Account Summary report.")
|
||||
_("Single")
|
||||
_("Warning!! This is a DEVELOPMENT version of GnuCash.""\n"
|
||||
"It probably has lots of bugs and unstable features!""\n"
|
||||
"If you are looking for a stable personal finance application,""\n"
|
||||
"you should use the latest release of GnuCash 1.4.""\n"
|
||||
"")
|
||||
_("Show Horizontal Borders")
|
||||
_("Sort by check/transaction number")
|
||||
_("Start of current quarter")
|
||||
_("Register Colors")
|
||||
_("The boolean option is %s.")
|
||||
_("Display the memo?")
|
||||
_("(subaccounts)")
|
||||
_("Header color")
|
||||
_("The default secondary background color for register rows")
|
||||
_("Double clicking on an account with children expands the account instead of opening a register.")
|
||||
_("Loss")
|
||||
_("Credit Accounts")
|
||||
_("Sort by description")
|
||||
_("largest to smallest, latest to earliest")
|
||||
_("Acc_ount Balance Tracker")
|
||||
_("Use From - To")
|
||||
_("Secondary Key")
|
||||
_("Display the description?")
|
||||
_("GnuCash does not use categories like Quicken does.""\n"
|
||||
"Instead, you should use Income and Expense accounts.""\n"
|
||||
"")
|
||||
_("(Sub ")
|
||||
_("Save window sizes and positions.")
|
||||
_("Bank")
|
||||
_("Number Option")
|
||||
_("Set/Reset Tax Status")
|
||||
_("Report for %s.")
|
||||
_("Reverse Income and Expense Accounts")
|
||||
_("Europe")
|
||||
_("Split active color")
|
||||
_("Display the account type?")
|
||||
_("Opening Balance")
|
||||
_("Payment")
|
||||
_("Day")
|
||||
_("This is for testing. Your reports probably shouldn't have an option like this.")
|
||||
_("Foreign Currency")
|
||||
_("Set Selected accounts as Tax Related")
|
||||
_("Display the headers?")
|
||||
_("Do transaction report on these accounts")
|
||||
_("Six Months Ago")
|
||||
_("Sort and subtotal by account transferred from/to's name")
|
||||
_("Double line mode with a multi-line cursor")
|
||||
_("Single line mode with a multi-line cursor")
|
||||
_("Print Full account names")
|
||||
_("The items selected in the list option are:")
|
||||
_("Average")
|
||||
_("From")
|
||||
_("Start of reporting period")
|
||||
_("How many automatic decimal places will be filled in.")
|
||||
_("Sort by exact entry time")
|
||||
_("Use accounting labels")
|
||||
_("Full")
|
||||
_("Price")
|
||||
_("The font to use in the register")
|
||||
_("Display the account's foreign currency amount?")
|
||||
_("The amount of time between data points")
|
||||
_("Upper Limit")
|
||||
_("Account Summary")
|
||||
_("Previous Financial Year Start")
|
||||
_("Currency")
|
||||
_("Week")
|
||||
_("Crash the report")
|
||||
_("Start of this month")
|
||||
_("Beginning of the previous calendar year")
|
||||
_("Taxable / Deductable")
|
||||
_("Cash")
|
||||
_("Step Size")
|
||||
_("Hello, World!")
|
||||
_("ISO")
|
||||
_("Choose exchange rate for above currency")
|
||||
_("A report useful for balancing the budget")
|
||||
_("Display the amount?")
|
||||
_("Multi-Line")
|
||||
_("Two Column Display")
|
||||
_("Date Format Display")
|
||||
_("Ending")
|
||||
_("The start of the previous quarterly accounting period")
|
||||
_("Reversed-balance account types")
|
||||
_("Show transactions on two lines with more information")
|
||||
_("Account fields to display")
|
||||
_("Date: %s<br>Report for %s and all Sub-Accounts.<br>Accounts Total: %s")
|
||||
_("Sell")
|
||||
_("Account Balance Tracker")
|
||||
_("If selected, use a dialog to confirm a change to a reconciled transaction.")
|
||||
_("Report Options")
|
||||
_("Show transactions on single lines")
|
||||
_("Description")
|
||||
_("Calculate balance sheet up to this date")
|
||||
_("Transaction Report")
|
||||
_("Sep 1 - Dec 31, Last year")
|
||||
_("Jun 1 - Aug 31, Last year")
|
||||
_("Apr 1 - May 31, Last year")
|
||||
_("Jan 1 - Mar 31, Last year")
|
||||
_("Gain/Loss")
|
||||
_("Transfer from/to")
|
||||
_("Text only")
|
||||
_("Start of previous quarter")
|
||||
_("Previous Year End")
|
||||
_("Depreciation")
|
||||
_("Toolbar Buttons")
|
||||
_("Report Items from this date")
|
||||
_("Period")
|
||||
_("Fourth Options")
|
||||
_("Sort by this criterion first")
|
||||
_("Double")
|
||||
_("Ugly option")
|
||||
_("End of previous quarter")
|
||||
_("How are you doing on your budget?")
|
||||
_("Reset Tax Related & sub-accounts")
|
||||
_("Combo Date Option")
|
||||
_("Save Translatable Strings")
|
||||
_("Start of the current month")
|
||||
_("Save strings that need to be translated")
|
||||
_("Automatic credit card payments")
|
||||
_("Number of Rows")
|
||||
_("A_ccount Summary")
|
||||
_("/ (Slash)")
|
||||
_("Asset")
|
||||
_("Reset Tax Related")
|
||||
_("Use 24-hour time format")
|
||||
_("Num")
|
||||
_("Date Format")
|
||||
_("A list option")
|
||||
_("ISO Standard: yyyy-mm-dd")
|
||||
_("Default Currency")
|
||||
_("Today")
|
||||
_("Primary active color")
|
||||
_("Do transaction report on this account")
|
||||
_("Recent Price")
|
||||
_("Please choose appropriate dates - the \"To\" date should be *after* the \"From\" date.")
|
||||
_("The multi-choice option is %s.")
|
||||
_("Double mode colors alternate with transactions")
|
||||
_("General")
|
||||
_("Security")
|
||||
_("Automatically insert a decimal point into values that are entered without one.")
|
||||
_("Single Line")
|
||||
_("Receive")
|
||||
_("Sub-Accounts")
|
||||
_("T_ax")
|
||||
_("The date and time option is %s.")
|
||||
_("Liability")
|
||||
_("End of reporting period")
|
||||
_("Don't reverse any accounts")
|
||||
_("Good option")
|
||||
_("The GnuCash online manual has lots of helpful information.""\n"
|
||||
"You can access the manual under the Help menu.""\n"
|
||||
"")
|
||||
_("US")
|
||||
_("_Transaction Report")
|
||||
_("One Week Ago")
|
||||
_("Deposit")
|
||||
_("Ba_lance sheet")
|
||||
_("3rd Est Tax Quarter")
|
||||
_("Help for first option")
|
||||
_(" To: ")
|
||||
_("In the reconcile window, you can press the spacebar""\n"
|
||||
"to mark transactions as reconciled.""\n"
|
||||
"You can also press Tab and Shift-Tab to move between""\n"
|
||||
"deposits and withdrawals.""\n"
|
||||
"")
|
||||
_("Number")
|
||||
_("Show both icons and text")
|
||||
_("No Tax Related accounts were found. Click \"Parameters\" to set some with the \"Set/Reset Tax Status:\" parameter.")
|
||||
_("Charge")
|
||||
_("Transfer from/to (w/subtotal)")
|
||||
_("Total")
|
||||
_("Report")
|
||||
_("Notes")
|
||||
_("The number option is %s.")
|
||||
_("The string option is %s.")
|
||||
_("Report style")
|
||||
_("_Reports")
|
||||
_("Register")
|
||||
_("Year")
|
||||
_("Automatic Decimal Point")
|
||||
_("Show the total amount of other currencies?")
|
||||
_("Profit and Loss")
|
||||
_("Month")
|
||||
_("Use From - To period")
|
||||
_("Current Year Start")
|
||||
_(". (Period)")
|
||||
_("Primary Sort Order")
|
||||
_("Name")
|
||||
_("When entering check numbers in the register, you can""\n"
|
||||
"press '+' to enter the next number. You can use '+'""\n"
|
||||
"and '-' to increment and decrement the number, respectively.""\n"
|
||||
"")
|
||||
_("Descending")
|
||||
_("Display the date?")
|
||||
_("This is a date option")
|
||||
_("Two Week")
|
||||
_("Last Yr 2nd Est Tax Qtr")
|
||||
_("The default background color for split rows in the register")
|
||||
_("Save Window Geometry")
|
||||
_("Income\\Salary\\Taxable")
|
||||
_("Code")
|
||||
_("After reconciling a credit card statement, prompt the user to enter a credit card payment")
|
||||
_("Balance sheet")
|
||||
_("Export data as text.")
|
||||
_("Balance Sheet")
|
||||
_("- (Dash)")
|
||||
_("Funds In")
|
||||
_("End of previous quarterly accounting period")
|
||||
_("Register font")
|
||||
_("Order of primary sorting")
|
||||
_("Default currency for new accounts")
|
||||
_("Sort by this criterion second")
|
||||
_("Tax")
|
||||
_("true")
|
||||
_("Appreciation")
|
||||
_("Alternate the primary and secondary colors with each transaction, not each row")
|
||||
_("Do not sort")
|
||||
_("Display only positive Entries?")
|
||||
_("Date: %s<br>Report for %s.<br>Accounts Total: %s")
|
||||
_("Period Ending")
|
||||
_("Income.Salary.Taxable")
|
||||
_("Only use 'debit' and 'credit' instead of informal synonyms")
|
||||
_("Income")
|
||||
_("Include sub-accounts of all selected accounts")
|
||||
_("Style")
|
||||
_("The Ugly")
|
||||
_("Max")
|
||||
_("Include Sub-Accounts of each selected Account")
|
||||
_("No Change")
|
||||
_("Choose foreign currency to specify an exchange rate for")
|
||||
_("Budget (Testing, Unfinished)")
|
||||
_("By default, show horizontal borders on the cells.")
|
||||
_("Display the totals?")
|
||||
_(": (Colon)")
|
||||
_("By default, show vertical borders on the cells.")
|
||||
_("Credit")
|
||||
_("Tax Report Options")
|
||||
_("Actual")
|
||||
_("Enable EURO support")
|
||||
_("Ascending")
|
||||
_("Display the number of shares?")
|
||||
_("The Bad")
|
||||
_("Just a Date Option")
|
||||
_("Start of the current financial year/accounting period")
|
||||
_("The accounts selected in the account list option are:")
|
||||
_("Reconcile")
|
||||
_("This is a sample GnuCash report. See the guile (scheme) source code in %s for details on writing your own reports, or extending existing reports.")
|
||||
_("Enables support for the European Union EURO currency")
|
||||
_("The secondary background color for the current register row")
|
||||
_("Display the Budget report.")
|
||||
_("Display the account?")
|
||||
_("Display the cheque number?")
|
||||
_("Display N lines")
|
||||
_("_Hello, World")
|
||||
_("First Option")
|
||||
_("Display the Stock Portfolio report.")
|
||||
_("All other currencies will get converted to this currency.")
|
||||
_("Show transactions on multiple lines with one line for each split in the transaction")
|
||||
_("Currency 1")
|
||||
_("Currency 2")
|
||||
_("Currency 3")
|
||||
_("Currency 4")
|
||||
_("Currency 5")
|
||||
_("Plot Type")
|
||||
_("Budget")
|
||||
_("Choose whether to display icons, text, or both for toolbar buttons")
|
||||
_("Sort by date & subtotal each year")
|
||||
_("4th Est Tax Quarter")
|
||||
_("Show text only")
|
||||
_("Icons and Text")
|
||||
_("The type of graph to generate")
|
||||
_("$0.00 valued Accounts won't be printed.")
|
||||
_("Automatically raise the list of accounts or actions during input.")
|
||||
_("Select accounts")
|
||||
_("Sort by account transferred from/to's name")
|
||||
_("Net Gain")
|
||||
_("The fourth option rules!")
|
||||
_("This is a date option with time")
|
||||
_("End of the previous Financial year/Accounting Period")
|
||||
_("The header background color")
|
||||
_("Display \"Tip of the Day\"")
|
||||
_("Sort by memo")
|
||||
_("Third Option")
|
||||
_("Choose the default mode for register windows")
|
||||
_("Default number of register rows to display.")
|
||||
_("The current date")
|
||||
_("Secondary color")
|
||||
_("Report end date")
|
||||
_("None")
|
||||
_("Export data as text (Danger: Unfinished)")
|
||||
_("The combination date option is %s.")
|
||||
_("Last Yr 1st Est Tax Qtr")
|
||||
_("Primary Key")
|
||||
_("Ticker")
|
||||
_("Secondary active color")
|
||||
_("Suppress $0.00 values")
|
||||
_("Display the other account? (if this is a split transaction, this parameter is guessed).")
|
||||
_("Time and Date Option")
|
||||
_("The character used to separate fully-qualified account names")
|
||||
_("Report start date")
|
||||
_("2nd Est Tax Quarter")
|
||||
_("To")
|
||||
_("smallest to largest, earliest to latest")
|
||||
_("Type")
|
||||
_("Display the Transaction Report report.")
|
||||
_("\\ (Backslash)")
|
||||
_("Last day of previous month")
|
||||
_("End Previous Financial Year")
|
||||
_("Icons only")
|
||||
_("Help for third option")
|
||||
_("Default system locale format")
|
||||
_("Default Register Mode")
|
||||
_("Auto Double")
|
||||
_("Lower Limit")
|
||||
_("One Year Ago")
|
||||
_("To transfer funds between accounts with different currencies,""\n"
|
||||
"you need an intermediate currency trading account.""\n"
|
||||
"Please see the GnuCash online manual for details""\n"
|
||||
"")
|
||||
_("Sort by amount")
|
||||
_("This is an account list option")
|
||||
_("This is a relative date option")
|
||||
_("Average Balance")
|
||||
_("Totals")
|
||||
_("Profit/Loss")
|
||||
_("Start of the current calendar year")
|
||||
_("Shares")
|
||||
_("Show All Transactions")
|
||||
_("Display the Profit and Loss report.")
|
||||
_("Date (subtotal yearly)")
|
||||
_("Display the Account Balance Tracker report.")
|
||||
_("2Week")
|
||||
_("Nothing")
|
||||
_("The background color for the current split row in the register")
|
||||
_("You have selected no values in the list option.")
|
||||
_("false")
|
||||
_("The default background color for register rows")
|
||||
_("Sep 1 - Dec 31")
|
||||
_("Jun 1 - Aug 31")
|
||||
_("Apr 1 - May 31")
|
||||
_("Jan 1 - Mar 31")
|
||||
_("Expense")
|
||||
_("An account list option")
|
||||
_("Multi Choice Option")
|
||||
_("This is a color option")
|
||||
_("Report up to and including this date")
|
||||
_("Currencies")
|
||||
_("Make No Plot")
|
||||
_("Bad option")
|
||||
_("Display the Balance sheet report.")
|
||||
_("Sort by date & subtotal each month")
|
||||
_("Three Months Ago")
|
||||
_("Net")
|
||||
_("Have a nice day!")
|
||||
_("Primary color")
|
||||
_("This is a list option")
|
||||
_("Exchange rate for Currency 1")
|
||||
_("Exchange rate for Currency 2")
|
||||
_("Exchange rate for Currency 3")
|
||||
_("Exchange rate for Currency 4")
|
||||
_("Exchange rate for Currency 5")
|
||||
_("Min")
|
||||
_("Display hints for using GnuCash at startup")
|
||||
_("Order of Secondary sorting")
|
||||
_("Help for second option")
|
||||
_("Overide or modify From: & To:")
|
||||
_("Set Tax Related & sub-accounts")
|
||||
_("Report items up to and including this date")
|
||||
_("Display")
|
||||
_("Nominal")
|
||||
_("Beginning")
|
||||
_("For help on writing reports, or to contribute your brand new, totally cool report, consult the mailing list %s. For details on subscribing to that list, see %s.")
|
||||
_("This is a multi choice option.")
|
||||
_("Income & Expense")
|
||||
_("Display negative amounts in red")
|
||||
_("Hello, World")
|
||||
_("Buy")
|
||||
_("Sort & subtotal by account")
|
||||
_("Reverse Credit Card, Liability, Equity, and Income Accounts")
|
||||
_("Stock")
|
||||
_("This is a number option.")
|
||||
_("Extensions")
|
||||
@ -36,74 +36,25 @@
|
||||
(call-with-output-string write-error)))
|
||||
|
||||
|
||||
(define gnc:register-translatable-strings #f)
|
||||
(define gnc:save-translatable-strings #f)
|
||||
|
||||
(let ((string-hash (make-hash-table 313)))
|
||||
|
||||
(define (register . strings)
|
||||
(if (gnc:debugging?)
|
||||
(for-each
|
||||
(lambda (string)
|
||||
(if (and (string? string) (> (string-length string) 0))
|
||||
(hash-set! string-hash string #t)))
|
||||
strings)))
|
||||
|
||||
(define (expand-newlines string port)
|
||||
(let loop ((chars (string->list string))
|
||||
(accum '()))
|
||||
(cond
|
||||
((null? chars)
|
||||
(write (list->string (reverse accum)) port))
|
||||
((char=? (car chars) #\newline)
|
||||
(write (list->string (reverse accum)) port)
|
||||
(display "\"\\n\"\n " port)
|
||||
(loop (cdr chars) '()))
|
||||
(else
|
||||
(loop (cdr chars) (cons (car chars) accum))))))
|
||||
|
||||
(define (save file)
|
||||
(let ((port (open file (logior O_WRONLY O_CREAT O_TRUNC))))
|
||||
(if port
|
||||
(begin
|
||||
(hash-for-each
|
||||
(lambda (string not-used)
|
||||
(display "_(" port)
|
||||
(expand-newlines string port)
|
||||
(display ")\n" port))
|
||||
string-hash)
|
||||
(close port)))))
|
||||
|
||||
(set! gnc:register-translatable-strings register)
|
||||
(set! gnc:save-translatable-strings save))
|
||||
|
||||
(if (gnc:debugging?)
|
||||
(define (gnc:gettext string)
|
||||
(gnc:register-translatable-strings string)
|
||||
(gnc:gettext-helper string))
|
||||
(define gnc:gettext gnc:gettext-helper))
|
||||
|
||||
;; gettext functions
|
||||
(define gnc:gettext gnc:gettext-helper)
|
||||
(define gnc:_ gnc:gettext)
|
||||
(if (not (defined? '_))
|
||||
(define _ gnc:gettext))
|
||||
(define _ gnc:gettext)
|
||||
(define (N_ x) x)
|
||||
|
||||
|
||||
;; This database can be used to store and retrieve translatable
|
||||
;; strings. If debugging is true, the stored strings are registered so
|
||||
;; they can be saved to a string database. Strings that are returned
|
||||
;; by the lookup function are translated with gettext.
|
||||
;; strings. Strings that are returned by the lookup function are
|
||||
;; translated with gettext.
|
||||
(define (gnc:make-string-database)
|
||||
|
||||
(define string-hash (make-hash-table 23))
|
||||
|
||||
(define (lookup key)
|
||||
(hash-ref string-hash key))
|
||||
(_ (hash-ref string-hash key)))
|
||||
|
||||
(define (store key string)
|
||||
(if (gnc:debugging?)
|
||||
(gnc:register-translatable-strings string))
|
||||
(hash-set! string-hash key (gnc:_ string)))
|
||||
(hash-set! string-hash key string))
|
||||
|
||||
(define (dispatch message . args)
|
||||
(let ((func (case message
|
||||
|
||||
@ -549,44 +549,43 @@
|
||||
|
||||
(define (gnc:reldate-initialize)
|
||||
(begin
|
||||
(gnc:reldate-string-db 'store 'start-cal-year-string "Current Year Start")
|
||||
|
||||
(gnc:reldate-string-db 'store 'start-cal-year-desc "Start of the current calendar year")
|
||||
(gnc:reldate-string-db 'store 'start-prev-year-string "Previous Year Start")
|
||||
(gnc:reldate-string-db 'store 'start-prev-year-desc "Beginning of the previous calendar year")
|
||||
(gnc:reldate-string-db 'store 'end-prev-year-string "Previous Year End")
|
||||
(gnc:reldate-string-db 'store 'end-prev-year-desc "End of the Previous Year")
|
||||
(gnc:reldate-string-db 'store 'start-cur-fin-year-string "Current Financial Year Start")
|
||||
(gnc:reldate-string-db 'store 'start-cur-fin-year-desc "Start of the current financial year/accounting period")
|
||||
(gnc:reldate-string-db 'store 'start-prev-fin-year-string "Previous Financial Year Start")
|
||||
(gnc:reldate-string-db 'store 'start-prev-financial-year-desc "The start of the previous financial year/accounting period")
|
||||
(gnc:reldate-string-db 'store 'end-prev-fin-year-string "End Previous Financial Year")
|
||||
(gnc:reldate-string-db 'store 'end-prev-fin-year-desc "End of the previous Financial year/Accounting Period")
|
||||
(gnc:reldate-string-db 'store 'start-this-month-string "Start of this month")
|
||||
(gnc:reldate-string-db 'store 'start-this-month-desc "Start of the current month")
|
||||
(gnc:reldate-string-db 'store 'start-prev-month-string "Start of previous month")
|
||||
(gnc:reldate-string-db 'store 'start-prev-month-desc "The beginning of the previous month")
|
||||
(gnc:reldate-string-db 'store 'end-prev-month-string "End of previous month")
|
||||
(gnc:reldate-string-db 'store 'end-prev-month-description "Last day of previous month")
|
||||
(gnc:reldate-string-db 'store 'start-current-quarter-string "Start of current quarter")
|
||||
(gnc:reldate-string-db 'store 'start-current-quarter-desc "The start of the latest quarterly accounting period")
|
||||
(gnc:reldate-string-db 'store 'start-prev-quarter-string "Start of previous quarter")
|
||||
(gnc:reldate-string-db 'store 'start-prev-quarter-desc "The start of the previous quarterly accounting period")
|
||||
(gnc:reldate-string-db 'store 'end-prev-quarter-string "End of previous quarter")
|
||||
(gnc:reldate-string-db 'store 'end-prev-quarter-desc "End of previous quarterly accounting period")
|
||||
(gnc:reldate-string-db 'store 'today-string "Today")
|
||||
(gnc:reldate-string-db 'store 'today-desc "The current date")
|
||||
(gnc:reldate-string-db 'store 'one-month-ago-string "One Month Ago")
|
||||
(gnc:reldate-string-db 'store 'one-month-ago-desc "One Month Ago")
|
||||
(gnc:reldate-string-db 'store 'one-week-ago-string "One Week Ago")
|
||||
(gnc:reldate-string-db 'store 'one-week-ago-desc "One Week Ago")
|
||||
(gnc:reldate-string-db 'store 'three-months-ago-string "Three Months Ago")
|
||||
(gnc:reldate-string-db 'store 'three-months-ago-desc "Three Months Ago")
|
||||
(gnc:reldate-string-db 'store 'six-months-ago-string "Six Months Ago")
|
||||
(gnc:reldate-string-db 'store 'six-months-ago-string "Six Months Ago")
|
||||
(gnc:reldate-string-db 'store 'one-year-ago-string "One Year Ago")
|
||||
(gnc:reldate-string-db 'store 'one-year-ago-desc "One Year Ago")
|
||||
|
||||
(gnc:reldate-string-db 'store 'start-cal-year-string (N_ "Current Year Start"))
|
||||
(gnc:reldate-string-db 'store 'start-cal-year-desc (N_ "Start of the current calendar year"))
|
||||
(gnc:reldate-string-db 'store 'start-prev-year-string (N_ "Previous Year Start"))
|
||||
(gnc:reldate-string-db 'store 'start-prev-year-desc (N_ "Beginning of the previous calendar year"))
|
||||
(gnc:reldate-string-db 'store 'end-prev-year-string (N_ "Previous Year End"))
|
||||
(gnc:reldate-string-db 'store 'end-prev-year-desc (N_ "End of the Previous Year"))
|
||||
(gnc:reldate-string-db 'store 'start-cur-fin-year-string (N_ "Current Financial Year Start"))
|
||||
(gnc:reldate-string-db 'store 'start-cur-fin-year-desc (N_ "Start of the current financial year/accounting period"))
|
||||
(gnc:reldate-string-db 'store 'start-prev-fin-year-string (N_ "Previous Financial Year Start"))
|
||||
(gnc:reldate-string-db 'store 'start-prev-fin-year-desc (N_ "The start of the previous financial year/accounting period"))
|
||||
(gnc:reldate-string-db 'store 'end-prev-fin-year-string (N_ "End Previous Financial Year"))
|
||||
(gnc:reldate-string-db 'store 'end-prev-fin-year-desc (N_ "End of the previous Financial year/Accounting Period"))
|
||||
(gnc:reldate-string-db 'store 'start-this-month-string (N_ "Start of this month"))
|
||||
(gnc:reldate-string-db 'store 'start-this-month-desc (N_ "Start of the current month"))
|
||||
(gnc:reldate-string-db 'store 'start-prev-month-string (N_ "Start of previous month"))
|
||||
(gnc:reldate-string-db 'store 'start-prev-month-desc (N_ "The beginning of the previous month"))
|
||||
(gnc:reldate-string-db 'store 'end-prev-month-string (N_ "End of previous month"))
|
||||
(gnc:reldate-string-db 'store 'end-prev-month-desc (N_ "Last day of previous month"))
|
||||
(gnc:reldate-string-db 'store 'start-current-quarter-string (N_ "Start of current quarter"))
|
||||
(gnc:reldate-string-db 'store 'start-current-quarter-desc (N_ "The start of the latest quarterly accounting period"))
|
||||
(gnc:reldate-string-db 'store 'start-prev-quarter-string (N_ "Start of previous quarter"))
|
||||
(gnc:reldate-string-db 'store 'start-prev-quarter-desc (N_ "The start of the previous quarterly accounting period"))
|
||||
(gnc:reldate-string-db 'store 'end-prev-quarter-string (N_ "End of previous quarter"))
|
||||
(gnc:reldate-string-db 'store 'end-prev-quarter-desc (N_ "End of previous quarterly accounting period"))
|
||||
(gnc:reldate-string-db 'store 'today-string (N_ "Today"))
|
||||
(gnc:reldate-string-db 'store 'today-desc (N_ "The current date"))
|
||||
(gnc:reldate-string-db 'store 'one-month-ago-string (N_ "One Month Ago"))
|
||||
(gnc:reldate-string-db 'store 'one-month-ago-desc (N_ "One Month Ago"))
|
||||
(gnc:reldate-string-db 'store 'one-week-ago-string (N_ "One Week Ago"))
|
||||
(gnc:reldate-string-db 'store 'one-week-ago-desc (N_ "One Week Ago"))
|
||||
(gnc:reldate-string-db 'store 'three-months-ago-string (N_ "Three Months Ago"))
|
||||
(gnc:reldate-string-db 'store 'three-months-ago-desc (N_ "Three Months Ago"))
|
||||
(gnc:reldate-string-db 'store 'six-months-ago-string (N_ "Six Months Ago"))
|
||||
(gnc:reldate-string-db 'store 'six-months-ago-desc (N_ "Six Months Ago"))
|
||||
(gnc:reldate-string-db 'store 'one-year-ago-string (N_ "One Year Ago"))
|
||||
(gnc:reldate-string-db 'store 'one-year-ago-desc (N_ "One Year Ago"))
|
||||
|
||||
(set! gnc:relative-date-values
|
||||
(list
|
||||
(vector 'start-cal-year
|
||||
@ -657,11 +656,11 @@
|
||||
(gnc:reldate-string-db 'lookup 'one-year-ago-string)
|
||||
(gnc:reldate-string-db 'lookup 'one-year-ago-desc)
|
||||
gnc:get-one-year-ago)))
|
||||
|
||||
|
||||
|
||||
(gnc:make-reldate-hash gnc:relative-date-hash gnc:relative-date-values)
|
||||
(set! gnc:reldate-list (map (lambda (x) (vector-ref x 0)) gnc:relative-date-values))))
|
||||
|
||||
(gnc:make-reldate-hash gnc:relative-date-hash gnc:relative-date-values)
|
||||
(set! gnc:reldate-list
|
||||
(map (lambda (x) (vector-ref x 0)) gnc:relative-date-values))))
|
||||
|
||||
|
||||
;; Startup
|
||||
|
||||
@ -30,8 +30,6 @@
|
||||
path
|
||||
;; The script to call when the menu item is selected
|
||||
script)
|
||||
(if (gnc:debugging?)
|
||||
(gnc:register-translatable-strings name documentation-string))
|
||||
(vector type
|
||||
name
|
||||
documentation-string
|
||||
@ -63,14 +61,14 @@
|
||||
(define menu (gnc:make-menu "Extensions" (list "_Settings")))
|
||||
|
||||
(define export-item
|
||||
(gnc:make-menu-item "Export data as text (Danger: Unfinished)"
|
||||
"Export data as text."
|
||||
(gnc:make-menu-item (N_ "Export data as text (Danger: Unfinished)")
|
||||
(N_ "Export data as text.")
|
||||
(list "Extensions" "")
|
||||
(lambda () (gnc:main-win-account-group-write win))))
|
||||
|
||||
(define progress-item
|
||||
(gnc:make-menu-item "Test progress dialog"
|
||||
"Test progress dialog"
|
||||
(gnc:make-menu-item (N_ "Test progress dialog")
|
||||
(N_ "Test progress dialog")
|
||||
(list "Extensions" "")
|
||||
(lambda ()
|
||||
(let ((dialog (gnc:progress-dialog-new
|
||||
@ -92,20 +90,9 @@
|
||||
(gnc:progress-dialog-finish dialog)
|
||||
(gnc:progress-dialog-destroy dialog)))))
|
||||
|
||||
(define strings-item
|
||||
(gnc:make-menu-item
|
||||
"Save Translatable Strings"
|
||||
"Save strings that need to be translated"
|
||||
(list "Extensions" "")
|
||||
(lambda ()
|
||||
(let ((file-name (gnc:file-selection-dialog
|
||||
"Select file to save strings in" ".txt" "")))
|
||||
(if file-name (gnc:save-translatable-strings file-name))))))
|
||||
|
||||
(gnc:add-extension menu)
|
||||
(gnc:add-extension export-item)
|
||||
(gnc:add-extension progress-item)
|
||||
(gnc:add-extension strings-item))
|
||||
(gnc:add-extension progress-item))
|
||||
|
||||
(if (gnc:debugging?)
|
||||
(gnc:hook-add-dangler gnc:*main-window-opened-hook*
|
||||
@ -119,7 +106,7 @@
|
||||
(define name-hash (make-hash-table 23))
|
||||
|
||||
(define (add-name raw-name)
|
||||
(let* ((name (gnc:_ raw-name))
|
||||
(let* ((name (_ raw-name))
|
||||
(length (string-length name)))
|
||||
|
||||
(define (try-at-k k)
|
||||
@ -139,9 +126,6 @@
|
||||
new-name)
|
||||
(try-at-k (+ k 1))))))
|
||||
|
||||
(if (gnc:debugging?)
|
||||
(gnc:register-translatable-strings raw-name))
|
||||
|
||||
(try-at-k 0)))
|
||||
|
||||
(define (lookup name)
|
||||
|
||||
@ -131,7 +131,6 @@
|
||||
|
||||
(define (make-report-spec . args)
|
||||
(let ((spec (apply report-spec-constructor args)))
|
||||
(gnc:register-translatable-strings (report-spec-get-header spec))
|
||||
spec))
|
||||
|
||||
(define report-spec-get-header
|
||||
|
||||
@ -34,7 +34,6 @@
|
||||
(gnc:load "srfi/srfi-1.r5rs.scm")
|
||||
|
||||
;; Now we can load a bunch of files.
|
||||
|
||||
(gnc:depend "doc.scm")
|
||||
(gnc:depend "extensions.scm")
|
||||
(gnc:depend "text-export.scm")
|
||||
|
||||
@ -897,24 +897,3 @@
|
||||
(display header port)
|
||||
(display code port)
|
||||
(close port)))))
|
||||
|
||||
(define (gnc:options-register-translatable-strings options)
|
||||
(define (external-name? name)
|
||||
(cond ((not (string? name)) #f)
|
||||
((< (string-length name) 2) #t)
|
||||
((not (eq? (string-ref name 0) #\_)) #t)
|
||||
((not (eq? (string-ref name 1) #\_)) #t)
|
||||
(else #f)))
|
||||
|
||||
(gnc:options-for-each-general
|
||||
(lambda (section hash)
|
||||
(if (external-name? section)
|
||||
(gnc:register-translatable-strings section)))
|
||||
(lambda (option)
|
||||
(if (not (eq? (gnc:option-type option) 'internal))
|
||||
(gnc:register-translatable-strings (gnc:option-name option)))
|
||||
(gnc:register-translatable-strings (gnc:option-documentation option))
|
||||
(let ((getter (gnc:option-strings-getter option)))
|
||||
(if getter
|
||||
(apply gnc:register-translatable-strings (getter)))))
|
||||
options))
|
||||
|
||||
@ -78,7 +78,9 @@
|
||||
(build-path (getenv "HOME") ".gnucash" "config.auto")
|
||||
(string-append
|
||||
"(gnc:config-file-format-version 1)\n\n"
|
||||
"; GnuCash Configuration Options\n")))
|
||||
";"
|
||||
(_ "GnuCash Configuration Options")
|
||||
"\n")))
|
||||
|
||||
(define (gnc:config-file-format-version version) #t)
|
||||
|
||||
@ -86,85 +88,79 @@
|
||||
;;;;;; Create default options and config vars
|
||||
|
||||
(define gnc:*debit-strings*
|
||||
(list '(NO_TYPE . "Funds In")
|
||||
'(BANK . "Deposit")
|
||||
'(CASH . "Receive")
|
||||
'(CREDIT . "Payment")
|
||||
'(ASSET . "Increase")
|
||||
'(LIABILITY . "Debit")
|
||||
'(STOCK . "Buy")
|
||||
'(MUTUAL . "Buy")
|
||||
'(CURRENCY . "Buy")
|
||||
'(INCOME . "Charge")
|
||||
'(EXPENSE . "Expense")
|
||||
'(EQUITY . "Debit")))
|
||||
(list (cons 'NO_TYPE (N_ "Funds In"))
|
||||
(cons 'BANK (N_ "Deposit"))
|
||||
(cons 'CASH (N_ "Receive"))
|
||||
(cons 'CREDIT (N_ "Payment"))
|
||||
(cons 'ASSET (N_ "Increase"))
|
||||
(cons 'LIABILITY (N_ "Debit"))
|
||||
(cons 'STOCK (N_ "Buy"))
|
||||
(cons 'MUTUAL (N_ "Buy"))
|
||||
(cons 'CURRENCY (N_ "Buy"))
|
||||
(cons 'INCOME (N_ "Charge"))
|
||||
(cons 'EXPENSE (N_ "Expense"))
|
||||
(cons 'EQUITY (N_ "Debit"))))
|
||||
|
||||
(define gnc:*credit-strings*
|
||||
(list '(NO_TYPE . "Funds Out")
|
||||
'(BANK . "Withdrawal")
|
||||
'(CASH . "Spend")
|
||||
'(CREDIT . "Charge")
|
||||
'(ASSET . "Decrease")
|
||||
'(LIABILITY . "Credit")
|
||||
'(STOCK . "Sell")
|
||||
'(MUTUAL . "Sell")
|
||||
'(CURRENCY . "Sell")
|
||||
'(INCOME . "Income")
|
||||
'(EXPENSE . "Rebate")
|
||||
'(EQUITY . "Credit")))
|
||||
|
||||
(if (gnc:debugging?)
|
||||
(let ((thunk (lambda (pair)
|
||||
(gnc:register-translatable-strings (cdr pair)))))
|
||||
(map thunk gnc:*debit-strings*)
|
||||
(map thunk gnc:*credit-strings*)))
|
||||
(list (cons 'NO_TYPE (N_ "Funds Out"))
|
||||
(cons 'BANK (N_ "Withdrawal"))
|
||||
(cons 'CASH (N_ "Spend"))
|
||||
(cons 'CREDIT (N_ "Charge"))
|
||||
(cons 'ASSET (N_ "Decrease"))
|
||||
(cons 'LIABILITY (N_ "Credit"))
|
||||
(cons 'STOCK (N_ "Sell"))
|
||||
(cons 'MUTUAL (N_ "Sell"))
|
||||
(cons 'CURRENCY (N_ "Sell"))
|
||||
(cons 'INCOME (N_ "Income"))
|
||||
(cons 'EXPENSE (N_ "Rebate"))
|
||||
(cons 'EQUITY (N_ "Credit"))))
|
||||
|
||||
(define (gnc:get-debit-string type)
|
||||
(gnc:_ (assoc-ref gnc:*debit-strings* type)))
|
||||
(_ (assoc-ref gnc:*debit-strings* type)))
|
||||
|
||||
(define (gnc:get-credit-string type)
|
||||
(gnc:_ (assoc-ref gnc:*credit-strings* type)))
|
||||
(_ (assoc-ref gnc:*credit-strings* type)))
|
||||
|
||||
|
||||
;; Main Window options
|
||||
|
||||
(gnc:register-configuration-option
|
||||
(gnc:make-simple-boolean-option
|
||||
"Main Window" "Double click expands parent accounts"
|
||||
"a" "Double clicking on an account with children expands \
|
||||
the account instead of opening a register." #f))
|
||||
(N_ "Main Window") (N_ "Double click expands parent accounts")
|
||||
"a" (N_ "Double clicking on an account with children expands \
|
||||
the account instead of opening a register.") #f))
|
||||
|
||||
(gnc:register-configuration-option
|
||||
(gnc:make-list-option
|
||||
"Main Window" "Account types to display"
|
||||
(N_ "Main Window") (N_ "Account types to display")
|
||||
"b" ""
|
||||
(list 'bank 'cash 'credit 'asset 'liability 'stock
|
||||
'mutual 'currency 'income 'expense 'equity)
|
||||
(list #(bank "Bank" "")
|
||||
#(cash "Cash" "")
|
||||
#(credit "Credit" "")
|
||||
#(asset "Asset" "")
|
||||
#(liability "Liability" "")
|
||||
#(stock "Stock" "")
|
||||
#(mutual "Mutual Fund" "")
|
||||
#(currency "Currency" "")
|
||||
#(income "Income" "")
|
||||
#(expense "Expense" "")
|
||||
#(equity "Equity" ""))))
|
||||
(list (list->vector (list 'bank (N_ "Bank") ""))
|
||||
(list->vector (list 'cash (N_ "Cash") ""))
|
||||
(list->vector (list 'credit (N_ "Credit") ""))
|
||||
(list->vector (list 'asset (N_ "Asset") ""))
|
||||
(list->vector (list 'liability (N_ "Liability") ""))
|
||||
(list->vector (list 'stock (N_ "Stock") ""))
|
||||
(list->vector (list 'mutual (N_ "Mutual Fund") ""))
|
||||
(list->vector (list 'currency (N_ "Currency") ""))
|
||||
(list->vector (list 'income (N_ "Income") ""))
|
||||
(list->vector (list 'expense (N_ "Expense") ""))
|
||||
(list->vector (list 'equity (N_ "Equity") "")))))
|
||||
|
||||
(gnc:register-configuration-option
|
||||
(gnc:make-list-option
|
||||
"Main Window" "Account fields to display"
|
||||
"c" ""
|
||||
(list 'description 'total)
|
||||
(list #(type "Type" "")
|
||||
#(code "Code" "")
|
||||
#(description "Description" "")
|
||||
#(notes "Notes" "")
|
||||
#(currency "Currency" "")
|
||||
#(security "Security" "")
|
||||
#(balance "Balance" "")
|
||||
#(total "Total" ""))))
|
||||
(list (list->vector (list 'type (N_ "Type") ""))
|
||||
(list->vector (list 'code (N_ "Code") ""))
|
||||
(list->vector (list 'description (N_ "Description") ""))
|
||||
(list->vector (list 'notes (N_ "Notes") ""))
|
||||
(list->vector (list 'currency (N_ "Currency") ""))
|
||||
(list->vector (list 'security (N_ "Security") ""))
|
||||
(list->vector (list 'balance (N_ "Balance") ""))
|
||||
(list->vector (list 'total (N_ "Total") "")))))
|
||||
|
||||
|
||||
;; International options
|
||||
@ -173,27 +169,37 @@ the account instead of opening a register." #f))
|
||||
(gnc:make-multichoice-option
|
||||
"International" "Date Format"
|
||||
"a" "Date Format Display" 'us
|
||||
(list #(us "US" "US-style: mm/dd/yyyy")
|
||||
#(uk "UK" "UK-style dd/mm/yyyy")
|
||||
#(ce "Europe" "Continental Europe: dd.mm.yyyy")
|
||||
#(iso "ISO" "ISO Standard: yyyy-mm-dd")
|
||||
#(locale "Locale" "Default system locale format"))))
|
||||
(list (list->vector (list 'us
|
||||
(N_ "US")
|
||||
(N_ "US-style: mm/dd/yyyy")))
|
||||
(list->vector (list 'uk
|
||||
(N_ "UK")
|
||||
(N_ "UK-style dd/mm/yyyy")))
|
||||
(list->vector (list 'ce
|
||||
(N_ "Europe")
|
||||
(N_ "Continental Europe: dd.mm.yyyy")))
|
||||
(list->vector (list 'iso
|
||||
(N_ "ISO")
|
||||
(N_ "ISO Standard: yyyy-mm-dd")))
|
||||
(list->vector (list 'locale
|
||||
(N_ "Locale")
|
||||
(N_ "Default system locale format"))))))
|
||||
|
||||
(gnc:register-configuration-option
|
||||
(gnc:make-currency-option
|
||||
"International" "Default Currency"
|
||||
"b" "Default currency for new accounts"
|
||||
(N_ "International") (N_ "Default Currency")
|
||||
"b" (N_ "Default currency for new accounts")
|
||||
(gnc:locale-default-currency)))
|
||||
|
||||
(gnc:register-configuration-option
|
||||
(gnc:make-simple-boolean-option
|
||||
"International" "Use 24-hour time format"
|
||||
"c" "Use a 24 hour (instead of a 12 hour) time format." #f))
|
||||
(N_ "International") (N_ "Use 24-hour time format")
|
||||
"c" (N_ "Use a 24 hour (instead of a 12 hour) time format.") #f))
|
||||
|
||||
(gnc:register-configuration-option
|
||||
(gnc:make-simple-boolean-option
|
||||
"International" "Enable EURO support"
|
||||
"d" "Enables support for the European Union EURO currency"
|
||||
(N_ "International") (N_ "Enable EURO support")
|
||||
"d" (N_ "Enables support for the European Union EURO currency")
|
||||
(gnc:is-euro-currency
|
||||
(gnc:locale-default-currency))))
|
||||
|
||||
@ -202,34 +208,42 @@ the account instead of opening a register." #f))
|
||||
|
||||
(gnc:register-configuration-option
|
||||
(gnc:make-multichoice-option
|
||||
"Register" "Default Register Style"
|
||||
"a" "Default style for register windows"
|
||||
(N_ "Register") (N_ "Default Register Style")
|
||||
"a" (N_ "Default style for register windows")
|
||||
'ledger
|
||||
(list #(ledger "Ledger" "Show transactions on one or two lines")
|
||||
#(auto_ledger "Auto Ledger"
|
||||
"Show transactions on one or two lines and expand the current transaction")
|
||||
#(journal "Journal"
|
||||
"Show expanded transactions with all splits"))))
|
||||
(list (list->vector
|
||||
(list 'ledger
|
||||
(N_ "Ledger")
|
||||
(N_ "Show transactions on one or two lines")))
|
||||
(list->vector
|
||||
(list 'auto_ledger
|
||||
(N_ "Auto Ledger")
|
||||
(N_ "Show transactions on one or two lines and expand the current transaction")))
|
||||
(list->vector
|
||||
(list 'journal
|
||||
(N_ "Journal")
|
||||
(N_ "Show expanded transactions with all splits"))))))
|
||||
|
||||
(gnc:register-configuration-option
|
||||
(gnc:make-simple-boolean-option
|
||||
"Register" "Double Line Mode"
|
||||
"aa" "Show two lines of information for each transaction" #f))
|
||||
(N_ "Register") (N_ "Double Line Mode")
|
||||
"aa" (N_ "Show two lines of information for each transaction") #f))
|
||||
|
||||
(gnc:register-configuration-option
|
||||
(gnc:make-simple-boolean-option
|
||||
"Register" "Auto-Raise Lists"
|
||||
"b" "Automatically raise the list of accounts or actions during input." #t))
|
||||
(N_ "Register") (N_ "Auto-Raise Lists")
|
||||
"b" (N_ "Automatically raise the list of accounts or actions during input.")
|
||||
#t))
|
||||
|
||||
(gnc:register-configuration-option
|
||||
(gnc:make-simple-boolean-option
|
||||
"Register" "Show All Transactions"
|
||||
"c" "By default, show every transaction in an account." #t))
|
||||
(N_ "Register") (N_ "Show All Transactions")
|
||||
"c" (N_ "By default, show every transaction in an account.") #t))
|
||||
|
||||
(gnc:register-configuration-option
|
||||
(gnc:make-number-range-option
|
||||
"Register" "Number of Rows"
|
||||
"d" "Default number of register rows to display."
|
||||
(N_ "Register") (N_ "Number of Rows")
|
||||
"d" (N_ "Default number of register rows to display.")
|
||||
15.0 ;; default
|
||||
1.0 ;; lower bound
|
||||
200.0 ;; upper bound
|
||||
@ -239,35 +253,35 @@ the account instead of opening a register." #f))
|
||||
|
||||
(gnc:register-configuration-option
|
||||
(gnc:make-simple-boolean-option
|
||||
"Register" "Show Vertical Borders"
|
||||
"e" "By default, show vertical borders on the cells." #t))
|
||||
(N_ "Register") (N_ "Show Vertical Borders")
|
||||
"e" (N_ "By default, show vertical borders on the cells.") #t))
|
||||
|
||||
(gnc:register-configuration-option
|
||||
(gnc:make-simple-boolean-option
|
||||
"Register" "Show Horizontal Borders"
|
||||
"f" "By default, show horizontal borders on the cells." #t))
|
||||
(N_ "Register") (N_ "Show Horizontal Borders")
|
||||
"f" (N_ "By default, show horizontal borders on the cells.") #t))
|
||||
|
||||
(gnc:register-configuration-option
|
||||
(gnc:make-simple-boolean-option
|
||||
"Register" "'Enter' moves to blank transaction"
|
||||
"g" "If selected, move to the blank transaction after the user presses \
|
||||
'Enter'. Otherwise, move down one row." #f))
|
||||
(N_ "Register") (N_ "'Enter' moves to blank transaction")
|
||||
"g" (N_ "If selected, move to the blank transaction after the user presses \
|
||||
'Enter'. Otherwise, move down one row.") #f))
|
||||
|
||||
(gnc:register-configuration-option
|
||||
(gnc:make-simple-boolean-option
|
||||
"Register" "Confirm before changing reconciled"
|
||||
"h" "If selected, use a dialog to confirm a change to a reconciled \
|
||||
transaction." #t))
|
||||
(N_ "Register") (N_ "Confirm before changing reconciled")
|
||||
"h" (N_ "If selected, use a dialog to confirm a change to a reconciled \
|
||||
transaction.") #t))
|
||||
|
||||
(gnc:register-configuration-option
|
||||
(gnc:make-font-option
|
||||
"Register" "Register font"
|
||||
"i" "The font to use in the register" (gnc:register-default-font)))
|
||||
(N_ "Register") (N_ "Register font")
|
||||
"i" (N_ "The font to use in the register") (gnc:register-default-font)))
|
||||
|
||||
(gnc:register-configuration-option
|
||||
(gnc:make-font-option
|
||||
"Register" "Register hint font"
|
||||
"j" "The font used to show hints in the register"
|
||||
(N_ "Register") (N_ "Register hint font")
|
||||
"j" (N_ "The font used to show hints in the register")
|
||||
(gnc:register-default-hint-font)))
|
||||
|
||||
|
||||
@ -275,64 +289,64 @@ transaction." #t))
|
||||
|
||||
(gnc:register-configuration-option
|
||||
(gnc:make-color-option
|
||||
"Register Colors" "Header color"
|
||||
"a" "The header background color"
|
||||
(N_ "Register Colors") (N_ "Header color")
|
||||
"a" (N_ "The header background color")
|
||||
(list #x96 #xb2 #x84 0)
|
||||
255
|
||||
#f))
|
||||
|
||||
(gnc:register-configuration-option
|
||||
(gnc:make-color-option
|
||||
"Register Colors" "Primary color"
|
||||
"b" "The default background color for register rows"
|
||||
(N_ "Register Colors") (N_ "Primary color")
|
||||
"b" (N_ "The default background color for register rows")
|
||||
(list #xbf #xde #xba 0)
|
||||
255
|
||||
#f))
|
||||
|
||||
(gnc:register-configuration-option
|
||||
(gnc:make-color-option
|
||||
"Register Colors" "Secondary color"
|
||||
"c" "The default secondary background color for register rows"
|
||||
(N_ "Register Colors") (N_ "Secondary color")
|
||||
"c" (N_ "The default secondary background color for register rows")
|
||||
(list #xf6 #xff #xdb 0)
|
||||
255
|
||||
#f))
|
||||
|
||||
(gnc:register-configuration-option
|
||||
(gnc:make-color-option
|
||||
"Register Colors" "Primary active color"
|
||||
"d" "The background color for the current register row"
|
||||
(N_ "Register Colors") (N_ "Primary active color")
|
||||
"d" (N_ "The background color for the current register row")
|
||||
(list #xff #xf7 #xba 0)
|
||||
255
|
||||
#f))
|
||||
|
||||
(gnc:register-configuration-option
|
||||
(gnc:make-color-option
|
||||
"Register Colors" "Secondary active color"
|
||||
"e" "The secondary background color for the current register row"
|
||||
(N_ "Register Colors") (N_ "Secondary active color")
|
||||
"e" (N_ "The secondary background color for the current register row")
|
||||
(list #xff #xf0 #x99 0)
|
||||
255
|
||||
#f))
|
||||
|
||||
(gnc:register-configuration-option
|
||||
(gnc:make-color-option
|
||||
"Register Colors" "Split color"
|
||||
"f" "The default background color for split rows in the register"
|
||||
(N_ "Register Colors") (N_ "Split color")
|
||||
"f" (N_ "The default background color for split rows in the register")
|
||||
(list #xff #xfa #xd9 0)
|
||||
255
|
||||
#f))
|
||||
|
||||
(gnc:register-configuration-option
|
||||
(gnc:make-color-option
|
||||
"Register Colors" "Split active color"
|
||||
"g" "The background color for the current split row in the register"
|
||||
(N_ "Register Colors") (N_ "Split active color")
|
||||
"g" (N_ "The background color for the current split row in the register")
|
||||
(list #xff #xf2 #xab 0)
|
||||
255
|
||||
#f))
|
||||
|
||||
(gnc:register-configuration-option
|
||||
(gnc:make-simple-boolean-option
|
||||
"Register Colors" "Double mode colors alternate with transactions"
|
||||
"h" "Alternate the primary and secondary colors with each transaction, not each row"
|
||||
(N_ "Register Colors") (N_ "Double mode colors alternate with transactions")
|
||||
"h" (N_ "Alternate the primary and secondary colors with each transaction, not each row")
|
||||
#f))
|
||||
|
||||
|
||||
@ -340,8 +354,8 @@ transaction." #t))
|
||||
|
||||
(gnc:register-configuration-option
|
||||
(gnc:make-simple-boolean-option
|
||||
"Reconcile" "Automatic credit card payments"
|
||||
"a" "After reconciling a credit card statement, prompt the user to enter a credit card payment"
|
||||
(N_ "Reconcile") (N_ "Automatic credit card payments")
|
||||
"a" (N_ "After reconciling a credit card statement, prompt the user to enter a credit card payment")
|
||||
#t))
|
||||
|
||||
|
||||
@ -349,60 +363,93 @@ transaction." #t))
|
||||
|
||||
(gnc:register-configuration-option
|
||||
(gnc:make-simple-boolean-option
|
||||
"General" "Save Window Geometry"
|
||||
"a" "Save window sizes and positions." #t))
|
||||
(N_ "General") (N_ "Save Window Geometry")
|
||||
"a" (N_ "Save window sizes and positions.") #t))
|
||||
|
||||
(gnc:register-configuration-option
|
||||
(gnc:make-multichoice-option
|
||||
"General" "Toolbar Buttons"
|
||||
"b" "Choose whether to display icons, text, or both for toolbar buttons"
|
||||
'icons_and_text
|
||||
(list #(icons_and_text "Icons and Text" "Show both icons and text")
|
||||
#(icons_only "Icons only" "Show icons only")
|
||||
#(text_only "Text only" "Show text only"))))
|
||||
(list (list->vector
|
||||
(list 'icons_and_text
|
||||
(N_ "Icons and Text")
|
||||
(N_ "Show both icons and text")))
|
||||
(list->vector
|
||||
(list 'icons_only
|
||||
(N_ "Icons only")
|
||||
(N_ "Show icons only")))
|
||||
(list->vector
|
||||
(list 'text_only
|
||||
(N_ "Text only")
|
||||
(N_ "Show text only"))))))
|
||||
|
||||
(gnc:register-configuration-option
|
||||
(gnc:make-multichoice-option
|
||||
"General" "Account Separator"
|
||||
"c" "The character used to separate fully-qualified account names"
|
||||
(N_ "General") (N_ "Account Separator")
|
||||
"c" (N_ "The character used to separate fully-qualified account names")
|
||||
'colon
|
||||
(list #(colon ": (Colon)" "Income:Salary:Taxable")
|
||||
#(slash "/ (Slash)" "Income/Salary/Taxable")
|
||||
#(backslash "\\ (Backslash)" "Income\\Salary\\Taxable")
|
||||
#(dash "- (Dash)" "Income-Salary-Taxable")
|
||||
#(period ". (Period)" "Income.Salary.Taxable"))))
|
||||
(list (list->vector
|
||||
(list 'colon
|
||||
(N_ ": (Colon)")
|
||||
(N_ "Income:Salary:Taxable")))
|
||||
(list->vector
|
||||
(list 'slash
|
||||
(N_ "/ (Slash)")
|
||||
(N_ "Income/Salary/Taxable")))
|
||||
(list->vector
|
||||
(list 'backslash
|
||||
(N_ "\\ (Backslash)")
|
||||
(N_ "Income\\Salary\\Taxable")))
|
||||
(list->vector
|
||||
(list 'dash
|
||||
(N_ "- (Dash)")
|
||||
(N_ "Income-Salary-Taxable")))
|
||||
(list->vector
|
||||
(list 'period
|
||||
(N_ ". (Period)")
|
||||
(N_ "Income.Salary.Taxable"))))))
|
||||
|
||||
(gnc:register-configuration-option
|
||||
(gnc:make-multichoice-option
|
||||
"General" "Reversed-balance account types"
|
||||
"d" "The types of accounts for which balances are sign-reversed"
|
||||
(N_ "General") (N_ "Reversed-balance account types")
|
||||
"d" (N_ "The types of accounts for which balances are sign-reversed")
|
||||
'credit
|
||||
(list #(income-expense "Income & Expense" "Reverse Income and Expense Accounts")
|
||||
#(credit "Credit Accounts" "Reverse Credit Card, Liability, Equity, and Income Accounts")
|
||||
#(none "None" "Don't reverse any accounts"))))
|
||||
(list (list->vector
|
||||
(list 'income-expense
|
||||
(N_ "Income & Expense")
|
||||
(N_ "Reverse Income and Expense Accounts")))
|
||||
(list->vector
|
||||
(list 'credit
|
||||
(N_ "Credit Accounts")
|
||||
(N_ "Reverse Credit Card, Liability, Equity, and Income Accounts")))
|
||||
(list->vector
|
||||
(list 'none
|
||||
(N_ "None")
|
||||
(N_ "Don't reverse any accounts"))))))
|
||||
|
||||
(gnc:register-configuration-option
|
||||
(gnc:make-simple-boolean-option
|
||||
"General" "Use accounting labels"
|
||||
"e" "Only use 'debit' and 'credit' instead of informal synonyms" #f))
|
||||
(N_ "General") (N_ "Use accounting labels")
|
||||
"e" (N_ "Only use 'debit' and 'credit' instead of informal synonyms") #f))
|
||||
|
||||
(gnc:register-configuration-option
|
||||
(gnc:make-simple-boolean-option
|
||||
"General" "Display \"Tip of the Day\""
|
||||
"f" "Display hints for using GnuCash at startup" #t))
|
||||
(N_ "General") (N_ "Display \"Tip of the Day\"")
|
||||
"f" (N_ "Display hints for using GnuCash at startup") #t))
|
||||
|
||||
(gnc:register-configuration-option
|
||||
(gnc:make-simple-boolean-option
|
||||
"General" "Display negative amounts in red"
|
||||
"g" "Display negative amounts in red" #t))
|
||||
(N_ "General") (N_ "Display negative amounts in red")
|
||||
"g" (N_ "Display negative amounts in red") #t))
|
||||
|
||||
; this option also changes the next option so that its
|
||||
; selectability matches the state of this option.
|
||||
(gnc:register-configuration-option
|
||||
(gnc:make-complex-boolean-option
|
||||
"General" "Automatic Decimal Point"
|
||||
(N_ "General") (N_ "Automatic Decimal Point")
|
||||
"h"
|
||||
"Automatically insert a decimal point into values that are entered without one."
|
||||
(N_ "Automatically insert a decimal point into values that are entered without one.")
|
||||
#f #f
|
||||
(lambda (x) (gnc:set-option-selectable-by-name "General"
|
||||
"Auto Decimal Places"
|
||||
@ -410,10 +457,10 @@ transaction." #t))
|
||||
|
||||
(gnc:register-configuration-option
|
||||
(gnc:make-number-range-option
|
||||
"General" "Auto Decimal Places"
|
||||
"i" "How many automatic decimal places will be filled in."
|
||||
(N_ "General") (N_ "Auto Decimal Places")
|
||||
"i" (N_ "How many automatic decimal places will be filled in.")
|
||||
;; current range is 1-8 with default from the locale
|
||||
( gnc:locale-decimal-places ) ;; default
|
||||
(gnc:locale-decimal-places) ;; default
|
||||
1.0 ;; lower bound
|
||||
8.0 ;; upper bound
|
||||
0.0 ;; number of decimals used for this range calculation
|
||||
@ -551,8 +598,3 @@ the current value of the path."
|
||||
(gnc:register-configuration-option
|
||||
(gnc:make-internal-option
|
||||
"__exp_parser" "defined_variables" '()))
|
||||
|
||||
|
||||
;; This needs to be after all the global options definitions
|
||||
(if (gnc:debugging?)
|
||||
(gnc:options-register-translatable-strings gnc:*options-entries*))
|
||||
|
||||
@ -100,20 +100,13 @@
|
||||
(define menu-namer (gnc:new-menu-namer))
|
||||
|
||||
(define (add-report-menu-item name report)
|
||||
(let* ((report-string "Report")
|
||||
(title (string-append (gnc:_ report-string) ": " (gnc:_ name)))
|
||||
(let* ((title (string-append (_ "Report") ": " (_ name)))
|
||||
(item #f))
|
||||
|
||||
(if (gnc:debugging?)
|
||||
(let ((options (false-if-exception (gnc:report-new-options report))))
|
||||
(if options
|
||||
(gnc:options-register-translatable-strings options))
|
||||
(gnc:register-translatable-strings report-string name)))
|
||||
|
||||
(set! item
|
||||
(gnc:make-menu-item
|
||||
((menu-namer 'add-name) name)
|
||||
(string-append "Display the " name " report.")
|
||||
(sprintf #f (_ "Display the %s report") name)
|
||||
(list "_Reports" "")
|
||||
(lambda ()
|
||||
(let ((rept
|
||||
@ -121,7 +114,7 @@
|
||||
(gnc:report-window rept)))))
|
||||
(gnc:add-extension item)))
|
||||
(gnc:add-extension menu)
|
||||
|
||||
|
||||
(hash-for-each add-report-menu-item *gnc:_report-info_*))
|
||||
|
||||
(define report-record-structure
|
||||
@ -246,4 +239,3 @@
|
||||
htext))
|
||||
|
||||
(gnc:hook-add-dangler gnc:*main-window-opened-hook* gnc:report-menu-setup)
|
||||
|
||||
|
||||
@ -218,7 +218,7 @@
|
||||
;; version
|
||||
'version 1
|
||||
;; Name
|
||||
'name "Account Summary"
|
||||
'name (N_ "Account Summary")
|
||||
;; Options
|
||||
'options-generator accsum-options-generator
|
||||
;; renderer
|
||||
|
||||
@ -432,6 +432,6 @@
|
||||
|
||||
(gnc:define-report
|
||||
'version 1
|
||||
'name "Account Balance Tracker"
|
||||
'name (N_ "Account Balance Tracker")
|
||||
'options-generator runavg-options-generator
|
||||
'renderer average-balance-renderer))
|
||||
|
||||
@ -1297,8 +1297,8 @@
|
||||
(let ()
|
||||
(define budget-item
|
||||
(gnc:make-menu-item
|
||||
"Budget (Testing, Unfinished)"
|
||||
"Test the budget dialog"
|
||||
(N_ "Budget (Testing, Unfinished)")
|
||||
(N_ "Test the budget dialog")
|
||||
(list "_Tools" "")
|
||||
;; FIXME: need update.
|
||||
(lambda ()
|
||||
|
||||
@ -108,5 +108,5 @@
|
||||
|
||||
(gnc:define-report
|
||||
'version 1
|
||||
'name "Stock Portfolio"
|
||||
'name (N_ "Stock Portfolio")
|
||||
'renderer folio-renderer))
|
||||
|
||||
@ -369,9 +369,8 @@ For details on subscribing to that list, see %s.")
|
||||
|
||||
;; The name of this report. This will be used, among other things,
|
||||
;; for making its menu item in the main menu. You need to use the
|
||||
;; untranslated value here! It will be registered and translated
|
||||
;; elsewhere.
|
||||
'name "Hello, World"
|
||||
;; untranslated value here!
|
||||
'name (N_ "Hello, World")
|
||||
|
||||
;; The options generator function defined above.
|
||||
'options-generator options-generator
|
||||
|
||||
@ -1181,7 +1181,7 @@ txf file!")))))
|
||||
|
||||
(gnc:define-report
|
||||
'version 1
|
||||
'name "Hierarchical"
|
||||
'name (N_ "Hierarchical")
|
||||
'options-generator hierarchical-options-generator
|
||||
'renderer (lambda (options)
|
||||
(generate-tax-or-txf
|
||||
@ -1193,7 +1193,7 @@ Deductable Expenses.")
|
||||
|
||||
(gnc:define-report
|
||||
'version 1
|
||||
'name "Tax"
|
||||
'name (N_ "Tax")
|
||||
'options-generator tax-options-generator
|
||||
'renderer (lambda (options)
|
||||
(generate-tax-or-txf
|
||||
@ -1205,7 +1205,7 @@ Deductable Expenses.")
|
||||
|
||||
(gnc:define-report
|
||||
'version 1
|
||||
'name "Export .TXF"
|
||||
'name (N_ "Export .TXF")
|
||||
'options-generator tax-options-generator
|
||||
'renderer (lambda (options)
|
||||
(generate-tax-or-txf
|
||||
|
||||
@ -1,57 +1,71 @@
|
||||
(
|
||||
("Warning!! This is a DEVELOPMENT version of GnuCash."
|
||||
"It probably has lots of bugs and unstable features!"
|
||||
"If you are looking for a stable personal finance application,"
|
||||
"you should use the latest release of GnuCash 1.4.")
|
||||
("The GnuCash online manual has lots of helpful information."
|
||||
"You can access the manual under the Help menu.")
|
||||
("You can easily import your existing financial data from Quicken,"
|
||||
"MS Money or other programs that export QIF (Quicken Interchange"
|
||||
"Format) files. Click the Import button in the main window tool"
|
||||
"bar and follow the instructions provided.")
|
||||
("Create new accounts by clicking the New button in the main window"
|
||||
"tool bar. This will bring up a dialog box where you can enter"
|
||||
"account details. For more information on choosing an account type"
|
||||
"or setting up a chart of accounts, please see the GnuCash online"
|
||||
"manual.")
|
||||
("Click the right mouse button in the main window to bring up the"
|
||||
"account menu options. Within each register, clicking the right"
|
||||
"mouse button brings up the transaction menu options.")
|
||||
("As you enter amounts in the register, you can use the GnuCash"
|
||||
"calculator to add, subtract, multiply and divide . Simply type"
|
||||
"the first value, then select '+', '-','*', or '/'. Type the"
|
||||
"second value and press Enter to record the calculated amount.")
|
||||
("If you are familiar with other financial programs such as Quicken,"
|
||||
"note that GnuCash uses accounts instead of categories to track"
|
||||
"income and expenses. For more information on income and expense"
|
||||
"accounts, please see the GnuCash online manual.")
|
||||
("Quick-fill makes it easy to enter common transactions. When you"
|
||||
"type the first letter(s) of a common transaction description,"
|
||||
"GnuCash will automatically complete the remainder of the"
|
||||
"transaction as it was last entered.")
|
||||
("Type the first letter(s) of an existing account name in the"
|
||||
"Transfer register column, and GnuCash will complete the name from"
|
||||
"your list of accounts. For subaccounts, type the first letter(s)"
|
||||
"of the parent account, followed by ':' and the first letter(s) of"
|
||||
"the subaccount (e.g. A:C for Assets:Cash.)")
|
||||
("To enter multiple-split transactions such as a paycheck with"
|
||||
"multiple deductions, click the Split button in the tool bar."
|
||||
"Or choose either Auto-Split Ledger or Transaction Journal"
|
||||
"from the Register|Style menu option.")
|
||||
("Want to see all your subaccount transactions in one register?"
|
||||
"From the main menu, highlight the parent account and select"
|
||||
"Accounts|Open Subaccounts from the menu.")
|
||||
("In the reconcile window, you can press the spacebar"
|
||||
"to mark transactions as reconciled."
|
||||
"You can also press Tab and Shift-Tab to move between"
|
||||
"deposits and withdrawals.")
|
||||
("When entering check numbers in the register, you can"
|
||||
"type '+' to enter the next number or '-' to enter the previous"
|
||||
"number. You can use '+' and '-' to increment and decrement"
|
||||
"dates as well.")
|
||||
("You should back up your files regularly. Just copy"
|
||||
"the GnuCash .xac file to a floppy or other backup device.")
|
||||
("To transfer funds between accounts with different currencies,"
|
||||
"you may need an intermediate currency trading account."
|
||||
"Please see the GnuCash online manual for details")
|
||||
(N_ "Warning!! This is a DEVELOPMENT version of GnuCash.
|
||||
It probably has lots of bugs and unstable features!
|
||||
If you are looking for a stable personal finance application,
|
||||
you should use the latest release of GnuCash 1.4.")
|
||||
|
||||
(N_ "The GnuCash online manual has lots of helpful information.
|
||||
You can access the manual under the Help menu.")
|
||||
|
||||
(N_ "You can easily import your existing financial data from Quicken,
|
||||
MS Money or other programs that export QIF (Quicken Interchange
|
||||
Format) files. Click the Import button in the main window tool
|
||||
bar and follow the instructions provided.")
|
||||
|
||||
(N_ "Create new accounts by clicking the New button in the main window
|
||||
tool bar. This will bring up a dialog box where you can enter
|
||||
account details. For more information on choosing an account type
|
||||
or setting up a chart of accounts, please see the GnuCash online
|
||||
manual.")
|
||||
|
||||
(N_ "Click the right mouse button in the main window to bring up the
|
||||
account menu options. Within each register, clicking the right
|
||||
mouse button brings up the transaction menu options.")
|
||||
|
||||
(N_ "As you enter amounts in the register, you can use the GnuCash
|
||||
calculator to add, subtract, multiply and divide . Simply type
|
||||
the first value, then select '+', '-','*', or '/'. Type the
|
||||
second value and press Enter to record the calculated amount.")
|
||||
|
||||
(N_ "If you are familiar with other financial programs such as Quicken,
|
||||
note that GnuCash uses accounts instead of categories to track
|
||||
income and expenses. For more information on income and expense
|
||||
accounts, please see the GnuCash online manual.")
|
||||
|
||||
(N_ "Quick-fill makes it easy to enter common transactions. When you
|
||||
type the first letter(s) of a common transaction description,
|
||||
GnuCash will automatically complete the remainder of the
|
||||
transaction as it was last entered.")
|
||||
|
||||
(N_ "Type the first letter(s) of an existing account name in the
|
||||
Transfer register column, and GnuCash will complete the name from
|
||||
your list of accounts. For subaccounts, type the first letter(s)
|
||||
of the parent account, followed by ':' and the first letter(s) of
|
||||
the subaccount (e.g. A:C for Assets:Cash.)")
|
||||
|
||||
(N_ "To enter multiple-split transactions such as a paycheck with
|
||||
multiple deductions, click the Split button in the tool bar.
|
||||
Or choose either Auto-Split Ledger or Transaction Journal
|
||||
from the Register|Style menu option.")
|
||||
|
||||
(N_ "Want to see all your subaccount transactions in one register?
|
||||
From the main menu, highlight the parent account and select
|
||||
Accounts|Open Subaccounts from the menu.")
|
||||
|
||||
(N_ "In the reconcile window, you can press the spacebar
|
||||
to mark transactions as reconciled.
|
||||
You can also press Tab and Shift-Tab to move between
|
||||
deposits and withdrawals.")
|
||||
|
||||
(N_ "When entering check numbers in the register, you can
|
||||
type '+' to enter the next number or '-' to enter the previous
|
||||
number. You can use '+' and '-' to increment and decrement
|
||||
dates as well.")
|
||||
|
||||
(N_ "You should back up your files regularly. Just copy
|
||||
the GnuCash .xac file to a floppy or other backup device.")
|
||||
|
||||
(N_ "To transfer funds between accounts with different currencies,
|
||||
you may need an intermediate currency trading account.
|
||||
Please see the GnuCash online manual for details")
|
||||
)
|
||||
|
||||
@ -54,24 +54,14 @@
|
||||
|
||||
(define gnc:*tip-list* '())
|
||||
|
||||
(define (string-fold list-strings concatenator)
|
||||
(if (null? list-strings)
|
||||
""
|
||||
(string-append (car list-strings) concatenator
|
||||
(string-fold (cdr list-strings) concatenator))))
|
||||
|
||||
|
||||
(define (gnc:read-tips)
|
||||
(let ((in-port (open-input-file
|
||||
(gnc:find-in-directories
|
||||
(gnc:config-var-value-get gnc:*tip-file*)
|
||||
(gnc:config-var-value-get gnc:*load-path*)))))
|
||||
(set! gnc:*tip-list* (read in-port))
|
||||
(if (gnc:debugging?)
|
||||
(for-each (lambda (list-strings)
|
||||
(gnc:register-translatable-strings
|
||||
(string-fold list-strings "\n")))
|
||||
gnc:*tip-list*))
|
||||
(set! gnc:*tip-list*
|
||||
(map (lambda (pair) (cadr pair)) gnc:*tip-list*))
|
||||
(if (not (= (length gnc:*tip-list*)
|
||||
(gnc:config-var-value-get gnc:*current-tip-number*)))
|
||||
(begin
|
||||
@ -84,10 +74,8 @@
|
||||
#f))
|
||||
|
||||
(define (gnc:get-current-tip)
|
||||
(gnc:_ (string-fold
|
||||
(list-ref gnc:*tip-list*
|
||||
(gnc:config-var-value-get gnc:*current-tip-number*))
|
||||
"\n")))
|
||||
(_ (list-ref gnc:*tip-list*
|
||||
(gnc:config-var-value-get gnc:*current-tip-number*))))
|
||||
|
||||
(define (gnc:increment-tip-number)
|
||||
(let ((new-value (+ (gnc:config-var-value-get gnc:*current-tip-number*) 1)))
|
||||
|
||||
Loading…
Reference in New Issue
Block a user