1
0
mirror of https://github.com/m00natic/vlfi.git synced 2025-01-18 12:05:31 +00:00

Revert to showing batch size in buffer name instead of the mode-line.

This commit is contained in:
Andrey Kotlarski 2013-12-04 14:00:24 +02:00
parent 2ac3e7d577
commit 177c680288
2 changed files with 13 additions and 23 deletions

View File

@ -62,8 +62,8 @@ respectively.
*C-c C-v j* jumps to given chunk. To see where you are in file and
how many chunks there are (using the current batch size), look at the
bracketed part of the buffer name, batch size is indicated in the
mode-line.
parenthesized part of the buffer name, batch size is also indicated at
the end.
** Search whole file
@ -74,10 +74,10 @@ beforehand.
** Occur over whole file
*C-c C-v o* builds index for given regular expression just like M-x
occur*. It does this batch by batch over the whole file. Note that
even if you prematurely stop it with *C-g*, it will still show index
of what's found so far.
*C-c C-v o* builds index for given regular expression just like
*M-x occur*. It does this batch by batch over the whole file. Note
that even if you prematurely stop it with *C-g*, it will still show
index of what's found so far.
** Jump to line

24
vlf.el
View File

@ -209,24 +209,14 @@ with the prefix argument DECREASE it is halved."
(* vlf-batch-size 2)))
(vlf-move-to-batch vlf-start-pos))
(defun vlf-format-buffer-name ()
"Return format for vlf buffer name."
(format "%s(%d/%d)"
(file-name-nondirectory buffer-file-name)
(/ vlf-end-pos vlf-batch-size)
(/ vlf-file-size vlf-batch-size)))
(defun vlf-update-buffer-name ()
"Update the current buffer name and modeline."
(rename-buffer (vlf-format-buffer-name) t)
(setq minor-mode-alist
(mapcar (lambda (x)
(if (eq 'vlf-mode (car x))
`(vlf-mode ,(format " VLF[%s]"
(file-size-human-readable
vlf-batch-size)))
x))
minor-mode-alist)))
"Update the current buffer name."
(rename-buffer (format "%s(%d/%d)[%s]"
(file-name-nondirectory buffer-file-name)
(/ vlf-end-pos vlf-batch-size)
(/ vlf-file-size vlf-batch-size)
(file-size-human-readable vlf-batch-size))
t))
(defun vlf-get-file-size (file)
"Get size in bytes of FILE."