spring-actuator.el
changeset 1666 06937ff1ec5f
parent 1665 3685e2321a9b
child 1667 7f70095fbf32
--- a/spring-actuator.el	Sat Jan 02 00:27:54 2021 +0200
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,33 +0,0 @@
-
-(require 'json)
-(require 'js)
-
-(defvar spring-actuator-server-history nil)
-(defvar spring-actuator-last-server "http://localhost:8080")
-(defvar spring-actuator-path-history nil)
-(defvar spring-actuator-path-completion
-  '("actuator" "auditevents" "autoconfig" "beans" "configprops" "dump" "env" "features" "flyway" "health" "heapdump"
-    "info" "jolokia" "liquibase" "logfile" "loggers" "mappings" "metrics" "trace"))
-
-;;;###autoload
-(defun spring-actuator (server path)
-  (interactive (list (read-string "Server: " spring-actuator-last-server 'spring-actuator-server-history)
-                     (completing-read "Path: " spring-actuator-path-completion nil nil "" 'spring-actuator-path-history)))
-  (setq spring-actuator-last-server server)
-  (let ( (bufname (format "actuator: %s" path)) )
-    (when (get-buffer bufname)
-      (kill-buffer bufname))
-    (switch-to-buffer (url-retrieve-synchronously (format "%s/%s" server path)))
-    (rename-buffer bufname)
-    (goto-char (point-min))
-    (re-search-forward "^$" nil 'move)
-    (forward-char)
-    (delete-region (point-min) (point))
-    (json-pretty-print-buffer)
-    (goto-char (point-min))
-    (if (fboundp 'json-mode)
-        (json-mode)
-      (js-mode))
-    (setq-local js-indent-level 2)))
-
-(provide 'spring-actuator)