aboutsummaryrefslogtreecommitdiffstats
path: root/elisp
diff options
context:
space:
mode:
authorOscar Najera <hi@oscarnajera.com>2023-09-30 12:50:52 +0200
committerOscar Najera <hi@oscarnajera.com>2023-09-30 12:50:52 +0200
commit6e205a249a2b3656bb1759bc9ed7f15918ca5654 (patch)
tree2a7a7045b6998147ca88ba3b9d9e0e67a30b1a3a /elisp
parenta3b8c3406c1f6259e19f033f6ef340f1a6b5958d (diff)
downloaddotfiles-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.el9
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))