daniel/emacs
1
2
Fork 0
Code Issues 7 Pull Requests Projects Releases Wiki Activity

update packages

Browse Source
This commit is contained in:
Daniel Weschke
2022-01-04 21:35:17 +01:00
parent 1d5275c946
commit 8de00e5202
700 changed files with 42441 additions and 85378 deletions
Download Patch File Download Diff File Expand all files Collapse all files

37
lisp/ledger-mode/ledger-xact.el
View File

@@ -40,6 +40,13 @@
:type 'boolean
:group 'ledger)
(defcustom ledger-add-transaction-prompt-for-text t
"When non-nil, use ledger xact to format transaction.
When nil, `ledger-add-transaction' will not prompt twice."
:type 'boolean
:package-version '(ledger-mode . "4.0.1")
:group 'ledger)
(defvar-local ledger-xact-highlight-overlay (list))
(defun ledger-highlight-make-overlay ()
@@ -117,26 +124,26 @@ MOMENT is an encoded date"
(let* ((now (current-time))
(current-year (nth 5 (decode-time now))))
(while (not (eobp))
(when (looking-at ledger-iterate-regex)
(let ((found-y-p (match-string 2)))
(when (looking-at ledger-iterate-regexp)
(let ((found-y-p (match-string 1)))
(if found-y-p
(setq current-year (string-to-number found-y-p)) ;; a Y directive was found
(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))
(desc (match-string 9)))
(year (match-string (+ ledger-regex-iterate-group-actual-date 1)))
(month (string-to-number (match-string (+ ledger-regex-iterate-group-actual-date 2))))
(day (string-to-number (match-string (+ ledger-regex-iterate-group-actual-date 3))))
(state (match-string ledger-regex-iterate-group-state))
(payee (match-string ledger-regex-iterate-group-payee)))
(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)))))
state payee)))))
(forward-line))))
(defcustom ledger-copy-transaction-insert-blank-line-after nil
"Non-nil means insert blank line after a transaction inserted with ‘ledger-copy-transaction-at-point’."
"When non-nil, insert a blank line after `ledger-copy-transaction-at-point'."
:type 'boolean
:group 'ledger)
@@ -172,14 +179,10 @@ MOMENT is an encoded date"
(defun ledger-read-transaction ()
"Read the text of a transaction, which is at least the current date."
(let* ((reference-date (or ledger-add-transaction-last-date (current-time)))
(full-date-string (ledger-format-date reference-date))
;; Pre-fill year and month, but not day: this assumes DD is the last format arg.
(initial-string (replace-regexp-in-string "[0-9]+$" "" full-date-string))
(entered-string (ledger-read-date "Date: ")))
(if (string= initial-string entered-string)
full-date-string
entered-string)))
(let ((date (ledger-read-date "Date: ")))
(concat date " "
(when ledger-add-transaction-prompt-for-text
(read-string (concat "xact " date ": ") nil 'ledger-minibuffer-history)))))
(defun ledger-parse-iso-date (date)
"Try to parse DATE using `ledger-iso-date-regexp' and return a time value or nil."