Qual é a maneira mais fácil de abrir a pasta que contém o arquivo atual pelo explorador padrão do sistema operacional?


10

Qual é a maneira mais fácil de abrir a pasta que contém o arquivo atual pelo explorador padrão do sistema operacional (por exemplo, explorer.exe no caso do sistema operacional Windows)?


11
Eu tenho um palpite (diretório-padrão de procurar-url-de-arquivo) faria isso, que funciona no osx com o finder, acho que funcionaria com o windows, mas não posso testá-lo.
Jordon Biondo

@JordonBiondo funciona! Por favor, converta seu comentário em uma resposta.
Nome

Respostas:


14

O uso browse-url-of-filedeve funcionar quando um diretório é fornecido.

Você pode implementar um comando que abre o diretório do arquivo atual como este:

(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")))

Em seguida M-x browse-file-directory, abra o diretório no navegador de arquivos do seu sistema operacional.


Houve uma pequena incompatibilidade com o emacs 25. * no Windows, mas a solução funciona bem com o emacs 26.1 no Windows.
Name

Seria possível obter o arquivo selecionado, como no VS? Veja o truque 20 em dev.to/devmount/23-lesser-known-vs-code-shortcuts-as-gif-80
user3341592


1

Execute shell-command( M+ !) com o programa explorer padrão e a pasta atual, por exemplo, para MS Windows,explorer .


0

copie o caminho completo para a área de transferência primeiro:

;; 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")))
Ao utilizar nosso site, você reconhece que leu e compreendeu nossa Política de Cookies e nossa Política de Privacidade.
Licensed under cc by-sa 3.0 with attribution required.