diff options
Diffstat (limited to '.emacs.d/lisp/init-misc.el')
| -rw-r--r-- | .emacs.d/lisp/init-misc.el | 32 |
1 files changed, 32 insertions, 0 deletions
diff --git a/.emacs.d/lisp/init-misc.el b/.emacs.d/lisp/init-misc.el index d5e06a3..c5684f9 100644 --- a/.emacs.d/lisp/init-misc.el +++ b/.emacs.d/lisp/init-misc.el @@ -15,6 +15,38 @@ :hook (elpaca-after-init . envrc-global-mode)) (use-package restclient + :config + (defvar restclient-saved-requests nil) + (defun restclient-save-current (label) + "Save the current request as `label' (or use a default based on method, url and entity)." + (interactive "sLabel: ") + (restclient-http-parse-current-and-do + `(lambda (method url headers entity) + (let ((lab (if (string-empty-p ,label) + (format "%s %s (%s ...)" method url (substring entity 0 (min (length entity) 200))) + ,label))) + (push (cons lab (list method url headers entity nil nil)) restclient-saved-requests))))) + + (defun restclient-delete-saved-request () + "Delete a saved request." + (interactive) + (if (= 0 (length restclient-saved-requests)) + (message "No saved restclient requests to delete.") + (setq restclient-saved-requests + (assoc-delete-all (completing-read "Delete: " (map-keys restclient-saved-requests)) restclient-saved-requests)))) + + (defun restclient-call-saved-request () + "Call a saved request." + (interactive) + (if (= 0 (length restclient-saved-requests)) + (message "No saved restclient requests found.") + (let ((args (if (= 1 (length restclient-saved-requests)) + (cdar restclient-saved-requests) + (alist-get (completing-read "Call: " (map-keys restclient-saved-requests)) restclient-saved-requests nil nil 'string-equal)))) + (apply 'restclient-http-do args)))) + :bind + ("C-c C-h" . restclient-call-saved-request) + (:map restclient-mode-map ("C-c h" . restclient-save-current)) :mode (("\\.http\\'" . restclient-mode))) (use-package restclient-jq |