Create a gist now

Instantly share code, notes, and snippets.

; 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)))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment