mirror of
https://github.com/m00natic/vlfi.git
synced 2025-01-31 10:10:48 +00:00
Remove clutter form file name indicators.
This commit is contained in:
parent
30e495901b
commit
fb9aa670cc
12
vlfi.el
12
vlfi.el
@ -95,13 +95,11 @@ with the prefix argument DECREASE it is halved."
|
|||||||
|
|
||||||
(defun vlfi-format-buffer-name ()
|
(defun vlfi-format-buffer-name ()
|
||||||
"Return format for vlfi buffer name."
|
"Return format for vlfi buffer name."
|
||||||
(let ((vlfi-file-size-float (float vlfi-file-size)))
|
(format "%s(%s)[%.2f%%%%](%d)"
|
||||||
(format "%s(%s)[%.2f-%.2f%%%%](%d)"
|
(file-name-nondirectory buffer-file-name)
|
||||||
(file-name-nondirectory buffer-file-name)
|
(file-size-human-readable vlfi-file-size)
|
||||||
(file-size-human-readable vlfi-file-size)
|
(/ (* 100 vlfi-end-pos) (float vlfi-file-size))
|
||||||
(* 100 (/ vlfi-start-pos vlfi-file-size-float))
|
vlfi-batch-size))
|
||||||
(* 100 (/ vlfi-end-pos vlfi-file-size-float))
|
|
||||||
vlfi-batch-size)))
|
|
||||||
|
|
||||||
(defun vlfi-update-buffer-name ()
|
(defun vlfi-update-buffer-name ()
|
||||||
"Update the current buffer name."
|
"Update the current buffer name."
|
||||||
|
Loading…
x
Reference in New Issue
Block a user