From 5b362d95b369421d65fd92491a3eae091ffba52b Mon Sep 17 00:00:00 2001 From: Zedhugh Chen Date: Wed, 5 Jul 2023 01:21:05 +0800 Subject: [PATCH] add drink notice function --- lisp/init-func.el | 14 ++++++++++++++ 1 file changed, 14 insertions(+) diff --git a/lisp/init-func.el b/lisp/init-func.el index 9b578df..6a75779 100644 --- a/lisp/init-func.el +++ b/lisp/init-func.el @@ -88,5 +88,19 @@ (creature/fallback-indent-func))) +(defvar creature/drink-timer nil + "Timer for drink water notifition.") +(defun creature/start-drink-timer () + "Start timer for notice drink water." + (interactive) + (when (timerp creature/drink-timer) + (cancel-timer creature/drink-timer) + (setq creature/drink-timer nil)) + (setq creature/drink-timer + (run-with-timer 1800 1800 + (lambda () + (require 'alert) + (alert-notifications-notify '(:title "该喝水啦!!!" :persistent 1)))))) + (provide 'init-func)