Add filename to fn name
This commit is contained in:
parent
52e9a803dc
commit
c4f752b68b
1 changed files with 2 additions and 1 deletions
|
@ -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")
|
||||
|
|
Loading…
Add table
Reference in a new issue