mirror of
				https://github.com/m00natic/vlfi.git
				synced 2025-10-30 22:53:37 +00:00 
			
		
		
		
	Revert to showing batch size in buffer name instead of the mode-line.
This commit is contained in:
		
							
								
								
									
										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." | ||||
|   | ||||
		Reference in New Issue
	
	Block a user