equal
deleted
inserted
replaced
2 (defvar my/spring-actuator-server-history nil) |
2 (defvar my/spring-actuator-server-history nil) |
3 (defvar my/spring-actuator-last-server "http://localhost:8080") |
3 (defvar my/spring-actuator-last-server "http://localhost:8080") |
4 (defvar my/spring-actuator-path-history nil) |
4 (defvar my/spring-actuator-path-history nil) |
5 (defvar my/spring-actuator-path-completion |
5 (defvar my/spring-actuator-path-completion |
6 '("actuator" "auditevents" "autoconfig" "beans" "configprops" "dump" "env" "features" "flyway" "health" "heapdump" |
6 '("actuator" "auditevents" "autoconfig" "beans" "configprops" "dump" "env" "features" "flyway" "health" "heapdump" |
7 "info" "jolokia" "liquibase" "logfile" "loggers" "mappings" "metrics" "trace"))) |
7 "info" "jolokia" "liquibase" "logfile" "loggers" "mappings" "metrics" "trace")) |
8 |
8 |
9 ;;;###autoload |
9 ;;;###autoload |
10 (defun my/spring-actuator (server path) |
10 (defun my/spring-actuator (server path) |
11 (interactive (list (read-string "Server: " my/spring-actuator-last-server 'my/spring-actuator-server-history) |
11 (interactive (list (read-string "Server: " my/spring-actuator-last-server 'my/spring-actuator-server-history) |
12 (completing-read "Path: " my/spring-actuator-path-completion nil nil "" 'my/spring-actuator-path-history))) |
12 (completing-read "Path: " my/spring-actuator-path-completion nil nil "" 'my/spring-actuator-path-history))) |