use tl--property 'prop :no-move. FIX #416

1 files changed, 15 insertions, 15 deletions

diff --git a/lisp/mastodon-views.el b/lisp/mastodon-views.el
index 5cfbe41..762efa9 100644
--- a/lisp/mastodon-views.el
+++ b/lisp/mastodon-views.el
@@ -280,7 +280,7 @@ a: add account to this list, r: remove account from this list"
 (defun mastodon-views--edit-list-at-point ()
   "Edit list at point."
   (interactive)
-  (let ((id (get-text-property (point) 'list-id)))
+  (let ((id (mastodon-tl--property 'list-id :no-move)))
     (mastodon-views--edit-list id)))
 
 (defun mastodon-views--edit-list (&optional id)
@@ -289,7 +289,7 @@ If ID is provided, use that list."
   (interactive)
   (let* ((list-names (unless id (mastodon-views--get-lists-names)))
          (name-old (if id
-                       (get-text-property (point) 'list-name)
+                       (mastodon-tl--property 'list-name :no-move)
                      (completing-read "Edit list: "
                                       list-names)))
          (id (or id (mastodon-views--get-list-id name-old)))
@@ -313,7 +313,7 @@ If ID is provided, use that list."
 (defun mastodon-views--view-timeline-list-at-point ()
   "View timeline of list at point."
   (interactive)
-  (let ((list-id (get-text-property (point) 'list-id)))
+  (let ((list-id (mastodon-tl--property 'list-id :no-move)))
     (mastodon-views--view-list-timeline list-id)))
 
 (defun mastodon-views--view-list-timeline (&optional id)
@@ -346,7 +346,7 @@ Prompt for name and replies policy."
 (defun mastodon-views--delete-list-at-point ()
   "Delete list at point."
   (interactive)
-  (let ((id (get-text-property (point) 'list-id)))
+  (let ((id (mastodon-tl--property 'list-id :no-move)))
     (mastodon-views--delete-list id)))
 
 (defun mastodon-views--delete-list (&optional id)
@@ -374,7 +374,7 @@ If ID is provided, delete that list."
 (defun mastodon-views--add-account-to-list-at-point ()
   "Prompt for account and add to list at point."
   (interactive)
-  (let ((id (get-text-property (point) 'list-id)))
+  (let ((id (mastodon-tl--property 'list-id :no-move)))
     (mastodon-views--add-account-to-list id)))
 
 (defun mastodon-views--add-account-to-list (&optional id account-id handle)
@@ -386,7 +386,7 @@ If ACCOUNT-ID and HANDLE are provided use them rather than prompting."
                           (format "Add %s to list: " handle)
                         "Add account to list: "))
          (list-name (if id
-                        (get-text-property (point) 'list-name)
+                        (mastodon-tl--property 'list-name :no-move)
                       (completing-read list-prompt
                                        (mastodon-views--get-lists-names) nil t)))
          (list-id (or id (mastodon-views--get-list-id list-name)))
@@ -414,7 +414,7 @@ If ACCOUNT-ID and HANDLE are provided use them rather than prompting."
 (defun mastodon-views--remove-account-from-list-at-point ()
   "Prompt for account and remove from list at point."
   (interactive)
-  (let ((id (get-text-property (point) 'list-id)))
+  (let ((id (mastodon-tl--property 'list-id :no-move)))
     (mastodon-views--remove-account-from-list id)))
 
 (defun mastodon-views--remove-account-from-list (&optional id)
@@ -422,7 +422,7 @@ If ACCOUNT-ID and HANDLE are provided use them rather than prompting."
 If ID is provided, use that list."
   (interactive)
   (let* ((list-name (if id
-                        (get-text-property (point) 'list-name)
+                        (mastodon-tl--property 'list-name :no-move)
                       (completing-read "Remove account from list: "
                                        (mastodon-views--get-lists-names) nil t)))
          (list-id (or id (mastodon-views--get-list-id list-name)))
@@ -527,7 +527,7 @@ If ID, just return that toot."
 (defun mastodon-views--reschedule-toot ()
   "Reschedule the scheduled toot at point."
   (interactive)
-  (let ((id (get-text-property (point) 'id)))
+  (let ((id (mastodon-tl--property 'id :no-move)))
     (if (null id)
         (message "no scheduled toot at point?")
       (mastodon-toot--schedule-toot :reschedule))))
@@ -535,7 +535,7 @@ If ID, just return that toot."
 (defun mastodon-views--copy-scheduled-toot-text ()
   "Copy the text of the scheduled toot at point."
   (interactive)
-  (let* ((toot (get-text-property (point) 'toot))
+  (let* ((toot (mastodon-tl--property 'toot :no-move))
          (params (alist-get 'params toot))
          (text (alist-get 'text params)))
     (kill-new text)))
@@ -545,7 +545,7 @@ If ID, just return that toot."
 ID is that of the scheduled toot to cancel.
 NO-CONFIRM means there is no ask or message, there is only do."
   (interactive)
-  (let ((id (or id (get-text-property (point) 'id))))
+  (let ((id (or id (mastodon-tl--property 'id :no-move))))
     (if (null id)
         (message "no scheduled toot at point?")
       (when (or no-confirm
@@ -561,10 +561,10 @@ NO-CONFIRM means there is no ask or message, there is only do."
 (defun mastodon-views--edit-scheduled-as-new ()
   "Edit scheduled status as new toot."
   (interactive)
-  (let ((id (get-text-property (point) 'id)))
+  (let ((id (mastodon-tl--property 'id :no-move)))
     (if (null id)
         (message "no scheduled toot at point?")
-      (let* ((toot (get-text-property (point) 'scheduled-json))
+      (let* ((toot (mastodon-tl--property 'scheduled-json :no-move))
              (scheduled (alist-get 'scheduled_at toot))
              (params (alist-get 'params toot))
              (text (alist-get 'text params))
@@ -661,8 +661,8 @@ Prompt for a context, must be a list containting at least one of \"home\",
 (defun mastodon-views--delete-filter ()
   "Delete filter at point."
   (interactive)
-  (let* ((filter-id (get-text-property (point) 'toot-id))
-         (phrase (get-text-property (point) 'phrase))
+  (let* ((filter-id (mastodon-tl--property 'toot-id :no-move))
+         (phrase (mastodon-tl--property 'phrase :no-move))
          (url (mastodon-http--api
                (format "filters/%s" filter-id))))
     (if (null phrase)