(defun a/nsxiv () (interactive) (let ((current (dired-current-directory))) (async-shell-command (concat "nsxiv " current) "*Messages*"))) (defun a/pcmanfm () (interactive) (let ((current (dired-current-directory))) (async-shell-command (concat "pcmanfm " current) "*Messages*")))