10 lines
333 B
EmacsLisp
10 lines
333 B
EmacsLisp
;;; tools/pdf/+modeline.el -*- lexical-binding: t; -*-
|
|
|
|
|
|
(def-modeline-segment! +pdf-tools-pages
|
|
"Current and total page indicator for PDF documents."
|
|
(format " P %d/%d" (pdf-view-current-page) (pdf-cache-number-of-pages)))
|
|
|
|
(def-modeline! pdf-tools-modeline
|
|
(bar matches " " buffer-info +pdf-tools-pages)
|
|
(major-mode vcs))
|