Geçerli dosyayı içeren klasörü işletim sisteminin varsayılan gezgini ile açmanın en kolay yolu nedir?


10

Geçerli dosyayı içeren klasörü işletim sisteminin varsayılan gezgini tarafından açmanın en kolay yolu nedir (örn. Windows işletim sistemindeki explorer.exe)?


1
Ben bulucu ile osx üzerinde çalışan bir önsezi (gözat-url-dosya varsayılan dizin) yapardı, ben windows ile çalışacağını düşünürdüm, ama test edemez.
Jordon Biondo

@JordonBiondo işe yarıyor! Lütfen yorumunuzu bir cevaba dönüştürün.
İsim

Yanıtlar:


14

browse-url-of-fileBir dizin verildiğinde kullanma özelliği çalışmalıdır.

Geçerli dosyanın dizinini şu şekilde açan bir komut uygulayabilirsiniz:

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

Ardından M-x browse-file-directorydizini işletim sisteminizin dosya tarayıcısında açmalısınız.


Windows'da emacs 25. * ile küçük bir uyumsuzluk olmuştur, ancak çözüm Windows'taki emacs 26.1 ile iyi çalışır.
İsim



1

Çalıştır shell-command( M+ !MS Windows için varsayılan kaşif programı ve geçerli klasörden, örneğin birlikte),explorer .


0

ilk önce panoya giden tam yolu kopyalayın:

;; 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")))
Sitemizi kullandığınızda şunları okuyup anladığınızı kabul etmiş olursunuz: Çerez Politikası ve Gizlilik Politikası.
Licensed under cc by-sa 3.0 with attribution required.