From 75e005e81b73d8471f16dc5fad7bbdc312bdbfe7 Mon Sep 17 00:00:00 2001 From: LLLL Colonq Date: Sun, 26 Apr 2026 23:47:18 -0400 Subject: Update --- src/gizmo/wasp-bannerads.el | 11 ++++++++--- 1 file changed, 8 insertions(+), 3 deletions(-) (limited to 'src/gizmo/wasp-bannerads.el') 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) -- cgit v1.2.3