Skip to content

Instantly share code, notes, and snippets.

@vkurup

vkurup/ledger-copy-entry-to-bottom.el

Created November 11, 2009 03:05
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save vkurup/231520 to your computer and use it in GitHub Desktop.
Save vkurup/231520 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
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)))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment