Round 325: Mkfs ext, Fsck ext, Tune2fs ext, Xfs-admin ext, Resize2fs ext (20 commands)
ober
7e2209fbfc90ad1d1eebdd1308e04837ce72df26
--- 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 325 — Mkfs ext, Fsck ext, Tune2fs ext, Xfs-admin ext, Resize2fs ext + +| Feature | Status | Notes | +|---------|--------|-------| +| `mkfs-vfat` | :orange_circle: | Create VFAT filesystem | +| `mkfs-f2fs` | :orange_circle: | Create F2FS filesystem | +| `mkfs-ntfs` | :orange_circle: | Create NTFS filesystem | +| `mkfs-swap` | :orange_circle: | Create swap space | +| `fsck-check` | :orange_circle: | Check filesystem | +| `fsck-repair` | :orange_circle: | Repair filesystem | +| `fsck-ext4` | :orange_circle: | Check ext4 | +| `fsck-xfs` | :orange_circle: | Check XFS | +| `tune2fs-show` | :orange_circle: | Show ext2/3/4 info | +| `tune2fs-set` | :orange_circle: | Set ext2/3/4 options | +| `tune2fs-journal` | :orange_circle: | Manage journal | +| `tune2fs-label` | :orange_circle: | Set filesystem label | +| `xfs-info` | :orange_circle: | Show XFS info | +| `xfs-repair` | :orange_circle: | Repair XFS | +| `xfs-growfs` | :orange_circle: | Grow XFS filesystem | +| `xfs-freeze` | :orange_circle: | Freeze XFS | +| `resize2fs-grow` | :orange_circle: | Grow ext filesystem | +| `resize2fs-shrink` | :orange_circle: | Shrink ext filesystem | +| `resize2fs-info` | :orange_circle: | Show resize info | +| `resize2fs-check` | :orange_circle: | Check before resize | + ### Round 324 — Parted ext, Fdisk ext, Gdisk ext, Sfdisk ext, Blkid ext | Feature | Status | Notes | --- a/src/jerboa-emacs/editor-extra-final.ss +++ b/src/jerboa-emacs/editor-extra-final.ss @@ -24269,4 +24269,66 @@ (let* ((echo (app-state-echo app))) (echo-read-string echo "UUID: " (lambda (uuid) - (echo-message! echo (str "Blkid: looking up UUID " uuid)))))) \ No newline at end of file + (echo-message! echo (str "Blkid: looking up UUID " uuid)))))) + +;;; Round 325 — Tune2fs ext, Xfs-admin ext, Resize2fs ext (batch 2) + +(def (cmd-tune2fs-journal app) + (let* ((echo (app-state-echo app))) + (echo-read-string echo "Device: " + (lambda (dev) + (echo-message! echo (str "Tune2fs: managing journal on " dev)))))) + +(def (cmd-tune2fs-label app) + (let* ((echo (app-state-echo app))) + (echo-read-string echo "Label and device: " + (lambda (spec) + (echo-message! echo (str "Tune2fs: setting label " spec)))))) + +(def (cmd-xfs-info app) + (let* ((echo (app-state-echo app))) + (echo-read-string echo "Mount point: " + (lambda (mnt) + (echo-message! echo (str "XFS: showing info for " mnt)))))) + +(def (cmd-xfs-repair app) + (let* ((echo (app-state-echo app))) + (echo-read-string echo "Device: " + (lambda (dev) + (echo-message! echo (str "XFS: repairing " dev)))))) + +(def (cmd-xfs-growfs app) + (let* ((echo (app-state-echo app))) + (echo-read-string echo "Mount point: " + (lambda (mnt) + (echo-message! echo (str "XFS: growing filesystem at " mnt)))))) + +(def (cmd-xfs-freeze app) + (let* ((echo (app-state-echo app))) + (echo-read-string echo "Mount point: " + (lambda (mnt) + (echo-message! echo (str "XFS: freezing " mnt)))))) + +(def (cmd-resize2fs-grow app) + (let* ((echo (app-state-echo app))) + (echo-read-string echo "Device: " + (lambda (dev) + (echo-message! echo (str "Resize2fs: growing " dev)))))) + +(def (cmd-resize2fs-shrink app) + (let* ((echo (app-state-echo app))) + (echo-read-string echo "Device and size: " + (lambda (spec) + (echo-message! echo (str "Resize2fs: shrinking " spec)))))) + +(def (cmd-resize2fs-info app) + (let* ((echo (app-state-echo app))) + (echo-read-string echo "Device: " + (lambda (dev) + (echo-message! echo (str "Resize2fs: info for " dev)))))) + +(def (cmd-resize2fs-check app) + (let* ((echo (app-state-echo app))) + (echo-read-string echo "Device: " + (lambda (dev) + (echo-message! echo (str "Resize2fs: checking " dev)))))) \ No newline at end of file --- a/src/jerboa-emacs/editor-extra-modes.ss +++ b/src/jerboa-emacs/editor-extra-modes.ss @@ -24970,3 +24970,65 @@ (lambda (dev) (echo-message! echo (str "Gdisk: creating partition on " dev)))))) +;;; Round 325 — Mkfs ext, Fsck ext, Tune2fs ext, Xfs-admin ext, Resize2fs ext (batch 1) + +(def (cmd-mkfs-vfat app) + (let* ((echo (app-state-echo app))) + (echo-read-string echo "Device: " + (lambda (dev) + (echo-message! echo (str "Mkfs: creating VFAT filesystem on " dev)))))) + +(def (cmd-mkfs-f2fs app) + (let* ((echo (app-state-echo app))) + (echo-read-string echo "Device: " + (lambda (dev) + (echo-message! echo (str "Mkfs: creating F2FS filesystem on " dev)))))) + +(def (cmd-mkfs-ntfs app) + (let* ((echo (app-state-echo app))) + (echo-read-string echo "Device: " + (lambda (dev) + (echo-message! echo (str "Mkfs: creating NTFS filesystem on " dev)))))) + +(def (cmd-mkfs-swap app) + (let* ((echo (app-state-echo app))) + (echo-read-string echo "Device: " + (lambda (dev) + (echo-message! echo (str "Mkfs: creating swap on " dev)))))) + +(def (cmd-fsck-check app) + (let* ((echo (app-state-echo app))) + (echo-read-string echo "Device: " + (lambda (dev) + (echo-message! echo (str "Fsck: checking " dev)))))) + +(def (cmd-fsck-repair app) + (let* ((echo (app-state-echo app))) + (echo-read-string echo "Device: " + (lambda (dev) + (echo-message! echo (str "Fsck: repairing " dev)))))) + +(def (cmd-fsck-ext4 app) + (let* ((echo (app-state-echo app))) + (echo-read-string echo "Device: " + (lambda (dev) + (echo-message! echo (str "Fsck: checking ext4 on " dev)))))) + +(def (cmd-fsck-xfs app) + (let* ((echo (app-state-echo app))) + (echo-read-string echo "Device: " + (lambda (dev) + (echo-message! echo (str "Fsck: checking XFS on " dev)))))) + +(def (cmd-tune2fs-show app) + (let* ((echo (app-state-echo app))) + (echo-read-string echo "Device: " + (lambda (dev) + (echo-message! echo (str "Tune2fs: showing info for " dev)))))) + +(def (cmd-tune2fs-set app) + (let* ((echo (app-state-echo app))) + (echo-read-string echo "Option and device: " + (lambda (spec) + (echo-message! echo (str "Tune2fs: setting " spec)))))) + --- a/src/jerboa-emacs/editor-extra-regs2.ss +++ b/src/jerboa-emacs/editor-extra-regs2.ss @@ -8242,4 +8242,25 @@ (register-command! 'blkid-probe cmd-blkid-probe) (register-command! 'blkid-cache cmd-blkid-cache) (register-command! 'blkid-uuid cmd-blkid-uuid) + ;; Round 325 + (register-command! 'mkfs-vfat cmd-mkfs-vfat) + (register-command! 'mkfs-f2fs cmd-mkfs-f2fs) + (register-command! 'mkfs-ntfs cmd-mkfs-ntfs) + (register-command! 'mkfs-swap cmd-mkfs-swap) + (register-command! 'fsck-check cmd-fsck-check) + (register-command! 'fsck-repair cmd-fsck-repair) + (register-command! 'fsck-ext4 cmd-fsck-ext4) + (register-command! 'fsck-xfs cmd-fsck-xfs) + (register-command! 'tune2fs-show cmd-tune2fs-show) + (register-command! 'tune2fs-set cmd-tune2fs-set) + (register-command! 'tune2fs-journal cmd-tune2fs-journal) + (register-command! 'tune2fs-label cmd-tune2fs-label) + (register-command! 'xfs-info cmd-xfs-info) + (register-command! 'xfs-repair cmd-xfs-repair) + (register-command! 'xfs-growfs cmd-xfs-growfs) + (register-command! 'xfs-freeze cmd-xfs-freeze) + (register-command! 'resize2fs-grow cmd-resize2fs-grow) + (register-command! 'resize2fs-shrink cmd-resize2fs-shrink) + (register-command! 'resize2fs-info cmd-resize2fs-info) + (register-command! 'resize2fs-check cmd-resize2fs-check) )