author | Oleksandr Gavenko <gavenkoa@gmail.com> |
Sun, 19 Feb 2017 14:38:21 +0200 | |
changeset 1483 | a25f209ebf15 |
child 1484 | 8fe1eaf66e94 |
permissions | -rw-r--r-- |
1483
a25f209ebf15
Library to access Spring Actuator endpoints.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
diff
changeset
|
1 |
|
a25f209ebf15
Library to access Spring Actuator endpoints.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
diff
changeset
|
2 |
(defvar my/spring-actuator-server-history nil) |
a25f209ebf15
Library to access Spring Actuator endpoints.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
diff
changeset
|
3 |
(defvar my/spring-actuator-last-server "http://localhost:8080") |
a25f209ebf15
Library to access Spring Actuator endpoints.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
diff
changeset
|
4 |
(defvar my/spring-actuator-path-history nil) |
a25f209ebf15
Library to access Spring Actuator endpoints.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
diff
changeset
|
5 |
(defvar my/spring-actuator-path-completion |
a25f209ebf15
Library to access Spring Actuator endpoints.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
diff
changeset
|
6 |
'("actuator" "auditevents" "autoconfig" "beans" "configprops" "dump" "env" "flyway" "health" "heapdump" |
a25f209ebf15
Library to access Spring Actuator endpoints.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
diff
changeset
|
7 |
"info" "jolokia" "liquibase" "logfile" "loggers" "mappings" "metrics" "shutdown" "trace"))) |
a25f209ebf15
Library to access Spring Actuator endpoints.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
diff
changeset
|
8 |
|
a25f209ebf15
Library to access Spring Actuator endpoints.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
diff
changeset
|
9 |
(defun my/spring-actuator (server path) |
a25f209ebf15
Library to access Spring Actuator endpoints.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
diff
changeset
|
10 |
(interactive (list (read-string "Server: " my/spring-actuator-last-server 'my/spring-actuator-server-history) |
a25f209ebf15
Library to access Spring Actuator endpoints.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
diff
changeset
|
11 |
(completing-read "Path: " my/spring-actuator-path-completion nil nil "" 'my/spring-actuator-path-history))) |
a25f209ebf15
Library to access Spring Actuator endpoints.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
diff
changeset
|
12 |
(setq my/spring-actuator-last-server server) |
a25f209ebf15
Library to access Spring Actuator endpoints.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
diff
changeset
|
13 |
(let ( (bufname (format "actuator: %s" path)) ) |
a25f209ebf15
Library to access Spring Actuator endpoints.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
diff
changeset
|
14 |
(when (get-buffer bufname) |
a25f209ebf15
Library to access Spring Actuator endpoints.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
diff
changeset
|
15 |
(kill-buffer bufname)) |
a25f209ebf15
Library to access Spring Actuator endpoints.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
diff
changeset
|
16 |
(switch-to-buffer (url-retrieve-synchronously (format "%s/%s" server path))) |
a25f209ebf15
Library to access Spring Actuator endpoints.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
diff
changeset
|
17 |
(rename-buffer bufname) |
a25f209ebf15
Library to access Spring Actuator endpoints.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
diff
changeset
|
18 |
(goto-char (point-min)) |
a25f209ebf15
Library to access Spring Actuator endpoints.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
diff
changeset
|
19 |
(re-search-forward "^$" nil 'move) |
a25f209ebf15
Library to access Spring Actuator endpoints.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
diff
changeset
|
20 |
(forward-char) |
a25f209ebf15
Library to access Spring Actuator endpoints.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
diff
changeset
|
21 |
(delete-region (point-min) (point)) |
a25f209ebf15
Library to access Spring Actuator endpoints.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
diff
changeset
|
22 |
(json-pretty-print-buffer) |
a25f209ebf15
Library to access Spring Actuator endpoints.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
diff
changeset
|
23 |
(json-mode) )) |