From 1d4fea774db92b91beb265ffeba84f3e9c0545f1 Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Sat, 7 Nov 2015 20:17:35 -0500 Subject: [PATCH] Show :All if full buffer is visible --- core/core-ui.el | 14 ++++++++++---- 1 file changed, 10 insertions(+), 4 deletions(-) diff --git a/core/core-ui.el b/core/core-ui.el index d1ee5ffeb..478d79984 100644 --- a/core/core-ui.el +++ b/core/core-ui.el @@ -227,10 +227,16 @@ (spaceline-define-segment narf-buffer-position "A more vim-like buffer position." - (let ((perc (/ (window-end) 0.01 (point-max)))) - (cond ((eq (window-start) 1) ":Top") - ((>= perc 100) ":Bot") - (t (format ":%d%%%%" perc)))) + (let ((start (window-start)) + (end (window-end)) + (pend (point-max))) + (if (and (eq start 1) + (eq end pend)) + ":All" + (let ((perc (/ end 0.01 pend))) + (cond ((eq start 1) ":Top") + ((>= perc 100) ":Bot") + (t (format ":%d%%%%" perc)))))) :tight-right t) (spaceline-define-segment narf-vc