Quellcode durchsuchen

Add link to timestamp

Yuchen Pei vor 11 Monaten
Ursprung
Commit
211159547e
1 geänderte Dateien mit 10 neuen und 2 gelöschten Zeilen
  1. 10 2
      exitter.el

+ 10 - 2
exitter.el

@@ -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