comparison lisp/tar-mode.el @ 11450:aee30032f324

(tar-mode): Locally bind next-line-add-newlines to nil. (tar-subfile-mode): Doc fix. (tar-expunge): Make questions and messages start with upper case letter. (tar-summarize-buffer): Ditto. (tar-subfile-save-buffer): Make message like others. (tar-mode): Locally bind local-write-file-hooks. (tar-mode-write-file): Renamed from tar-mode-maybe-write-tar-file. (tar-mode-write-file): Simplify to only work for tar file buffers. (write-file-hooks): Don't modify this.

11449:fca5a32f7806

(defun tar-summarize-buffer ()
  "Parse the contents of the tar file in the current buffer.
Place a dired-like listing on the front;
then narrow to it, so that only that listing
is visible (and the real data of the buffer is hidden)."
  (message "parsing tar file...")
  (let* ((result '())
	 (pos 1)
	 (bs (max 1 (- (buffer-size) 1024))) ; always 2+ empty blocks at end.
	 (bs100 (max 1 (/ bs 100)))
	 tokens)

  (setq require-final-newline nil) ; binary data, dude...
  (make-local-variable 'revert-buffer-function)
  (setq revert-buffer-function 'tar-mode-revert)
  (make-local-variable 'enable-local-variables)
  (setq enable-local-variables nil)
  (setq major-mode 'tar-mode)
  (setq mode-name "Tar")
  (use-local-map tar-mode-map)
  (auto-save-mode 0)
  (widen)
  (if (and (boundp 'tar-header-offset) tar-header-offset)
      (narrow-to-region 1 tar-header-offset)
      (tar-summarize-buffer))
  (run-hooks 'tar-mode-hook)
  )


;; This should be converted to use a minor mode keymap.

(defun tar-subfile-mode (p)
  "Minor mode for editing an element of a tar-file.
This mode redefines C-x C-s to save the current buffer back into its 
associated tar-file buffer.  You must save that buffer to actually
save your changes to disk."
  (interactive "P")
  (or (and (boundp 'tar-superior-buffer) tar-superior-buffer)
      (error "This buffer is not an element of a tar file"))
;;; Don't do this, because it is redundant and wastes mode line space.

	  (narrow-to-region 1 tar-header-offset)))
      (if view-p
	  (progn
	    (view-buffer buffer)
	    (and just-created
		 (setq view-exit-action 'kill-buffer)))
	(if (eq other-window-p 'display)
	    (display-buffer buffer)
	  (if other-window-p
	      (switch-to-buffer-other-window buffer)

  "*In Tar mode, delete all the archived files flagged for deletion.
This does not modify the disk image; you must save the tar file itself
for this to be permanent."
  (interactive)
  (if (or noconfirm
	  (y-or-n-p "expunge files marked for deletion? "))
      (let ((n 0))
	(save-excursion
	  (goto-char 0)
	  (while (not (eobp))
	    (if (looking-at "D")

	  ;; after doing the deletions, add any padding that may be necessary.
	  (tar-pad-to-blocksize)
	  (narrow-to-region 1 tar-header-offset)
	  )
	(if (zerop n)
	    (message "nothing to expunge.")
	    (message "%s expunged.  Be sure to save this buffer." n)))))


(defun tar-clear-modification-flags ()
  "Remove the stars at the beginning of each line."
  (interactive)

	(tar-pad-to-blocksize))
       (narrow-to-region 1 tar-header-offset)))
    (set-buffer-modified-p t)   ; mark the tar file as modified
    (set-buffer subfile)
    (set-buffer-modified-p nil) ; mark the tar subfile as unmodified
    (message "saved into tar-buffer `%s' -- remember to save that buffer!"
	     (buffer-name tar-superior-buffer))
    ;; Prevent ordinary saving from happening.
    t)))

			       0)))
      )))


;; Used in write-file-hook to write tar-files out correctly.
(defun tar-mode-maybe-write-tar-file ()
  ;;
  ;; If the current buffer is in Tar mode and has its header-offset set,
  ;; only write out the part of the file after the header-offset.
  ;;
  (if (and (eq major-mode 'tar-mode)
	   (and (boundp 'tar-header-offset) tar-header-offset))
      (unwind-protect
	(save-excursion
	  (tar-clear-modification-flags)
	  (widen)
	  ;; Doing this here confuses things - the region gets left too wide!
	  ;; I suppose this is run in a context where changing the buffer is bad.
	  ;; (tar-pad-to-blocksize)
	  (write-region tar-header-offset (1+ (buffer-size)) buffer-file-name nil t)
	  ;; return T because we've written the file.
	  t)
	(narrow-to-region 1 tar-header-offset)
	t)
      ;; return NIL because we haven't.
      nil))


;;; Patch it in.

(or (memq 'tar-mode-maybe-write-tar-file write-file-hooks)
    (setq write-file-hooks
	  (cons 'tar-mode-maybe-write-tar-file write-file-hooks)))

(provide 'tar-mode)

;;; tar-mode.el ends here

11450:aee30032f324

(defun tar-summarize-buffer ()
  "Parse the contents of the tar file in the current buffer.
Place a dired-like listing on the front;
then narrow to it, so that only that listing
is visible (and the real data of the buffer is hidden)."
  (message "Parsing tar file...")
  (let* ((result '())
	 (pos 1)
	 (bs (max 1 (- (buffer-size) 1024))) ; always 2+ empty blocks at end.
	 (bs100 (max 1 (/ bs 100)))
	 tokens)

  (setq require-final-newline nil) ; binary data, dude...
  (make-local-variable 'revert-buffer-function)
  (setq revert-buffer-function 'tar-mode-revert)
  (make-local-variable 'enable-local-variables)
  (setq enable-local-variables nil)
  (make-local-variable 'next-line-add-newlines)
  (setq next-line-add-newlines nil)
  (setq major-mode 'tar-mode)
  (setq mode-name "Tar")
  (use-local-map tar-mode-map)
  (auto-save-mode 0)
  (make-local-variable 'local-write-file-hooks)
  (setq local-write-file-hooks '(tar-mode-write-file))
  (widen)
  (if (and (boundp 'tar-header-offset) tar-header-offset)
      (narrow-to-region 1 tar-header-offset)
      (tar-summarize-buffer))
  (run-hooks 'tar-mode-hook)
  )


(defun tar-subfile-mode (p)
  "Minor mode for editing an element of a tar-file.
This mode redefines the save-buffer command to save the current buffer back
into its associated tar-file buffer.  You must save that buffer to actually
save your changes to disk."
  (interactive "P")
  (or (and (boundp 'tar-superior-buffer) tar-superior-buffer)
      (error "This buffer is not an element of a tar file"))
;;; Don't do this, because it is redundant and wastes mode line space.

	  (narrow-to-region 1 tar-header-offset)))
      (if view-p
	  (progn
	    (view-buffer buffer)
	    (and just-created
		 ;; This will be created by view.el
		 (setq view-exit-action 'kill-buffer)))
	(if (eq other-window-p 'display)
	    (display-buffer buffer)
	  (if other-window-p
	      (switch-to-buffer-other-window buffer)

  "*In Tar mode, delete all the archived files flagged for deletion.
This does not modify the disk image; you must save the tar file itself
for this to be permanent."
  (interactive)
  (if (or noconfirm
	  (y-or-n-p "Expunge files marked for deletion? "))
      (let ((n 0))
	(save-excursion
	  (goto-char 0)
	  (while (not (eobp))
	    (if (looking-at "D")

	  ;; after doing the deletions, add any padding that may be necessary.
	  (tar-pad-to-blocksize)
	  (narrow-to-region 1 tar-header-offset)
	  )
	(if (zerop n)
	    (message "Nothing to expunge.")
	    (message "%s files expunged.  Be sure to save this buffer." n)))))


(defun tar-clear-modification-flags ()
  "Remove the stars at the beginning of each line."
  (interactive)

	(tar-pad-to-blocksize))
       (narrow-to-region 1 tar-header-offset)))
    (set-buffer-modified-p t)   ; mark the tar file as modified
    (set-buffer subfile)
    (set-buffer-modified-p nil) ; mark the tar subfile as unmodified
    (message "Saved into tar-buffer `%s'.  Be sure to save that buffer!"
	     (buffer-name tar-superior-buffer))
    ;; Prevent ordinary saving from happening.
    t)))

			       0)))
      )))


;; Used in write-file-hook to write tar-files out correctly.
(defun tar-mode-write-file ()
  (unwind-protect
      (save-excursion
	(widen)
	;; Doing this here confuses things - the region gets left too wide!
	;; I suppose this is run in a context where changing the buffer is bad.
	;; (tar-pad-to-blocksize)
	(write-region tar-header-offset (point-max) buffer-file-name nil t)
	(tar-clear-modification-flags))
    (narrow-to-region 1 tar-header-offset))
  ;; return T because we've written the file.
  t)

(provide 'tar-mode)

;;; tar-mode.el ends here