|
@@ -554,11 +554,17 @@ Including ancestors and descendants, if any."
|
|
|
"\n")))
|
|
"\n")))
|
|
|
|
|
|
|
|
(defun exitter-save-posts (filtered-details id)
|
|
(defun exitter-save-posts (filtered-details id)
|
|
|
- (pp filtered-details)
|
|
|
|
|
|
|
+ ;; (pp filtered-details)
|
|
|
(exitter-save-text-and-switch-to-buffer
|
|
(exitter-save-text-and-switch-to-buffer
|
|
|
(exitter-format-posts filtered-details)
|
|
(exitter-format-posts filtered-details)
|
|
|
(format "~/Downloads/%s.org" id)))
|
|
(format "~/Downloads/%s.org" id)))
|
|
|
|
|
|
|
|
|
|
+(defun exitter-post-url (user post-id)
|
|
|
|
|
+ (format "https://x.com/%s/status/%s" user post-id))
|
|
|
|
|
+
|
|
|
|
|
+(defun exitter-make-org-link (link desc)
|
|
|
|
|
+ (format "[[%s][%s]]" link desc))
|
|
|
|
|
+
|
|
|
(defun exitter-format-post (post level)
|
|
(defun exitter-format-post (post level)
|
|
|
"Format a POST with indent LEVEL."
|
|
"Format a POST with indent LEVEL."
|
|
|
(let-alist post
|
|
(let-alist post
|
|
@@ -566,7 +572,9 @@ Including ancestors and descendants, if any."
|
|
|
(make-string level ?*)
|
|
(make-string level ?*)
|
|
|
.author.name
|
|
.author.name
|
|
|
.author.screen_name
|
|
.author.screen_name
|
|
|
- (exitter--relative-time-description .created_at)
|
|
|
|
|
|
|
+ (exitter-make-org-link
|
|
|
|
|
+ (exitter-post-url .author.screen_name .id_str)
|
|
|
|
|
+ (exitter--relative-time-description .created_at))
|
|
|
(exitter-replace-t-co-links (or .expanded_text .full_text)
|
|
(exitter-replace-t-co-links (or .expanded_text .full_text)
|
|
|
(or .extra_urls .urls))
|
|
(or .extra_urls .urls))
|
|
|
(if .quoted
|
|
(if .quoted
|