diff options
Diffstat (limited to 'src/gizmo/wasp-cyclone.el')
| -rw-r--r-- | src/gizmo/wasp-cyclone.el | 32 |
1 files changed, 23 insertions, 9 deletions
diff --git a/src/gizmo/wasp-cyclone.el b/src/gizmo/wasp-cyclone.el index 7359485b..d77061e7 100644 --- a/src/gizmo/wasp-cyclone.el +++ b/src/gizmo/wasp-cyclone.el @@ -10,10 +10,13 @@ (defconst w/gizmo-buffer-names (list - w/friend-buffer - w/heartrate-buffer - w/chatsummary-buffer - w/alert-message-buffer)) + w/friend-buffer + w/heartrate-buffer + w/chatsummary-buffer + w/alert-message-buffer + w/fake-chatter-enclosure-buffer + w/banner-ad-buffer + )) (defvar w/gizmo-windows (list)) @@ -26,11 +29,11 @@ (defun w/gizmo-cycle-window (w) "Cycle the gizmo in W." (when-let* - ((cur (buffer-name (window-buffer w))) - (idx (--find-index (equal it cur) w/gizmo-buffer-names)) - (bufs (-non-nil (-map #'get-buffer w/gizmo-buffer-names))) - (nidx (mod (+ idx 1) (length bufs))) - (buf (nth nidx bufs))) + ((cur (buffer-name (window-buffer w))) + (idx (--find-index (equal it cur) w/gizmo-buffer-names)) + (bufs (-non-nil (-map #'get-buffer w/gizmo-buffer-names))) + (nidx (mod (+ idx 1) (length bufs))) + (buf (nth nidx bufs))) (set-window-buffer w buf))) (defun w/gizmo-cycle () @@ -39,5 +42,16 @@ (--each w/gizmo-windows (w/gizmo-cycle-window it))) +(defvar w/gizmo-cycle-timer nil) +(defun w/run-gizmo-cycle-timer () + "Run the gizmo cycle timer." + (when w/gizmo-cycle-timer + (cancel-timer w/gizmo-cycle-timer)) + (w/gizmo-cycle) + (setq + w/gizmo-cycle-timer + (run-with-timer 300 nil #'w/run-gizmo-cycle-timer))) +(w/run-gizmo-cycle-timer) + (provide 'wasp-cyclone) ;;; wasp-cyclone.el ends here |