ledger-copy-entry-to-bottom.el

; i'm an elisp newbie

(defun vk-copy-ledger-entry-to-bottom ()
  "Copy the current transaction to the bottom of the ledger"
  (interactive)
  (re-search-backward "^[12][90]")
  (let ((beg (point)))
    (forward-char)
    (re-search-forward "^[12][90]")
    (beginning-of-line)
    (copy-region-as-kill beg (point))
    (goto-char (point-max))
    (yank '(non nil list))
    (forward-word)
    (forward-char)))