Meadow でアラーム

忘れっぽいので、↓こんなの作ってた。

(defun my-add-popup-timer (mes time)
  (interactive "sMessage: \nsTime: ")
  (run-at-time time
               nil
               (function
                (lambda (x)
                  (start-process "popup-message" nil "wscript" "c:/aaa.vbs" x)))
               mes))

c:/aaa.vbs

Set args = Wscript.Arguments
Dim str
For Each c in args
str = str & c & vbCRLF
Next
MsgBox str

M-x my-add-popup-timer としてから、Message で入れたメッセージが、Time: 1min とか指定すると、1 分後にポップアップしてくれるというそれだけのもの。2000 以降限定かも。