Emacs as Pager

emacs-pager

#!/usr/bin/env bash
set -e

#  Emacs as pager
#
#  Author: gongqijian@gmail.com
#  Created: 2021-06-06 16.08.51
#  Version: 0.1
#
#  Installation:
#
#  ┌────
#  │ cp ./emacs-pager /usr/local/bin/emacs-pager
#  │ echo 'export PAGER="MAN_PAGE=1 emacs-pager"' >> ~/.bashrc
#  │ echo 'export GIT_PAGER="emacs-pager"' >> ~/.bashrc
#  └────

emacs -Q -nw --eval "\
(progn
  (setq inhibit-startup-screen t)
  (add-hook 'emacs-startup-hook
            (lambda ()
              (if (string= \"${MAN_PAGE}\" \"\")
                  (progn
                    (require 'ansi-color)
                    (ansi-color-apply-on-region (point-min) (point-max))
                    (fundamental-mode))
                (require 'woman)
                (save-excursion
                  (if (re-search-forward \"^[.']\" 1000 t)
                      (woman-decode-buffer)
                    (woman-man-buffer)))
                (woman-mode))
              (read-only-mode 1))))" --insert <(cat) </dev/tty

# emacs-pager ends here

man git-log

git log --oneline