From c21340b577d0d7caf362286a307d4b3397811fbf Mon Sep 17 00:00:00 2001 From: MagicRB Date: Tue, 3 Oct 2023 23:48:27 +0200 Subject: [PATCH] Fix dirvish wallpaper apply command Signed-off-by: MagicRB --- emacs-lisp/dirvish.org | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/emacs-lisp/dirvish.org b/emacs-lisp/dirvish.org index 692dbca..03e84ac 100644 --- a/emacs-lisp/dirvish.org +++ b/emacs-lisp/dirvish.org @@ -138,10 +138,12 @@ In sideview Dirvish buffers, I don't want ~RET~ to narrow to a directory, it mak (defun dirvish-apply-wallpaper () (interactive) (let ((filename (or (dired-get-filename) (completing-read)))) - (async-shell-command (format "feh %s" filename)))) + (async-shell-command (format "ln -sf %s /nix/persist/home/main/.config/wallpaper && systemctl restart --user wallpaper" filename)))) (defun dirvish-side-obey-display-actions (original-function &rest original-arguments) (let ((switch-to-buffer-obey-display-actions nil)) (apply original-function original-arguments))) (advice-add 'dirvish-side :around #'dirvish-side-obey-display-actions) #+end_src + +#+RESULTS: