The new ledger mode is loaded from ldg-new.el

Ledger.el is for archaeological purposes


On Tuesday, January 29, 2013, Jim Robinson wrote:

> Adding a '-' to the list of chars to skip in ldg-state.el appears to be
> what was different between that and my old copy of ledger.el.
>
> $ git diff ldg-state.el
> diff --git a/lisp/ldg-state.el b/lisp/ldg-state.el
> index 03017b2..60bbfc1 100644
> --- a/lisp/ldg-state.el
> +++ b/lisp/ldg-state.el
> @@ -36,7 +36,7 @@
>    (save-excursion
>      (when (or (looking-at "^[0-9]")
>                (re-search-backward "^[0-9]" nil t))
> -      (skip-chars-forward "0-9./=")
> +      (skip-chars-forward "0-9./=-")
>        (skip-syntax-forward " ")
>        (cond ((looking-at "!\\s-*") 'pending)
>              ((looking-at "\\*\\s-*") 'cleared)
> @@ -68,7 +68,7 @@ dropped."
>      ;; transaction
>      (save-excursion
>        (goto-char (car bounds))
> -      (skip-chars-forward "0-9./= \t")
> +      (skip-chars-forward "0-9./=- \t")
>        (setq cleared (and (member (char-after) '(?\* ?\!))
>                           (char-after)))
>        (when cleared
> @@ -157,7 +157,7 @@ dropped."
>                        (insert (make-string width ? ))))))
>              (forward-line))
>            (goto-char (car bounds))
> -          (skip-chars-forward "0-9./= \t")
> +          (skip-chars-forward "0-9./=- \t")
>            (insert state " ")
>            (if (re-search-forward "\\(\t\\| [ \t]\\)"
>                                   (line-end-position) t)
> @@ -194,7 +194,7 @@ dropped."
>      (save-excursion
>        (when (or (looking-at "^[0-9]")
>                  (re-search-backward "^[0-9]" nil t))
> -        (skip-chars-forward "0-9./=")
> +        (skip-chars-forward "0-9./=-")
>          (delete-horizontal-space)
>          (if (member (char-after) '(?\* ?\!))
>              (progn
>
>
> On Tuesday, January 29, 2013 6:17:46 PM UTC-8, Jim Robinson wrote:
>>
>> On Tuesday, January 29, 2013 12:31:45 PM UTC-8, Craig Earls wrote:
>>
>>> John merged lots of pulls requests today:
>>>
>>> The new ledger mode should now be fully functional (Thanks to David
>>> Keegan for his contributions to the lisp sourceas well.).  The
>>> documentation has been updated as well.
>>>
>>
>> Hrm, I can't remember if I changed old ledger.el on my own or if the
>> new mode has a different set of assumptions, but I find the new ledger
>> mode doesn't like my use of a yyyy-dd-mm format for dates.
>>
>> If I try and clear a transaction it gets confused:
>>
>> 2013-01-28 Mollie Stone's
>>         Expenses:Groceries                              $60.85
>>         Expenses:Tax:Sales:Ca                            $1.27
>>         Assets:USAA:Checking                           $-62.12
>>
>> becomes
>>
>> 2013 * -01-28 Mollie Stone's
>>         Expenses:Groceries                              $60.85
>>         Expenses:Tax:Sales:Ca                            $1.27
>>         Assets:USAA:Checking                           $-62.12
>>
>> instead of
>>
>> 2013-01-28 * Mollie Stone's
>>         Expenses:Groceries                              $60.85
>>         Expenses:Tax:Sales:Ca                            $1.27
>>         Assets:USAA:Checking                           $-62.12
>>
>>  --
>
> ---
> You received this message because you are subscribed to the Google Groups
> "Ledger" group.
> To unsubscribe from this group and stop receiving emails from it, send an
> email to [email protected] <javascript:_e({},
> 'cvml', 'ledger-cli%[email protected]');>.
> For more options, visit https://groups.google.com/groups/opt_out.
>
>
>


-- 
Craig, Corona De Tucson, AZ
enderw88.wordpress.com

-- 

--- 
You received this message because you are subscribed to the Google Groups 
"Ledger" group.
To unsubscribe from this group and stop receiving emails from it, send an email 
to [email protected].
For more options, visit https://groups.google.com/groups/opt_out.


Reply via email to