Я ищу способ периодически проверять, были ли файлы в определенном каталоге изменены с последней проверки (функциональность аналогична демону FAM или gio.monitor_directory). В emacs lisp.
(defun install-monitor (file secs)
(run-with-timer
0 secs
(lambda (f p)
(unless (< p (second (time-since (elt (file-attributes f) 5))))
(message "File %s changed!" f)))
file secs))
(defvar monitor-timer (install-monitor "/tmp" 5)
"Check if /tmp is changed every 5s.")
Отменить,
(cancel-timer monitor-timer)
Как упоминал mankoff, приведенный выше фрагмент кода отслеживает изменение файла за последние 5 секунд, а не с момента последней проверки. Чтобы достичь последнего, нам нужно будет сохранять атрибуты каждый раз, когда мы проводим проверку. Надеюсь, это сработает:
(defvar monitor-attributes nil
"Cached file attributes to be monitored.")
(defun install-monitor (file secs)
(run-with-timer
0 secs
(lambda (f p)
(let ((att (file-attributes f)))
(unless (or (null monitor-attributes) (equalp monitor-attributes att))
(message "File %s changed!" f))
(setq monitor-attributes att)))
file secs))
(defvar monitor-timer (install-monitor "/tmp" 5)
"Check if /tmp is changed every 5s.")
У меня нет подходящего решения, но может быть пара указателей, которые укажут вам правильное направление.
Согласно некоторому быстрому поиску в Google кажется, что dbus имеет встроенный интерфейс inotify. Начиная с последней версии emacs, вы можете получить доступ к интерфейсу dbus через Emacs lisp (по крайней мере, под Linux), возможно, вы можете соединить все это вместе, чтобы оно работало. См. Здесь пример использования dbus с Emacs:
http://emacs-fu.blogspot.com/2009/01/using-d-bus-example.html
Emacs связан с различными библиотеками наблюдателей файловых систем и представляет единый интерфейс в filenotify.el.
