diff options
author | Tom Willemse | 2013-11-06 23:29:04 +0100 |
---|---|---|
committer | Tom Willemse | 2013-11-06 23:29:04 +0100 |
commit | db5cde9c3bde5eeccd67e0921344874fede81602 (patch) | |
tree | 744a9f1bee31cc81cf98cd47c41baa1549011fda | |
parent | 42d776690bea26d44b7fb891c2aa8ab2c3ed6adc (diff) | |
download | hypo-emacs-db5cde9c3bde5eeccd67e0921344874fede81602.tar.gz hypo-emacs-db5cde9c3bde5eeccd67e0921344874fede81602.zip |
Print messages after successful operations
-rw-r--r-- | NEWS | 1 | ||||
-rw-r--r-- | hypo.el | 13 |
2 files changed, 9 insertions, 5 deletions
@@ -4,3 +4,4 @@ current session. - Add customization group and allow specification of the URL where hypo runs. + - Print messages after successful operations. @@ -52,7 +52,9 @@ sent to hypo.") (let* ((start (search-forward "\n\n")) (end (1- (search-forward "\n")))) (setq hypo--last-post (buffer-substring-no-properties (- end 7) end)) - (copy-region-as-kill start end))) + (copy-region-as-kill start end) + (message "Copied %s to kill-ring" + (buffer-substring-no-properties start end)))) (defun hypo--collect-and-kill (status) "Collect the returned url and kill the current buffer. @@ -117,10 +119,11 @@ STATUS is ignored." "Delete the last thing sent to hypo." (interactive) (unless hypo--last-post (error "Nothing posted this session")) - (let ((url-request-method "DELETE")) - (url-retrieve (format "%s/%s" hypo-instance-url hypo--last-post) - #'ignore) - (setq hypo--last-post nil))) + (let ((url-request-method "DELETE") + (url (format "%s/%s" hypo-instance-url hypo--last-post))) + (url-retrieve url #'ignore) + (setq hypo--last-post nil) + (message "Deleted %s" url))) (provide 'hypo) ;;; hypo.el ends here |