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" "flyway" "health" "heapdump"

     6   '("actuator" "auditevents" "autoconfig" "beans" "configprops" "dump" "env" "flyway" "health" "heapdump"

     7     "info" "jolokia" "liquibase" "logfile" "loggers" "mappings" "metrics" "shutdown" "trace")))

     7     "info" "jolokia" "liquibase" "logfile" "loggers" "mappings" "metrics" "shutdown" "trace")))

     8 

     8 

     9 (defun my/spring-actuator (server path)

    10 (defun my/spring-actuator (server path)

    10   (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)

    11                      (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)))

    12   (setq my/spring-actuator-last-server server)

    13   (setq my/spring-actuator-last-server server)

    13   (let ( (bufname (format "actuator: %s" path)) )

    14   (let ( (bufname (format "actuator: %s" path)) )

    18     (goto-char (point-min))

    19     (goto-char (point-min))

    19     (re-search-forward "^$" nil 'move)

    20     (re-search-forward "^$" nil 'move)

    20     (forward-char)

    21     (forward-char)

    21     (delete-region (point-min) (point))

    22     (delete-region (point-min) (point))

    22     (json-pretty-print-buffer)

    23     (json-pretty-print-buffer)

    23     (json-mode) ))

    25     (json-mode) ))