Can you tell me exactly what you entered to get this error? On Mon, Apr 7, 2014 at 4:27 PM, Esben Stien <[email protected]> wrote: > > 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.
-- 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/d/optout.
