awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-09-18 16:06:56 -05:00
Code Issues Packages Projects Releases Wiki Activity

lang/pdf: fix compatibility with +new modeline

Browse Source
This commit is contained in:
Henrik Lissner
2018-07-25 15:37:24 +02:00
parent 9abafcf74a
commit df233eb1a9
2 changed files with 16 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
modules/tools/pdf/+modeline.el
View File

@@ -2,8 +2,19 @@
(def-modeline-segment! +pdf-pages
"Current and total page indicator for PDF documents."
(format " P %d/%d" (pdf-view-current-page) (pdf-cache-number-of-pages)))
(format "P %d/%d" (pdf-view-current-page) (pdf-cache-number-of-pages)))
(def-modeline! pdf-tools-modeline
(bar matches " " buffer-info +pdf-pages)
(major-mode vcs))
(if (featurep! :ui doom-modeline +new)
(def-modeline-format! '+pdf
'(+mode-line-bar " " +mode-line-buffer-id " " +pdf-pages)
'(+mode-line-major-mode +mode-line-vcs))
(def-modeline! '+pdf
'(bar matches " " buffer-info +pdf-pages)
'(major-mode vcs)))
(defun +pdf|init-modeline ()
(funcall (if (featurep! :ui doom-modeline +new)
#'set-modeline!
#'doom-set-modeline)
'+pdf))
(add-hook 'pdf-tools-enabled-hook #'+pdf|init-modeline)