35 lines
1.2 KiB
EmacsLisp
35 lines
1.2 KiB
EmacsLisp
;;; lang/rest/config.el -*- lexical-binding: t; -*-
|
|
|
|
(use-package! restclient
|
|
:mode ("\\.http\\'" . restclient-mode)
|
|
;; line numbers aren't enabled by default in fundamental-mode-derived modes
|
|
:hook (restclient-mode . display-line-numbers-mode)
|
|
:config
|
|
(set-popup-rule! "^\\*HTTP Response" :size 0.4 :quit 'other)
|
|
|
|
(setq-hook! 'restclient-mode-hook
|
|
imenu-generic-expression '((nil "^[A-Z]+\s+.+" 0)))
|
|
|
|
(defadvice! +rest--permit-self-signed-ssl-a (fn &rest args)
|
|
"Forces underlying SSL verification to prompt for self-signed or invalid
|
|
certs, rather than reject them silently."
|
|
:around #'restclient-http-do
|
|
(let (gnutls-verify-error tls-checktrust)
|
|
(apply fn args)))
|
|
|
|
(map! :map restclient-mode-map
|
|
:n [return] #'+rest/dwim-at-point
|
|
:n "za" #'restclient-toggle-body-visibility
|
|
:n "zm" #'+rest/fold-all
|
|
:n "zr" #'outline-show-all
|
|
|
|
:localleader
|
|
"e" #'restclient-http-send-current
|
|
"E" #'restclient-http-send-current-raw
|
|
"c" #'restclient-copy-curl-command))
|
|
|
|
|
|
(use-package! company-restclient
|
|
:when (featurep! :completion company)
|
|
:after restclient
|
|
:config (set-company-backend! 'restclient-mode 'company-restclient))
|