Jaki jest najprostszy sposób otwarcia folderu zawierającego bieżący plik przez domyślnego eksploratora systemu operacyjnego (np. Explorer.exe w przypadku systemu operacyjnego Windows)?
Jaki jest najprostszy sposób otwarcia folderu zawierającego bieżący plik przez domyślnego eksploratora systemu operacyjnego (np. Explorer.exe w przypadku systemu operacyjnego Windows)?
Odpowiedzi:
Korzystanie browse-url-of-file
powinno działać po otrzymaniu katalogu.
Możesz zaimplementować polecenie otwierające katalog bieżącego pliku w następujący sposób:
(defun browse-file-directory ()
"Open the current file's directory however the OS would."
(interactive)
(if default-directory
(browse-url-of-file (expand-file-name default-directory))
(error "No `default-directory' to open")))
Następnie M-x browse-file-directorypowinien otworzyć katalog w przeglądarce plików systemu operacyjnego.
W przypadku MS Windows:
Załaduj bibliotekę w32-browser.el
i użyj polecenia w32explore
. Robi dokładnie to, o co prosisz. Zobacz MS Shell Execute .
Jeśli używasz również Dired +, to M-RET
nazwa pliku lub katalogu w Dired otwiera dla niego Eksploratora Windows .
najpierw skopiuj pełną ścieżkę do schowka:
;; you need install xsel under Linux
;; xclip has some problem when copying under Linux
(defun copy-yank-str (msg &optional clipboard-only)
(unless clipboard-only (kill-new msg))
(cond
;; display-graphic-p need windows 23.3.1
((and (display-graphic-p) x-select-enable-clipboard)
(x-set-selection 'CLIPBOARD msg))
(t (with-temp-buffer
(insert msg)
(shell-command-on-region (point-min) (point-max)
(cond
((eq system-type 'cygwin) "putclip")
((eq system-type 'darwin) "pbcopy")
(t "xsel -ib")))))))
(defun cp-fullpath-of-current-buffer ()
"copy full path into the yank ring and OS clipboard"
(interactive)
(when buffer-file-name
(copy-yank-str (file-truename buffer-file-name))
(message "file full path => clipboard & yank ring")))