mirror of
https://github.com/m00natic/vlfi.git
synced 2025-01-18 20:10:47 +00:00
Revert to showing batch size in buffer name instead of the mode-line.
This commit is contained in:
parent
2ac3e7d577
commit
177c680288
12
README.org
12
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
|
||||
|
||||
|
24
vlf.el
24
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."
|
||||
|
Loading…
x
Reference in New Issue
Block a user