emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

nit(beancount): revise docstrings & sharp-quotes functions

Browse source
This commit is contained in:
Henrik Lissner 2023-09-20 15:44:29 +02:00
parent a4d95674ec
commit 96e6b72be6
No known key found for this signature in database
GPG key ID: B60957CA074D39A3
1 changed files with 11 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

19
modules/lang/beancount/autoload.el
View file

@ -3,7 +3,7 @@
;;
;;; Helpers
;; Lifted from ledger
;; Lifted from ledger-mode
(defconst +beancount--payee-any-status-regex
"^[0-9]+[-/][-/.=0-9]+\\(\\s-+\\*\\)?\\(\\s-+(.*?)\\)?\\s-+\\(.+?\\)\\s-*\\(;\\|$\\)")
@ -111,9 +111,9 @@ If REVERSE (the prefix arg) is non-nil, sort the transactions in reverst order."
(let ((inhibit-field-text-motion t))
(sort-subr
reverse
'+beancount--navigate-next-xact
'+beancount--navigate-end-of-xact
'+beancount--sort-startkey))))
#'+beancount--navigate-next-xact
#'+beancount--navigate-end-of-xact
#'+beancount--sort-startkey))))
(goto-char (point-min))
(re-search-forward (regexp-quote target-xact))
(goto-char (+ (match-beginning 0) point-delta))))
@ -121,14 +121,16 @@ If REVERSE (the prefix arg) is non-nil, sort the transactions in reverst order."
(defvar compilation-read-command)
;;;###autoload
(defun +beancount/balance ()
"Run 'bean-report bal'."
"Display a balance report with bean-report (bean-report bal)."
(interactive)
(let (compilation-read-command)
(beancount--run "bean-report" buffer-file-name "bal")))
;;;###autoload
(defun +beancount/clone-transaction ()
"TODO"
"Clones a transaction from (and to the bottom of) the current ledger buffer.
Updates the date to today."
(interactive)
(save-restriction
(widen)
@ -144,8 +146,9 @@ If REVERSE (the prefix arg) is non-nil, sort the transactions in reverst order."
;;;###autoload
(defun +beancount/clone-this-transaction (&optional arg)
"Copy the current transaction to the bottom of the ledger.
Updates the date to today"
"Clones the transaction at point to the bottom of the ledger.
Updates the date to today."
(interactive "P")
(if (and (not arg) (looking-at-p "^$"))
(call-interactively #'+beancount/clone-transaction)