Create a gist now

Instantly share code, notes, and snippets.

What would you like to do?
; i'm an elisp newbie
(defun vk-copy-ledger-entry-to-bottom ()
"Copy the current transaction to the bottom of the ledger"
(re-search-backward "^[12][90]")
(let ((beg (point)))
(re-search-forward "^[12][90]")
(copy-region-as-kill beg (point))
(goto-char (point-max))
(yank '(non nil list))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment