Add peek-file

emacs.el

@@ -2392,10 +2392,36 @@ Any output will be written to current buffer."
 ;;;;;;;;;;;;;;;;;;;
 ;; peek-file-mode
 
+(defvar peek-file-buffers
+  ()
+  "Peek buffers.")
+
 (defun peek-file (file)
   "Peek FILE."
-  (interactive)
-  (message "%s" file))
+  (interactive "fFile to peek: ")
+  (with-current-buffer (find-file file)
+    (peek-file-mode)))
+
+(define-minor-mode peek-file-mode
+  "Peek file mode."
+  :lighter "PK"
+  (view-mode peek-file-mode)
+  (add-to-list 'peek-file-buffers
+               (current-buffer))
+  (add-hook 'switch-buffer-functions
+            'peek-file-remove-buffers))
+
+(defun peek-file-remove-buffers (&args _)
+  "Remove peek file buffers."
+  (cl-dolist (buf (cl-copy-list peek-file-buffers))
+    (unless (get-buffer-window buf t)
+      (setq peek-file-buffers
+            (delq buf
+                  peek-file-buffers))
+      (with-current-buffer buf
+        (when peek-file-mode
+          (kill-buffer))))))
+
 
 ;;;;;;;;;;;;;;;;;;;;
 ;; remember-projectile