marcuskammer/emacs.d
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add filename to fn name

Browse source
This commit is contained in:
Marcus Kammer 2023-11-04 19:26:47 +01:00
parent 52e9a803dc
commit c4f752b68b
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
bundle/bundle--linux.el
View file

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