wallpreview

Abstract

The wallpreview is an Emacs package. It allows you to preview images and set the selected one as the wallpaper in the image-dired mode.

A running example is as below.

Installation

You can install it from Melpa.

Usage

Toggle wallpreview if type wallpreview-toggle-key(w is the default key) in *image-dired*. When you select an image, wallpreview pass the path of the image to wallpreview-wallpaper-cmd. You can configure wallpreview-wallpaper-cmd to make it change the wallpaper of your environment. #'wallpreview--sway-bg binds wallpreview-wallpaper-cmd as defaut, and the defintion is as below.

(defun wallpreview--set-wallpaper (&optional arg)
  "Set a background as ARG.
If arg is nil, use the forcused image."
  (interactive "fBackground image: ")
  (let ((wallpaper-path (or arg (image-dired-original-file-name))))
    (call-process-shell-command
     (concat (apply wallpreview-wallpaper-cmd (list wallpaper-path)) "&")
     nil 0)))

M-x wallpreview-open-wallpaper-directory opens wallpreview-wallpaper-directory in image-dired, and turns on wallpreview.