Hi, Craig --
On Friday, February 8, 2013 7:17:37 PM UTC-5, Craig Earls wrote:
>
> John,
> I have that feature in now and pushed to the server. Let me know if
> it is what you wanted.
>
This is promising -- thanks for working on it. But I think there are some
rough spots. I'm swamped with work and home life right now, so I can't do a
lot of tests, but here are a few things I see --
- The follow works fine when I use the cursor key to move from one entry to
the next. However, when I use the space bar to go through the list of
entries in the reconcile window, the other window doesn't follow.
- The reconcile window now opens below the ledger window -- I'd rather have
it follow my regular setting, which would have it open to the right of my
ledger window
- It seems that the ledger file no longer allows the me to post the actual
total value of the account, as in this:
2013/02/08 Make the account value right
This:Account = $50.00
Another:2dAccount
When I run a report with an entry like this, I get "Error: Only one posting
with null amount allowed per transaction" with a line number referencing
that transaction.
- When I'm in ledger mode and save the ledger, the file saves properly, but
I get this backtrace with debug-on-error set:
set-buffer(#<killed buffer>)
(save-current-buffer (set-buffer buf) (let ((coding-system-for-write
(quote utf-8)) (coding-system-for-read (quote utf-8))) (apply (function
call-process-region) (append (list (point-min) (point-max)
ledger-binary-path nil outbuf nil "-f" "-") args))) outbuf)
(let ((buf (or input-buffer (current-buffer))) (outbuf (or output-buffer
(generate-new-buffer " *ledger-tmp*")))) (save-current-buffer (set-buffer
buf) (let ((coding-system-for-write (quote utf-8)) (coding-system-for-read
(quote utf-8))) (apply (function call-process-region) (append (list
(point-min) (point-max) ledger-binary-path nil outbuf nil "-f" "-") args)))
outbuf))
ledger-exec-ledger(#<killed buffer> #<buffer *temp*> "--uncleared"
"--real" "emacs" "platinum")
(progn (ledger-exec-ledger buf (current-buffer) "--uncleared" "--real"
"emacs" account) (goto-char (point-min)) (if (eobp) nil (if (looking-at
"(") nil (error (buffer-string))) (read (current-buffer))))
(unwind-protect (progn (ledger-exec-ledger buf (current-buffer)
"--uncleared" "--real" "emacs" account) (goto-char (point-min)) (if (eobp)
nil (if (looking-at "(") nil (error (buffer-string))) (read
(current-buffer)))) (and (buffer-name temp-buffer) (kill-buffer
temp-buffer)))
(save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn
(ledger-exec-ledger buf (current-buffer) "--uncleared" "--real" "emacs"
account) (goto-char (point-min)) (if (eobp) nil (if (looking-at "(") nil
(error (buffer-string))) (read (current-buffer)))) (and (buffer-name
temp-buffer) (kill-buffer temp-buffer))))
(let ((temp-buffer (generate-new-buffer " *temp*"))) (save-current-buffer
(set-buffer temp-buffer) (unwind-protect (progn (ledger-exec-ledger buf
(current-buffer) "--uncleared" "--real" "emacs" account) (goto-char
(point-min)) (if (eobp) nil (if (looking-at "(") nil (error
(buffer-string))) (read (current-buffer)))) (and (buffer-name temp-buffer)
(kill-buffer temp-buffer)))))
(let* ((buf ledger-buf) (account ledger-acct) (items (let ((temp-buffer
(generate-new-buffer " *temp*"))) (save-current-buffer (set-buffer
temp-buffer) (unwind-protect (progn (ledger-exec-ledger buf ...
"--uncleared" "--real" "emacs" account) (goto-char ...) (if ... nil ...
...)) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))))))) (if (>
(length items) 0) (progn (let ((--dolist-tail-- items) item) (while
--dolist-tail-- (setq item (car --dolist-tail--)) (let ((index 1)) (progn
(let ... ...))) (setq --dolist-tail-- (cdr --dolist-tail--))))) (insert
(concat "There are no uncleared entries for " account))) (goto-char
(point-min)) (set-buffer-modified-p nil) (toggle-read-only t) (let
((recon-window (get-buffer-window (get-buffer ledger-recon-buffer-name))))
(fit-window-to-buffer recon-window) (save-current-buffer (set-buffer buf)
(select-window (get-buffer-window buf)) (goto-char (point-max)) (recenter
-1)) (select-window recon-window)))
ledger-do-reconcile()
(let ((inhibit-read-only t) (line (count-lines (point-min) (point))))
(erase-buffer) (ledger-do-reconcile) (set-buffer-modified-p t) (goto-char
(point-min)) (forward-line line))
ledger-reconcile-refresh()
(save-current-buffer (set-buffer buf) (ledger-reconcile-refresh)
(set-buffer-modified-p nil))
(if buf (save-current-buffer (set-buffer buf) (ledger-reconcile-refresh)
(set-buffer-modified-p nil)))
(let ((buf (get-buffer ledger-recon-buffer-name))) (if buf
(save-current-buffer (set-buffer buf) (ledger-reconcile-refresh)
(set-buffer-modified-p nil))))
ledger-reconcile-refresh-after-save()
run-hooks(after-save-hook)
basic-save-buffer()
save-buffer(1)
call-interactively(save-buffer nil nil)
and I have "selecting deleted buffer" in the minibuffer.
- Formerly, when I finished reconciling an account, I used C-c C-c to save
the reconciliations. Now C-c C-c does nothing, and I don't see how I can
save it from the reconciliation window.
I did all this pretty quickly, and I suspect that some of these might be
the result of user error. But I think that for now I'll revert to the
earlier version.
Thanks --
John
--
---
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.
