如何使用带有Emacs的`gist.el`编辑Gist文件名

Question

关于如何使用gist.el编辑现有Gist的文件名，任何人都可以引导我朝正确的方向前进吗？我尝试过修改gist-edit-current-description来处理文件名的修改，但是我尝试的变体没有起作用。下面是gist-edit-current-description函数--我假设编辑文件名与描述类似：

(defun gist-edit-current-description ()
  (interactive)
  (let* ((id (tabulated-list-get-id))
         (gist (gist-list-db-get-gist id))
         (old-descr (oref gist :description))
         (new-descr (read-from-minibuffer "Description: " old-descr)))
    (let* ((g (clone gist
                     :files nil
                     :description new-descr))
           (api (gist-get-api t))
           (resp (gh-gist-edit api g)))
      (gh-url-add-response-callback resp
                                    (lambda (gist)
                                      (gist-list-reload))))))

这可能有助于给一些人一些想法--这是在创建Gist时设置文件名的一种方法(它基于@Jordon Biondo - https://stackoverflow.com/a/22973794/2112489先前的回答)：

(defun gist-region-with-filename-description (begin end &optional filename description private callback)
  "Post the current region as a new paste at gist.github.com
Copies the URL into the kill ring.
With a prefix argument, makes a private paste."
  (interactive "r\nsGist Description: \nP") ;; we handle the prompt here!
  (let* ((file (or (buffer-file-name) (buffer-name)))
         (name (file-name-nondirectory file))
         (ext (or (cdr (assoc major-mode gist-supported-modes-alist))
                  (file-name-extension file)
                  "txt"))
         (fname (if filename filename (concat (file-name-sans-extension name) "." ext)))
         (files (list
                 (gh-gist-gist-file "file"
                                    :filename fname
                                    :content (buffer-substring begin end)))))
    ;; finally we use our new arg to specify the description in the internal call
    (gist-internal-new files private description callback)))

(defun gist-buffer-with-filename-description (&optional filename description private)
  "Post the current buffer as a new paste at gist.github.com.
Copies the URL into the kill ring.
With a prefix argument, makes a private paste."
  (interactive "P")
  (let* (
      (filename (if filename filename (read-string "Filename:  " (buffer-name))))
      (description (if description description (read-string "Description:  " (buffer-name)))))
    (gist-region-with-filename-description (point-min) (point-max) filename description private nil)))

Answer 1

开发人员在2014年12月29日添加了这个功能--函数是gist-mode-write-file，在访问文件时使用它。第55期：https://github.com/defunkt/gist.el/issues/55