diff options
| author | LLLL Colonq <llll@colonq> | 2026-04-26 23:47:18 -0400 |
|---|---|---|
| committer | LLLL Colonq <llll@colonq> | 2026-04-26 23:47:18 -0400 |
| commit | 75e005e81b73d8471f16dc5fad7bbdc312bdbfe7 (patch) | |
| tree | 1ad7d61b04c44fc52b453aef44868a42012f3551 /src/gizmo/wasp-bannerads.el | |
| parent | cf266a56f30daae8b9af7c9bc3267c61b1973192 (diff) | |
Diffstat (limited to 'src/gizmo/wasp-bannerads.el')
| -rw-r--r-- | src/gizmo/wasp-bannerads.el | 11 |
1 files changed, 8 insertions, 3 deletions
diff --git a/src/gizmo/wasp-bannerads.el b/src/gizmo/wasp-bannerads.el index 5ce7628e..e950d874 100644 --- a/src/gizmo/wasp-bannerads.el +++ b/src/gizmo/wasp-bannerads.el @@ -29,6 +29,7 @@ (w/banner-ad-mode))) (get-buffer w/banner-ad-buffer)) +(defvar w/banner-ad-position-jitter 0) (defun w/banner-ad-update () "Render the banner ad buffer." (with-current-buffer (w/banner-ad-get-buffer) @@ -39,7 +40,11 @@ (w/write "This advertisement was blocked by your adblocker") (let* ((paths (f-files (w/asset "bannerads"))) (path (w/pick-random paths)) - (img (create-image path nil nil :max-width 555 :max-height 175))) + (img + (create-image path nil nil + :max-width 555 :max-height 175 + :animate-position (+ (point-min) w/banner-ad-position-jitter)))) + (setf w/banner-ad-position-jitter (% (+ w/banner-ad-position-jitter 1) (length "bannerad"))) (image-animate img nil t) (w/write (propertize "bannerad" 'display img))))))) (add-hook 'w/gizmo-update-hook #'w/banner-ad-update) @@ -48,11 +53,11 @@ "Toggle adblock." (setq w/banner-ad-block t) (w/banner-ad-update) - (w/model-toggle-set "adblock") + (w/overlay-toggle-set "adblock") (run-with-timer 10 nil (lambda () (setq w/banner-ad-block nil) - (w/model-toggle-unset "adblock") + (w/overlay-toggle-unset "adblock") (w/banner-ad-update))) nil) |