diff options
| author | Oscar Najera <hi@oscarnajera.com> | 2023-09-30 12:50:52 +0200 |
|---|---|---|
| committer | Oscar Najera <hi@oscarnajera.com> | 2023-09-30 12:50:52 +0200 |
| commit | 6e205a249a2b3656bb1759bc9ed7f15918ca5654 (patch) | |
| tree | 2a7a7045b6998147ca88ba3b9d9e0e67a30b1a3a /elisp | |
| parent | a3b8c3406c1f6259e19f033f6ef340f1a6b5958d (diff) | |
| download | dotfiles-6e205a249a2b3656bb1759bc9ed7f15918ca5654.tar.gz dotfiles-6e205a249a2b3656bb1759bc9ed7f15918ca5654.tar.bz2 dotfiles-6e205a249a2b3656bb1759bc9ed7f15918ca5654.zip | |
journalctl default line count & make linter happy
Diffstat (limited to 'elisp')
| -rw-r--r-- | elisp/journalctl.el | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/elisp/journalctl.el b/elisp/journalctl.el index 98af8ce..84ec1e1 100644 --- a/elisp/journalctl.el +++ b/elisp/journalctl.el @@ -127,7 +127,7 @@ "List of possible options to be given to journalctl." ) (transient-define-prefix journalct-opts () - "prefix for opts" + "Prefix for opts." ["infixes" ("f" "follow" "--follow") ("h" "host" "--host=" :choices journalctl-hosts :prompt "hus: ") @@ -158,7 +158,7 @@ It seems I must kill the buffer for tramp to behave correctly on the new calls." (delq nil))))) (defun journalctl-read-system-units (_prompt host-location history) - "Query HOST-LOCATION (a tramp path) for its systemd units." + "Query HOST-LOCATION (a tramp path) for its systemd units, given command HISTORY." (completing-read "Unit: " (journalctl--system-units host-location) nil nil nil history)) @@ -189,7 +189,7 @@ If OPT is set, remove this option." (journalctl host)))) (defun journalctl-edit-opts () - "Edit the value of 'journalctl-current-opts'." + "Edit the value of `journalctl-current-opts'." (interactive) (let* ((host journalctl-current-host) (opts journalctl-current-opts) @@ -223,7 +223,8 @@ If OPT is set, remove this option." (interactive (let ((picked-host (completing-read "Tramp host: " journalctl-hosts))) (list picked-host - `(("--unit" ,(journalctl-read-system-units nil picked-host nil)) ("--follow"))))) + `(("--unit" ,(journalctl-read-system-units nil picked-host nil)) ("--follow") + ("--lines" "100"))))) (let ((buffer (journalctl--clean-buffer)) (default-directory host)) (apply #'start-file-process "Journal" buffer "journalctl" (flatten-tree options)) |