emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/vlf 8787186 055/310: Show paging according to batch siz


From: Stefan Monnier
Subject: [elpa] externals/vlf 8787186 055/310: Show paging according to batch size instead of percentage.
Date: Sat, 28 Nov 2020 00:32:46 -0500 (EST)

branch: externals/vlf
commit 87871866190537f0889441db44b8b396c172ab47
Author: Andrey Kotlarski <m00naticus@gmail.com>
Commit: Andrey Kotlarski <m00naticus@gmail.com>

    Show paging according to batch size instead of percentage.
---
 vlfi.el | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

diff --git a/vlfi.el b/vlfi.el
index 37db8cc..6850b6f 100644
--- a/vlfi.el
+++ b/vlfi.el
@@ -101,10 +101,11 @@ with the prefix argument DECREASE it is halved."
 
 (defun vlfi-format-buffer-name ()
   "Return format for vlfi buffer name."
-  (format "%s(%s)[%.2f%%%%](%d)"
+  (format "%s(%s)[%d/%d](%d)"
           (file-name-nondirectory buffer-file-name)
           (file-size-human-readable vlfi-file-size)
-          (/ (* 100 vlfi-end-pos) (float vlfi-file-size))
+          (/ vlfi-end-pos vlfi-batch-size)
+          (/ vlfi-file-size vlfi-batch-size)
           vlfi-batch-size))
 
 (defun vlfi-update-buffer-name ()
@@ -120,7 +121,7 @@ When prefix argument is negative
   (interactive "p")
   (let ((end (+ vlfi-end-pos (* vlfi-batch-size
                                 (abs append)))))
-    (when (< vlfi-file-size end)               ; re-check file size
+    (when (< vlfi-file-size end)        ; re-check file size
       (setq vlfi-file-size (nth 7 (file-attributes buffer-file-name)))
       (cond ((= vlfi-end-pos vlfi-file-size)
              (error "Already at EOF"))
@@ -197,7 +198,7 @@ Adjust according to file start/end and show 
`vlfi-batch-size' bytes."
 
 (defun vlfi-move-to-chunk (start end)
   "Move to chunk determined by START END."
-  (if (< vlfi-file-size end)          ; re-check file size
+  (if (< vlfi-file-size end)            ; re-check file size
       (setq vlfi-file-size (nth 7
                                 (file-attributes buffer-file-name))))
   (setq vlfi-start-pos (max 0 start)
@@ -452,7 +453,7 @@ Remaining part of the file ["
                  (goto-char (point-max))
                  (insert-file-contents buffer-file-name nil
                                        vlfi-end-pos vlfi-file-size)
-                 (when (< 0 size-change)  ; pad with empty characters
+                 (when (< 0 size-change) ; pad with empty characters
                    (goto-char (point-max))
                    (insert-char 32 size-change))
                  (vlfi-write-1)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]