ryuslash/tekuti-el
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Display a different message for an update rather than create

Browse source
This commit is contained in:
Tom Willemse 2023-12-07 21:59:45 -08:00
parent d41e65e406
commit 0f663fabc6
1 changed files with 8 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
tekuti.el
View file

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