Midnight commander quick view.

[Alin Soare <as1789@gmail.com>]

I sent a stub for quick-view like in mc a few weeks ago.

I sent here the latest version that I have been using for more than 10
days, and it seems stable. I did not need to modify it in the last past
10 days, even if I used it each day many times.

Switch qv on and off is done with C-c C-q . It is buffer local. If we
change the directory in dired, we have to reactivate it.


;;; -*- lexical-binding:t -*-

(require 'dired)

(defun qv ()
  (let ((config (current-window-configuration))
        (max-size 1e4)
        (qv-buffer (get-buffer-create "*quick view*")))
    (defvar exit-keybinding
      (lambda (&optional arg)
        (interactive)
        (apply quick-view-object (list 'exit))))
    (defvar init-keybinding
      (lambda (&optional arg)
        (interactive)
        (setq-local quick-view-object (qv))
        (apply quick-view-object '(init))
        (message "enter quick view")))
    (defun get-key () init-keybinding)
    (defun update ()
      (let ((f (dired-get-filename nil t)))
        (defun file-not-readable-p ()
          (and (stringp f)
               (file-regular-p f)
               (not (file-readable-p f))))
        (defun regular-file-p ()
          (and (stringp f)
               (file-regular-p f)
               (file-readable-p f)))
        (defun already-opened-file-p ()
          (and (stringp f)
               (file-regular-p f)
               (get-file-buffer f)))
        (with-current-buffer qv-buffer
          (setq buffer-read-only nil)
          (cond ((already-opened-file-p)
                 (erase-buffer)
                 (insert-buffer-substring (get-file-buffer f)))
                ((regular-file-p)
                 (erase-buffer)
                 (insert-file-contents-literally
                  f nil 0 (min max-size (nth 7 (file-attributes f))))
                 (and (< max-size (nth 7 (file-attributes f)))
                      (message "header preview truncated at byte %d" max-size)))
                ((file-not-readable-p)
                 (erase-buffer)
                 (insert "-- file not readble --"))
                (t (erase-buffer)
                   (insert "-- no file at point --")))
          (set-buffer-modified-p nil)
          (setq buffer-read-only t
                buffer-file-name nil))))
    (defun init ()
      (delete-other-windows)
      (split-window-sensibly)
      (balance-windows)
      (with-selected-window
          (save-window-excursion (other-window 1)
                                 (selected-window))
        (switch-to-buffer qv-buffer)
        (setq buffer-undo-list t))
      (add-hook 'post-command-hook 'update 'at-the-end t)
      (define-key dired-mode-map [(control ?c) (control ?q)]
        exit-keybinding)
      (setq undo-outer-limit max-size)
      (dired-hide-details-mode +1))
    (defun exit ()
      (setq-local quick-view-object nil)
      (remove-hook 'post-command-hook 'update t)
      (define-key dired-mode-map [(control ?c) (control ?q)]
        init-keybinding )
      (kill-buffer qv-buffer)
      (dired-hide-details-mode -1)
      (set-window-configuration config)
      (message "exit qv"))
    (lambda (message) (apply message '()))))

(define-key dired-mode-map [(control ?c) (control ?q)]
  (apply (qv) '(get-key)))







-- 
No GNUs is bad news.