Round 314: LVM ext, MDADM ext, Cryptsetup ext, Dmsetup ext, Multipath ext (20 commands)
ober
738828a56c8a74c56991675a332e9ebde2bbbd0f
--- 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 314 — LVM ext, MDADM ext, Cryptsetup ext, Dmsetup ext, Multipath ext + +| Feature | Status | Notes | +|---------|--------|-------| +| `lvm-pvdisplay` | :orange_circle: | Display physical volumes | +| `lvm-vgdisplay` | :orange_circle: | Display volume groups | +| `lvm-lvdisplay` | :orange_circle: | Display logical volumes | +| `lvm-lvcreate` | :orange_circle: | Create logical volume | +| `mdadm-detail` | :orange_circle: | Show RAID array detail | +| `mdadm-examine` | :orange_circle: | Examine RAID device | +| `mdadm-assemble` | :orange_circle: | Assemble RAID array | +| `mdadm-monitor` | :orange_circle: | Monitor RAID arrays | +| `cryptsetup-status` | :orange_circle: | Show LUKS status | +| `cryptsetup-open` | :orange_circle: | Open encrypted device | +| `cryptsetup-close` | :orange_circle: | Close encrypted device | +| `cryptsetup-luksdump` | :orange_circle: | Dump LUKS header | +| `dmsetup-table` | :orange_circle: | Show device-mapper table | +| `dmsetup-info` | :orange_circle: | Show device-mapper info | +| `dmsetup-status` | :orange_circle: | Show device-mapper status | +| `dmsetup-ls` | :orange_circle: | List device-mapper devices | +| `multipath-show` | :orange_circle: | Show multipath topology | +| `multipath-flush` | :orange_circle: | Flush multipath map | +| `multipath-resize` | :orange_circle: | Resize multipath map | +| `multipath-list` | :orange_circle: | List multipath maps | + ### Round 313 — Nftables ext, Iproute2 ext, Ethtool ext, Btrfs ext, Zfs ext | Feature | Status | Notes | --- a/src/jerboa-emacs/editor-extra-final.ss +++ b/src/jerboa-emacs/editor-extra-final.ss @@ -23671,4 +23671,54 @@ (let* ((echo (app-state-echo app))) (echo-read-string echo "Property=value dataset: " (lambda (spec) - (echo-message! echo (str "ZFS: setting " spec)))))) \ No newline at end of file + (echo-message! echo (str "ZFS: setting " spec)))))) + +;;; Round 314 — Cryptsetup ext, Dmsetup ext, Multipath ext (batch 2) + +(def (cmd-cryptsetup-close app) + (let* ((echo (app-state-echo app))) + (echo-read-string echo "Mapped name to close: " + (lambda (name) + (echo-message! echo (str "Cryptsetup: closing " name)))))) + +(def (cmd-cryptsetup-luksdump app) + (let* ((echo (app-state-echo app))) + (echo-read-string echo "LUKS device: " + (lambda (dev) + (echo-message! echo (str "Cryptsetup: LUKS dump of " dev)))))) + +(def (cmd-dmsetup-table app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "Dmsetup: showing table"))) + +(def (cmd-dmsetup-info app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "Dmsetup: showing info"))) + +(def (cmd-dmsetup-status app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "Dmsetup: showing status"))) + +(def (cmd-dmsetup-ls app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "Dmsetup: listing devices"))) + +(def (cmd-multipath-show app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "Multipath: showing topology"))) + +(def (cmd-multipath-flush app) + (let* ((echo (app-state-echo app))) + (echo-read-string echo "Map to flush: " + (lambda (map) + (echo-message! echo (str "Multipath: flushing " map)))))) + +(def (cmd-multipath-resize app) + (let* ((echo (app-state-echo app))) + (echo-read-string echo "Map to resize: " + (lambda (map) + (echo-message! echo (str "Multipath: resizing " map)))))) + +(def (cmd-multipath-list app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "Multipath: listing maps"))) \ No newline at end of file --- a/src/jerboa-emacs/editor-extra-modes.ss +++ b/src/jerboa-emacs/editor-extra-modes.ss @@ -24382,3 +24382,57 @@ (lambda (iface) (echo-message! echo (str "Ethtool: showing features of " iface)))))) +;;; Round 314 — LVM ext, MDADM ext, Cryptsetup ext, Dmsetup ext, Multipath ext (batch 1) + +(def (cmd-lvm-pvdisplay app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "LVM: displaying physical volumes"))) + +(def (cmd-lvm-vgdisplay app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "LVM: displaying volume groups"))) + +(def (cmd-lvm-lvdisplay app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "LVM: displaying logical volumes"))) + +(def (cmd-lvm-lvcreate app) + (let* ((echo (app-state-echo app))) + (echo-read-string echo "LV name and VG: " + (lambda (spec) + (echo-message! echo (str "LVM: creating logical volume " spec)))))) + +(def (cmd-mdadm-detail app) + (let* ((echo (app-state-echo app))) + (echo-read-string echo "Array device: " + (lambda (dev) + (echo-message! echo (str "MDADM: showing detail for " dev)))))) + +(def (cmd-mdadm-examine app) + (let* ((echo (app-state-echo app))) + (echo-read-string echo "Device to examine: " + (lambda (dev) + (echo-message! echo (str "MDADM: examining " dev)))))) + +(def (cmd-mdadm-assemble app) + (let* ((echo (app-state-echo app))) + (echo-read-string echo "Array to assemble: " + (lambda (arr) + (echo-message! echo (str "MDADM: assembling " arr)))))) + +(def (cmd-mdadm-monitor app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "MDADM: starting monitor"))) + +(def (cmd-cryptsetup-status app) + (let* ((echo (app-state-echo app))) + (echo-read-string echo "Mapped name: " + (lambda (name) + (echo-message! echo (str "Cryptsetup: status of " name)))))) + +(def (cmd-cryptsetup-open app) + (let* ((echo (app-state-echo app))) + (echo-read-string echo "Device to open: " + (lambda (dev) + (echo-message! echo (str "Cryptsetup: opening " dev)))))) + --- a/src/jerboa-emacs/editor-extra-regs2.ss +++ b/src/jerboa-emacs/editor-extra-regs2.ss @@ -8011,4 +8011,25 @@ (register-command! 'zfs-receive cmd-zfs-receive) (register-command! 'zfs-get cmd-zfs-get) (register-command! 'zfs-set cmd-zfs-set) + ;; Round 314 + (register-command! 'lvm-pvdisplay cmd-lvm-pvdisplay) + (register-command! 'lvm-vgdisplay cmd-lvm-vgdisplay) + (register-command! 'lvm-lvdisplay cmd-lvm-lvdisplay) + (register-command! 'lvm-lvcreate cmd-lvm-lvcreate) + (register-command! 'mdadm-detail cmd-mdadm-detail) + (register-command! 'mdadm-examine cmd-mdadm-examine) + (register-command! 'mdadm-assemble cmd-mdadm-assemble) + (register-command! 'mdadm-monitor cmd-mdadm-monitor) + (register-command! 'cryptsetup-status cmd-cryptsetup-status) + (register-command! 'cryptsetup-open cmd-cryptsetup-open) + (register-command! 'cryptsetup-close cmd-cryptsetup-close) + (register-command! 'cryptsetup-luksdump cmd-cryptsetup-luksdump) + (register-command! 'dmsetup-table cmd-dmsetup-table) + (register-command! 'dmsetup-info cmd-dmsetup-info) + (register-command! 'dmsetup-status cmd-dmsetup-status) + (register-command! 'dmsetup-ls cmd-dmsetup-ls) + (register-command! 'multipath-show cmd-multipath-show) + (register-command! 'multipath-flush cmd-multipath-flush) + (register-command! 'multipath-resize cmd-multipath-resize) + (register-command! 'multipath-list cmd-multipath-list) )