From 696c7cff3e80a92b129de2a9e5c4e2c97379022e Mon Sep 17 00:00:00 2001 From: Lucien Cartier-Tilet Date: Mon, 20 Mar 2023 17:19:15 +0100 Subject: [PATCH] [Emacs] Simpler self-screenshot function --- org/config/emacs.org | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) diff --git a/org/config/emacs.org b/org/config/emacs.org index 39e0789..26562d4 100644 --- a/org/config/emacs.org +++ b/org/config/emacs.org @@ -574,11 +574,10 @@ As shown by the function `', type can weild the value `svg', This function will output in /tmp a file beginning with \"Emacs\" and ending with the extension of the requested TYPE." - (interactive) - (let* ((type (if type type - (intern (completing-read "Screenshot Type: " - '(png svg pdf postscript))))) - (extension (pcase type + (interactive (list + (intern (completing-read "Screenshot type: " + '(png svg pdf postscript))))) + (let* ((extension (pcase type ('png ".png") ('svg ".svg") ('pdf ".pdf")