10 lines
297 B
EmacsLisp
10 lines
297 B
EmacsLisp
|
(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*")))
|