From b21ecce6645fc17c520b722de3d96e550c77c490 Mon Sep 17 00:00:00 2001 From: LLLL Colonq Date: Thu, 13 Mar 2025 21:30:13 -0400 Subject: Update --- src/gizmo/wasp-bannerads.el | 25 ++++++++++++++++++++++--- 1 file changed, 22 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 2586600e..70f9c8be 100644 --- a/src/gizmo/wasp-bannerads.el +++ b/src/gizmo/wasp-bannerads.el @@ -9,6 +9,8 @@ (require 'wasp-utils) (require 'wasp-chat) +(defvar w/banner-ad-block nil) + (defcustom w/banner-ad-buffer "*wasp-banner-ad*" "Name of buffer used to display banner ad." :type '(string) @@ -32,9 +34,13 @@ (setq-local cursor-type nil) (let* ((inhibit-read-only t)) (erase-buffer) - (let* ((paths (f-files (w/asset "bannerads"))) - (path (w/pick-random paths))) - (w/write (propertize "bannerad" 'display (create-image path nil nil :max-width 555 :max-height 175))))))) + (if w/banner-ad-block + (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))) + (image-animate img nil t) + (w/write (propertize "bannerad" 'display img))))))) (defvar w/banner-ad-timer nil) (defun w/run-banner-ad-timer () @@ -47,5 +53,18 @@ (run-with-timer 60 nil #'w/run-banner-ad-timer))) (w/run-banner-ad-timer) + +(defun w/banner-ad-block () + "Toggle adblock." + (setq w/banner-ad-block t) + (w/render-banner-ad) + (w/model-toggle-set "adblock") + (run-with-timer 10 nil + (lambda () + (setq w/banner-ad-block nil) + (w/model-toggle-unset "adblock") + (w/render-banner-ad))) + nil) + (provide 'wasp-bannerads) ;;; wasp-bannerads.el ends here -- cgit v1.2.3