comint shell buffers autosaved to a file?

comint shell buffers autosaved to a file?

[Kevin Layer]

[-- Attachment #1: Type: text/plain, Size: 517 bytes --]

I had a long running shell session in an emacs and the emacs crashed.  I
was running some complex bash scripts that had failed, but I was going to
look at it today.  But today the emacs crashed before I did.  I'd like to
guard against this in the future by having the contents of my shells saved
automatically into a file in ~/.emacs.d/, perhaps.

I've googled and looked through the comint source and I don't see this
feature.

Any ideas on this?  I'm willing to do some work to add it, if it's not too
hard.

Kevin

[-- Attachment #2: Type: text/html, Size: 635 bytes --]

Re: comint shell buffers autosaved to a file?

[Andreas Schwab]

On Mär 27 2018, Kevin Layer <layer@known.net> wrote:

> Any ideas on this?  I'm willing to do some work to add it, if it's not too
> hard.

Just enable auto-save-mode.

Andreas.

-- 
Andreas Schwab, schwab@linux-m68k.org
GPG Key fingerprint = 58CA 54C7 6D53 942B 1756  01D3 44D5 214B 8276 4ED5
"And now for something completely different."

Re: comint shell buffers autosaved to a file?

[Kevin Layer]

[-- Attachment #1: Type: text/plain, Size: 547 bytes --]

There's no file associated with a shell buffer, so where does it auto-save
to?

On Tue, Mar 27, 2018 at 4:13 PM, Andreas Schwab <schwab@linux-m68k.org>
wrote:

> On Mär 27 2018, Kevin Layer <layer@known.net> wrote:
>
> > Any ideas on this?  I'm willing to do some work to add it, if it's not
> too
> > hard.
>
> Just enable auto-save-mode.
>
> Andreas.
>
> --
> Andreas Schwab, schwab@linux-m68k.org
> GPG Key fingerprint = 58CA 54C7 6D53 942B 1756  01D3 44D5 214B 8276 4ED5
> "And now for something completely different."
>

[-- Attachment #2: Type: text/html, Size: 1056 bytes --]

Re: comint shell buffers autosaved to a file?

[Kevin Layer]

[-- Attachment #1: Type: text/plain, Size: 1006 bytes --]

I see this buffer local variable:

   (buffer-auto-save-file-name .
"/net/freon/home/layer/src/emacs/#%2Ashell%2A#8376MSi#")

but I generated a lot of output in the buffer and that file doesn't exist.

I'm thinking of using comint-output-filter-functions to implement this
directly, so the command output is saved when it is received by emacs.

On Tue, Mar 27, 2018 at 4:36 PM, Kevin Layer <layer@known.net> wrote:

> There's no file associated with a shell buffer, so where does it auto-save
> to?
>
> On Tue, Mar 27, 2018 at 4:13 PM, Andreas Schwab <schwab@linux-m68k.org>
> wrote:
>
>> On Mär 27 2018, Kevin Layer <layer@known.net> wrote:
>>
>> > Any ideas on this?  I'm willing to do some work to add it, if it's not
>> too
>> > hard.
>>
>> Just enable auto-save-mode.
>>
>> Andreas.
>>
>> --
>> Andreas Schwab, schwab@linux-m68k.org
>> GPG Key fingerprint = 58CA 54C7 6D53 942B 1756  01D3 44D5 214B 8276 4ED5
>> "And now for something completely different."
>>
>
>

[-- Attachment #2: Type: text/html, Size: 1952 bytes --]

Re: comint shell buffers autosaved to a file?

[Kevin Layer]

[-- Attachment #1: Type: text/plain, Size: 578 bytes --]

OK, the file was created after the auto-save-interval.  Thanks, I'll think
about whether this is good enough.

On Tue, Mar 27, 2018 at 4:13 PM, Andreas Schwab <schwab@linux-m68k.org>
wrote:

> On Mär 27 2018, Kevin Layer <layer@known.net> wrote:
>
> > Any ideas on this?  I'm willing to do some work to add it, if it's not
> too
> > hard.
>
> Just enable auto-save-mode.
>
> Andreas.
>
> --
> Andreas Schwab, schwab@linux-m68k.org
> GPG Key fingerprint = 58CA 54C7 6D53 942B 1756  01D3 44D5 214B 8276 4ED5
> "And now for something completely different."
>

[-- Attachment #2: Type: text/html, Size: 1088 bytes --]

Re: comint shell buffers autosaved to a file?

[Kevin Layer]

[-- Attachment #1: Type: text/plain, Size: 2414 bytes --]

I don't know if it's cool to share this here, but I wanted to in case
someone else wanted to do the same, and have them save all in the same
place:

(defvar my-shell-auto-save-directory
    (expand-file-name "~/tmp/shell-auto-saves/"))

;; Make sure it exists, this is an important directory:
(make-directory my-shell-auto-save-directory t)

(defvar my-shell-auto-save-file-name-prefix
    (let ((s (system-name)))
      (when (string-match "\\(.*\\)\\.franz\\.com$" s)
(setq s (substring s (match-beginning 1) (match-end 1))))
      (format "%s-" s)))

(defun my-make-shell-auto-save-file-name ()
  (interactive) ;; debugging only
  (let* ((name (buffer-name))
base suffix)
    (when (string-match "^\\*\\(.*\\)\\*\\(<\\(.*\\)>\\)?$" name)
      (setq base (match-string 1 name))
      (setq suffix (match-string 3 name))
      (if suffix
  (format "%s%s%s-%s.log" my-shell-auto-save-directory
   my-shell-auto-save-file-name-prefix
   base suffix)
(format "%s%s%s.log" my-shell-auto-save-directory
my-shell-auto-save-file-name-prefix base)))))

(defun my--around-advice--make-auto-save-file-name (orig-func)
  (let (fn)
    (cond
     ((and (null buffer-file-name)
   (or (eq 'ssh-mode major-mode) (eq 'shell-mode major-mode))
   (setq fn (my-make-shell-auto-save-file-name)))
      fn)
     (t (funcall orig-func)))))

(advice-add 'make-auto-save-file-name
    :around
    #'my--around-advice--make-auto-save-file-name)

;; Now, make sure auto-save-mode is on, for shell and ssh buffers:

(defun my-turn-on-auto-save-mode-hook ()
  (auto-save-mode 1))

(add-hook 'shell-mode-hook 'my-turn-on-auto-save-mode-hook t)
(add-hook 'ssh-mode-hook 'my-turn-on-auto-save-mode-hook t)


On Tue, Mar 27, 2018 at 4:42 PM, Kevin Layer <layer@known.net> wrote:

> OK, the file was created after the auto-save-interval.  Thanks, I'll think
> about whether this is good enough.
>
> On Tue, Mar 27, 2018 at 4:13 PM, Andreas Schwab <schwab@linux-m68k.org>
> wrote:
>
>> On Mär 27 2018, Kevin Layer <layer@known.net> wrote:
>>
>> > Any ideas on this?  I'm willing to do some work to add it, if it's not
>> too
>> > hard.
>>
>> Just enable auto-save-mode.
>>
>> Andreas.
>>
>> --
>> Andreas Schwab, schwab@linux-m68k.org
>> GPG Key fingerprint = 58CA 54C7 6D53 942B 1756  01D3 44D5 214B 8276 4ED5
>> "And now for something completely different."
>>
>
>

[-- Attachment #2: Type: text/html, Size: 4338 bytes --]

Re: comint shell buffers autosaved to a file?

[Kalman Reti]

[-- Attachment #1: Type: text/plain, Size: 2635 bytes --]

I just c-x c-w to a filename of my own choosing. Autosaves are then
#<myfilename>#. This has worked for many years in both shell and rlogin
buffers.

On Mar 28, 2018 2:05 PM, "Kevin Layer" <layer@known.net> wrote:

I don't know if it's cool to share this here, but I wanted to in case
someone else wanted to do the same, and have them save all in the same
place:

(defvar my-shell-auto-save-directory
    (expand-file-name "~/tmp/shell-auto-saves/"))

;; Make sure it exists, this is an important directory:
(make-directory my-shell-auto-save-directory t)

(defvar my-shell-auto-save-file-name-prefix
    (let ((s (system-name)))
      (when (string-match "\\(.*\\)\\.franz\\.com$" s)
(setq s (substring s (match-beginning 1) (match-end 1))))
      (format "%s-" s)))

(defun my-make-shell-auto-save-file-name ()
  (interactive) ;; debugging only
  (let* ((name (buffer-name))
base suffix)
    (when (string-match "^\\*\\(.*\\)\\*\\(<\\(.*\\)>\\)?$" name)
      (setq base (match-string 1 name))
      (setq suffix (match-string 3 name))
      (if suffix
  (format "%s%s%s-%s.log" my-shell-auto-save-directory
   my-shell-auto-save-file-name-prefix
   base suffix)
(format "%s%s%s.log" my-shell-auto-save-directory
my-shell-auto-save-file-name-prefix base)))))

(defun my--around-advice--make-auto-save-file-name (orig-func)
  (let (fn)
    (cond
     ((and (null buffer-file-name)
   (or (eq 'ssh-mode major-mode) (eq 'shell-mode major-mode))
   (setq fn (my-make-shell-auto-save-file-name)))
      fn)
     (t (funcall orig-func)))))

(advice-add 'make-auto-save-file-name
    :around
    #'my--around-advice--make-auto-save-file-name)

;; Now, make sure auto-save-mode is on, for shell and ssh buffers:

(defun my-turn-on-auto-save-mode-hook ()
  (auto-save-mode 1))

(add-hook 'shell-mode-hook 'my-turn-on-auto-save-mode-hook t)
(add-hook 'ssh-mode-hook 'my-turn-on-auto-save-mode-hook t)


On Tue, Mar 27, 2018 at 4:42 PM, Kevin Layer <layer@known.net> wrote:

> OK, the file was created after the auto-save-interval.  Thanks, I'll think
> about whether this is good enough.
>
> On Tue, Mar 27, 2018 at 4:13 PM, Andreas Schwab <schwab@linux-m68k.org>
> wrote:
>
>> On Mär 27 2018, Kevin Layer <layer@known.net> wrote:
>>
>> > Any ideas on this?  I'm willing to do some work to add it, if it's not
>> too
>> > hard.
>>
>> Just enable auto-save-mode.
>>
>> Andreas.
>>
>> --
>> Andreas Schwab, schwab@linux-m68k.org
>> GPG Key fingerprint = 58CA 54C7 6D53 942B 1756  01D3 44D5 214B 8276 4ED5
>> "And now for something completely different."
>>
>
>

[-- Attachment #2: Type: text/html, Size: 5020 bytes --]

Re: comint shell buffers autosaved to a file?

[Juri Linkov]

> I just c-x c-w to a filename of my own choosing. Autosaves are then
> #<myfilename>#. This has worked for many years in both shell and rlogin
> buffers.

Please note that saving shell buffers to a file makes the desktop file
unreadable.  Looks like a bug, reported to bug#31028.