Cómo guardar archivos automáticamente al perder el foco en Emacs

Question

¿Es posible configurar Emacs, para que guarde todos los archivos cuando la ventana de emacs pierde el foco ?

Answer 1

Utilizo esto, solo funcionará si emacs se ejecuta bajo X (como probablemente lo haría en algo como ubuntu).

(when 
    (and (featurep 'x) window-system) 
(defvar on-blur--saved-window-id 0 "Last known focused window.") 
(defvar on-blur--timer nil "Timer refreshing known focused window.") 
(defun on-blur--refresh() 
    "Runs on-blur-hook if emacs has lost focus." 
    (let* ((active-window (x-window-property 
          "_NET_ACTIVE_WINDOW" nil "WINDOW" 0 nil t)) 
      (active-window-id (if (numberp active-window) 
           active-window 
           (string-to-number 
           (format "%x00%x" 
             (car active-window) 
             (cdr active-window)) 16))) 
      (emacs-window-id (string-to-number 
          (frame-parameter nil 'outer-window-id)))) 
    (when (and 
      (= emacs-window-id on-blur--saved-window-id) 
      (not (= active-window-id on-blur--saved-window-id))) 
     (run-hooks 'on-blur-hook)) 
    (setq on-blur--saved-window-id active-window-id) 
    (run-with-timer 1 nil 'on-blur--refresh))) 
(add-hook 'on-blur-hook #'(lambda() (save-some-buffers t))) 
(on-blur--refresh)) 

Answer 2

No estoy seguro si esto es lo que quiere.

(defun dld-deselect-frame-hook() 
    (save-some-buffers 1)) 

(add-hook 'deselect-frame-hook 'dld-deselect-frame-hook) 

Desde: http://www.dribin.org/dave/blog/archives/2003/09/10/emacs/

EDIT: Sólo parece funcionar en XEmacs

Answer 3

Puede usar `guardado automático de intervalo' para guardar cada n caracteres escritos. El mío está establecido en 100. ¿Entonces cada 2-3 líneas de código, tal vez?

auto-save-interval es una variable definida en el 'código fuente C'. Su valor es 100

Documentación: * Número de eventos de entrada entre guardado automático. Cero significa desactivar autoguardado debido al número de caracteres tipeado.

Puede personalizar esta variable.

Esto no responde a su pregunta original; es solo una manera de lograr algo similar.

Answer 4

[...] la característica de la que estoy hablando es de Scribes. Es muy conveniente cuando editando html y cosas por el estilo, usted no tiene tiene que presionar C-x C-s más, simplemente cambie la ventana y verifique su navegador.

En ese caso, en lugar de cambiar a la aplicación de navegador, ordenar Emacs para cargar la aplicación de navegador (C-c C-v o M-x browse-url-of-buffer). Con este método, puede escribir su propia función que guarda la memoria intermedia y luego trae el navegador arriba, como:

(defun my-browse-url-of-buffer() 
    "Save current buffer and view its content in browser." 
    (interactive) 
    (save-buffer) 
    (browse-url-of-buffer)) 

y el gancho a una unión conveniente.

O puede seguir utilizando el html-autoview-mode que cada vez que guarda el búfer, carga automáticamente el archivo en su navegador favorito.

Answer 5

He añadido focus hooks a Gnu Emacs 24.4.

Se llaman focus-in-hook y focus-out-hook.

Puede añadir

(defun save-all() 
    (interactive) 
    (save-some-buffers t)) 

(add-hook 'focus-out-hook 'save-all) 

a su archivo .emacs y debe guardar todos los archivos en la pérdida de concentración.