Apa cara termudah untuk membuka folder yang berisi file saat ini oleh explorer default OS (misalnya explorer.exe dalam kasus OS Windows)?
Apa cara termudah untuk membuka folder yang berisi file saat ini oleh explorer default OS (misalnya explorer.exe dalam kasus OS Windows)?
Jawaban:
Penggunaan browse-url-of-file
harus berfungsi saat diberikan direktori.
Anda bisa menerapkan perintah yang membuka direktori file saat ini seperti ini:
(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")))
Maka M-x browse-file-directoryharus membuka direktori di browser file OS Anda.
Untuk MS Windows:
Muat perpustakaan w32-browser.el
dan gunakan perintah w32explore
. Itu tidak persis apa yang Anda minta. Lihat Menjalankan MS Shell .
Jika Anda juga menggunakan Dired + maka M-RET
pada file atau nama dir di Dired membuka Windows Explorer untuk itu.
salin path lengkap ke clipboard pada awalnya:
;; 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")))