1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
(load "~/glibc/dark_c/emacs-symfony-cli/http-content.el")
(load "~/glibc/dark_c/emacs-symfony-cli/elisp-http-style.el")
(load "~/glibc/dark_c/emacs-symfony-cli/elisp-http-prompt.el")
;;;;(global-set-key (kbd "M-m") #'(lambda () (interactive) (elisp-http) (monitor-http-buffer)))
;;(setq http-content (elisp-http-register-content))
;;(setq http-content (elisp-http-make-content))
(defun elisp-http ()
(interactive)
(make-network-process
:name "elisp-post"
:host "localhost"
:service 8080
|
>
>
>
>
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
(load "~/glibc/dark_c/emacs-symfony-cli/http-content.el")
(load "~/glibc/dark_c/emacs-symfony-cli/elisp-http-style.el")
(load "~/glibc/dark_c/emacs-symfony-cli/elisp-http-prompt.el")
;;;;(global-set-key (kbd "M-m") #'(lambda () (interactive) (elisp-http) (monitor-http-buffer)))
;;(setq http-content (elisp-http-register-content))
;;(setq http-content (elisp-http-make-content))
;;(setq http-content (elisp-http-login-content))
http-content
(defun elisp-http ()
(interactive)
(make-network-process
:name "elisp-post"
:host "localhost"
:service 8080
|
42
43
44
45
46
47
48
49
50
51
|
(display-buffer buf)
(when (timerp monitor-http-buffer--timer)
(cancel-timer monitor-http-buffer--timer))))))))
curl -X POST http://localhost:8000/api/login_check \
-H "Content-Type: application/json" \
-d '{"username": "admin@example.com", "password": "password"}'
|
<
<
<
|
46
47
48
49
50
51
52
|
(display-buffer buf)
(when (timerp monitor-http-buffer--timer)
(cancel-timer monitor-http-buffer--timer))))))))
|