batch で、譜の内容を emacs 内部コードで整列するには、 どうすれば良いのだろうか。

(provide 'batch-sort-file)

(defun batch-sort-file()
  "Just sort file, important thing is: done by emacs internal code order"
   (interactive)
   (insert-file-contents "/tmp/1")
   (sort-lines nil (point-min) (point-max))
   (write-file "/tmp/1.out")
)

以上のようなものを batch-sort-file.el という名前で 用意しておいて、次のように入力すると、

emacs -batch -q -no-site-file -l batch-sort-file.el -f batch-sort-file

/tmp/1 -> /tmp/1.out に期待される動作をするけれど、この /tmp/1, /tmp/1.out に任意の名前を与えるにはどうすれば良いのだろう。
command-line-args-left という変数に引数のリストが入るらしい

次のように書いておいて、

(provide 'batch-sort-file)

(defun batch-sort-file()
  "Just sort file, important thing is: done by emacs internal code order"
   (interactive)
   (set 'in_file (car command-line-args-left))
   (set 'out_file(car (cdr command-line-args-left)))
   (insert-file-contents in_file)
   (sort-lines nil (point-min) (point-max))
   (write-file out_file)
)
;;; batch-sort-file.el ends here

次のようにシェルで起動すれば input-file -> output-file と書替えてくれる

emacs -batch -q -no-site-file -l batch-sort-file.el -f batch-sort-file  \
  input-file output-file