Add filename to fn name

This commit is contained in:
Marcus Kammer 2023-11-04 19:26:47 +01:00
parent 52e9a803dc
commit c4f752b68b

View file

@ -254,11 +254,12 @@ an ALIAS and SERVICE as arguments and call
(defmacro mk/define-remote-log-function (alias service &optional filename)
"Define a function to asynchronously tail a remote log file."
(let ((fname (if filename filename "")))
`(defun ,(intern (format "mk/remote-log-%s-%s" alias service)) ()
`(defun ,(intern (format "mk/remote-log-%s-%s-%s" alias service filename)) ()
,(format "Tail the remote log file: %s" filename)
(interactive)
(mk/remote--log ,alias ,service ,fname))))
(mk/define-remote-log-function "website" "nginx" "access.csv")
(mk/define-remote-log-function "website" "nginx" "error.log")
(mk/define-remote-log-function "website" "syslog")
(mk/define-remote-log-function "metalisp" "nginx" "access.csv")