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

Update docstrings

Browse source
This commit is contained in:
Marcus Kammer 2023-09-11 15:11:15 +02:00
parent 9c857ef8a9
commit dc76c16a2e
1 changed files with 15 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
bundle/bundle--linux.el
View file

@ -203,7 +203,15 @@ Takes OPTION as an argument and prints its description."
(or (cdr (assoc alias mk/remote/*host-aliases*)) alias))
(defun mk/remote/--systemctl-service (alias service command)
"Start a systemd SERVICE on a remote HOST."
"Execute a systemctl COMMAND on a systemd SERVICE on a remote host identified by ALIAS.
ALIAS is a string that specifies the remote host; it can be an
alias defined in `mk/remote/*host-aliases*'.
SERVICE is the name of the systemd service to operate on.
COMMAND is the systemctl command to execute on the service (e.g.,
'start', 'stop', 'status')."
(let* ((host (mk/remote/--get-real-host alias))
(buffer (generate-new-buffer (format "*%s-%s-%s*" alias service command)))
(process-name (format "systemctl-%s-%s" command service))
@ -217,6 +225,12 @@ Takes OPTION as an argument and prints its description."
:sentinel sentinel)))
(defmacro mk/remote/define-systemctl-functions (&rest actions)
"Dynamically create functions to interact with systemd services on a remote host.
Each function will be named `mk/remote/ACTION-service', where
ACTION is one of the symbols in ACTIONS. The functions will take
an ALIAS and SERVICE as arguments and call
`mk/remote/--systemctl-service' accordingly."
`(progn
,@(mapcar
(lambda (action)