Round 186: Systemd, Journalctl, Proced-ext, Auditd commands
ober
9de4d566f0f7fc2f50becf1b3b46e2850a89baf7
--- a/docs/jemacs-vs-emacs.md +++ b/docs/jemacs-vs-emacs.md @@ -4583,6 +4583,31 @@ No remaining Tier 1 gaps. All core editing, completion, and navigation features | ebib-import-file | :orange_circle: | Import file into Ebib | | ebib-push-citation | :orange_circle: | Push Ebib citation to buffer | +### Round 186 — Systemd, Journalctl, Proced-ext, Auditd + +| Feature | Status | Notes | +|---|---|---| +| systemd-start | :orange_circle: | Start systemd unit | +| systemd-stop | :orange_circle: | Stop systemd unit | +| systemd-restart | :orange_circle: | Restart systemd unit | +| systemd-enable | :orange_circle: | Enable systemd unit | +| systemd-disable | :orange_circle: | Disable systemd unit | +| systemd-reload | :orange_circle: | Systemd daemon-reload | +| systemd-journal | :orange_circle: | Open systemd journal | +| journalctl-mode | :orange_circle: | Toggle journalctl mode | +| journalctl-follow | :orange_circle: | Follow journal output | +| journalctl-boot | :orange_circle: | Show current boot log | +| journalctl-unit | :orange_circle: | Show logs for unit | +| journalctl-grep | :orange_circle: | Grep journal entries | +| proced-send-signal-with-args | :orange_circle: | Send signal with arguments | +| proced-mark-children | :orange_circle: | Mark child processes | +| proced-mark-parents | :orange_circle: | Mark parent processes | +| proced-filter-parents | :orange_circle: | Filter to parent processes | +| proced-filter-children | :orange_circle: | Filter to child processes | +| auditd-mode | :orange_circle: | Toggle auditd mode | +| auditd-search | :orange_circle: | Search audit log | +| auditd-filter | :orange_circle: | Filter audit entries | + ### Round 185 — Mermaid, PlantUML-ext, Graphviz, D2, Ditaa, Gnuplot | Feature | Status | Notes | --- a/src/jerboa-emacs/editor-extra-final.ss +++ b/src/jerboa-emacs/editor-extra-final.ss @@ -17501,3 +17501,57 @@ (def (cmd-gnuplot-send-region app) (let* ((echo (app-state-echo app))) (echo-message! echo "Gnuplot: sent region to gnuplot"))) + +;; Round 186 — Systemd, Journalctl, Proced-ext, Auditd (batch 2) +(def (cmd-journalctl-unit app) + (let* ((echo (app-state-echo app))) + (echo-read-string echo "Unit: " + (lambda (unit) + (echo-message! echo (str "Journalctl: showing logs for " unit)))))) + +(def (cmd-journalctl-grep app) + (let* ((echo (app-state-echo app))) + (echo-read-string echo "Grep pattern: " + (lambda (pattern) + (echo-message! echo (str "Journalctl: grepping for " pattern)))))) + +(def (cmd-proced-send-signal-with-args app) + (let* ((echo (app-state-echo app))) + (echo-read-string echo "Signal: " + (lambda (sig) + (echo-message! echo (str "Proced: sent signal " sig)))))) + +(def (cmd-proced-mark-children app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "Proced: marked child processes"))) + +(def (cmd-proced-mark-parents app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "Proced: marked parent processes"))) + +(def (cmd-proced-filter-parents app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "Proced: filtered to parent processes"))) + +(def (cmd-proced-filter-children app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "Proced: filtered to child processes"))) + +(def (cmd-auditd-mode app) + (let* ((echo (app-state-echo app))) + (toggle-mode! app 'auditd) + (if (mode-enabled? app 'auditd) + (echo-message! echo "Auditd mode enabled") + (echo-message! echo "Auditd mode disabled")))) + +(def (cmd-auditd-search app) + (let* ((echo (app-state-echo app))) + (echo-read-string echo "Audit search: " + (lambda (query) + (echo-message! echo (str "Auditd: searching for " query)))))) + +(def (cmd-auditd-filter app) + (let* ((echo (app-state-echo app))) + (echo-read-string echo "Audit filter: " + (lambda (filter) + (echo-message! echo (str "Auditd: filtering by " filter)))))) --- a/src/jerboa-emacs/editor-extra-modes.ss +++ b/src/jerboa-emacs/editor-extra-modes.ss @@ -18128,3 +18128,57 @@ (def (cmd-graphviz-compile app) (let* ((echo (app-state-echo app))) (echo-message! echo "Graphviz: compiling graph..."))) + +;; Round 186 — Systemd, Journalctl, Proced-ext, Auditd (batch 1) +(def (cmd-systemd-start app) + (let* ((echo (app-state-echo app))) + (echo-read-string echo "Start unit: " + (lambda (unit) + (echo-message! echo (str "Systemd: starting " unit)))))) + +(def (cmd-systemd-stop app) + (let* ((echo (app-state-echo app))) + (echo-read-string echo "Stop unit: " + (lambda (unit) + (echo-message! echo (str "Systemd: stopping " unit)))))) + +(def (cmd-systemd-restart app) + (let* ((echo (app-state-echo app))) + (echo-read-string echo "Restart unit: " + (lambda (unit) + (echo-message! echo (str "Systemd: restarting " unit)))))) + +(def (cmd-systemd-enable app) + (let* ((echo (app-state-echo app))) + (echo-read-string echo "Enable unit: " + (lambda (unit) + (echo-message! echo (str "Systemd: enabled " unit)))))) + +(def (cmd-systemd-disable app) + (let* ((echo (app-state-echo app))) + (echo-read-string echo "Disable unit: " + (lambda (unit) + (echo-message! echo (str "Systemd: disabled " unit)))))) + +(def (cmd-systemd-reload app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "Systemd: daemon-reload complete"))) + +(def (cmd-systemd-journal app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "Systemd: opening journal"))) + +(def (cmd-journalctl-mode app) + (let* ((echo (app-state-echo app))) + (toggle-mode! app 'journalctl) + (if (mode-enabled? app 'journalctl) + (echo-message! echo "Journalctl mode enabled") + (echo-message! echo "Journalctl mode disabled")))) + +(def (cmd-journalctl-follow app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "Journalctl: following journal..."))) + +(def (cmd-journalctl-boot app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "Journalctl: showing current boot log"))) --- a/src/jerboa-emacs/editor-extra-regs2.ss +++ b/src/jerboa-emacs/editor-extra-regs2.ss @@ -5339,4 +5339,25 @@ (register-command! 'gnuplot-mode cmd-gnuplot-mode) (register-command! 'gnuplot-send-buffer cmd-gnuplot-send-buffer) (register-command! 'gnuplot-send-region cmd-gnuplot-send-region) + ;; Round 186 — Systemd, Journalctl, Proced-ext, Auditd + (register-command! 'systemd-start cmd-systemd-start) + (register-command! 'systemd-stop cmd-systemd-stop) + (register-command! 'systemd-restart cmd-systemd-restart) + (register-command! 'systemd-enable cmd-systemd-enable) + (register-command! 'systemd-disable cmd-systemd-disable) + (register-command! 'systemd-reload cmd-systemd-reload) + (register-command! 'systemd-journal cmd-systemd-journal) + (register-command! 'journalctl-mode cmd-journalctl-mode) + (register-command! 'journalctl-follow cmd-journalctl-follow) + (register-command! 'journalctl-boot cmd-journalctl-boot) + (register-command! 'journalctl-unit cmd-journalctl-unit) + (register-command! 'journalctl-grep cmd-journalctl-grep) + (register-command! 'proced-send-signal-with-args cmd-proced-send-signal-with-args) + (register-command! 'proced-mark-children cmd-proced-mark-children) + (register-command! 'proced-mark-parents cmd-proced-mark-parents) + (register-command! 'proced-filter-parents cmd-proced-filter-parents) + (register-command! 'proced-filter-children cmd-proced-filter-children) + (register-command! 'auditd-mode cmd-auditd-mode) + (register-command! 'auditd-search cmd-auditd-search) + (register-command! 'auditd-filter cmd-auditd-filter) )