From fdbc4e7f214335e39bddd2842808e0871ef666aa Mon Sep 17 00:00:00 2001 From: fpi Date: Sat, 22 Aug 2020 18:35:43 +0200 Subject: Add function to create svg screenshots --- emacs-init.org | 18 ++++++++++++++++++ 1 file changed, 18 insertions(+) diff --git a/emacs-init.org b/emacs-init.org index 8995856..c7025e3 100644 --- a/emacs-init.org +++ b/emacs-init.org @@ -47,6 +47,7 @@ - [[#bbdb][BBDB]] - [[#compile][Compile]] - [[#context-aware-hydra][Context aware hydra]] + - [[#minor-utilities][Minor utilities]] - [[#language-settings][Language settings]] - [[#spellcheck][Spellcheck]] - [[#interface][Interface]] @@ -5310,6 +5311,23 @@ _q_ quit _r_ remove result _e_ examplify region ("/" ibuffer-filter-disable "disable") ("b" hydra-ibuffer-main/body "back" :color blue)) #+END_SRC +** Minor utilities +*** Screenshots / -casts +[[https://gitlab.com/ambrevar/emacs-gif-screencast][Here]] is a guide to creating emacs gif screencasts. + +If compiled with =cairo= support emacs can directly create svg screenshots ([[https://www.reddit.com/r/emacs/comments/idz35e/emacs_27_can_take_svg_screenshots_of_itself/][source]]). +#+begin_src emacs-lisp +(defun screenshot-svg () + "Save a screenshot of the current frame as an SVG image. +Saves to a temp file and puts the filename in the kill ring." + (interactive) + (let* ((filename (make-temp-file "Emacs-" nil ".svg")) + (data (x-export-frames nil 'svg))) + (with-temp-file filename + (insert data)) + (kill-new filename) + (message filename))) +#+end_src * Language settings End sentences with single spaces. #+begin_src emacs-lisp -- cgit v1.2.3