From b18ffaeaf14054ca34ce627b441772085ad9efe4 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?St=C3=A9phane=20Maniaci?= Date: Sat, 1 May 2021 11:29:22 +0100 Subject: [PATCH] screenshot: cleanup the code --- lib/take-screenshot.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/lib/take-screenshot.el b/lib/take-screenshot.el index 986864f..b361270 100644 --- a/lib/take-screenshot.el +++ b/lib/take-screenshot.el @@ -10,8 +10,8 @@ :width 'normal :height 180) -(setq org-startup-folded nil) -(setq frame-resize-pixelwise t) +(setf org-startup-folded nil + frame-resize-pixelwise t) (require 'package) (package-initialize) @@ -90,11 +90,11 @@ (message (error-message-string err))))) (defun fetch-and-load-theme-inner (theme-name) - "Get and install THEME-NAME of package type KIND and VERSION before taking a screenshot of it." + "Get and install THEME-NAME." (peach--ensure-clean-install theme-name) (let ((current-themes (custom-available-themes))) (peach--install theme-name) - (let ((possible-themes (set-difference (custom-available-themes) current-themes))) + (let ((possible-themes (seq-difference (custom-available-themes) current-themes))) (if (seq-empty-p possible-themes) (signal 'peach-no-theme-to-load (list theme-name))) (toggle-frame-fullscreen)