如何从dired模式创build新文件?

我想在dired模式下创build一个新的文件。 在直接模式下是否有“创build新文件”命令? 例如,当我在直接模式下键入“c”时,它会创build“untitled.txt”。 这很简单,但我找不到。

只要按Cx Cf. 这将提示input一个文件名,使用当前缓冲区的当前目录作为目录放置它。对于一个dired缓冲区,它的当前目录就是你正在查看的目录。

如果你想在Dired模式下用Cx CfCx Cf ,答案是微不足道的

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

或者,如果你想要它的名字untitled.txt然后:

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

感谢所有, 我终于自己解决了 。 这是我的答案。 在dired模式下键入“c”会提示您创build新的无标题文件。 然后按回车将创build新的无标题文件。 是的,这是非常详细的代码。 有人可能会修复它。

 (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)) ) ) ) 

以下包含两个(2)选项,其中一个选项要求在$PATHtouch – 或者,可以使用绝对path。 touch通常在unix风味系统上可用,例如OSX等。这个function会自动为文件/缓冲区编号 – 例如untitled.txt; untitled1.txt; untitled2.txt等

 (define-key dired-mode-map (kbd "c") 'dired-new-file) (defun dired-new-file () (interactive) (let* ( (n 0) lawlist-filename (dired-buffer-name (buffer-name))) (catch 'done (while t (setq lawlist-filename (concat "untitled" (if (= n 0) "" (int-to-string n)) ".txt")) (setq n (1+ n)) (if (not (file-exists-p lawlist-filename)) (throw 'done nil)) )) (message "[b]uffer + file (maybe) | [f]ile + buffer (maybe)") (let ((file-or-buffer (read-char-exclusive))) (cond ((eq file-or-buffer ?b) (switch-to-buffer (get-buffer-create lawlist-filename)) (text-mode) (or (y-or-np (format "Save Buffer `%s'? "lawlist-filename)) (error "Done.")) (write-file lawlist-filename) (with-current-buffer dired-buffer-name (revert-buffer))) ((eq file-or-buffer ?f) (start-process "touch-file" nil "touch" lawlist-filename) (revert-buffer) (or (y-or-np (format "Open `%s'? "lawlist-filename)) (error "Done.")) (find-file lawlist-filename) (text-mode)) (t (message "You have exited the function.")) )) )) 
  1. 按Cx Cf
  2. input文件名称
  3. 按Cj

在完成上述步骤之后,emacs将会用你input的名字创build一个空的缓冲区。 但是emacs默认不支持创build空文件。 你可以参考我如何在emacs中创build一个空文件以获得更多的想法

如果你想input文件名,那么我认为这是重复的:

如何在emacs中创build一个空文件?

如果你不想input文件名,你仍然可以使用其中的一些答案,并通过硬编码名称而不是交互式地提示来适应其他人。