(defun a/nsxiv ()
  (interactive)
  (let ((current (dired-current-directory)))
    (async-shell-command (concat "nsxiv " current) "*Messages*"))
  (other-window 1)
  (evil-quit))

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