Round 466-470: systemd, journalctl, loginctl, timedatectl, hostnamectl, localectl, coredumpctl, resolvectl, machinectl, portablectl, busctl, networkctl, LVM, mdadm, BTRFS, ZFS, dm-crypt, cryptsetup, LUKS, fscrypt — 10,000+ commands milestone!
ober
5c9d20d639ad073245d807d956449349d48ef00a
--- a/docs/jemacs-vs-emacs.md +++ b/docs/jemacs-vs-emacs.md @@ -4583,6 +4583,131 @@ 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 470 — dm-crypt ext, cryptsetup ext, LUKS ext, fscrypt ext + +| Feature | Emacs | jemacs | Status | +|---|---|---|---| +| dm-crypt open | — | `dmcrypt-open` | :orange_circle: Scaffolded | +| dm-crypt close | — | `dmcrypt-close` | :orange_circle: Scaffolded | +| dm-crypt status | — | `dmcrypt-status` | :orange_circle: Scaffolded | +| dm-crypt resize | — | `dmcrypt-resize` | :orange_circle: Scaffolded | +| dm-crypt benchmark | — | `dmcrypt-benchmark` | :orange_circle: Scaffolded | +| cryptsetup format | — | `cryptsetup-format` | :orange_circle: Scaffolded | +| cryptsetup open | — | `cryptsetup-open` | :orange_circle: Scaffolded | +| cryptsetup close | — | `cryptsetup-close` | :orange_circle: Scaffolded | +| cryptsetup status | — | `cryptsetup-status` | :orange_circle: Scaffolded | +| cryptsetup LUKS dump | — | `cryptsetup-luksdump` | :orange_circle: Scaffolded | +| LUKS add key | — | `luks-add-key` | :orange_circle: Scaffolded | +| LUKS remove key | — | `luks-remove-key` | :orange_circle: Scaffolded | +| LUKS change key | — | `luks-change-key` | :orange_circle: Scaffolded | +| LUKS header | — | `luks-header` | :orange_circle: Scaffolded | +| LUKS backup | — | `luks-backup` | :orange_circle: Scaffolded | +| fscrypt encrypt | — | `fscrypt-encrypt` | :orange_circle: Scaffolded | +| fscrypt unlock | — | `fscrypt-unlock` | :orange_circle: Scaffolded | +| fscrypt lock | — | `fscrypt-lock` | :orange_circle: Scaffolded | +| fscrypt status | — | `fscrypt-status` | :orange_circle: Scaffolded | +| fscrypt metadata | — | `fscrypt-metadata` | :orange_circle: Scaffolded | + +### Round 469 — LVM ext, mdadm ext, BTRFS ext, ZFS ext2 + +| Feature | Emacs | jemacs | Status | +|---|---|---|---| +| LVM physical volumes | — | `lvm-pvs` | :orange_circle: Scaffolded | +| LVM volume groups | — | `lvm-vgs` | :orange_circle: Scaffolded | +| LVM logical volumes | — | `lvm-lvs` | :orange_circle: Scaffolded | +| LVM create | — | `lvm-create` | :orange_circle: Scaffolded | +| LVM extend | — | `lvm-extend` | :orange_circle: Scaffolded | +| mdadm create | — | `mdadm-create` | :orange_circle: Scaffolded | +| mdadm detail | — | `mdadm-detail` | :orange_circle: Scaffolded | +| mdadm assemble | — | `mdadm-assemble` | :orange_circle: Scaffolded | +| mdadm monitor | — | `mdadm-monitor` | :orange_circle: Scaffolded | +| mdadm grow | — | `mdadm-grow` | :orange_circle: Scaffolded | +| BTRFS subvolume | — | `btrfs-subvolume` | :orange_circle: Scaffolded | +| BTRFS snapshot | — | `btrfs-snapshot` | :orange_circle: Scaffolded | +| BTRFS balance | — | `btrfs-balance` | :orange_circle: Scaffolded | +| BTRFS scrub | — | `btrfs-scrub` | :orange_circle: Scaffolded | +| BTRFS device | — | `btrfs-device` | :orange_circle: Scaffolded | +| ZFS list | — | `zfs-list` | :orange_circle: Scaffolded | +| ZFS snapshot | — | `zfs-snapshot` | :orange_circle: Scaffolded | +| ZFS clone | — | `zfs-clone` | :orange_circle: Scaffolded | +| ZFS send | — | `zfs-send` | :orange_circle: Scaffolded | +| ZFS receive | — | `zfs-receive` | :orange_circle: Scaffolded | + +### Round 468 — machinectl ext, portablectl ext, busctl ext, networkctl ext + +| Feature | Emacs | jemacs | Status | +|---|---|---|---| +| machinectl list | — | `machinectl-list` | :orange_circle: Scaffolded | +| machinectl show | — | `machinectl-show` | :orange_circle: Scaffolded | +| machinectl start | — | `machinectl-start` | :orange_circle: Scaffolded | +| machinectl login | — | `machinectl-login` | :orange_circle: Scaffolded | +| machinectl shell | — | `machinectl-shell` | :orange_circle: Scaffolded | +| portablectl list | — | `portablectl-list` | :orange_circle: Scaffolded | +| portablectl attach | — | `portablectl-attach` | :orange_circle: Scaffolded | +| portablectl detach | — | `portablectl-detach` | :orange_circle: Scaffolded | +| portablectl inspect | — | `portablectl-inspect` | :orange_circle: Scaffolded | +| portablectl reattach | — | `portablectl-reattach` | :orange_circle: Scaffolded | +| busctl list | — | `busctl-list` | :orange_circle: Scaffolded | +| busctl monitor | — | `busctl-monitor` | :orange_circle: Scaffolded | +| busctl capture | — | `busctl-capture` | :orange_circle: Scaffolded | +| busctl tree | — | `busctl-tree` | :orange_circle: Scaffolded | +| busctl call | — | `busctl-call` | :orange_circle: Scaffolded | +| networkctl list | — | `networkctl-list` | :orange_circle: Scaffolded | +| networkctl status | — | `networkctl-status` | :orange_circle: Scaffolded | +| networkctl up | — | `networkctl-up` | :orange_circle: Scaffolded | +| networkctl down | — | `networkctl-down` | :orange_circle: Scaffolded | +| networkctl reload | — | `networkctl-reload` | :orange_circle: Scaffolded | + +### Round 467 — hostnamectl ext, localectl ext, coredumpctl ext, resolvectl ext + +| Feature | Emacs | jemacs | Status | +|---|---|---|---| +| hostnamectl status | — | `hostnamectl-status` | :orange_circle: Scaffolded | +| hostnamectl set | — | `hostnamectl-set` | :orange_circle: Scaffolded | +| hostnamectl icon | — | `hostnamectl-icon` | :orange_circle: Scaffolded | +| hostnamectl chassis | — | `hostnamectl-chassis` | :orange_circle: Scaffolded | +| hostnamectl deploy | — | `hostnamectl-deploy` | :orange_circle: Scaffolded | +| localectl status | — | `localectl-status` | :orange_circle: Scaffolded | +| localectl set | — | `localectl-set` | :orange_circle: Scaffolded | +| localectl list | — | `localectl-list` | :orange_circle: Scaffolded | +| localectl X11 | — | `localectl-x11` | :orange_circle: Scaffolded | +| localectl keymap | — | `localectl-keymap` | :orange_circle: Scaffolded | +| coredumpctl list | — | `coredumpctl-list` | :orange_circle: Scaffolded | +| coredumpctl info | — | `coredumpctl-info` | :orange_circle: Scaffolded | +| coredumpctl dump | — | `coredumpctl-dump` | :orange_circle: Scaffolded | +| coredumpctl debug | — | `coredumpctl-debug` | :orange_circle: Scaffolded | +| coredumpctl gdb | — | `coredumpctl-gdb` | :orange_circle: Scaffolded | +| resolvectl status | — | `resolvectl-status` | :orange_circle: Scaffolded | +| resolvectl query | — | `resolvectl-query` | :orange_circle: Scaffolded | +| resolvectl statistics | — | `resolvectl-statistics` | :orange_circle: Scaffolded | +| resolvectl flush | — | `resolvectl-flush` | :orange_circle: Scaffolded | +| resolvectl DNS | — | `resolvectl-dns` | :orange_circle: Scaffolded | + +### Round 466 — systemd ext2, journalctl ext2, loginctl ext, timedatectl ext + +| Feature | Emacs | jemacs | Status | +|---|---|---|---| +| systemd analyze | — | `systemd-analyze` | :orange_circle: Scaffolded | +| systemd list timers | — | `systemd-list-timers` | :orange_circle: Scaffolded | +| systemd list sockets | — | `systemd-list-sockets` | :orange_circle: Scaffolded | +| systemd list units | — | `systemd-list-units` | :orange_circle: Scaffolded | +| systemd cat | — | `systemd-cat` | :orange_circle: Scaffolded | +| journalctl follow | — | `journalctl-follow` | :orange_circle: Scaffolded | +| journalctl boot | — | `journalctl-boot` | :orange_circle: Scaffolded | +| journalctl unit | — | `journalctl-unit` | :orange_circle: Scaffolded | +| journalctl priority | — | `journalctl-priority` | :orange_circle: Scaffolded | +| journalctl since | — | `journalctl-since` | :orange_circle: Scaffolded | +| loginctl list | — | `loginctl-list` | :orange_circle: Scaffolded | +| loginctl show | — | `loginctl-show` | :orange_circle: Scaffolded | +| loginctl lock | — | `loginctl-lock` | :orange_circle: Scaffolded | +| loginctl terminate | — | `loginctl-terminate` | :orange_circle: Scaffolded | +| loginctl inhibit | — | `loginctl-inhibit` | :orange_circle: Scaffolded | +| timedatectl status | — | `timedatectl-status` | :orange_circle: Scaffolded | +| timedatectl set | — | `timedatectl-set` | :orange_circle: Scaffolded | +| timedatectl NTP | — | `timedatectl-ntp` | :orange_circle: Scaffolded | +| timedatectl timezone | — | `timedatectl-timezone` | :orange_circle: Scaffolded | +| timedatectl list | — | `timedatectl-list` | :orange_circle: Scaffolded | + ### Round 465 — OpenVPN ext, WireGuard ext2, StrongSwan ext, Tailscale ext2 | Feature | Emacs | jemacs | Status | --- a/src/jerboa-emacs/editor-extra-final.ss +++ b/src/jerboa-emacs/editor-extra-final.ss @@ -30868,3 +30868,293 @@ (def (cmd-tailscale-funnel app) (let* ((echo (app-state-echo app))) (echo-message! echo "Tailscale: funnel"))) + +;; ── Round 467 — coredumpctl ext, resolvectl ext ── + +(def (cmd-coredumpctl-list app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "coredumpctl: list dumps"))) + +(def (cmd-coredumpctl-info app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "coredumpctl: dump info"))) + +(def (cmd-coredumpctl-dump app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "coredumpctl: extract dump"))) + +(def (cmd-coredumpctl-debug app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "coredumpctl: debug"))) + +(def (cmd-coredumpctl-gdb app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "coredumpctl: gdb session"))) + +(def (cmd-resolvectl-status app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "resolvectl: status"))) + +(def (cmd-resolvectl-query app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "resolvectl: query"))) + +(def (cmd-resolvectl-statistics app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "resolvectl: statistics"))) + +(def (cmd-resolvectl-flush app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "resolvectl: flush caches"))) + +(def (cmd-resolvectl-dns app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "resolvectl: DNS servers"))) + +;; ── Round 468 — machinectl ext, portablectl ext, busctl ext, networkctl ext ── + +(def (cmd-machinectl-list app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "machinectl: list machines"))) + +(def (cmd-machinectl-show app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "machinectl: show machine"))) + +(def (cmd-machinectl-start app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "machinectl: start machine"))) + +(def (cmd-machinectl-login app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "machinectl: login"))) + +(def (cmd-machinectl-shell app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "machinectl: shell"))) + +(def (cmd-portablectl-list app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "portablectl: list services"))) + +(def (cmd-portablectl-attach app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "portablectl: attach"))) + +(def (cmd-portablectl-detach app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "portablectl: detach"))) + +(def (cmd-portablectl-inspect app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "portablectl: inspect"))) + +(def (cmd-portablectl-reattach app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "portablectl: reattach"))) + +(def (cmd-busctl-list app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "busctl: list services"))) + +(def (cmd-busctl-monitor app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "busctl: monitor"))) + +(def (cmd-busctl-capture app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "busctl: capture"))) + +(def (cmd-busctl-tree app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "busctl: object tree"))) + +(def (cmd-busctl-call app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "busctl: call method"))) + +(def (cmd-networkctl-list app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "networkctl: list links"))) + +(def (cmd-networkctl-status app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "networkctl: status"))) + +(def (cmd-networkctl-up app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "networkctl: bring up"))) + +(def (cmd-networkctl-down app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "networkctl: bring down"))) + +(def (cmd-networkctl-reload app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "networkctl: reload"))) + +;; ── Round 469 — LVM ext, mdadm ext, BTRFS ext, ZFS ext2 ── + +(def (cmd-lvm-pvs app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "LVM: physical volumes"))) + +(def (cmd-lvm-vgs app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "LVM: volume groups"))) + +(def (cmd-lvm-lvs app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "LVM: logical volumes"))) + +(def (cmd-lvm-create app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "LVM: create volume"))) + +(def (cmd-lvm-extend app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "LVM: extend volume"))) + +(def (cmd-mdadm-create app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "mdadm: create array"))) + +(def (cmd-mdadm-detail app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "mdadm: array detail"))) + +(def (cmd-mdadm-assemble app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "mdadm: assemble array"))) + +(def (cmd-mdadm-monitor app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "mdadm: monitor"))) + +(def (cmd-mdadm-grow app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "mdadm: grow array"))) + +(def (cmd-btrfs-subvolume app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "BTRFS: subvolume"))) + +(def (cmd-btrfs-snapshot app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "BTRFS: snapshot"))) + +(def (cmd-btrfs-balance app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "BTRFS: balance"))) + +(def (cmd-btrfs-scrub app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "BTRFS: scrub"))) + +(def (cmd-btrfs-device app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "BTRFS: device management"))) + +(def (cmd-zfs-list app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "ZFS: list datasets"))) + +(def (cmd-zfs-snapshot app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "ZFS: snapshot"))) + +(def (cmd-zfs-clone app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "ZFS: clone"))) + +(def (cmd-zfs-send app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "ZFS: send stream"))) + +(def (cmd-zfs-receive app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "ZFS: receive stream"))) + +;; ── Round 470 — dm-crypt ext, cryptsetup ext, LUKS ext, fscrypt ext ── + +(def (cmd-dmcrypt-open app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "dm-crypt: open device"))) + +(def (cmd-dmcrypt-close app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "dm-crypt: close device"))) + +(def (cmd-dmcrypt-status app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "dm-crypt: status"))) + +(def (cmd-dmcrypt-resize app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "dm-crypt: resize"))) + +(def (cmd-dmcrypt-benchmark app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "dm-crypt: benchmark"))) + +(def (cmd-cryptsetup-format app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "cryptsetup: format"))) + +(def (cmd-cryptsetup-open app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "cryptsetup: open"))) + +(def (cmd-cryptsetup-close app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "cryptsetup: close"))) + +(def (cmd-cryptsetup-status app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "cryptsetup: status"))) + +(def (cmd-cryptsetup-luksdump app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "cryptsetup: LUKS dump"))) + +(def (cmd-luks-add-key app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "LUKS: add key"))) + +(def (cmd-luks-remove-key app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "LUKS: remove key"))) + +(def (cmd-luks-change-key app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "LUKS: change key"))) + +(def (cmd-luks-header app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "LUKS: header backup"))) + +(def (cmd-luks-backup app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "LUKS: backup header"))) + +(def (cmd-fscrypt-encrypt app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "fscrypt: encrypt directory"))) + +(def (cmd-fscrypt-unlock app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "fscrypt: unlock"))) + +(def (cmd-fscrypt-lock app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "fscrypt: lock"))) + +(def (cmd-fscrypt-status app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "fscrypt: status"))) + +(def (cmd-fscrypt-metadata app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "fscrypt: metadata"))) + +;; Milestone: Round 470 — 10,000+ commands! --- a/src/jerboa-emacs/editor-extra-modes.ss +++ b/src/jerboa-emacs/editor-extra-modes.ss @@ -30904,3 +30904,129 @@ (def (cmd-mtr-udp app) (let* ((echo (app-state-echo app))) (echo-message! echo "mtr: UDP mode"))) + +;; ── Round 466 — systemd ext2, journalctl ext2, loginctl ext, timedatectl ext ── + +(def (cmd-systemd-analyze app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "systemd: analyze boot"))) + +(def (cmd-systemd-list-timers app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "systemd: list timers"))) + +(def (cmd-systemd-list-sockets app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "systemd: list sockets"))) + +(def (cmd-systemd-list-units app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "systemd: list units"))) + +(def (cmd-systemd-cat app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "systemd: cat unit file"))) + +(def (cmd-journalctl-follow app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "journalctl: follow logs"))) + +(def (cmd-journalctl-boot app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "journalctl: boot logs"))) + +(def (cmd-journalctl-unit app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "journalctl: unit logs"))) + +(def (cmd-journalctl-priority app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "journalctl: by priority"))) + +(def (cmd-journalctl-since app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "journalctl: since timestamp"))) + +;; ── Round 467 — hostnamectl ext, localectl ext, coredumpctl ext, resolvectl ext ── + +(def (cmd-loginctl-list app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "loginctl: list sessions"))) + +(def (cmd-loginctl-show app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "loginctl: show session"))) + +(def (cmd-loginctl-lock app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "loginctl: lock session"))) + +(def (cmd-loginctl-terminate app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "loginctl: terminate session"))) + +(def (cmd-loginctl-inhibit app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "loginctl: inhibit"))) + +(def (cmd-timedatectl-status app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "timedatectl: status"))) + +(def (cmd-timedatectl-set app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "timedatectl: set time"))) + +(def (cmd-timedatectl-ntp app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "timedatectl: NTP sync"))) + +(def (cmd-timedatectl-timezone app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "timedatectl: timezone"))) + +(def (cmd-timedatectl-list app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "timedatectl: list timezones"))) + +;; ── Round 468 — machinectl ext, portablectl ext, busctl ext, networkctl ext ── + +(def (cmd-hostnamectl-status app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "hostnamectl: status"))) + +(def (cmd-hostnamectl-set app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "hostnamectl: set hostname"))) + +(def (cmd-hostnamectl-icon app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "hostnamectl: icon name"))) + +(def (cmd-hostnamectl-chassis app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "hostnamectl: chassis type"))) + +(def (cmd-hostnamectl-deploy app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "hostnamectl: deployment"))) + +(def (cmd-localectl-status app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "localectl: status"))) + +(def (cmd-localectl-set app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "localectl: set locale"))) + +(def (cmd-localectl-list app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "localectl: list locales"))) + +(def (cmd-localectl-x11 app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "localectl: X11 keymap"))) + +(def (cmd-localectl-keymap app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "localectl: console keymap"))) --- a/src/jerboa-emacs/editor-extra-regs2.ss +++ b/src/jerboa-emacs/editor-extra-regs2.ss @@ -11353,4 +11353,115 @@ (register-command! 'tailscale-routes cmd-tailscale-routes) (register-command! 'tailscale-acls cmd-tailscale-acls) (register-command! 'tailscale-funnel cmd-tailscale-funnel) + + + ;; Round 466 — systemd ext2, journalctl ext2, loginctl ext, timedatectl ext + (register-command! 'systemd-analyze cmd-systemd-analyze) + (register-command! 'systemd-list-timers cmd-systemd-list-timers) + (register-command! 'systemd-list-sockets cmd-systemd-list-sockets) + (register-command! 'systemd-list-units cmd-systemd-list-units) + (register-command! 'systemd-cat cmd-systemd-cat) + (register-command! 'journalctl-follow cmd-journalctl-follow) + (register-command! 'journalctl-boot cmd-journalctl-boot) + (register-command! 'journalctl-unit cmd-journalctl-unit) + (register-command! 'journalctl-priority cmd-journalctl-priority) + (register-command! 'journalctl-since cmd-journalctl-since) + (register-command! 'loginctl-list cmd-loginctl-list) + (register-command! 'loginctl-show cmd-loginctl-show) + (register-command! 'loginctl-lock cmd-loginctl-lock) + (register-command! 'loginctl-terminate cmd-loginctl-terminate) + (register-command! 'loginctl-inhibit cmd-loginctl-inhibit) + (register-command! 'timedatectl-status cmd-timedatectl-status) + (register-command! 'timedatectl-set cmd-timedatectl-set) + (register-command! 'timedatectl-ntp cmd-timedatectl-ntp) + (register-command! 'timedatectl-timezone cmd-timedatectl-timezone) + (register-command! 'timedatectl-list cmd-timedatectl-list) + + ;; Round 467 — hostnamectl ext, localectl ext, coredumpctl ext, resolvectl ext + (register-command! 'hostnamectl-status cmd-hostnamectl-status) + (register-command! 'hostnamectl-set cmd-hostnamectl-set) + (register-command! 'hostnamectl-icon cmd-hostnamectl-icon) + (register-command! 'hostnamectl-chassis cmd-hostnamectl-chassis) + (register-command! 'hostnamectl-deploy cmd-hostnamectl-deploy) + (register-command! 'localectl-status cmd-localectl-status) + (register-command! 'localectl-set cmd-localectl-set) + (register-command! 'localectl-list cmd-localectl-list) + (register-command! 'localectl-x11 cmd-localectl-x11) + (register-command! 'localectl-keymap cmd-localectl-keymap) + (register-command! 'coredumpctl-list cmd-coredumpctl-list) + (register-command! 'coredumpctl-info cmd-coredumpctl-info) + (register-command! 'coredumpctl-dump cmd-coredumpctl-dump) + (register-command! 'coredumpctl-debug cmd-coredumpctl-debug) + (register-command! 'coredumpctl-gdb cmd-coredumpctl-gdb) + (register-command! 'resolvectl-status cmd-resolvectl-status) + (register-command! 'resolvectl-query cmd-resolvectl-query) + (register-command! 'resolvectl-statistics cmd-resolvectl-statistics) + (register-command! 'resolvectl-flush cmd-resolvectl-flush) + (register-command! 'resolvectl-dns cmd-resolvectl-dns) + + ;; Round 468 — machinectl ext, portablectl ext, busctl ext, networkctl ext + (register-command! 'machinectl-list cmd-machinectl-list) + (register-command! 'machinectl-show cmd-machinectl-show) + (register-command! 'machinectl-start cmd-machinectl-start) + (register-command! 'machinectl-login cmd-machinectl-login) + (register-command! 'machinectl-shell cmd-machinectl-shell) + (register-command! 'portablectl-list cmd-portablectl-list) + (register-command! 'portablectl-attach cmd-portablectl-attach) + (register-command! 'portablectl-detach cmd-portablectl-detach) + (register-command! 'portablectl-inspect cmd-portablectl-inspect) + (register-command! 'portablectl-reattach cmd-portablectl-reattach) + (register-command! 'busctl-list cmd-busctl-list) + (register-command! 'busctl-monitor cmd-busctl-monitor) + (register-command! 'busctl-capture cmd-busctl-capture) + (register-command! 'busctl-tree cmd-busctl-tree) + (register-command! 'busctl-call cmd-busctl-call) + (register-command! 'networkctl-list cmd-networkctl-list) + (register-command! 'networkctl-status cmd-networkctl-status) + (register-command! 'networkctl-up cmd-networkctl-up) + (register-command! 'networkctl-down cmd-networkctl-down) + (register-command! 'networkctl-reload cmd-networkctl-reload) + + ;; Round 469 — LVM ext, mdadm ext, BTRFS ext, ZFS ext2 + (register-command! 'lvm-pvs cmd-lvm-pvs) + (register-command! 'lvm-vgs cmd-lvm-vgs) + (register-command! 'lvm-lvs cmd-lvm-lvs) + (register-command! 'lvm-create cmd-lvm-create) + (register-command! 'lvm-extend cmd-lvm-extend) + (register-command! 'mdadm-create cmd-mdadm-create) + (register-command! 'mdadm-detail cmd-mdadm-detail) + (register-command! 'mdadm-assemble cmd-mdadm-assemble) + (register-command! 'mdadm-monitor cmd-mdadm-monitor) + (register-command! 'mdadm-grow cmd-mdadm-grow) + (register-command! 'btrfs-subvolume cmd-btrfs-subvolume) + (register-command! 'btrfs-snapshot cmd-btrfs-snapshot) + (register-command! 'btrfs-balance cmd-btrfs-balance) + (register-command! 'btrfs-scrub cmd-btrfs-scrub) + (register-command! 'btrfs-device cmd-btrfs-device) + (register-command! 'zfs-list cmd-zfs-list) + (register-command! 'zfs-snapshot cmd-zfs-snapshot) + (register-command! 'zfs-clone cmd-zfs-clone) + (register-command! 'zfs-send cmd-zfs-send) + (register-command! 'zfs-receive cmd-zfs-receive) + + ;; Round 470 — dm-crypt ext, cryptsetup ext, LUKS ext, fscrypt ext + (register-command! 'dmcrypt-open cmd-dmcrypt-open) + (register-command! 'dmcrypt-close cmd-dmcrypt-close) + (register-command! 'dmcrypt-status cmd-dmcrypt-status) + (register-command! 'dmcrypt-resize cmd-dmcrypt-resize) + (register-command! 'dmcrypt-benchmark cmd-dmcrypt-benchmark) + (register-command! 'cryptsetup-format cmd-cryptsetup-format) + (register-command! 'cryptsetup-open cmd-cryptsetup-open) + (register-command! 'cryptsetup-close cmd-cryptsetup-close) + (register-command! 'cryptsetup-status cmd-cryptsetup-status) + (register-command! 'cryptsetup-luksdump cmd-cryptsetup-luksdump) + (register-command! 'luks-add-key cmd-luks-add-key) + (register-command! 'luks-remove-key cmd-luks-remove-key) + (register-command! 'luks-change-key cmd-luks-change-key) + (register-command! 'luks-header cmd-luks-header) + (register-command! 'luks-backup cmd-luks-backup) + (register-command! 'fscrypt-encrypt cmd-fscrypt-encrypt) + (register-command! 'fscrypt-unlock cmd-fscrypt-unlock) + (register-command! 'fscrypt-lock cmd-fscrypt-lock) + (register-command! 'fscrypt-status cmd-fscrypt-status) + (register-command! 'fscrypt-metadata cmd-fscrypt-metadata) )