จะสร้างไฟล์ใหม่จากโหมด dired ได้อย่างไร?

เพียงกด C-x C-f สิ่งนี้จะแจ้งให้ระบุชื่อไฟล์โดยใช้ไดเร็กทอรีปัจจุบันของบัฟเฟอร์ปัจจุบันเป็นไดเร็กทอรีที่จะใส่เข้าไป สำหรับบัฟเฟอร์ที่เสียหาย ไดเร็กทอรีปัจจุบันเป็นเพียงไดเร็กทอรีที่คุณกำลังดูอยู่

หากคุณต้องการให้ c ในโหมด Dired ทำสิ่งที่ 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")))

ขอขอบคุณทุกคน ในที่สุดฉันก็แก้ปัญหาด้วยตัวเอง นี่คือคือคำตอบของฉัน การพิมพ์ "c" ในโหมด dired จะทำให้คุณสร้างไฟล์ที่ไม่มีชื่อใหม่ จากนั้นกด 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))
       )
     )
  )

1. กด C-x C-f
2. ป้อนชื่อไฟล์
3. กด C-j

หลังจากขั้นตอนข้างต้น emacs จะสร้างบัฟเฟอร์ว่างตามชื่อที่คุณป้อน แต่ emacs ไม่รองรับการสร้างไฟล์เปล่าตามค่าเริ่มต้น คุณสามารถอ้างถึง ฉันจะสร้างไฟล์ว่างใน emacs ได้อย่างไร สำหรับแนวคิดเพิ่มเติม

รายการต่อไปนี้มีสอง (2) ตัวเลือก หนึ่งในนั้นกำหนดให้ touch อยู่ใน $PATH หรืออาจใช้เส้นทางสัมบูรณ์ก็ได้ touch โดยปกติจะมีอยู่ในระบบยูนิกซ์ เช่น OSX เป็นต้น ฟังก์ชันนี้จะกำหนดหมายเลขไฟล์/บัฟเฟอร์อย่างต่อเนื่องโดยอัตโนมัติ เช่น 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-n-p (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-n-p (format "Open `%s'? "lawlist-filename))
            (error "Done."))
          (find-file lawlist-filename)
          (text-mode))
        (t (message "You have exited the function.")) )) ))

หากคุณต้องการป้อนชื่อไฟล์ ฉันคิดว่านี่ซ้ำกับ:

ฉันจะสร้างไฟล์ว่างใน emacs ได้อย่างไร

หากคุณไม่ต้องการป้อนชื่อไฟล์ คุณยังสามารถใช้คำตอบบางคำตอบเหล่านั้นได้ และปรับเปลี่ยนคำตอบอื่นๆ ได้อย่างง่ายดายด้วยการเขียนโค้ดชื่อแบบฮาร์ดโค้ด แทนที่จะต้องถามแบบโต้ตอบ