How to convert this macro to Elisp?

How to convert this macro to Elisp?

[kj]

I have a macro that I want to convert to Elisp.  Furthermore, I
want the resulting code to be completely non-interactive.

Here's what the macro looks like:

C-x RET c               ;; universal-coding-system-argument
euc-jp                  ;; self-insert-command * 6
RET                     ;; newline
C-x C-f                 ;; find-file
test                    ;; self-insert-command * 4
RET                     ;; newline
C-x RET f               ;; set-buffer-file-coding-system
utf-8                   ;; self-insert-command * 5
RET                     ;; newline
C-x C-s                 ;; save-buffer
raw-text                ;; self-insert-command * 8
RET                     ;; newline

How can I convert this to Elisp?

The last two lines of the macro above point to a potential wrinkle.
'raw-text<RET>' is my interactive response when Emacs asked what
to do about characters that it was unable to encode using the
requested encoding.  I imagine that in some cases this warning will
not appear, so this response would be unnecessary.

TIA!

~K

Re: How to convert this macro to Elisp?

[Harald Hanche-Olsen]

+ kj <no.email@please.post>:

> I have a macro that I want to convert to Elisp.  Furthermore, I
> want the resulting code to be completely non-interactive.
>
> Here's what the macro looks like:
>
> C-x RET c               ;; universal-coding-system-argument
> euc-jp                  ;; self-insert-command * 6
> RET                     ;; newline
> C-x C-f                 ;; find-file
> test                    ;; self-insert-command * 4
> RET                     ;; newline
> C-x RET f               ;; set-buffer-file-coding-system
> utf-8                   ;; self-insert-command * 5
> RET                     ;; newline
> C-x C-s                 ;; save-buffer
> raw-text                ;; self-insert-command * 8
> RET                     ;; newline
>
> How can I convert this to Elisp?

Something like this might work (not properly tested):

(defun select-utf-8-or-raw (from to &rest _)
  (if (memq 'utf-8 (find-coding-systems-region from to))
      'utf-8 'raw-text))
(defun change-file-coding-to-utf-8 (filename from-coding)
  (let ((coding-system-for-read from-coding))
    (find-file filename)
    (set-buffer-file-coding-system 'utf-8)
    (let ((select-safe-coding-system-function 'select-utf-8-or-raw))
      (save-buffer))))

A proper solution should probably use lower-level functions, however.

-- 
* Harald Hanche-Olsen     <URL:http://www.math.ntnu.no/~hanche/>
- It is undesirable to believe a proposition
  when there is no ground whatsoever for supposing it is true.
  -- Bertrand Russell

Re: How to convert this macro to Elisp?

[Alberto Luaces]

kj writes:


[...]

> How can I convert this to Elisp?

You are asking for "insert-kbd-macro".

> The last two lines of the macro above point to a potential wrinkle.
> 'raw-text<RET>' is my interactive response when Emacs asked what
> to do about characters that it was unable to encode using the
> requested encoding.  I imagine that in some cases this warning will
> not appear, so this response would be unnecessary.

I don't know how to solve the interaction issue, sorry.

--
Alberto

Re: How to convert this macro to Elisp?

[kj]

In <pco4olij5ot.fsf@math.ntnu.no> Harald Hanche-Olsen <hanche@math.ntnu.no> writes:

>+ kj <no.email@please.post>:

>> I have a macro that I want to convert to Elisp.  Furthermore, I
>> want the resulting code to be completely non-interactive.
>>
>> Here's what the macro looks like:
>>
>> C-x RET c               ;; universal-coding-system-argument
>> euc-jp                  ;; self-insert-command * 6
>> RET                     ;; newline
>> C-x C-f                 ;; find-file
>> test                    ;; self-insert-command * 4
>> RET                     ;; newline
>> C-x RET f               ;; set-buffer-file-coding-system
>> utf-8                   ;; self-insert-command * 5
>> RET                     ;; newline
>> C-x C-s                 ;; save-buffer
>> raw-text                ;; self-insert-command * 8
>> RET                     ;; newline
>>
>> How can I convert this to Elisp?

>Something like this might work (not properly tested):

>(defun select-utf-8-or-raw (from to &rest _)
>  (if (memq 'utf-8 (find-coding-systems-region from to))
>      'utf-8 'raw-text))
>(defun change-file-coding-to-utf-8 (filename from-coding)
>  (let ((coding-system-for-read from-coding))
>    (find-file filename)
>    (set-buffer-file-coding-system 'utf-8)
>    (let ((select-safe-coding-system-function 'select-utf-8-or-raw))
>      (save-buffer))))

Thanks!!!  This gets me started.

~K