diff --git a/README.org b/README.org index efe161a..ed2fa58 100644 --- a/README.org +++ b/README.org @@ -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 diff --git a/vlf.el b/vlf.el index 19d04b5..ce0855b 100644 --- a/vlf.el +++ b/vlf.el @@ -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."