Skip to content

Instantly share code, notes, and snippets.

@gigawhitlocks
Created January 27, 2016 23:28
Show Gist options
  • Save gigawhitlocks/396f35a9f325deee302b to your computer and use it in GitHub Desktop.
Save gigawhitlocks/396f35a9f325deee302b to your computer and use it in GitHub Desktop.
emacs gif creator
(defun gif-emacs (duration)
(interactive "sDuration: ")
(start-process "emacs-to-gif" nil
"byzanz-record"
"-d" duration
"-w" (number-to-string (+ 5 (frame-pixel-width)))
"-h" (number-to-string (+ 50 (frame-pixel-height)))
"-x" (number-to-string (frame-parameter nil 'left))
"-y" (number-to-string (+ (frame-parameter nil 'top) 10))
(concat "~/emacs_gifs/" (format-time-string "%Y-%m-%dT%T") ".gif")))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment