emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

tools/pdf: recognize modeline and doom-modeline

Browse source
This commit is contained in:
UndeadKernel 2018-09-26 12:55:22 +02:00
parent 9afc61e57e
commit 239c183b70
2 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

6
modules/tools/pdf/+modeline.el
View file

@ -4,16 +4,16 @@
"Current and total page indicator for PDF documents." "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)))
(if (featurep! :ui doom-modeline +new) (if (featurep! :ui modeline)
(def-modeline-format! '+pdf (def-modeline-format! '+pdf
'(+mode-line-bar " " +mode-line-buffer-id " " +pdf-pages) '(+mode-line-bar " " +mode-line-buffer-id " " +pdf-pages)
'(+mode-line-major-mode +mode-line-vcs)) '(+mode-line-major-mode +mode-line-vcs))
(def-modeline! '+pdf (def-modeline! '+pdf
'(bar matches " " buffer-info +pdf-pages) '(bar matches " " buffer-info " " +pdf-pages)
'(major-mode vcs))) '(major-mode vcs)))
(defun +pdf|init-modeline () (defun +pdf|init-modeline ()
(funcall (if (featurep! :ui doom-modeline +new) (funcall (if (featurep! :ui modeline)
#'set-modeline! #'set-modeline!
#'doom-set-modeline) #'doom-set-modeline)
'+pdf)) '+pdf))

2
modules/tools/pdf/config.el
View file

@ -30,7 +30,7 @@
;; Turn off cua so copy works ;; Turn off cua so copy works
(add-hook! 'pdf-view-mode-hook (cua-mode 0)) (add-hook! 'pdf-view-mode-hook (cua-mode 0))
;; Custom modeline that removes useless info and adds page numbers ;; Custom modeline that removes useless info and adds page numbers
(when (featurep! :ui doom-modeline) (when (or (featurep! :ui doom-modeline) (featurep! :ui modeline))
(load! "+modeline")) (load! "+modeline"))
;; Handle PDF-tools related popups better ;; Handle PDF-tools related popups better
(set-popup-rule! "^\\*Outline*" :side 'right :size 40 :select nil) (set-popup-rule! "^\\*Outline*" :side 'right :size 40 :select nil)