如何从dired模式创建新文件？

Question

我想在dired模式下创建一个新文件。在dired模式下有"create new file“命令吗？例如，当我在dired模式下输入"c“时，它会创建"untitled.txt”。很简单，但是我找不到。

Answer 1

只要按C-x C-f就行了。这将提示输入文件名，并使用当前缓冲区的当前目录作为放置该文件的目录。对于dired buffer，它的当前目录就是您正在查看的目录。

Answer 2

如果您想让处于Dired模式的c执行C-x C-f所做的事情，那么答案就是简单的

(define-key dired-mode-map "c" 'find-file)

或者，如果您希望它的名称为untitled.txt，那么：

(define-key dired-mode-map "c"
  (lambda () (interactive) (find-file "untitled.txt")))

Answer 3

多亏了所有人，我终于自己解决了，。Here是我的答案。在dired模式下键入"c“将提示您创建新的无标题文件。然后按enter将创建新的无标题文件。是的，这是非常冗长的代码。也许有人会修好它。

(eval-after-load 'dired
  '(progn
     (define-key dired-mode-map (kbd "c") 'my-dired-create-file)
     (defun create-new-file (file-list)
       (defun exsitp-untitled-x (file-list cnt)
         (while (and (car file-list) (not (string= (car file-list) (concat "untitled" (number-to-string cnt) ".txt"))))
           (setq file-list (cdr file-list)))
         (car file-list))

       (defun exsitp-untitled (file-list)
         (while (and (car file-list) (not (string= (car file-list) "untitled.txt")))
           (setq file-list (cdr file-list)))
         (car file-list))

       (if (not (exsitp-untitled file-list))
           "untitled.txt"
         (let ((cnt 2))
           (while (exsitp-untitled-x file-list cnt)
             (setq cnt (1+ cnt)))
           (concat "untitled" (number-to-string cnt) ".txt")
           )
         )
       )
     (defun my-dired-create-file (file)
       (interactive
        (list (read-file-name "Create file: " (concat (dired-current-directory) (create-new-file (directory-files (dired-current-directory))))))
        )
       (write-region "" nil (expand-file-name file) t) 
       (dired-add-file file)
       (revert-buffer)
       (dired-goto-file (expand-file-name file))
       )
     )
  )