Как мне создать пустой файл в emacs?

Вот адаптация dired-create-directory. Он работает таким же образом, поэтому, помимо простого имени файла, вы также можете указать новые родительские каталоги (которые будут созданы в текущем каталоге) для файла (например, foo/bar/filename).

(eval-after-load 'dired
  '(progn
     (define-key dired-mode-map (kbd "C-c n") 'my-dired-create-file)
     (defun my-dired-create-file (file)
       "Create a file called FILE.
If FILE already exists, signal an error."
       (interactive
        (list (read-file-name "Create file: " (dired-current-directory))))
       (let* ((expanded (expand-file-name file))
              (try expanded)
              (dir (directory-file-name (file-name-directory expanded)))
              new)
         (if (file-exists-p expanded)
             (error "Cannot create file %s: file exists" expanded))
         ;; Find the topmost nonexistent parent dir (variable `new')
         (while (and try (not (file-exists-p try)) (not (equal new try)))
           (setq new try
                 try (directory-file-name (file-name-directory try))))
         (when (not (file-exists-p dir))
           (make-directory dir t))
         (write-region "" nil expanded t)
         (when new
           (dired-add-file new)
           (dired-move-to-filename))))))

Вы можете использовать сенсорную команду:

M-! touch __init__.py RET

The following works:

C-x b __init__.py RET C-x C-w RET

Если вы находитесь в управляемом буфере, файл будет сохранен в каталоге, показанном здесь.

Хитрость заключается в том, чтобы сначала создать пустой буфер, переключившись на несуществующее имя. Затем распишите файл.

Если вы хотите, чтобы Emacs считал все новые файлы измененными, вы можете автоматизировать решение следующим образом:

(add-hook 'find-file-hooks 'assume-new-is-modified)
(defun assume-new-is-modified ()
  (when (not (file-exists-p (buffer-file-name)))
    (set-buffer-modified-p t)))

Emacs не позволит вам сохранить буфер, если не считает, что его содержимое изменилось. Самый быстрый, хотя, возможно, и не самый чистый - это открыть файл с помощью C-x C-f, затем нажать (скажем) пробел и backspace, после чего вы сможете сохранить файл без содержимого.

Есть и другие способы изменить флаг «буфер был изменен», но я не думаю, что это проще.

Программно и без какой-либо зависимости от touch это довольно просто:

(with-temp-buffer (write-file "path/to/empty/file/"))

После этого потока Emacs добавил две новые команды:

1. сделать пустой файл
2. dired-создать-пустой-файл

Эти команды будут доступны в выпуске emacs 27.1.

Используйте сенсорную команду.

M-! touch __init__.py RET

Кратчайший путь

Создает пустой файл с помощью операции оболочки (но не открывает его):

М-! > __init__.py RET

Откройте новый файл:

C-x C-f RET

(Примечание: нам не нужно снова вводить имя, потому что новый файл автоматически выбирается первым)

(shell-command (concat "touch " (buffer-file-name))) будет делать то, что вы хотите, если вы уже открыли пустой файл.

В дополнение к другим ответам на странице вы можете использовать функцию f.el _ 2_:

M-: (f-touch "__init__.py") RET

Вы можете пометить пустой буфер как измененный, запустив _1 _ . Затем, когда вы его сохраните, Emacs запишет файл.

M-;                         ; Eval
(set-buffer-modified-p t)   ; Mark modified
C-x C-s                     ; Save buffer

Я использую следующую привязку к t в dired.

(defun my-dired-touch (filename)
  (interactive (list (read-string "Filename: " ".gitkeep")))
  (with-temp-buffer
    (write-file filename)))

;; optionally bind it in dired
(with-eval-after-load 'dired
  (define-key dired-mode-map "t" 'my-dired-touch))

Я изменил ответ MrBones и создал настраиваемую функцию с привязкой клавиш:

; create empty __init__.py at the place
(defun create-empty-init-py()
  (interactive)
  (shell-command "touch __init__.py")
)
(global-set-key (kbd "C-c p i") 'create-empty-init-py)

Это очень полезно, чтобы не тратить время на повторяющиеся действия по созданию init .py везде в новой папке проекта Python.

Оптимальным вариантом будет:

(with-temp-file "filename"
  (insert ""))