1 files changed, 11 insertions, 0 deletions
diff --git a/shoshimacs.el b/shoshimacs.el
index 4a0cdba..3d5659c 100644
--- a/shoshimacs.el
+++ b/shoshimacs.el
@@ -276,4 +276,15 @@
 
 (package-install 'autothemer)
 
+(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)))
+
 (package-install 'windresize)