sascha/vlfi
1
0
Fork 0
mirror of https://github.com/m00natic/vlfi.git synced 2025-01-31 10:10:48 +00:00
Code Issues Releases Wiki Activity

Remove clutter form file name indicators.

Browse Source
This commit is contained in:
Andrey Kotlarski 2013-03-30 02:17:34 +02:00
parent 30e495901b
commit fb9aa670cc
1 changed files with 5 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
vlfi.el
View File

@ -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."