From 393604e5bf4ce15df7342fdc094900fd1be2b39f Mon Sep 17 00:00:00 2001 From: JSDurand Date: Mon, 8 Feb 2021 23:36:26 +0800 Subject: Constantly growing A lot of improvements. --- modeline.el | 28 +++++++++++++++------------- 1 file changed, 15 insertions(+), 13 deletions(-) (limited to 'modeline.el') diff --git a/modeline.el b/modeline.el index 12893ea..6def3e3 100644 --- a/modeline.el +++ b/modeline.el @@ -327,19 +327,21 @@ W is the width, H is the height of the bar." "The position of the cursor to be displayed in the mode line." (cond ((derived-mode-p 'pdf-view-mode) - (modeline-propertize - (propertize - (let ((current (pdf-view-current-page)) - (total (pdf-info-number-of-pages))) - (concat - "P." - (number-to-string current) - "/" - (number-to-string total))) - 'face (cond - ((modeline-active-window-p) 'mode-line) - (t 'mode-line-inactive))) - nil "Current page / Total pages")) + (concat + (modeline-propertize + (propertize + (let* ((current (pdf-view-current-page)) + (total (pdf-info-number-of-pages)) + ) + (concat + "P." + (number-to-string current) + "/" + (number-to-string total))) + 'face (cond + ((modeline-active-window-p) 'mode-line) + (t 'mode-line-inactive))) + nil "Current page / Total pages"))) (t (modeline-propertize (propertize -- cgit v1.2.3-18-g5258