Jak uniknąć wyskakiwania bufora * Async Shell Command * w Emacs?

Question

My ~/.emacs zawiera następujące ustawienia otwierania niektórych plików z niektórych aplikacji (Ubuntu 12.10; Emacs 24):

(setq dired-guess-shell-alist-user 
     '(("\\.pdf\\'" "okular ? &") 
    ("\\.djvu\\'" "okular ? &") 
     ("\\.mp3\\'" "vlc ? &") 
    ("\\.mp4\\'" "vlc ? &") 
    )) 

Kiedy przejść do .pdf w dired-mode i uderzył !, otwiera .pdf w Okular , ale dired-bufor jest podzielony na dwie części, drugi teraz jest bezużyteczny bufor *Async Shell Command* zawierające treść jak

okular(25393)/kdecore (KConfigSkeleton) KCoreConfigSkeleton::writeConfig: 
okular(25393)/kdecore (KConfigSkeleton) KCoreConfigSkeleton::writeConfig: 
okular(25393)/kdecore (KConfigSkeleton) KCoreConfigSkeleton::writeConfig: 
okular(25393)/kdecore (KConfigSkeleton) KCoreConfigSkeleton::writeConfig: 

Jak mogę zapobiec tego bufora przed otwarciem? (z wyjątkiem, być może, jeśli wystąpił błąd i informacje te są przydatne).

znalazłem pytania związane here i here, ale wydają się radzić sobie z konkretnych poleceń wykonywanych asynchronicznie, zamiast *Async Shell Command* w ogóle (jeśli to możliwe, chciałbym zmienić zachowanie w ogóle do procesów asynchronicznych, a nie tylko dla niektórych typy plików)

Answer 1

nie jestem do końca pewien co robi to dla procesów asynchronicznych w ogóle, ale na wszystko, co przechodzi przez async-shell-command, to powinno działać:

(defadvice async-shell-command (around hide-async-windows activate) 
     (save-window-excursion 
      ad-do-it)) 

Answer 2

nieco bardziej skomplikowane zaklęcie s mógłbym dostać to, czego chcesz. Po prostu użyj polecenia powłoki, na przykład: (okular ? >& /dev/null &).

Nie testowałem tego z okularem, ale mogę zrobić M-!((echo foo; sleep 10; echo bar) >& /dev/null &) i Emacs natychmiast powraca bez tworzenia nowego bufora.

Answer 3

I rozwiązać problem, stosując tę ​​metodę:

;list of programs, corresponding to extensions 
(setq alist-programs 
     '(("pdf" ."okular") 
     ("djvu" . "okular") 
     ("mp3" . "xmms"))) 

(defun my-run-async-command (command file) 
    "Run a command COMMAND on the file asynchronously. 
    No buffers are created" 
    (interactive 
    (let ((file (car (dired-get-marked-files t current-prefix-arg)))) 
    (list 
     ;last element of alist-programs, contains COMMAND 
     (cdr 
     (assoc 
     (file-name-extension file) 
     alist-programs)) 
     file))) 
    ;begin of function body 
    (if command ;command if not nil? 
     (start-process "command" nil command file) 
    ) 
) 

;attach function to <f2> key 
(add-hook 'dired-mode-hook 
     (lambda() 
    (define-key dired-mode-map (kbd "<f2>") 'my-run-async-command))) 

Answer 4

uznał ten here:

(call-process-shell-command "okular&" nil 0) 

pracuje dla mnie. Bez stderr gobbledygook.

Answer 5

Niestety nie ma dobrego sposobu na uniknięcie tego bufora, ponieważ jest wywoływany bezpośrednio przez funkcję "powłoki-polecenia" ("async-shell-command" to tylko opakowanie).

Tak więc znacznie lepszym sposobem jest zamiana polecenia "async-shell-command" na "start-process". Powinieneś rozpocząć proces od "set-process-sentinel", aby wykryć moment, w którym proces wyemituje sygnał wyjściowy. Następnie zabij proces.

Answer 6

Pytanie zostało zadane w 2012 roku, a w czasie mojego pisania, najnowsza odpowiedź jest datowany 2015. Teraz, w 2017 roku, mogę powiedzieć, że odpowiedź jest prosta:

(add-to-list 'display-buffer-alist (cons "\\*Async Shell Command\\*.*" (cons #'display-buffer-no-window nil)))

Answer 7

Łączę się z odpowiedzią user1404316, ale tutaj jest inny ogólny sposób na osiągnięcie pożądanego rezultatu.

(defun async-shell-command-no-window 
    (command) 
    (interactive) 
    (let 
     ((display-buffer-alist 
     (list 
     (cons 
      "\\*Async Shell Command\\*.*" 
      (cons #'display-buffer-no-window nil))))) 
    (async-shell-command 
    command)))