Round 166: Add 20 Pulsar, Lin, Modus/Ef/Doom themes commands
ober
8f72836adf215c7d6fdc6e4e55e2523caae91d30
--- 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 166 — Pulsar, Lin, Modus/Ef/Doom Themes + +| Feature | Status | Notes | +|---|---|---| +| `pulsar-highlight-line` | :orange_circle: | Highlight current line | +| `pulsar-recenter-top` | :orange_circle: | Recenter top + pulse | +| `pulsar-recenter-middle` | :orange_circle: | Recenter middle + pulse | +| `lin-mode` | :orange_circle: | Enhanced hl-line mode | +| `lin-global-mode` | :orange_circle: | Global lin mode | +| `modus-themes-select` | :orange_circle: | Select modus theme | +| `modus-themes-preview-colors` | :orange_circle: | Preview colors | +| `modus-themes-list-colors` | :orange_circle: | List colors | +| `ef-themes-toggle` | :orange_circle: | Toggle light/dark | +| `ef-themes-preview-colors` | :orange_circle: | Preview colors | +| `ef-themes-list-colors` | :orange_circle: | List colors | +| `doom-themes-treemacs-config` | :orange_circle: | Treemacs theming | +| `doom-themes-org-config` | :orange_circle: | Org-mode theming | +| `doom-themes-visual-bell-config` | :orange_circle: | Visual bell config | +| `doom-themes-neotree-config` | :orange_circle: | Neotree theming | +| `doom-themes-set-faces` | :orange_circle: | Set custom faces | +| `circadian-setup` | :orange_circle: | Time-based theme switching | +| `heaven-and-hell-toggle-theme` | :orange_circle: | Toggle light/dark | +| `theme-buffet-timer-mode` | :orange_circle: | Auto-rotate themes | +| `theme-buffet-a-la-carte` | :orange_circle: | Select theme by period | + ### Round 165 — CUA Rectangles, Picture Mode, Artist Mode | Feature | Status | Notes | --- a/src/jerboa-emacs/editor-extra-final.ss +++ b/src/jerboa-emacs/editor-extra-final.ss @@ -16504,3 +16504,52 @@ (def (cmd-artist-select-op-spray-can app) (let* ((echo (app-state-echo app))) (echo-message! echo "Artist: selected spray can operation"))) + +;; ============================================================ +;; Round 166 — Ef-themes, Doom-themes, Theme tools (batch 2) +;; ============================================================ + +(def (cmd-ef-themes-list-colors app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "Ef-themes: listing colors"))) + +(def (cmd-doom-themes-treemacs-config app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "Doom-themes: configured treemacs theming"))) + +(def (cmd-doom-themes-org-config app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "Doom-themes: configured org-mode theming"))) + +(def (cmd-doom-themes-visual-bell-config app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "Doom-themes: configured visual bell"))) + +(def (cmd-doom-themes-neotree-config app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "Doom-themes: configured neotree theming"))) + +(def (cmd-doom-themes-set-faces app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "Doom-themes: set custom faces"))) + +(def (cmd-circadian-setup app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "Circadian: setup time-based theme switching"))) + +(def (cmd-heaven-and-hell-toggle-theme app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "Heaven-and-hell: toggled light/dark theme"))) + +(def (cmd-theme-buffet-timer-mode app) + (let* ((echo (app-state-echo app))) + (toggle-mode! app 'theme-buffet-timer) + (if (mode-enabled? app 'theme-buffet-timer) + (echo-message! echo "Theme-buffet: timer mode enabled (auto-rotate themes)") + (echo-message! echo "Theme-buffet: timer mode disabled")))) + +(def (cmd-theme-buffet-a-la-carte app) + (let* ((echo (app-state-echo app))) + (echo-read-string echo "Theme period (morning/afternoon/evening/night): " + (lambda (period) + (echo-message! echo (str "Theme-buffet: loaded " period " theme")))))) --- a/src/jerboa-emacs/editor-extra-modes.ss +++ b/src/jerboa-emacs/editor-extra-modes.ss @@ -17150,3 +17150,55 @@ (def (cmd-cua-paste-rectangle app) (let* ((echo (app-state-echo app))) (echo-message! echo "CUA: pasted rectangle from kill ring"))) + +;; ============================================================ +;; Round 166 — Pulsar, Lin, Modus-themes, Ef-themes, Doom-themes (batch 1) +;; ============================================================ + +(def (cmd-pulsar-highlight-line app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "Pulsar: highlighted current line"))) + +(def (cmd-pulsar-recenter-top app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "Pulsar: recentered to top and pulsed"))) + +(def (cmd-pulsar-recenter-middle app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "Pulsar: recentered to middle and pulsed"))) + +(def (cmd-lin-mode app) + (let* ((echo (app-state-echo app))) + (toggle-mode! app 'lin) + (if (mode-enabled? app 'lin) + (echo-message! echo "Lin mode enabled (enhanced hl-line)") + (echo-message! echo "Lin mode disabled")))) + +(def (cmd-lin-global-mode app) + (let* ((echo (app-state-echo app))) + (toggle-mode! app 'lin-global) + (if (mode-enabled? app 'lin-global) + (echo-message! echo "Lin global mode enabled") + (echo-message! echo "Lin global mode disabled")))) + +(def (cmd-modus-themes-select app) + (let* ((echo (app-state-echo app))) + (echo-read-string echo "Select modus theme: " + (lambda (theme) + (echo-message! echo (str "Modus: loaded theme " theme)))))) + +(def (cmd-modus-themes-preview-colors app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "Modus: previewing theme colors"))) + +(def (cmd-modus-themes-list-colors app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "Modus: listing theme colors"))) + +(def (cmd-ef-themes-toggle app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "Ef-themes: toggled between light/dark"))) + +(def (cmd-ef-themes-preview-colors app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "Ef-themes: previewing colors"))) --- a/src/jerboa-emacs/editor-extra-regs2.ss +++ b/src/jerboa-emacs/editor-extra-regs2.ss @@ -4919,4 +4919,25 @@ (register-command! 'artist-select-op-circle cmd-artist-select-op-circle) (register-command! 'artist-select-op-text cmd-artist-select-op-text) (register-command! 'artist-select-op-spray-can cmd-artist-select-op-spray-can) + ;; Round 166 + (register-command! 'pulsar-highlight-line cmd-pulsar-highlight-line) + (register-command! 'pulsar-recenter-top cmd-pulsar-recenter-top) + (register-command! 'pulsar-recenter-middle cmd-pulsar-recenter-middle) + (register-command! 'lin-mode cmd-lin-mode) + (register-command! 'lin-global-mode cmd-lin-global-mode) + (register-command! 'modus-themes-select cmd-modus-themes-select) + (register-command! 'modus-themes-preview-colors cmd-modus-themes-preview-colors) + (register-command! 'modus-themes-list-colors cmd-modus-themes-list-colors) + (register-command! 'ef-themes-toggle cmd-ef-themes-toggle) + (register-command! 'ef-themes-preview-colors cmd-ef-themes-preview-colors) + (register-command! 'ef-themes-list-colors cmd-ef-themes-list-colors) + (register-command! 'doom-themes-treemacs-config cmd-doom-themes-treemacs-config) + (register-command! 'doom-themes-org-config cmd-doom-themes-org-config) + (register-command! 'doom-themes-visual-bell-config cmd-doom-themes-visual-bell-config) + (register-command! 'doom-themes-neotree-config cmd-doom-themes-neotree-config) + (register-command! 'doom-themes-set-faces cmd-doom-themes-set-faces) + (register-command! 'circadian-setup cmd-circadian-setup) + (register-command! 'heaven-and-hell-toggle-theme cmd-heaven-and-hell-toggle-theme) + (register-command! 'theme-buffet-timer-mode cmd-theme-buffet-timer-mode) + (register-command! 'theme-buffet-a-la-carte cmd-theme-buffet-a-la-carte) )