浏览代码

No longer hardcode download dir

Yuchen Pei 11 月之前
父节点
当前提交
9af8216d54
共有 1 个文件被更改,包括 4 次插入1 次删除
  1. 4 1
      exitter.el

+ 4 - 1
exitter.el

@@ -553,11 +553,14 @@ Including ancestors and descendants, if any."
      (hierarchy-map 'exitter-format-post posts-hier 1)
      "\n")))
 
+(defvar exitter-dir (locate-user-emacs-file "exitter")
+  "Path to local directory of saved threads.")
+
 (defun exitter-save-posts (filtered-details id)
   ;; (pp filtered-details)
   (exitter-save-text-and-switch-to-buffer
    (exitter-format-posts filtered-details)
-   (format "~/Downloads/%s.org" id)))
+   (format (file-name-concat exitter-dir (format "%s.org" id)))))
 
 (defun exitter-post-url (user post-id)
   (format "https://x.com/%s/status/%s" user post-id))