12 lines
330 B
EmacsLisp
12 lines
330 B
EmacsLisp
(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*")))
|