Somehow, in ledger-mode, I managed to screw up my C-c C-a command and I
only get this:
It worked before and I don't really know what I did.
Any pointers as to what I can try, given this:
Debugger entered--Lisp error: (wrong-type-argument listp "ti.")
car("ti.")
(< (car t1) (car t2))
(or (< (car t1) (car t2)) (and (= (car t1) (car t2)) (< (nth 1 t1) (nth 1
t2))))
ledger-time-less-p("ti." (21187 19568))
(if (ledger-time-less-p moment date) (throw (quote found) t))
(lambda (start date mark desc) (if (ledger-time-less-p moment date) (throw
(quote found) t)))(1 (21187 19568) #(" * " 0 3 (fontified t)) #("Checking
balance" 0 16 (fontified t face ledger-font-payee-cleared-face)))
funcall((lambda (start date mark desc) (if (ledger-time-less-p moment date)
(throw (quote found) t))) 1 (21187 19568) #(" * " 0 3 (fontified t))
#("Checking balance" 0 16 (fontified t face ledger-font-payee-cleared-face)))
(let ((start (match-beginning 0)) (year (match-string 4)) (month
(string-to-number (match-string 5))) (day (string-to-number (match-string 6)))
(mark (match-string 7)) (code (match-string 8)) (desc (match-string 9))) (if
(and year (> (length year) 0)) (setq year (string-to-number year))) (funcall
callback start (encode-time 0 0 0 day month (or year current-year)) mark desc))
(if found-y-p (setq current-year (string-to-number found-y-p)) (let ((start
(match-beginning 0)) (year (match-string 4)) (month (string-to-number
(match-string 5))) (day (string-to-number (match-string 6))) (mark
(match-string 7)) (code (match-string 8)) (desc (match-string 9))) (if (and
year (> (length year) 0)) (setq year (string-to-number year))) (funcall
callback start (encode-time 0 0 0 day month (or year current-year)) mark desc)))
(let ((found-y-p (match-string 2))) (if found-y-p (setq current-year
(string-to-number found-y-p)) (let ((start (match-beginning 0)) (year
(match-string 4)) (month (string-to-number (match-string 5))) (day
(string-to-number (match-string 6))) (mark (match-string 7)) (code
(match-string 8)) (desc (match-string 9))) (if (and year (> (length year) 0))
(setq year (string-to-number year))) (funcall callback start (encode-time 0 0 0
day month (or year current-year)) mark desc))))
(progn (let ((found-y-p (match-string 2))) (if found-y-p (setq current-year
(string-to-number found-y-p)) (let ((start (match-beginning 0)) (year
(match-string 4)) (month (string-to-number (match-string 5))) (day
(string-to-number (match-string 6))) (mark (match-string 7)) (code
(match-string 8)) (desc (match-string 9))) (if (and year (> (length year) 0))
(setq year (string-to-number year))) (funcall callback start (encode-time 0 0 0
day month (or year current-year)) mark desc)))))
(if (looking-at ledger-iterate-regex) (progn (let ((found-y-p (match-string
2))) (if found-y-p (setq current-year (string-to-number found-y-p)) (let
((start (match-beginning 0)) (year (match-string 4)) (month (string-to-number
...)) (day (string-to-number ...)) (mark (match-string 7)) (code (match-string
8)) (desc (match-string 9))) (if (and year (> ... 0)) (setq year
(string-to-number year))) (funcall callback start (encode-time 0 0 0 day month
(or year current-year)) mark desc))))))
(while (not (eobp)) (if (looking-at ledger-iterate-regex) (progn (let
((found-y-p (match-string 2))) (if found-y-p (setq current-year
(string-to-number found-y-p)) (let ((start ...) (year ...) (month ...) (day
...) (mark ...) (code ...) (desc ...)) (if (and year ...) (setq year ...))
(funcall callback start (encode-time 0 0 0 day month ...) mark desc))))))
(forward-line))
(let* ((now (current-time)) (current-year (nth 5 (decode-time now)))) (while
(not (eobp)) (if (looking-at ledger-iterate-regex) (progn (let ((found-y-p
(match-string 2))) (if found-y-p (setq current-year (string-to-number
found-y-p)) (let (... ... ... ... ... ... ...) (if ... ...) (funcall callback
start ... mark desc)))))) (forward-line)))
ledger-xact-iterate-transactions((lambda (start date mark desc) (if
(ledger-time-less-p moment date) (throw (quote found) t))))
(catch (quote found) (ledger-xact-iterate-transactions (function (lambda
(start date mark desc) (if (ledger-time-less-p moment date) (throw (quote
found) t))))))
ledger-xact-find-slot("ti.")
(let ((date (car args))) (if (string-match ledger-iso-date-regexp date) (setq
date (encode-time 0 0 0 (string-to-number (match-string 4 date))
(string-to-number (match-string 3 date)) (string-to-number (match-string 2
date))))) (ledger-xact-find-slot date))
(if insert-at-point nil (let ((date (car args))) (if (string-match
ledger-iso-date-regexp date) (setq date (encode-time 0 0 0 (string-to-number
(match-string 4 date)) (string-to-number (match-string 3 date))
(string-to-number (match-string 2 date))))) (ledger-xact-find-slot date)))
(let* ((args (let ((temp-buffer (generate-new-buffer " *temp*")))
(save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (insert
transaction-text) (eshell-parse-arguments ... ...)) (and (buffer-name
temp-buffer) (kill-buffer temp-buffer)))))) (ledger-buf (current-buffer))
exit-code) (if insert-at-point nil (let ((date (car args))) (if (string-match
ledger-iso-date-regexp date) (setq date (encode-time 0 0 0 (string-to-number
(match-string 4 date)) (string-to-number (match-string 3 date))
(string-to-number (match-string 2 date))))) (ledger-xact-find-slot date))) (if
(> (length args) 1) (save-excursion (insert (let ((temp-buffer
(generate-new-buffer " *temp*"))) (save-current-buffer (set-buffer temp-buffer)
(unwind-protect (progn ... ... ...) (and ... ...)))) "\n")) (progn (insert (car
args) " \n\n") (end-of-line -1))))
ledger-add-transaction("ti. 2014-04-08")
call-interactively(ledger-add-transaction nil nil)
command-execute(ledger-add-transaction)
recursive-edit()
debug()
call-interactively(debug record nil)
command-execute(debug record)
execute-extended-command(nil "debug")
call-interactively(execute-extended-command nil nil)
command-execute(execute-extended-command)
--
Esben Stien is b0ef@e s a
http://www. s t n m
irc://irc. b - i . e/%23contact
sip:b0ef@ e e
jid:b0ef@ n n
--
---
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/d/optout.
