feat: add initial support for inotify-revert

Author: abougouffa

core/me-loaddefs.el

@@ -17,6 +17,29 @@ Mount eCryptfs' private directory." t)
 Unmount eCryptfs' private directory." t)
 (register-definition-prefixes "../elisp/ecryptfs" '("ecryptfs-"))
 
+
+;;; Generated autoloads from ../elisp/inotify-revert.el
+
+(autoload 'inotify-revert-mode "../elisp/inotify-revert" "\
+Like `auto-revert-mode', but faster.
+
+This is a minor mode.  If called interactively, toggle the
+`Inotify-revert mode' mode.  If the prefix argument is positive,
+enable the mode, and if it is zero or negative, disable the mode.
+
+If called from Lisp, toggle the mode if ARG is `toggle'.  Enable
+the mode if ARG is nil, omitted, or is a positive number.
+Disable the mode if ARG is a negative number.
+
+To check whether the minor mode is enabled in the current buffer,
+evaluate `inotify-revert-mode'.
+
+The mode's hook is called both when the mode is enabled and when
+it is disabled.
+
+(fn &optional ARG)" t)
+(register-definition-prefixes "../elisp/inotify-revert" '("inotify-revert-"))
+
 
 ;;; Generated autoloads from ../modules/extras/me-cocogitto.el
 

elisp/inotify-revert.el

@@ -0,0 +1,58 @@
+;;; inotify-revert.el --- Auto-revert using inotify -*- lexical-binding: t; -*-
+
+;; Copyright (c) 2019 fmdkdd
+;;
+;; Author: fmdkdd
+
+;; This file is not part of GNU Emacs.
+
+;;; Commentary:
+
+;; Like auto-revert-mode, but without the weird lag.
+;;
+;; auto-revert-mode supposedly uses inotify thourgh filenotify, and reverts to
+;; polling when inotify fails.  On my machine, auto-revert can take up to 1sec
+;; to revert a file that has changed, while using this mode is instantaneous.
+
+;; From: https://github.com/fmdkdd/dotfiles/blob/master/emacs/.emacs.d/elisp/inotify-revert.el
+
+;;; Code:
+
+(require 'filenotify)
+
+(defvar-local inotify-revert--descriptor nil
+  "The filenotify descriptor for the current buffer.")
+
+(defun inotify-revert-activate ()
+  "Start watching the current buffer's file for changes."
+  (when buffer-file-name
+    (let ((buffer (current-buffer)))
+      (setq inotify-revert--descriptor
+            (file-notify-add-watch
+             buffer-file-name '(change)
+             ;; Using a lambda to capture the buffer, instead of a handler in a
+             ;; separate defun
+             (lambda (event)
+               (when (eq (nth 1 event) 'changed)
+                 (with-current-buffer buffer
+                   (revert-buffer 'ignore-auto 'noconfirm)))))))))
+
+(defun inotify-revert-deactivate ()
+  "Unsubscribe to the current buffer's file changes."
+  (when inotify-revert--descriptor
+    (file-notify-rm-watch inotify-revert--descriptor)
+    (kill-local-variable inotify-revert--descriptor)))
+
+;;;###autoload
+(define-minor-mode inotify-revert-mode
+  "Like `auto-revert-mode', but faster."
+  :lighter " revert"
+  (cond
+   (inotify-revert-mode
+    (inotify-revert-activate))
+   ((not inotify-revert-mode)
+    (inotify-revert-deactivate))))
+
+(provide 'inotify-revert)
+
+;;; inotify-revert.el ends here