From 0f663fabc68d726ac02bc41a875a6e564ecd15ae Mon Sep 17 00:00:00 2001
From: Tom Willemse
Date: Thu, 7 Dec 2023 21:59:45 -0800
Subject: Display a different message for an update rather than create

---
 tekuti.el | 14 ++++++++------
 1 file changed, 8 insertions(+), 6 deletions(-)

diff --git a/tekuti.el b/tekuti.el
index e01c609..bbd4e56 100644
--- a/tekuti.el
+++ b/tekuti.el
@@ -93,7 +93,7 @@
    data
    "&"))
 
-(defun tekuti--send-finished (status buffer args)
+(defun tekuti--send-finished (status buffer args updatep)
   (pcase-exhaustive status
     (`(:redirect ,url . ,_)
      (save-excursion
@@ -117,9 +117,9 @@
                                    (car (url-path-and-query
                                          (url-generic-parse-url url))))
                    "\n"))))
-     (message "Created new post: %s" url))
+     (message "%s post: %s" (if updatep "Updated" "Created new") url))
     (`(:error (error http ,code) . ,_)
-     (message "Failed to create post: %d" code))))
+     (message "Failed to %s post: %d" (if updatep "update" "create") code))))
 
 (defun tekuti--get-update-url ()
   (save-excursion
@@ -133,12 +133,14 @@
          (url-request-method "POST")
          (url-request-extra-headers
           `(("Content-Type" . "application/x-www-form-urlencoded")))
-         (url-request-data (tekuti-form-encode-data data)))
+         (url-request-data (tekuti-form-encode-data data))
+         (previous-update-url (tekuti--get-update-url))
+         (updatep (not (null previous-update-url))))
     (url-retrieve (format "%s%s" tekuti-host
-                          (or (tekuti--get-update-url)
+                          (or previous-update-url
                               "/admin/new-post"))
                   #'tekuti--send-finished
-                  (list (current-buffer) data))))
+                  (list (current-buffer) data updatep))))
 
 (provide 'tekuti)
 ;;; tekuti.el ends here
-- 
cgit v1.2.3-54-g00ecf