diff options
| -rw-r--r-- | exitter.el | 12 |
1 files changed, 10 insertions, 2 deletions
@@ -554,11 +554,17 @@ Including ancestors and descendants, if any." "\n"))) (defun exitter-save-posts (filtered-details id) - (pp filtered-details) + ;; (pp filtered-details) (exitter-save-text-and-switch-to-buffer (exitter-format-posts filtered-details) (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) "Format a POST with indent LEVEL." (let-alist post @@ -566,7 +572,9 @@ Including ancestors and descendants, if any." (make-string level ?*) .author.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) (or .extra_urls .urls)) (if .quoted |