Re: Emacs pager?

[kai.grossjohann@uni-duisburg.de (Kai Großjohann)]

Tim X <timx@spamto.devnul.com> writes:

> Actually, on a serious note, if you do maintain an emacs session (I
> start mine at boot and only close it down when I turn-off/reboot -
> about 2-4 times a year), you should be able to setup the emacs server
> or gnuserv and a fake "more/less" so that the file is sent to emacs
> and you can do your paging there.

I like to use eshell.  Very nifty.  Here is my version of less for
eshell:

(defun eshell/less (&rest args)
  "Invoke `view-file' on the file.
\"less +42 foo\" also goes to line 42 in the buffer."
  (while args
    (if (string-match "\\`\\+\\([0-9]+\\)\\'" (car args))
        (let* ((line (string-to-number (match-string 1 (pop args))))
               (file (pop args)))
          (view-file file)
          (goto-line line))
      (view-file (pop args)))))

The voodoo is for the line numbers.  If you don't need it, this should
do, as well:

(defun eshell/less (&rest args)
  "Invoke `view-file' on the given file(s)."
  (while args (view-file (pop args))))

You can configure the key bindings of view-file, too.  view-mode-map
is the variable I believe.

-- 
~/.signature is: umop ap!sdn    (Frank Nobis)