Adding major-mode selection to new buffer

Adding major-mode selection to new buffer

[carlmarcos--- via Users list for the GNU Emacs text editor]

With the following function I can make a new buffer with a name.  Would also 
like to set the major-mode from the minibuffer.

Perhaps using `completing-read` 

(cseq '("sh-mode" "emacs-lisp-mode" "org-mode" "f90-mode" "c-mode" ))
(csel  (completing-read "Major Mode: " cseq nil t "org-mode"))

How can I introduce the above functionality in the `workbench' function?

(defun workbench (&optional name)
  "Make new buffer with unique name based on NAME."
  (interactive "s Buffer Name: ")
  (switch-to-buffer
   (generate-new-buffer
    (if (string-blank-p name) "wb" name))))

Re: Adding major-mode selection to new buffer

[Emanuel Berg]

carlmarcos--- via Users list for the GNU Emacs text editor wrote:

> Would also like to set the major-mode from the minibuffer.

It is better to set that automatically from the file extension
or the hashbang line.

-- 
underground experts united
https://dataswamp.org/~incal

Re: Adding major-mode selection to new buffer

[carlmarcos--- via Users list for the GNU Emacs text editor]

Jun 27, 2022, 23:06 by incal@dataswamp.org:

> carlmarcos--- via Users list for the GNU Emacs text editor wrote:
>
>> Would also like to set the major-mode from the minibuffer.
>>
>
> It is better to set that automatically from the file extension
> or the hashbang line.
>
They are supposed to be scratch buffers that are not saved, and thus
no extension exists.  This keeps them from being confused with files
the user is working on.
 

> -- 
> underground experts united
> https://dataswamp.org/~incal
>

Re: Adding major-mode selection to new buffer

[Emanuel Berg]

carlmarcos--- via Users list for the GNU Emacs text editor wrote:

>> It is better to set that automatically from the file
>> extension or the hashbang line.
>>
> They are supposed to be scratch buffers that are not saved,
> and thus no extension exists.

?

> This keeps them from being confused with files the user is
> working on.

?

-- 
underground experts united
https://dataswamp.org/~incal

Re: Adding major-mode selection to new buffer

[carlmarcos--- via Users list for the GNU Emacs text editor]

Jun 27, 2022, 23:13 by incal@dataswamp.org:

> carlmarcos--- via Users list for the GNU Emacs text editor wrote:
>
>>> It is better to set that automatically from the file
>>> extension or the hashbang line.
>>>
>> They are supposed to be scratch buffers that are not saved,
>> and thus no extension exists.
>>
They are made as named scratch buffers, with a major-mode setup.
The save button is not available but one can use `C-x C-w'.

>
>
>> This keeps them from being confused with files the user is
>> working on.
>>
>
> ?
>
> -- 
> underground experts united
> https://dataswamp.org/~incal
>

Re: Adding major-mode selection to new buffer

[Emanuel Berg]

carlmarcos--- via Users list for the GNU Emacs text editor wrote:

>> They are supposed to be scratch buffers that are not saved,
>> and thus no extension exists.
>
> They are made as named scratch buffers, with a major-mode
> setup. The save button is not available but one can use `C-x
> C-w'.

The *scratch* buffer has major-mode `lisp-interaction-mode',
if you want some other mode for some other buffer, name
it accordingly.

-- 
underground experts united
https://dataswamp.org/~incal

Re: Adding major-mode selection to new buffer

[carlmarcos--- via Users list for the GNU Emacs text editor]

Jun 27, 2022, 23:29 by incal@dataswamp.org:

> carlmarcos--- via Users list for the GNU Emacs text editor wrote:
>
>>> They are supposed to be scratch buffers that are not saved,
>>> and thus no extension exists.
>>>
>>
>> They are made as named scratch buffers, with a major-mode
>> setup. The save button is not available but one can use `C-x
>> C-w'.
>>
>
> The *scratch* buffer has major-mode `lisp-interaction-mode',
> if you want some other mode for some other buffer, name
> it accordingly.
>

Have used `test.c' but ended up in `fundamental-mode' instead of `c-mode'.


> -- 
> underground experts united
> https://dataswamp.org/~incal
>

Re: Adding major-mode selection to new buffer

[Emanuel Berg]

carlmarcos--- via Users list for the GNU Emacs text editor wrote:

>> The *scratch* buffer has major-mode
>> `lisp-interaction-mode', if you want some other mode for
>> some other buffer, name it accordingly.
>
> Have used `test.c' but ended up in `fundamental-mode'
> instead of `c-mode'.

emacs -Q

-- 
underground experts united
https://dataswamp.org/~incal

Re: Adding major-mode selection to new buffer

[Chris Van Dusen]

Check the scratch package to see if it fits your needs. 

https://github.com/ieure/scratch-el

Chris. 

> On Jun 27, 2022, at 17:51, carlmarcos--- via Users list for the GNU Emacs text editor <help-gnu-emacs@gnu.org> wrote:
> 
> With the following function I can make a new buffer with a name.  Would also 
> like to set the major-mode from the minibuffer.
> 
> Perhaps using `completing-read` 
> 
> (cseq '("sh-mode" "emacs-lisp-mode" "org-mode" "f90-mode" "c-mode" ))
> (csel  (completing-read "Major Mode: " cseq nil t "org-mode"))
> 
> How can I introduce the above functionality in the `workbench' function?
> 
> (defun workbench (&optional name)
>   "Make new buffer with unique name based on NAME."
>   (interactive "s Buffer Name: ")
>   (switch-to-buffer
>    (generate-new-buffer
>     (if (string-blank-p name) "wb" name))))

Re: Adding major-mode selection to new buffer

[Jean Louis]

* carlmarcos--- via Users list for the GNU Emacs text editor <help-gnu-emacs@gnu.org> [2022-06-28 01:51]:
> With the following function I can make a new buffer with a name.  Would also 
> like to set the major-mode from the minibuffer.
> 
> Perhaps using `completing-read` 
> 
> (cseq '("sh-mode" "emacs-lisp-mode" "org-mode" "f90-mode" "c-mode" ))
> (csel  (completing-read "Major Mode: " cseq nil t "org-mode"))
> 
> How can I introduce the above functionality in the `workbench' function?
> 
> (defun workbench (&optional name)
>   "Make new buffer with unique name based on NAME."
>   (interactive "s Buffer Name: ")
>   (switch-to-buffer
>    (generate-new-buffer
>     (if (string-blank-p name) "wb" name))))

I am using this below to open up new temporary buffers with name
assigned or with automatic name, and with the possibility to choose
the major mode.

{C-u M-x rcd-temp-buffer RET} will ask for mode to be used

{M-x rcd-temp-buffer RET}} will open new temporary buffer

{M-x rcd-temp-buffer RET}} will open new temporary buffer

{M-x rcd-temp-buffer-ask-name RET} will ask for buffer name

{C-u M-x rcd-temp-buffer-ask-name RET} will ask for buffer name and
for the mode

Code:

(defvar rcd-temp-buffer-name "RCD TEMPORARY BUFFER")

(defvar rcd-temp-file-directory "~/tmp/")

(defvar rcd-temp-buffer-mode-history nil)

(defvar rcd-temp-buffer-modes '(("adoc-mode" . "adoc")
				("emacs-lisp-mode" . "el")
				("lisp-mode" . ".lisp")
				("markdown-mode" . ".md")
				("org-mode" . "org")
				("sql-mode" . "sql")
				("fundamental-mode" . "txt")
				("html-mode" . "html")))

(defun rcd-temp-buffer (&optional name mode)
  "Generate new temporary buffer."
  (interactive "p")
  (let* ((format (concat "*" rcd-temp-buffer-name "%s%s*"))
	 (buffer (if name (format format ": " name) (format format "" "")))
	 (file-name (concat rcd-temp-file-directory (format-time-string "%Y-%m-%d-%H:%M:%S.txt"))))
    (switch-to-buffer (generate-new-buffer buffer))
    (setq buffer-file-name file-name)
    (if current-prefix-arg
	(let* ((mode (completing-read
		      "Mode: "
		      (map-keys rcd-temp-buffer-modes) nil t nil
		      'rcd-temp-buffer-mode-history)))
	  (funcall (intern mode)))
      (funcall (intern (or mode "fundamental-mode"))))
    buffer-file-name))

(defun rcd-temp-buffer-ask-name ()
  "Generate new temporary buffer by asking for buffer name."
  (interactive)
  (rcd-temp-buffer
   (read-from-minibuffer "Buffer name: ")))

(global-set-key (kbd "<f5>") #'rcd-temp-buffer)

-- 
Jean

Take action in Free Software Foundation campaigns:
https://www.fsf.org/campaigns

In support of Richard M. Stallman
https://stallmansupport.org/

Re: Adding major-mode selection to new buffer

[Christopher Dimech]

> Sent: Tuesday, June 28, 2022 at 10:21 PM
> From: "Jean Louis" <bugs@gnu.support>
> To: carlmarcos@tutanota.com
> Cc: "Help Gnu Emacs" <help-gnu-emacs@gnu.org>
> Subject: Re: Adding major-mode selection to new buffer
>
> * carlmarcos--- via Users list for the GNU Emacs text editor <help-gnu-emacs@gnu.org> [2022-06-28 01:51]:
> > With the following function I can make a new buffer with a name.  Would also 
> > like to set the major-mode from the minibuffer.
> > 
> > Perhaps using `completing-read` 
> > 
> > (cseq '("sh-mode" "emacs-lisp-mode" "org-mode" "f90-mode" "c-mode" ))
> > (csel  (completing-read "Major Mode: " cseq nil t "org-mode"))
> > 
> > How can I introduce the above functionality in the `workbench' function?
> > 
> > (defun workbench (&optional name)
> >   "Make new buffer with unique name based on NAME."
> >   (interactive "s Buffer Name: ")
> >   (switch-to-buffer
> >    (generate-new-buffer
> >     (if (string-blank-p name) "wb" name))))
> 
> I am using this below to open up new temporary buffers with name
> assigned or with automatic name, and with the possibility to choose
> the major mode.
How can the code be modified to have filename saved with the following format?

%Y-%m-%d-T%H:%M:%S--<rcd-temp-buffer-name>-<name>.txt


 
> {C-u M-x rcd-temp-buffer RET} will ask for mode to be used
> 
> {M-x rcd-temp-buffer RET}} will open new temporary buffer
> 
> {M-x rcd-temp-buffer RET}} will open new temporary buffer
> 
> {M-x rcd-temp-buffer-ask-name RET} will ask for buffer name
> 
> {C-u M-x rcd-temp-buffer-ask-name RET} will ask for buffer name and
> for the mode
> 
> Code:
> 
> (defvar rcd-temp-buffer-name "RCD TEMPORARY BUFFER")
> 
> (defvar rcd-temp-file-directory "~/tmp/")
> 
> (defvar rcd-temp-buffer-mode-history nil)
> 
> (defvar rcd-temp-buffer-modes '(("adoc-mode" . "adoc")
> 				("emacs-lisp-mode" . "el")
> 				("lisp-mode" . ".lisp")
> 				("markdown-mode" . ".md")
> 				("org-mode" . "org")
> 				("sql-mode" . "sql")
> 				("fundamental-mode" . "txt")
> 				("html-mode" . "html")))
> 
> (defun rcd-temp-buffer (&optional name mode)
>   "Generate new temporary buffer."
>   (interactive "p")
>   (let* ((format (concat "*" rcd-temp-buffer-name "%s%s*"))
> 	 (buffer (if name (format format ": " name) (format format "" "")))
> 	 (file-name (concat rcd-temp-file-directory (format-time-string "%Y-%m-%d-%H:%M:%S.txt"))))
>     (switch-to-buffer (generate-new-buffer buffer))
>     (setq buffer-file-name file-name)
>     (if current-prefix-arg
> 	(let* ((mode (completing-read
> 		      "Mode: "
> 		      (map-keys rcd-temp-buffer-modes) nil t nil
> 		      'rcd-temp-buffer-mode-history)))
> 	  (funcall (intern mode)))
>       (funcall (intern (or mode "fundamental-mode"))))
>     buffer-file-name))
> 
> (defun rcd-temp-buffer-ask-name ()
>   "Generate new temporary buffer by asking for buffer name."
>   (interactive)
>   (rcd-temp-buffer
>    (read-from-minibuffer "Buffer name: ")))
> 
> (global-set-key (kbd "<f5>") #'rcd-temp-buffer)
> 
> -- 
> Jean
> 
> Take action in Free Software Foundation campaigns:
> https://www.fsf.org/campaigns
> 
> In support of Richard M. Stallman
> https://stallmansupport.org/
> 
>

Re: Adding major-mode selection to new buffer

[Jean Louis]

* Christopher Dimech <dimech@gmx.com> [2022-06-29 01:06]:
> How can the code be modified to have filename saved with the following format?
> 
> %Y-%m-%d-T%H:%M:%S--<rcd-temp-buffer-name>-<name>.txt

My variable is this one: rcd-temp-buffer-name ⇒ "RCD TEMPORARY BUFFER"

And I rarely save it as such, but files are connected to temporary
buffers. It is very handy, as it is temporary note, and if I wish to
exit Emacs I will be notified there is maybe still something to be
saved.

You are right, your suggestion is much better for sorting and visual review.

(defun rcd-temp-buffer (&optional prefix name mode)
  "Generate new temporary buffer."
  (interactive "p")
  (let* ((file-name (concat rcd-temp-file-directory 
			    (format-time-string "%Y-%m-%d-%H:%M:%S-")
			    rcd-temp-buffer-name
			    ".txt"))
	 (buffer (or name (concat "*" rcd-temp-buffer-name "*"))))
    (switch-to-buffer (generate-new-buffer buffer))
    (setq buffer-file-name file-name)
    (if current-prefix-arg
	(let* ((mode (completing-read
		      "Mode: "
		      (map-keys rcd-temp-buffer-modes) nil t nil
		      'rcd-temp-buffer-mode-history)))
	  (funcall (intern mode)))
      (funcall (intern (or mode "fundamental-mode"))))
    buffer-file-name))

-- 
Jean

Take action in Free Software Foundation campaigns:
https://www.fsf.org/campaigns

In support of Richard M. Stallman
https://stallmansupport.org/

Re: Adding major-mode selection to new buffer

[carlmarcos--- via Users list for the GNU Emacs text editor]

Jun 29, 2022, 10:57 by bugs@gnu.support:

> * Christopher Dimech <dimech@gmx.com> [2022-06-29 01:06]:
>
>> How can the code be modified to have filename saved with the following format?
>>
>> %Y-%m-%d-T%H:%M:%S--<rcd-temp-buffer-name>-<name>.txt
>>

That format would be very convenient.  How can I add name as well to the `file-name'?


> My variable is this one: rcd-temp-buffer-name ⇒ "RCD TEMPORARY BUFFER"
>
> You are right, your suggestion is much better for sorting and visual review.
>

Have tried it and works really well.  Is the numeric prefix argument really necessary?


> (defun rcd-temp-buffer (&optional prefix name mode)
>  "Generate new temporary buffer."
>  (interactive "p")
>  (let* ((file-name (concat rcd-temp-file-directory 
>  (format-time-string "%Y-%m-%d-%H:%M:%S-")
>  rcd-temp-buffer-name
>  ".txt"))
>  (buffer (or name (concat "*" rcd-temp-buffer-name "*"))))
>  (switch-to-buffer (generate-new-buffer buffer))
>  (setq buffer-file-name file-name)
>  (if current-prefix-arg
>  (let* ((mode (completing-read
>  "Mode: "
>  (map-keys rcd-temp-buffer-modes) nil t nil
>  'rcd-temp-buffer-mode-history)))
>  (funcall (intern mode)))
>  (funcall (intern (or mode "fundamental-mode"))))
>  buffer-file-name))
>
> -- 
> Jean
>
> Take action in Free Software Foundation campaigns:
> https://www.fsf.org/campaigns
>
> In support of Richard M. Stallman
> https://stallmansupport.org/
>

Re: Adding major-mode selection to new buffer

[carlmarcos--- via Users list for the GNU Emacs text editor]

Jun 29, 2022, 16:05 by help-gnu-emacs@gnu.org:

Jean, have been trying to include the name in file-name, but I cannot see it being
introduced.

(file-name
             (concat rcd-temp-file-directory
                     (format-time-string "%Y-%m-%d-T%H:%M:%S--")
                     rcd-temp-buffer-name "-" name ".txt"))

>> (defun rcd-temp-buffer (&optional prefix name mode)
>>  "Generate new temporary buffer."
>>  (interactive "p")
>>  (let* ((file-name (concat rcd-temp-file-directory 
>>  (format-time-string "%Y-%m-%d-%H:%M:%S-")
>>  rcd-temp-buffer-name
>>  ".txt"))
>>  (buffer (or name (concat "*" rcd-temp-buffer-name "*"))))
>>  (switch-to-buffer (generate-new-buffer buffer))
>>  (setq buffer-file-name file-name)
>>  (if current-prefix-arg
>>  (let* ((mode (completing-read
>>  "Mode: "
>>  (map-keys rcd-temp-buffer-modes) nil t nil
>>  'rcd-temp-buffer-mode-history)))
>>  (funcall (intern mode)))
>>  (funcall (intern (or mode "fundamental-mode"))))
>>  buffer-file-name))
>>
>> -- 
>> Jean
>>
>> Take action in Free Software Foundation campaigns:
>> https://www.fsf.org/campaigns
>>
>> In support of Richard M. Stallman
>> https://stallmansupport.org/
>>

Re: Adding major-mode selection to new buffer

[Jean Louis]

* carlmarcos--- via Users list for the GNU Emacs text editor <help-gnu-emacs@gnu.org> [2022-06-29 19:58]:
> Jun 29, 2022, 16:05 by help-gnu-emacs@gnu.org:
> 
> Jean, have been trying to include the name in file-name, but I cannot see it being
> introduced.
> 
> (file-name
>              (concat rcd-temp-file-directory
>                      (format-time-string "%Y-%m-%d-T%H:%M:%S--")
>                      rcd-temp-buffer-name "-" name ".txt"))

That variable `name' must have some value to work. You need not have
`rcd-temp-buffer-name', you may construct your own file name as you
wish.

But you have to get value for name.

If you wish to be asked for name, then 

(read-file-name "File name: ")

-- 
Jean

Take action in Free Software Foundation campaigns:
https://www.fsf.org/campaigns

In support of Richard M. Stallman
https://stallmansupport.org/

RE: [External] : Re: Adding major-mode selection to new buffer

[Drew Adams]

> > Jean, have been trying to include the name in file-name, but I cannot
> > see it being introduced.
> >
> > (file-name   (concat rcd-temp-file-directory
> >                      (format-time-string "%Y-%m-%d-T%H:%M:%S--")
> >                      rcd-temp-buffer-name "-" name ".txt"))
> 
> That variable `name' must have some value to work. You need not have
> `rcd-temp-buffer-name', you may construct your own file name as you
> wish.
> 
> But you have to get value for name.
> If you wish to be asked for name, then
> (read-file-name "File name: ")

Rings a bell perhaps?

https://emacs.stackexchange.com/q/72384/105

Re: [External] : Re: Adding major-mode selection to new buffer

[Jean Louis]

* Drew Adams <drew.adams@oracle.com> [2022-06-30 17:39]:
> Rings a bell perhaps?
> 
> https://emacs.stackexchange.com/q/72384/105 👀

👀 Sounds familiar to me. 👀


-- 
Jean

Take action in Free Software Foundation campaigns:
https://www.fsf.org/campaigns

In support of Richard M. Stallman
https://stallmansupport.org/

Re: Adding major-mode selection to new buffer

[Christopher Dimech]

> Sent: Tuesday, June 28, 2022 at 10:21 PM
> From: "Jean Louis" <bugs@gnu.support>
> To: carlmarcos@tutanota.com
> Cc: "Help Gnu Emacs" <help-gnu-emacs@gnu.org>
> Subject: Re: Adding major-mode selection to new buffer
>
> * carlmarcos--- via Users list for the GNU Emacs text editor <help-gnu-emacs@gnu.org> [2022-06-28 01:51]:
> > With the following function I can make a new buffer with a name.  Would also 
> > like to set the major-mode from the minibuffer.
> > 
> > Perhaps using `completing-read` 
> > 
> > (cseq '("sh-mode" "emacs-lisp-mode" "org-mode" "f90-mode" "c-mode" ))
> > (csel  (completing-read "Major Mode: " cseq nil t "org-mode"))
> > 
> > How can I introduce the above functionality in the `workbench' function?
> > 
> > (defun workbench (&optional name)
> >   "Make new buffer with unique name based on NAME."
> >   (interactive "s Buffer Name: ")
> >   (switch-to-buffer
> >    (generate-new-buffer
> >     (if (string-blank-p name) "wb" name))))
> 
> I am using this below to open up new temporary buffers with name
> assigned or with automatic name, and with the possibility to choose
> the major mode.

Have noticed that the number 1 is inserted when calling `rcd-temp-buffer'.
This makes a problem when one wants to insert the name when saving

          (file-name
             (if name
                 (concat rcd-temp-file-directory
                         (format-time-string "%Y-%m-%d-T%H:%M:%S--")
                          rcd-temp-buffer-name "-" name ".org")
               (concat rcd-temp-file-directory
                       (format-time-string "%Y-%m-%d-T%H:%M:%S--")
                       rcd-temp-buffer-name ".org"))) )


 



 
> {C-u M-x rcd-temp-buffer RET} will ask for mode to be used
> 
> {M-x rcd-temp-buffer RET}} will open new temporary buffer
> 
> {M-x rcd-temp-buffer RET}} will open new temporary buffer
> 
> {M-x rcd-temp-buffer-ask-name RET} will ask for buffer name
> 
> {C-u M-x rcd-temp-buffer-ask-name RET} will ask for buffer name and
> for the mode
> 
> Code:
> 
> (defvar rcd-temp-buffer-name "RCD TEMPORARY BUFFER")
> 
> (defvar rcd-temp-file-directory "~/tmp/")
> 
> (defvar rcd-temp-buffer-mode-history nil)
> 
> (defvar rcd-temp-buffer-modes '(("adoc-mode" . "adoc")
> 				("emacs-lisp-mode" . "el")
> 				("lisp-mode" . ".lisp")
> 				("markdown-mode" . ".md")
> 				("org-mode" . "org")
> 				("sql-mode" . "sql")
> 				("fundamental-mode" . "txt")
> 				("html-mode" . "html")))
> 
> (defun rcd-temp-buffer (&optional name mode)
>   "Generate new temporary buffer."
>   (interactive "p")
>   (let* ((format (concat "*" rcd-temp-buffer-name "%s%s*"))
> 	 (buffer (if name (format format ": " name) (format format "" "")))
> 	 (file-name (concat rcd-temp-file-directory (format-time-string "%Y-%m-%d-%H:%M:%S.txt"))))
>     (switch-to-buffer (generate-new-buffer buffer))
>     (setq buffer-file-name file-name)
>     (if current-prefix-arg
> 	(let* ((mode (completing-read
> 		      "Mode: "
> 		      (map-keys rcd-temp-buffer-modes) nil t nil
> 		      'rcd-temp-buffer-mode-history)))
> 	  (funcall (intern mode)))
>       (funcall (intern (or mode "fundamental-mode"))))
>     buffer-file-name))
> 
> (defun rcd-temp-buffer-ask-name ()
>   "Generate new temporary buffer by asking for buffer name."
>   (interactive)
>   (rcd-temp-buffer
>    (read-from-minibuffer "Buffer name: ")))
> 
> (global-set-key (kbd "<f5>") #'rcd-temp-buffer)
> 
> -- 
> Jean
> 
> Take action in Free Software Foundation campaigns:
> https://www.fsf.org/campaigns
> 
> In support of Richard M. Stallman
> https://stallmansupport.org/
> 
>

Re: Adding major-mode selection to new buffer

[Christopher Dimech]

> Sent: Wednesday, June 29, 2022 at 10:20 AM
> From: "Christopher Dimech" <dimech@gmx.com>
> To: "Jean Louis" <bugs@gnu.support>
> Cc: carlmarcos@tutanota.com, "Help Gnu Emacs" <help-gnu-emacs@gnu.org>
> Subject: Re: Adding major-mode selection to new buffer
>
> > Sent: Tuesday, June 28, 2022 at 10:21 PM
> > From: "Jean Louis" <bugs@gnu.support>
> > To: carlmarcos@tutanota.com
> > Cc: "Help Gnu Emacs" <help-gnu-emacs@gnu.org>
> > Subject: Re: Adding major-mode selection to new buffer
> >
> > * carlmarcos--- via Users list for the GNU Emacs text editor <help-gnu-emacs@gnu.org> [2022-06-28 01:51]:
> > > With the following function I can make a new buffer with a name.  Would also 
> > > like to set the major-mode from the minibuffer.
> > > 
> > I am using this below to open up new temporary buffers with name
> > assigned or with automatic name, and with the possibility to choose
> > the major mode.
> 
> Have noticed that the number 1 is inserted when calling `rcd-temp-buffer'.
> This makes a problem when one wants to insert the name when saving

This is because you are using (interactive "p")

> 
>           (file-name
>              (if name
>                  (concat rcd-temp-file-directory
>                          (format-time-string "%Y-%m-%d-T%H:%M:%S--")
>                           rcd-temp-buffer-name "-" name ".org")
>                (concat rcd-temp-file-directory
>                        (format-time-string "%Y-%m-%d-T%H:%M:%S--")
>                        rcd-temp-buffer-name ".org"))) )
> 
> 
>  
> > {C-u M-x rcd-temp-buffer RET} will ask for mode to be used
> > 
> > {M-x rcd-temp-buffer RET}} will open new temporary buffer
> > 
> > {M-x rcd-temp-buffer RET}} will open new temporary buffer
> > 
> > {M-x rcd-temp-buffer-ask-name RET} will ask for buffer name
> > 
> > {C-u M-x rcd-temp-buffer-ask-name RET} will ask for buffer name and
> > for the mode
> > 
> > Code:
> > 
> > (defvar rcd-temp-buffer-name "RCD TEMPORARY BUFFER")
> > 
> > (defvar rcd-temp-file-directory "~/tmp/")
> > 
> > (defvar rcd-temp-buffer-mode-history nil)
> > 
> > (defvar rcd-temp-buffer-modes '(("adoc-mode" . "adoc")
> > 				("emacs-lisp-mode" . "el")
> > 				("lisp-mode" . ".lisp")
> > 				("markdown-mode" . ".md")
> > 				("org-mode" . "org")
> > 				("sql-mode" . "sql")
> > 				("fundamental-mode" . "txt")
> > 				("html-mode" . "html")))
> > 
> > (defun rcd-temp-buffer (&optional name mode)
> >   "Generate new temporary buffer."
> >   (interactive "p")
> >   (let* ((format (concat "*" rcd-temp-buffer-name "%s%s*"))
> > 	 (buffer (if name (format format ": " name) (format format "" "")))
> > 	 (file-name (concat rcd-temp-file-directory (format-time-string "%Y-%m-%d-%H:%M:%S.txt"))))
> >     (switch-to-buffer (generate-new-buffer buffer))
> >     (setq buffer-file-name file-name)
> >     (if current-prefix-arg
> > 	(let* ((mode (completing-read
> > 		      "Mode: "
> > 		      (map-keys rcd-temp-buffer-modes) nil t nil
> > 		      'rcd-temp-buffer-mode-history)))
> > 	  (funcall (intern mode)))
> >       (funcall (intern (or mode "fundamental-mode"))))
> >     buffer-file-name))
> > 
> > (defun rcd-temp-buffer-ask-name ()
> >   "Generate new temporary buffer by asking for buffer name."
> >   (interactive)
> >   (rcd-temp-buffer
> >    (read-from-minibuffer "Buffer name: ")))
> > 
> > (global-set-key (kbd "<f5>") #'rcd-temp-buffer)
> > 
> > -- 
> > Jean
> > 
> > Take action in Free Software Foundation campaigns:
> > https://www.fsf.org/campaigns
> > 
> > In support of Richard M. Stallman
> > https://stallmansupport.org/
> > 
> >
> 
>

Re: Adding major-mode selection to new buffer

[carlmarcos--- via Users list for the GNU Emacs text editor]

Jun 28, 2022, 10:21 by bugs@gnu.support:

> * carlmarcos--- via Users list for the GNU Emacs text editor <> help-gnu-emacs@gnu.org> > [2022-06-28 01:51]:
>
> I am using this below to open up new temporary buffers with name
> assigned or with automatic name, and with the possibility to choose
> the major mode.
>

Why do you include a period for `lisp-mode' and `markdown-mode'?


> {C-u M-x rcd-temp-buffer RET} will ask for mode to be used
>
> {M-x rcd-temp-buffer RET}} will open new temporary buffer
>
> {M-x rcd-temp-buffer RET}} will open new temporary buffer
>
> {M-x rcd-temp-buffer-ask-name RET} will ask for buffer name
>
> {C-u M-x rcd-temp-buffer-ask-name RET} will ask for buffer name and
> for the mode
>
> Code:
>
> (defvar rcd-temp-buffer-name "RCD TEMPORARY BUFFER")
>
> (defvar rcd-temp-file-directory "~/tmp/")
>
> (defvar rcd-temp-buffer-mode-history nil)
>
> (defvar rcd-temp-buffer-modes '(("adoc-mode" . "adoc")
>  ("emacs-lisp-mode" . "el")
>  ("lisp-mode" . ".lisp")
>  ("markdown-mode" . ".md")
>  ("org-mode" . "org")
>  ("sql-mode" . "sql")
>  ("fundamental-mode" . "txt")
>  ("html-mode" . "html")))
>
> (defun rcd-temp-buffer (&optional name mode)
>  "Generate new temporary buffer."
>  (interactive "p")
>  (let* ((format (concat "*" rcd-temp-buffer-name "%s%s*"))
>  (buffer (if name (format format ": " name) (format format "" "")))
>  (file-name (concat rcd-temp-file-directory (format-time-string "%Y-%m-%d-%H:%M:%S.txt"))))
>  (switch-to-buffer (generate-new-buffer buffer))
>  (setq buffer-file-name file-name)
>  (if current-prefix-arg
>  (let* ((mode (completing-read
>  "Mode: "
>  (map-keys rcd-temp-buffer-modes) nil t nil
>  'rcd-temp-buffer-mode-history)))
>  (funcall (intern mode)))
>  (funcall (intern (or mode "fundamental-mode"))))
>  buffer-file-name))
>
> (defun rcd-temp-buffer-ask-name ()
>  "Generate new temporary buffer by asking for buffer name."
>  (interactive)
>  (rcd-temp-buffer
>  (read-from-minibuffer "Buffer name: ")))
>
> (global-set-key (kbd "<f5>") #'rcd-temp-buffer)
>
> -- 
> Jean
>
> Take action in Free Software Foundation campaigns:
> https://www.fsf.org/campaigns
>
> In support of Richard M. Stallman
> https://stallmansupport.org/
>

Re: Adding major-mode selection to new buffer

[Jean Louis]

* carlmarcos@tutanota.com <carlmarcos@tutanota.com> [2022-06-28 15:41]:
> Why do you include a period for `lisp-mode' and `markdown-mode'?

It may be error on my side. 

> (defvar rcd-temp-buffer-modes '(("adoc-mode" . "adoc")
>  ("emacs-lisp-mode" . "el")
>  ("lisp-mode" . ".lisp")
>  ("markdown-mode" . ".md")
>  ("org-mode" . "org")
>  ("sql-mode" . "sql")
>  ("fundamental-mode" . "txt")
>  ("html-mode" . "html")))


-- 
Jean

Take action in Free Software Foundation campaigns:
https://www.fsf.org/campaigns

In support of Richard M. Stallman
https://stallmansupport.org/